Commit | Line | Data |
c3398f5b |
1 | #!/usr/bin/env perl |
2 | use strict; |
3 | use warnings; |
4 | use Test::More tests => 3; |
5 | |
6 | do { |
7 | package Class; |
8 | use Mouse; |
9 | }; |
10 | |
11 | can_ok(Class => 'new'); |
12 | |
13 | my $object = Class->new; |
14 | |
15 | isa_ok($object => 'Class'); |
16 | isa_ok($object => 'Mouse::Object'); |
17 | |