[dbsrgits/DBIx-Class.git] / lib / DBIx / Class / CDBICompat / Pager.pm

package DBIx::Class::CDBICompat::Pager;\r
\r
use strict;\r
use warnings FATAL => 'all';\r
\r
*pager = \&page;\r
\r
sub page {\r
  my $class = shift;\r
\r
  my $it = $class->search(@_);\r
  return ( $it->pager, $it );\r
}\r
\r
1;\r
Commit	Line	Data
2a21de92	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
3c5b25c5	12	return ( $it->pager, $it );\r
2a21de92	13	}\r
	14	\r
	15	1;\r