-package DBIx::Class::Storage::DBI::Cursor;
+package # hide from PAUSE
+ DBIx::Class::Storage::DBI::Cursor;
use base qw/DBIx::Class::Cursor/;
sub next {
my ($self) = @_;
if ($self->{attrs}{rows} && $self->{pos} >= $self->{attrs}{rows}) {
+ $self->{sth}->finish if $self->{sth}->{Active};
delete $self->{sth};
$self->{done} = 1;
}