X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDBIx%2FClass%2FCDBICompat%2FPager.pm;h=36fbce9b1ec6713de5d3c27ad7af3a3c9469e768;hb=439e2424aef332170873b12c186743f058ac781f;hp=c4bc3a460e8839b23c6859f7190e02740903dc2a;hpb=75d079145a507a0e5ff89b2676d383f4fd1a5511;p=dbsrgits%2FDBIx-Class.git diff --git a/lib/DBIx/Class/CDBICompat/Pager.pm b/lib/DBIx/Class/CDBICompat/Pager.pm index c4bc3a4..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->{page}) { + unless ($rs->{attrs}{page}) { $rs = $rs->page(1); } return ( $rs->pager, $rs ); } - + 1;