X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDBIx%2FClass%2FCDBICompat%2FPager.pm;h=36fbce9b1ec6713de5d3c27ad7af3a3c9469e768;hb=4a0eed52f392b2e135385d0c06b06160200f3772;hp=cd01047e1529366a6245c54738d2cd3ecf637637;hpb=2a21de92912f460837806a8f1d0a6f8b892609da;p=dbsrgits%2FDBIx-Class.git

diff --git a/lib/DBIx/Class/CDBICompat/Pager.pm b/lib/DBIx/Class/CDBICompat/Pager.pm
index cd01047..36fbce9 100644
--- a/lib/DBIx/Class/CDBICompat/Pager.pm
+++ b/lib/DBIx/Class/CDBICompat/Pager.pm
@@ -1,16 +1,19 @@
-package DBIx::Class::CDBICompat::Pager;
-
-use strict;
-use warnings FATAL => 'all';
-
-*pager = \&page;
-
-sub page {
-  my $class = shift;
-
-  my $it = $class->search(@_);
-  my $pager = $class->_page_object;
-  return ( $pager, $it );
-}
-
-1;
+package # hide from PAUSE
+    DBIx::Class::CDBICompat::Pager;
+
+use strict;
+use warnings FATAL => 'all';
+
+*pager = \&page;
+
+sub page {
+  my $class = shift;
+
+  my $rs = $class->search(@_);
+  unless ($rs->{attrs}{page}) {
+    $rs = $rs->page(1);
+  }
+  return ( $rs->pager, $rs );
+}
+
+1;