fix warning: Subroutine Sipwise::Base::CLASS redefined

mr3.2.1
Lars Dieckow 13 years ago
parent 74f6f94b23
commit 8e5e3f11f0

@ -21,7 +21,9 @@ sub import {
my $caller = caller; my $caller = caller;
use_module('strictures')->import(1); use_module('strictures')->import(1);
use_module('perl5i::2')->import(-skip => [qw(Signatures Try::Tiny autodie)]); my @skip = qw(Signatures Try::Tiny autodie);
push @skip, 'CLASS' if __PACKAGE__->can('CLASS');
use_module('perl5i::2')->import(-skip => [@skip]);
my $export = "package $caller;\n"; my $export = "package $caller;\n";
for my $f (sort keys %features) { for my $f (sort keys %features) {

Loading…
Cancel
Save