5 use Test::More tests => 5;
13 scalar reverse $self->name;
19 use Mouse -traits => [
22 reversed_name => 'enam',
29 package My::Other::Class;
30 use Mouse -traits => [
33 reversed_name => 'reversed',
35 -excludes => 'reversed_name',
40 my $meta = My::Class->meta;
41 is($meta->enam, 'ssalC::yM', 'parameterized trait applied');
42 ok(!$meta->can('reversed'), "the method was not installed under the other class' alias");
44 my $other_meta = My::Other::Class->meta;
45 is($other_meta->reversed, 'ssalC::rehtO::yM', 'parameterized trait applied');
46 ok(!$other_meta->can('enam'), "the method was not installed under the other class' alias");
47 ok(!$other_meta->can('reversed_name'), "the method was not installed under the original name when that was excluded");