Commit | Line | Data |
---|---|---|
fcb7afc2 | 1 | #!/usr/bin/perl |
2 | ||
3 | use strict; | |
4 | use warnings; | |
5 | ||
a28e50e4 | 6 | use Test::More; |
fcb7afc2 | 7 | |
8 | =pod | |
9 | ||
d03bd989 | 10 | This just makes sure that the Bar gets |
fcb7afc2 | 11 | a metaclass initialized for it correctly. |
12 | ||
13 | =cut | |
14 | ||
15 | { | |
d03bd989 | 16 | package Foo; |
17 | use Moose; | |
fcb7afc2 | 18 | |
d03bd989 | 19 | package Bar; |
fcb7afc2 | 20 | use strict; |
21 | use warnings; | |
d03bd989 | 22 | |
23 | use base 'Foo'; | |
fcb7afc2 | 24 | } |
25 | ||
26 | my $bar = Bar->new; | |
27 | isa_ok($bar, 'Bar'); | |
a28e50e4 | 28 | isa_ok($bar, 'Foo'); |
29 | ||
30 | done_testing; |