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