| Subject: | Exiting subroutine via next in DBIx::Class::ResultSource::sequence |
Loading some old schema I got a warning
Exiting subroutine via next at
/usr/local/share/perl5/DBIx/Class/ResultSource.pm line 636
I think there is a typo in sequence next should be replaced by return
sub sequence {
my ($self,$seq) = @_;
my @pks = $self->primary_columns
or next;
$_->{sequence} = $seq
for values %{ $self->columns_info (\@pks) };
}