11 my @isa = (isa => sub { push @result, 'isa', $_[0] });
12 my @trigger = (trigger => sub { push @result, 'trigger', $_[1] });
15 (default => sub { push @result, 'default', $val; $val; })
22 is => 'rw', @isa, @trigger
25 is => 'rw', @isa, @trigger
28 is => 'rw', @trigger, _mkdefault('a4')
31 is => 'rw', @trigger, _mkdefault('a5')
34 is => 'rw', @isa, @trigger, _mkdefault('a6')
37 is => 'rw', @isa, @trigger, _mkdefault('a7')
41 my $foo = Foo->new(a1 => 'a1', a2 => 'a2', a4 => 'a4', a6 => 'a6');
45 [ qw(isa a1 isa a2 trigger a2 trigger a4 default a5 isa a6 trigger a6
47 'Stuff fired in expected order'