don't skip ->can
Arthur Axel 'fREW' Schmidt [Sat, 5 Sep 2009 05:10:00 +0000 (00:10 -0500)]
t/lib/MetaTest.pm

index 06db4da..9b41685 100644 (file)
@@ -23,8 +23,8 @@ sub meta_can_ok {
    skip_meta {
       local $Test::Builder::Level = $Test::Builder::Level + 1;
       ok($class->meta->has_method($method), $message);
-      ok($class->can($method), $message);
    } 1;
+   ok($class->can($method), $message);
 }
 
 1;