11 has one => (is => 'rw', trigger => sub { push @one_tr, $_[1] });
16 ok(!@one_tr, "trigger not fired with no value");
18 $foo = Foo->new(one => 1);
20 is_deeply(\@one_tr, [ 1 ], "trigger fired on new");
22 my $res = $foo->one(2);
24 is_deeply(\@one_tr, [ 1, 2 ], "trigger fired on set");
26 is($res, 2, "return from set ok");
28 is($foo->one, 2, "return from accessor ok");
30 is_deeply(\@one_tr, [ 1, 2 ], "trigger not fired for accessor as get");