use strict;
use warnings;
-use Test::More 'no_plan';
+use Test::More;
{
-
package A;
use Moose;
}
{
-
package B;
use Moose;
extends qw(A);
sub bar {
::BAIL_OUT('B::bar called twice') if $main::seen{'B::bar'}++;
- return 'b' . super();
+ return 'b' . ( super() || '' );
}
override baz => sub {
}
{
-
package C;
use Moose;
extends qw(B);
is( C->new->foo, 'c' );
is( C->new->bar, 'cb' );
is( C->new->baz, 'cba' );
+
+done_testing;