6 use Test::More tests => 6;
16 has 'foo' => (is => 'rw');
21 #my $c = SomeClass->new;
22 #isa_ok( $c, 'SomeClass');
24 for my $modifier_type (qw[ before around after ]) {
25 my $get_func = "get_${modifier_type}_method_modifiers";
26 my @mms = eval{ SomeRole->meta->$get_func('foo') };
27 is($@, '', "$get_func for no method mods does not die");
28 is(scalar(@mms),0,'is an empty list');