Commit | Line | Data |
---|---|---|
7ff56534 | 1 | #!/usr/bin/perl |
2 | ||
3 | use strict; | |
4 | use warnings; | |
5 | ||
a28e50e4 | 6 | use Test::More; |
b10dde3a | 7 | use Test::Fatal; |
7ff56534 | 8 | |
b10dde3a | 9 | is( exception { |
d5733154 | 10 | eval 'use Moose'; |
b10dde3a | 11 | }, undef, "export to main" ); |
d5733154 | 12 | |
13 | isa_ok( main->meta, "Moose::Meta::Class" ); | |
14 | ||
15 | isa_ok( main->new, "main"); | |
16 | isa_ok( main->new, "Moose::Object" ); | |
f967bf02 | 17 | |
a28e50e4 | 18 | done_testing; |