X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F03podcoverage.t;h=18df9cfb70d909ded933547cc0f83528db0bb4e9;hb=6298a324307439b76419d0f5db453b0d10f10517;hp=eb081570ad98cbd9ec7bbd01aa7d5d10f0c468b4;hpb=8c96bbc2af39d797ecdc5c6cdb273537afb4b2ba;p=dbsrgits%2FDBIx-Class.git

diff --git a/t/03podcoverage.t b/t/03podcoverage.t
index eb08157..18df9cf 100644
--- a/t/03podcoverage.t
+++ b/t/03podcoverage.t
@@ -2,9 +2,10 @@ use warnings;
 use strict;
 
 use Test::More;
-use List::Util ();
+use List::Util 'first';
 use lib qw(t/lib);
 use DBICTest;
+use namespace::clean;
 
 # Don't run tests for installs
 unless ( DBICTest::AuthorCheck->is_author || $ENV{AUTOMATED_TESTING} || $ENV{RELEASE_TESTING} ) {
@@ -140,8 +141,8 @@ my @modules = sort { $a cmp $b } (Test::Pod::Coverage::all_modules());
 foreach my $module (@modules) {
   SKIP: {
 
-    my ($match) = List::Util::first
-      { $module =~ $_ }
+    my ($match) =
+      first { $module =~ $_ }
       (sort { length $b <=> length $a || $b cmp $a } (keys %$ex_lookup) )
     ;