[gitmo/Mouse.git] / t / 018-multiattr-has.t

#!/usr/bin/env perl
use strict;
use warnings;
use Test::More tests => 3;

my %trigger;
do {
    package Class;
    use Mouse;

    has [qw/a b c/] => (
        is => 'rw',
        trigger => sub {
            my ($self, $value, $attr) = @_;
            $trigger{$attr->name}++;
        },
    );
};

can_ok(Class => qw/a b c/);
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");
Commit	Line	Data
c3398f5b	1	#!/usr/bin/env perl
	2	use strict;
	3	use warnings;
	4	use Test::More tests => 3;
	5
	6	my %trigger;
	7	do {
	8	package Class;
	9	use Mouse;
	10
	11	has [qw/a b c/] => (
	12	is => 'rw',
	13	trigger => sub {
	14	my ($self, $value, $attr) = @_;
	15	$trigger{$attr->name}++;
	16	},
	17	);
	18	};
	19
	20	can_ok(Class => qw/a b c/);
f89acace	21	is(keys %{ Class->meta->get_attribute_map }, 3, "three attributes created");
c3398f5b	22	Class->new(a => 1, b => 2);
	23
	24	is_deeply(\%trigger, { a => 1, b => 1 }, "correct triggers called");
	25