[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 $rs = $class->search(@_);\r
  unless ($rs->{page}) {\r
    $rs = $rs->page(1);\r
  }\r
  return ( $rs->pager, $rs );\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
6aeb9185	11	my $rs = $class->search(@_);\r
93b004d3	12	unless ($rs->{page}) {\r
6aeb9185	13	$rs = $rs->page(1);\r
	14	}\r
	15	return ( $rs->pager, $rs );\r
2a21de92	16	}\r
	17	\r
	18	1;\r