moose_class.pl

Perlエキスパート

Explorer

C40
C++40
C#40
Dart40
Go40
Java40
JavaScript40
Kotlin40
Objective-C40
Perl
初級10
中級10
上級10
エキスパート5
closure_factory.pl
tie_scalar.pl
autoload.pl
moose_class.pl
dispatch_table.pl
マスター5
PHP40
Python40
R40
Ruby40
Rust40
Shell40
Swift40
TypeScript40
moose_class.pl
Click to focus
1
2
3
4
5
6
7
8
package User;
use Moose;
has 'name' => (is => 'rw', isa => 'Str', required => 1);
has 'age' => (is => 'rw', isa => 'Int', default => 0);
around 'age' => sub {
   my ($orig, $self, @args) = @_;
   @args ? $self->$orig(@args) : $self->$orig;
};
0WPM0%0:000/242(0%)|Ln 1, Col 1
UTF-8Perl

関連する練習問題