Skip some tests if we don't have Class::Method::Modifiers
Shawn M Moore [Sun, 28 Sep 2008 16:26:03 +0000 (16:26 +0000)]
t/027-modifiers.t
t/403-method-modifiers.t

index a12da33..84e3930 100644 (file)
@@ -1,7 +1,16 @@
 #!perl -T
 use strict;
 use warnings;
-use Test::More tests => 1;
+
+use Test::More;
+BEGIN {
+    if (eval "require Class::Method::Modifiers; 1") {
+        plan tests => 1;
+    }
+    else {
+        plan skip_all => "Class::Method::Modifiers required for this test";
+    }
+}
 
 my @seen;
 my @expected = ("before 4",
index 838adee..141534b 100644 (file)
@@ -1,7 +1,15 @@
 #!/usr/bin/env perl
 use strict;
 use warnings;
-use Test::More tests => 4;
+use Test::More;
+BEGIN {
+    if (eval "require Class::Method::Modifiers; 1") {
+        plan tests => 4;
+    }
+    else {
+        plan skip_all => "Class::Method::Modifiers required for this test";
+    }
+}
 use Mouse::Util ':test';
 
 my @calls;