- 追加された行はこの色です。
- 削除された行はこの色です。
* Moose 基本 [#gc25e183]
** アクセサの拡張 [#r170c3d1]
** ゲッターの拡張 [#r170c3d1]
package Obj;
use Moose;
has n => (
is => 'rw',
isa => 'Int',
);
around 'n3' => sub {
around 'n' => sub {
my $next = shift;
my $self = shift;
return $self->$next . '!' unless @_;
my $arg = shift;
return $self->$next($arg);
};
package main;
my $o = Obj->new;
$o->n(10);
print $o->n, "\n";
print $o->n, "\n"; # 10!とビックリがつく
http://search.cpan.org/perldoc?Moose::Manual::FAQ#How_can_I_inflate/deflate_values_in_accessors?