Moose Docs Grant Is Complete – House Absolute(ly) Pointlesshttp://cpansearch.perl.org/src/DROLSKY/Moose-0.74/Changes 0.66 Tue, February 3, 2009 * Moose::Manual - This is a brand new, extensive manual for Moose. This aims to provide a compl…

http://marcus.nordaaker.com/2009/03/a-proper-trycatch-for-perl/メモ 後で書く { package HTTPStatus; use Moose; has code => (is => 'rw', isa => 'Int', required => 1); __PACKAGE__->meta->make_immutable; } use strict; use warnings; use TryCatc…

FAQにもあるけど、Moose::Objectも継承して->meta->new_objectを明示的に呼ぶことにより、delegationを使わないでNon-Mooseクラスを継承することもできる。 use strict; use warnings; { package Parent; sub new { my ($class, %args) = @_; bless {name =>…

久々にMoose書こうとしたら酷いことになってたのでリハビリ開始。 Non-Mooseなクラスを継承する時には委譲を使うのは知ってたけどコンストラクタも継承するとこんな感じ? 自信なす＞＜ { package Parent; use strict; use warnings; sub new { my ($class, %…

世間ではShikaとかMouseとかが叫ばれている中、久々にMooseを触ったボクです。 で、すごい勢いでMoose忘れてるのでこんなのさえわかんなくなってました。 { package Base; use Moose; sub foo { warn 'Base'; } } { package RoleA; use Moose::Role; before …

_____________________________ < THE PEOPLE DEMAND MORE Ø'S! > ----------------------------- \ \ \_\_ _/_/ \ \__/ (oo)\_______ (__)\ )\/\ ||----w | || || http://twitter.com/nothingmuch/statuses/951005294

use Moose Mooseでクラスを作るのは簡単です。 package Dog; use Moose; 1; これで、newというコンストラクタメソッドを持ったDogクラスのインスタンスを生成することができます。 my $dog = Dog->new; print ref $dog; ちゃんと$dogがDogのインスタンスであ…

シンプルなPerl 5でクラスを作る 普通のPerl5 OOでクラスを書くと { package Dog; use strict; use warnings; sub new { my ( $class, %args ) = @_; my $obj = bless { name => $args{name}, gender => $args{gender}, }, $class; return $obj; } sub name …