X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDBIx%2FClass%2FCDBICompat%2FPager.pm;h=7316d9d110666cf5bff476a141faf097ca77fd5e;hb=51ec03826afb5b20a686a7303bc55c42f4715945;hp=5bf2c776b088406b5c1591e9b68fb4c908ba43f8;hpb=c0e7b4e55952cd193b6f1866d0c27ece182397eb;p=dbsrgits%2FDBIx-Class.git

diff --git a/lib/DBIx/Class/CDBICompat/Pager.pm b/lib/DBIx/Class/CDBICompat/Pager.pm
index 5bf2c77..7316d9d 100644
--- a/lib/DBIx/Class/CDBICompat/Pager.pm
+++ b/lib/DBIx/Class/CDBICompat/Pager.pm
@@ -1,19 +1,25 @@
-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->{page}) {
-    $rs = $rs->page(1);
-  }
-  return ( $rs->pager, $rs );
-}
-
-1;
+package # hide from PAUSE
+    DBIx::Class::CDBICompat::Pager;
+
+use strict;
+
+# even though fatalization has been proven over and over to be a universally
+# bad idea, this line has been part of the code from the beginning
+# leaving the compat layer as-is, something may in fact depend on that
+use warnings FATAL => 'all';
+
+use base 'DBIx::Class';
+
+sub pager { shift->page(@_) }
+
+sub page {
+  my $class = shift;
+
+  my $rs = $class->search(@_);
+  unless ($rs->{attrs}{page}) {
+    $rs = $rs->page(1);
+  }
+  return ( $rs->pager, $rs );
+}
+
+1;