Select Code to Download

package Logger;
use warnings;
...
sub log_warn { warn @_ }

__PACKAGE__

package Common;
use warnings;
...
sub import { goto &$import }

__PACKAGE__

package MyObj;

...
}

__PACKAGE__->meta->make_immutable

#!/usr/bin/perl
use warnings;
...
    $o->foo;
    is($warnings[0], $warnings, $name);
}

t/01-basic.t .. 
1..4
...
t/01-basic.t (Wstat: 65280 Tests: 0 Failed: 0)
  Non-zero exit status: 255
  Parse errors: Bad plan.  You planned 4 tests but ran 0.

#!/usr/bin/perl
use warnings;
use strict;
...
    $o->foo;
    is($warnings[0], $warnings, $name);
}