jamadamのブックマーク - はてなブックマーク

Mo.pmを読んだ - Perl日記
こんばんは。面白そうだったのでMoを読んでみた。 http://search.cpan.org/~ingy/Mo-0.30/lib/Mo.pod Moとは Moose is huge. Moose led to Mouse led to Moo led to Mo. M is nothing. Mo is more. Not much.Moose、Mouse、Mooからできたlessなやつ。 VERSIONは0.30だった。コード Mo.pm package Mo; $VERSION='0.30'; no warnings;my$M=__PACKAGE__.::;*{$M.Object::new}=sub{bless{@_[1..$#_]},$_[0]};*{$M.import}=sub{import warnings;$^H|=1538;my($P,%e,%o)=caller.::;
jamadam 2012/04/18
リンク
"package"の代わりに"class"を使うclass.pm作った - Perl日記
再発明かな。 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'); print $foo->bar, "\n"; #=> 'hoge'
jamadam 2012/04/09
perl
リンク
1

はてなブックマーク