Moose 入門 - モダンãªPerl入門LL温泉2008用ã®è³‡æ–™ã§ã™ã€‚ 最近㮠Perl OOP ã®ã“ã¨ã€‚ Perl5 ã® OOP ã¨ç°¡å˜ãªãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã®ã¤ãã‚Šã‹ãŸã€‚ Perl5 ã«ã¤ã„ã¦ã®è¦‹è§£ Perl5 ã® OOP ã¯ã‚€ãšã‹ã—ã„。 昔ãªãŒã‚‰ã® Perl5 OOP package Person; # クラス宣言 use strict; use warnings; sub new { my ($class) = @_; return bless { name => '', age => undef, }, $class; } sub name { my ($self, $name) = @_; $self->{'name'} = $name if $name; return $self->{'name'}; } sub age { my ($self, $age) = @_; $self->{'age'} = $age if $a
perl-mongers.org
I, newbie » Mooseã«ã‚ˆã‚‹ã‚ªãƒ–ジェクト指å‘Perl
{{#tags}}- {{label}}
{{/tags}}