use strict;
use warnings;
-use Test::More tests => 16;
+use Test::More tests => 15;
+
-BEGIN {
- use_ok('Moose');
-}
=pod
This just tests the interaction of override/super
-with non-Moose superclasses. It really should not
-cause issues, the only thing it does is to create
-a metaclass for Foo so that it can find the right
+with non-Moose superclasses. It really should not
+cause issues, the only thing it does is to create
+a metaclass for Foo so that it can find the right
super method.
-This may end up being a sensitive issue for some
-non-Moose classes, but in 99% of the cases it
-should be just fine.
+This may end up being a sensitive issue for some
+non-Moose classes, but in 99% of the cases it
+should be just fine.
=cut
package Foo;
use strict;
use warnings;
-
+
sub new { bless {} => shift() }
-
+
sub foo { 'Foo::foo' }
- sub bar { 'Foo::bar' }
+ sub bar { 'Foo::bar' }
sub baz { 'Foo::baz' }
-
+
package Bar;
use Moose;
-
+
extends 'Foo';
-
- override bar => sub { 'Bar::bar -> ' . super() };
-
+
+ override bar => sub { 'Bar::bar -> ' . super() };
+
package Baz;
use Moose;
-
+
extends 'Bar';
-
- override bar => sub { 'Baz::bar -> ' . super() };
- override baz => sub { 'Baz::baz -> ' . super() };
+
+ override bar => sub { 'Baz::bar -> ' . super() };
+ override baz => sub { 'Baz::baz -> ' . super() };
}
my $baz = Baz->new();