lib/DBIx/Class/CDBICompat/Pager.pm

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