-package # hide from PAUSE\r
- 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->{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;
+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;