From: Dave Rolsky <autarch@urth.org>
Date: Fri, 5 Sep 2008 15:13:29 +0000 (+0000)
Subject: No need to be so fancy
X-Git-Tag: 0.05~2
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=5761254f90d012fed793853b501b1604eeb24d54;p=gitmo%2FMooseX-ClassAttribute.git

No need to be so fancy
---

diff --git a/t/pod-coverage.t b/t/pod-coverage.t
index 3b65054..3ec1bf6 100644
--- a/t/pod-coverage.t
+++ b/t/pod-coverage.t
@@ -17,7 +17,7 @@ plan tests => scalar @modules;
 
 my %trustme =
     ( 'MooseX::ClassAttribute'                         => [ 'init_meta', 'class_has' ],
-      'MooseX::ClassAttribute::Meta::Method::Accessor' => qr/.+/,
+      'MooseX::ClassAttribute::Meta::Method::Accessor' => [ '.+' ]
     );
 
 for my $module ( sort @modules )
@@ -26,16 +26,8 @@ for my $module ( sort @modules )
 
     if ( $trustme{$module} )
     {
-        # why is qr// not a ref?
-        if ( ! ref $trustme{module} )
-        {
-            $trustme = [ $trustme{module} ]
-        }
-        else
-        {
-            my $methods = join '|', @{ $trustme{$module} };
-            $trustme = [ qr/^(?:$methods)/ ];
-        }
+        my $methods = join '|', @{ $trustme{$module} };
+        $trustme = [ qr/^(?:$methods)/ ];
     }
 
     pod_coverage_ok( $module, { trustme => $trustme },