sub all {
my ($self) = @_;
- return $self->SUPER::all if $self->{attrs}{rows};
+ if ($self->{attrs}{software_limit}
+ && ($self->{attrs}{offset} || $self->{attrs}{rows})) {
+ return $self->SUPER::all;
+ }
$self->{storage}->dbh_do($self->can('_dbh_all'), $self);
}
my ($self) = @_;
# None of the reasons this would die matter if we're in DESTROY anyways
+ local $@;
eval { $self->{sth}->finish if $self->{sth} && $self->{sth}->{Active} };
}