Commit another fix for arcanez to test
[dbsrgits/DBIx-Class.git] / lib / DBIx / Class / CDBICompat / Pager.pm
1 package # hide from PAUSE
2     DBIx::Class::CDBICompat::Pager;
3 \r
4 use strict;
5 use warnings FATAL => 'all';
6 \r
7 *pager = \&page;
8 \r
9 sub page {
10   my $class = shift;
11 \r
12   my $rs = $class->search(@_);
13   unless ($rs->{attrs}{page}) {
14     $rs = $rs->page(1);
15   }
16   return ( $rs->pager, $rs );
17 }
18 \r
19 1;