4 use Test::More tests => 10;
17 my ($self, $value, $attr) = @_;
18 push @trigger, [$self, $value, $attr];
27 } qr/Trigger is not allowed on read-only attribute 'error'/;
30 can_ok(Class => 'attr');
32 my $object = Class->new;
33 is(@trigger, 0, "trigger not called yet");
35 is($object->attr, 10, "default value");
36 is(@trigger, 0, "trigger not called on read");
38 is($object->attr(50), 50, "setting the value");
39 is(@trigger, 1, "trigger was called on read");
40 is_deeply(shift(@trigger), [$object, 50, $object->meta->get_attribute('attr')], "correct arguments to trigger in the accessor");
42 my $object2 = Class->new(attr => 100);
43 is(@trigger, 1, "trigger was called on new with the attribute specified");
44 is_deeply(shift(@trigger), [$object2, 100, $object2->meta->get_attribute('attr')], "correct arguments to trigger in the constructor");