1 use Test::More tests => 4;
4 package Local::Test::Role1;
6 has [qw/ attr1 attr2 /] => (is => 'ro');
8 }, 'has \@attrs works in roles')
9 or diag "EVAL FAILED: $@";
12 package Local::Test::Class1;
14 with 'Local::Test::Role1';
15 has [qw/ attr3 attr4 /] => (is => 'ro');
17 }, 'has \@attrs works in classes'
18 or diag "EVAL FAILED: $@";
20 my $obj = new_ok 'Local::Test::Class1' => [
29 qw( attr1 attr2 attr3 attr4 ),