use strict;
use warnings;
-use Test::More tests => 3;
-
-BEGIN {
- use_ok('Moose');
-}
+use Test::More;
=pod
-This just makes sure that the Bar gets
+This just makes sure that the Bar gets
a metaclass initialized for it correctly.
=cut
{
- package Foo;
- use Moose;
+ package Foo;
+ use Moose;
- package Bar;
+ package Bar;
use strict;
use warnings;
-
- use base 'Foo';
+
+ use base 'Foo';
}
my $bar = Bar->new;
isa_ok($bar, 'Bar');
-isa_ok($bar, 'Foo');
\ No newline at end of file
+isa_ok($bar, 'Foo');
+
+done_testing;