moose_class.pl
Perl•마스터
탐색기
C40
C++40
C#40
Dart40
Go40
Java40
JavaScript40
Kotlin40
Objective-C40
Perl
초급10
중급10
고급10
전문가5
마스터5
moose_class.pl
tie_hash.pl
closure_factory.pl
overload_ops.pl
autoload_method.pl
PHP40
Python40
R40
Ruby40
Rust40
Shell40
Swift40
TypeScript40
moose_class.pl
Click to focus
1
2
3
4
5
6
7
8
9
10
11
12
13
14
package User;↵
use Moose;↵
use MooseX::Types::Moose qw(Str Int);↵
↵
has 'name' => (is => 'rw', isa => Str, required => 1);↵
has 'age' => (is => 'rw', isa => Int, default => 0);↵
↵
around 'age' => sub {↵
my ($orig, $self, $val) = @_;↵
return $self->$orig unless defined $val;↵
die "Invalid age" if $val < 0;↵
$self->$orig($val);↵
};↵
__PACKAGE__->meta->make_immutable;
0WPM•0%•0:00•0/366(0%)|Ln 1, Col 1
UTF-8•Perl