Remove Class::Data::Inheritable and use CAG 'inherited' style accessors

[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 a2099aa..c8f76fe 100644 (file)
--- a/lib/DBIx/Class/CDBICompat/Pager.pm
+++ b/lib/DBIx/Class/CDBICompat/Pager.pm
@@ -1,18 +1,25 @@
-package DBIx::Class::CDBICompat::Pager;\r
-\r
-use strict;\r
-use warnings FATAL => 'all';\r
-\r
-*pager = \&page;\r
-\r
-sub page {\r
-  my $class = shift;\r
-\r
-  my $rs = $class->search(@_);\r
-  unless ($rs->{attrs}{page}) {\r
-    $rs = $rs->page(1);\r
-  }\r
-  return ( $rs->pager, $rs );\r
-}\r
-\r
-1;\r
+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';
+
+*pager = \&page;
+
+sub page {
+  my $class = shift;
+
+  my $rs = $class->search(@_);
+  unless ($rs->{attrs}{page}) {
+    $rs = $rs->page(1);
+  }
+  return ( $rs->pager, $rs );
+}
+
+1;