2 # This is automatically generated by author/import-moose-test.pl.
3 # DO NOT EDIT THIS FILE. ANY CHANGES WILL BE LOST!!!
4 use t::lib::MooseCompat;
15 scalar reverse $self->name;
21 use Mouse -traits => [
24 reversed_name => 'enam',
31 package My::Other::Class;
32 use Mouse -traits => [
35 reversed_name => 'reversed',
37 -excludes => 'reversed_name',
42 my $meta = My::Class->meta;
43 is($meta->enam, 'ssalC::yM', 'parameterized trait applied');
44 ok(!$meta->can('reversed'), "the method was not installed under the other class' alias");
46 my $other_meta = My::Other::Class->meta;
47 is($other_meta->reversed, 'ssalC::rehtO::yM', 'parameterized trait applied');
48 ok(!$other_meta->can('enam'), "the method was not installed under the other class' alias");
49 ok(!$other_meta->can('reversed_name'), "the method was not installed under the original name when that was excluded");