Be nice to Moose::Role::unimport in older moose
Yuval Kogman [Tue, 17 Jun 2008 04:26:44 +0000 (04:26 +0000)]
lib/Squirrel/Role.pm
t/202-squirrel-role.t

index dfcb2e5..ca41eef 100644 (file)
@@ -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;
index 807ccbb..5c70361 100644 (file)
@@ -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;