use warnings;
use base qw/DBIx::Class::Storage::DBI::UniqueIdentifier/;
use mro 'c3';
-use List::Util 'first';
use DBIx::Class::_Util 'dbic_internal_try';
use Try::Tiny;
use namespace::clean;
my $values = $self->next::method(@_);
- my $identity_col =
- first { $colinfo->{$_}{is_auto_increment} } keys %$colinfo;
+ my ($identity_col) =
+ grep { $colinfo->{$_}{is_auto_increment} } keys %$colinfo;
# user might have an identity PK without is_auto_increment
#