X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=xt%2Fdist%2Fpod_coverage.t;h=4505af4b113e3041119fed7ac5503b8007fc10ed;hb=d009cb7d393292037eff527a9f8bab93860224fb;hp=97d4975105f26eac6f992f6d28b46499490f36e0;hpb=b482a0958732d987d8f742c7bdd61816a898f083;p=dbsrgits%2FDBIx-Class.git

diff --git a/xt/dist/pod_coverage.t b/xt/dist/pod_coverage.t
index 97d4975..4505af4 100644
--- a/xt/dist/pod_coverage.t
+++ b/xt/dist/pod_coverage.t
@@ -5,7 +5,6 @@ use warnings;
 use strict;
 
 use Test::More;
-use List::Util 'first';
 use Module::Runtime 'require_module';
 use lib 'maint/.Generated_Pod/lib';
 use DBICTest;
@@ -32,6 +31,7 @@ my $exceptions = {
         ignore => [qw/
             MODIFY_CODE_ATTRIBUTES
             component_base_class
+            inject_base
             mk_classdata
             mk_classaccessor
         /]
@@ -167,7 +167,7 @@ foreach my $module (@modules) {
   SKIP: {
 
     my ($match) =
-      first { $module =~ $_ }
+      grep { $module =~ $_ }
       (sort { length $b <=> length $a || $b cmp $a } (keys %$ex_lookup) )
     ;