around, BUILD, MooseX::Object::Pluggable のメモ - 日向夏特殊応援部隊

around, BUILD, MooseX::Object::Pluggable のメモ - 日向夏特殊応援部隊

私的なメモです。 around before, after, augment の汎用版かつ、引数や戻り値を変更出来るのがaround b...概要を表示 私的なメモです。 around before, after, augment の汎用版かつ、引数や戻り値を変更出来るのがaround before っぽく使う場合は、 around 'run' => sub { my $orig = shift; my ($self, @args) = @_; ### process before run ### ここになんか書く $orig->($self, @args); }; みたいに書く。特徴的なのは第一引数に元のCodeRefが入ってる所。なんでオリジナルを呼び出す際に、$orig->($self, @args) のように書く。 また$origの呼び出しを明示的に書けるので、当然渡してる引数を操作すれば元のメソッド呼び出しに反映されるし、戻り値に関しても同じように操作出来る。つまり、 around 'calc' => sub { my $orig

• moose
• Perl