9 plan skip_all => "segv happens on 5.6.2";
13 use Test::More tests => 5;
21 scalar reverse $self->name;
27 use Mouse -traits => [
30 reversed_name => 'enam',
37 package My::Other::Class;
38 use Mouse -traits => [
41 reversed_name => 'reversed',
43 -excludes => 'reversed_name',
48 my $meta = My::Class->meta;
49 is($meta->enam, 'ssalC::yM', 'parameterized trait applied');
50 ok(!$meta->can('reversed'), "the method was not installed under the other class' alias");
52 my $other_meta = My::Other::Class->meta;
53 is($other_meta->reversed, 'ssalC::rehtO::yM', 'parameterized trait applied');
54 ok(!$other_meta->can('enam'), "the method was not installed under the other class' alias");
55 ok(!$other_meta->can('reversed_name'), "the method was not installed under the original name when that was excluded");