use strict;
use warnings;
-use Test::More tests => 7;
+use Test::More tests => 6;
use Test::Exception;
-BEGIN {
- use_ok('Moose');
-}
+
=pod
-This test demonstrates that Moose will respect
-a previously set @ISA using use base, and not
-try to add Moose::Object to it.
+This test demonstrates that Moose will respect
+a previously set @ISA using use base, and not
+try to add Moose::Object to it.
-However, this is extremely order sensitive as
+However, this is extremely order sensitive as
this test also demonstrates.
=cut
package Foo;
use strict;
use warnings;
-
+
sub foo { 'Foo::foo' }
-
- package Bar;
+
+ package Bar;
use base 'Foo';
use Moose;
-
- sub new { (shift)->meta->new_object(@_) }
-
+
+ sub new { (shift)->meta->new_object(@_) }
+
package Baz;
- use Moose;
- use base 'Foo';
+ use Moose;
+ use base 'Foo';
}
my $bar = Bar->new;