projects
/
gitmo/Moose.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
3115307ae8f4cdc1119a33b1e42a9d6e828459b3
[gitmo/Moose.git]
/
t
/
bugs
/
subclass_use_base_bug.t
1
#!/usr/bin/perl
2
3
use strict;
4
use warnings;
5
6
use Test::More;
7
8
=pod
9
10
This just makes sure that the Bar gets
11
a metaclass initialized for it correctly.
12
13
=cut
14
15
{
16
package Foo;
17
use Moose;
18
19
package Bar;
20
use strict;
21
use warnings;
22
23
use base 'Foo';
24
}
25
26
my $bar = Bar->new;
27
isa_ok($bar, 'Bar');
28
isa_ok($bar, 'Foo');
29
30
done_testing;