use namespace::clean;
__PACKAGE__->mk_group_accessors('simple' =>
- qw/sth/
+ qw/sth storage args pos attrs _dbh_gen/
);
=head1 NAME
sub DESTROY {
# None of the reasons this would die matter if we're in DESTROY anyways
if (my $sth = $_[0]->sth) {
- try { $sth->finish } if $sth->{Active};
+ try { $sth->finish } if $sth->FETCH('Active');
}
}