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