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