X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDBIx%2FClass%2FStorage%2FDBI%2FCursor.pm;h=d2aa34751ec70edc0593508d48edb4c2535c122a;hb=685dad647365aacb8c3f8ed994d929e724ebb2e7;hp=a63b2a64c4a3e1b0d50fa9cbe95f2d4a61247473;hpb=ebc77b538ae411ffc5a5e6451eded2f5d999f2cb;p=dbsrgits%2FDBIx-Class.git diff --git a/lib/DBIx/Class/Storage/DBI/Cursor.pm b/lib/DBIx/Class/Storage/DBI/Cursor.pm index a63b2a6..d2aa347 100644 --- a/lib/DBIx/Class/Storage/DBI/Cursor.pm +++ b/lib/DBIx/Class/Storage/DBI/Cursor.pm @@ -30,8 +30,6 @@ information. =head2 new -=back - Returns a new L object. =cut @@ -63,7 +61,8 @@ sub new { =back -Advances the cursor to the next row and returns an arrayref of column values. +Advances the cursor to the next row and returns an array of column +values (the result of L method). =cut @@ -123,8 +122,6 @@ sub all { =head2 reset -=back - Resets the cursor to the beginning of the L. =cut @@ -164,7 +161,7 @@ sub DESTROY { my ($self) = @_; $self->_check_forks_threads; - $self->{sth}->finish if $self->{sth}->{Active}; + $self->{sth}->finish if $self->{sth} && $self->{sth}->{Active}; } 1;