X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDBIx%2FClass%2FStorage%2FDBI%2FACCESS.pm;fp=lib%2FDBIx%2FClass%2FStorage%2FDBI%2FACCESS.pm;h=2e00210b67ae1079c6df558d73bedf8a2815070f;hb=87b1255103d7b8873b225416cb381c50011f4c06;hp=7490d8951ae093d2aa1882617cdd9d769da38915;hpb=817ac9e927cd8e29d1bf553714379e54df5dbef7;p=dbsrgits%2FDBIx-Class.git

diff --git a/lib/DBIx/Class/Storage/DBI/ACCESS.pm b/lib/DBIx/Class/Storage/DBI/ACCESS.pm
index 7490d89..2e00210 100644
--- a/lib/DBIx/Class/Storage/DBI/ACCESS.pm
+++ b/lib/DBIx/Class/Storage/DBI/ACCESS.pm
@@ -6,8 +6,6 @@ use base 'DBIx::Class::Storage::DBI::UniqueIdentifier';
 use mro 'c3';
 
 use DBI ();
-use List::Util 'first';
-use namespace::clean;
 
 __PACKAGE__->sql_limit_dialect ('Top');
 __PACKAGE__->sql_maker_class('DBIx::Class::SQLMaker::ACCESS');
@@ -66,7 +64,7 @@ sub insert {
   my $columns_info = $source->columns_info;
 
   if (keys %$to_insert == 0) {
-    my $autoinc_col = first {
+    my ($autoinc_col) = grep {
       $columns_info->{$_}{is_auto_increment}
     } keys %$columns_info;