1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
use strict; use warnings; use Test::More; use Test::Fatal; is( exception { eval 'use Moose'; }, undef, "export to main" ); isa_ok( main->meta, "Moose::Meta::Class" ); isa_ok( main->new, "main"); isa_ok( main->new, "Moose::Object" ); done_testing;