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 $it = $class->search(@_);\r
  12   return ( $it->pager, $it );\r
  13 }\r
  14 \r
  15 1;\r