t/001_mouse/018-multiattr-has.t

   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     for my $attr (qw/a b c/) {
  12         has $attr => (
  13             is => 'rw',
  14             trigger => sub {
  15                 $trigger{$attr}++;
  16             },
  17         );
  18     }
  19 };
  20
  21 can_ok(Class => qw/a b c/);
  22 is_deeply([sort Class->meta->get_attribute_list], [sort qw/a b c/], "three attributes created");
  23 Class->new(a => 1, b => 2);
  24
  25 is_deeply(\%trigger, { a => 1, b => 1 }, "correct triggers called");
  26