-package DBIx::Class::CDBICompat::Pager;\r
+package # hide from PAUSE
+ DBIx::Class::CDBICompat::Pager;
\r
-use strict;\r
-use warnings FATAL => 'all';\r
+use strict;
+use warnings FATAL => 'all';
\r
-*pager = \&page;\r
+*pager = \&page;
\r
-sub page {\r
- my $class = shift;\r
+sub page {
+ my $class = shift;
\r
- my $rs = $class->search(@_);\r
- unless ($rs->{attrs}{page}) {\r
- $rs = $rs->page(1);\r
- }\r
- return ( $rs->pager, $rs );\r
-}\r
+ my $rs = $class->search(@_);
+ unless ($rs->{page}) {
+ $rs = $rs->page(1);
+ }
+ return ( $rs->pager, $rs );
+}
\r
-1;\r
+1;