projects
/
gitmo/Moose.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
added default {} keyword
[gitmo/Moose.git]
/
t
/
103_subclass_use_base_bug.t
1
#!/usr/bin/perl
2
3
use strict;
4
use warnings;
5
6
use Test::More tests => 3;
7
8
BEGIN {
9
use_ok('Moose');
10
}
11
12
=pod
13
14
This just makes sure that the Bar gets
15
a metaclass initialized for it correctly.
16
17
=cut
18
19
{
20
package Foo;
21
use Moose;
22
23
package Bar;
24
use strict;
25
use warnings;
26
27
use base 'Foo';
28
}
29
30
my $bar = Bar->new;
31
isa_ok($bar, 'Bar');
32
isa_ok($bar, 'Foo');