From: Arthur Axel 'fREW' Schmidt <frioux@gmail.com>
Date: Sat, 5 Sep 2009 06:48:52 +0000 (-0500)
Subject: skip_all_meta for optionally skipping entire files
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=cbab2dbc124edeb2ad8920aaa31b643c32a981d5;p=gitmo%2FMoose.git

skip_all_meta for optionally skipping entire files
---

diff --git a/t/lib/MetaTest.pm b/t/lib/MetaTest.pm
index 7f0e678..f7a571d 100644
--- a/t/lib/MetaTest.pm
+++ b/t/lib/MetaTest.pm
@@ -2,7 +2,7 @@ package MetaTest;
 
 use Exporter 'import';
 use Test::More;
-our @EXPORT = qw{skip_meta meta_can_ok};
+our @EXPORT = qw{skip_meta meta_can_ok skip_all_meta};
 
 sub SKIP_META_MESSAGE() {
    'meta-tests disabled';
@@ -12,6 +12,12 @@ sub skip_meta_condition {
    $ENV{SKIP_META_TESTS};
 }
 
+sub skip_all_meta {
+   my $plan = shift;
+    plan skip_all => SKIP_META_MESSAGE if skip_meta_condition;
+    plan tests => $plan;
+}
+
 sub skip_meta (&$) {
    my $fn = shift;
    my $amount = shift;