X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDBIx%2FClass%2FCDBICompat%2FPager.pm;h=36fbce9b1ec6713de5d3c27ad7af3a3c9469e768;hb=c40f97742c724386cf5888497c6fcc73a48c576a;hp=8d02dc7b9249de7f9ffc1ffcc2463db5a3aa5464;hpb=8fbed2053d4fcb0f34b5d7949ce6829f3bb9b726;p=dbsrgits%2FDBIx-Class-Historic.git diff --git a/lib/DBIx/Class/CDBICompat/Pager.pm b/lib/DBIx/Class/CDBICompat/Pager.pm index 8d02dc7..36fbce9 100644 --- a/lib/DBIx/Class/CDBICompat/Pager.pm +++ b/lib/DBIx/Class/CDBICompat/Pager.pm @@ -1,19 +1,19 @@ 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;