Perl日記

日々の知ったことのメモなどです。Perlは最近やってないです。

2012-04-09から1日間の記事一覧

"package"の代わりに"class"を使うclass.pm作った

再発明かな。 use strict; use warnings; use class; class "Foo" => ( bar => sub { my $self = shift; if (@_) { $self->{bar} = shift; } $self->{bar}; }, ); my $foo = Foo->new(bar => 'baz'); print $foo->bar, "\n"; #=> 'baz' $foo->bar('hoge'); p…