From 8e5e3f11f03a550f7c68ec0e48e126c2ea1cd572 Mon Sep 17 00:00:00 2001
From: Lars Dieckow <ldieckow@sipwise.com>
Date: Thu, 29 Aug 2013 14:16:42 +0200
Subject: [PATCH] fix warning: Subroutine Sipwise::Base::CLASS redefined

---
 lib/Sipwise/Base.pm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/lib/Sipwise/Base.pm b/lib/Sipwise/Base.pm
index eb27ebd..128e2a0 100644
--- 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) {