package Class;
use Mouse;
- has [qw/a b c/] => (
- is => 'rw',
- trigger => sub {
- my ($self, $value, $attr) = @_;
- $trigger{$attr->name}++;
- },
- );
+ for my $attr (qw/a b c/) {
+ has $attr => (
+ is => 'rw',
+ trigger => sub {
+ $trigger{$attr}++;
+ },
+ );
+ }
};
can_ok(Class => qw/a b c/);
-is(Class->meta->attributes, 3, "three attributes created");
+is(keys %{ Class->meta->get_attribute_map }, 3, "three attributes created");
Class->new(a => 1, b => 2);
is_deeply(\%trigger, { a => 1, b => 1 }, "correct triggers called");