sub new {
my ($class, $storage, $args, $attrs) = @_;
- #use Data::Dumper; warn Dumper(@_);
$class = ref $class if ref $class;
+
my $new = {
storage => $storage,
args => $args,
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->next::method;
+ }
$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} };
}