1package # hide from PAUSE 2 DBIx::Class::CDBICompat::Pager; 3 4use strict; 5use warnings FATAL => 'all'; 6 7*pager = \&page; 8 9sub page { 10 my $class = shift; 11 12 my $rs = $class->search(@_); 13 unless ($rs->{attrs}{page}) { 14 $rs = $rs->page(1); 15 } 16 return ( $rs->pager, $rs ); 17} 18 191; 20