use strict;
use warnings;
-use Test::More 'no_plan';
+use Test::More tests => 3;
{
-
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);