Moose::Cookbook::Recipe1 - has, before, after, extends - - 日向夏特殊応援部隊
もの凄い乗り遅れた感ですが僕も Moooooooooooooooooose してみる。 とりあえず Cookbook をやってみる事にしてみました。 Moose::Cookbook::Recipe1 - The (always classic) Point example. - metacpan.org ソース まぁ適当にテストとか追加してある。 package Point; use Moose; has 'x' => ( isa => 'Int', is => 'ro' ); has 'y' => ( isa => 'Int', is => 'rw' ); sub clear { my $self = shift; $self->{x} = 0; $self->y(0); } package Point3D; use Moose; extends 'Point'; has 'z' =>
Moose::Cookbook::Recipe2 - class based constraint, modifier with arguments - - 日向夏特殊応援部隊
続いて Recipe2 をやっちゃうぞー。 http://search.cpan.org/dist/Moose/lib/Moose/Cookbook/Recipe2.pod ソース 預貯金に関する英単語が良く分からなかったので調べてコメント振った。 package BankAccount; use Moose; # 預金残高 has 'balance' => (isa => 'Int', is => 'rw', default => 0); # 預金する sub deposit { my ($self, $amount) = @_; $self->balance($self->balance + $amount); } # 引き落とし sub withdraw { my ($self, $amount) = @_; my $current_balance = $self->balance(
1
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
処理を実行中です
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
