Commit | Line | Data |
---|---|---|
41888e7d | 1 | #!/usr/bin/env perl |
2 | ||
3 | use strict; | |
4 | use warnings; | |
5 | ||
9864f0e4 | 6 | use Test::More tests => 4; |
41888e7d | 7 | use Test::Exception; |
8 | ||
9 | { | |
10 | package NoOpTrait; | |
11 | use Mouse::Role; | |
9864f0e4 | 12 | |
13 | ||
41888e7d | 14 | } |
15 | ||
16 | { | |
17 | package Parent; | |
9864f0e4 | 18 | use Mouse "-traits" => 'NoOpTrait'; |
41888e7d | 19 | |
20 | has attr => ( | |
21 | is => 'rw', | |
22 | isa => 'Str', | |
23 | ); | |
24 | } | |
25 | ||
26 | { | |
27 | package Child; | |
28 | use base 'Parent'; | |
29 | } | |
41888e7d | 30 | is(Child->meta->name, 'Child', "correct metaclass name"); |
41888e7d | 31 | my $child = Child->new(attr => "ibute"); |
32 | ok($child, "constructor works"); | |
33 | ||
9864f0e4 | 34 | |
41888e7d | 35 | is($child->attr, "ibute", "getter inherited properly"); |
36 | ||
37 | $child->attr("ition"); | |
38 | is($child->attr, "ition", "setter inherited properly"); |