doc fixes

[dbsrgits/DBIx-Class.git] / lib / DBIx / Class / CDBICompat / Pager.pm

diff --git a/lib/DBIx/Class/CDBICompat/Pager.pm b/lib/DBIx/Class/CDBICompat/Pager.pm
index cd01047..c3d773c 100644 (file)
--- a/lib/DBIx/Class/CDBICompat/Pager.pm
+++ b/lib/DBIx/Class/CDBICompat/Pager.pm
@@ -8,9 +8,11 @@ use warnings FATAL => 'all';
 sub page {\r
   my $class = shift;\r
 \r
-  my $it = $class->search(@_);\r
-  my $pager = $class->_page_object;\r
-  return ( $pager, $it );\r
+  my $rs = $class->search(@_);\r
+  unless ($rs->{page}) {\r
+    $rs = $rs->page(1);\r
+  }\r
+  return ( $rs->pager, $rs );\r
 }\r
 \r
 1;\r