Fixup to Cursor, updated Changes

[dbsrgits/DBIx-Class.git] / lib / DBIx / Class / Storage / DBI / Cursor.pm

diff --git a/lib/DBIx/Class/Storage/DBI/Cursor.pm b/lib/DBIx/Class/Storage/DBI/Cursor.pm
index b339506..770608c 100644 (file)
--- 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<DBIx::Class::Storage::DBI::Cursor> object.
 
 =cut
@@ -55,9 +53,15 @@ sub new {
 
 =head2 next
 
+=over 4
+
+=item Arguments: none
+
+=item Return Value: \@row_columns
+
 =back
 
-Advances the cursor to the next result and returns it.
+Advances the cursor to the next row and returns an arrayref of column values.
 
 =cut
 
@@ -91,9 +95,16 @@ sub next {
 
 =head2 all
 
+=over 4
+
+=item Arguments: none
+
+=item Return Value: \@row_columns+
+
 =back
 
-Returns all results in the L<DBIx::Class::ResultSet>.
+Returns a list of arrayrefs of column values for all rows in the
+L<DBIx::Class::ResultSet>.
 
 =cut
 
@@ -110,8 +121,6 @@ sub all {
 
 =head2 reset
 
-=back
-
 Resets the cursor to the beginning of the L<DBIx::Class::ResultSet>.
 
 =cut
@@ -151,7 +160,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;