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

13 years ago · 8e5e3f11f0
parent 74f6f94b23
commit 8e5e3f11f0
1 changed files with 3 additions and 1 deletions
--- a/lib/Sipwise/Base.pm
+++ b/lib/Sipwise/Base.pm
@ -21,7 +21,9 @@ sub import {
    my $caller = caller;

    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";
    for my $f (sort keys %features) {