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   my $pager = $class->_page_object;\r
  13   return ( $pager, $it );\r
  14 }\r
  15 \r
  16 1;\r