Be nice to Moose::Role::unimport in older moose

diff --git a/lib/Squirrel/Role.pm b/lib/Squirrel/Role.pm
index dfcb2e5..ca41eef 100644 (file)
--- a/lib/Squirrel/Role.pm
+++ b/lib/Squirrel/Role.pm
@@ -9,7 +9,7 @@ sub _choose_backend {
     if ( $INC{"Moose/Role.pm"} ) {
         return {
             import   => \&Moose::Role::import,
-            unimport => \&Moose::Role::unimport,
+            unimport => defined &Moose::Role::unimport ? \&Moose::Role::unimport : sub {},
         }
     } else {
         require Mouse::Role;

diff --git a/t/202-squirrel-role.t b/t/202-squirrel-role.t
index 807ccbb..5c70361 100644 (file)
--- a/t/202-squirrel-role.t
+++ b/t/202-squirrel-role.t
@@ -39,7 +39,10 @@ do {
 };
 
 ok(!Foo::Role->can('has'), "Mouse::Role::has was unimported");
-ok(!Bar::Role->can('has'), "Moose::Role::has was unimported");
+SKIP: {
+    skip "ancient moose", 1 if $Moose::VERSION <= 0.50;
+    ok(!Bar::Role->can('has'), "Moose::Role::has was unimported");
+}
 
 eval "
     package Foo::Role;