Corrected columns_info_for indent level - 2 space indent everyone please, you may...
[dbsrgits/DBIx-Class.git] / lib / DBIx / Class / CDBICompat / Pager.pm
CommitLineData
c0e7b4e5 1package # hide from PAUSE\r
2 DBIx::Class::CDBICompat::Pager;\r
2a21de92 3\r
4use strict;\r
5use warnings FATAL => 'all';\r
6\r
7*pager = \&page;\r
8\r
9sub page {\r
10 my $class = shift;\r
11\r
6aeb9185 12 my $rs = $class->search(@_);\r
93b004d3 13 unless ($rs->{page}) {\r
6aeb9185 14 $rs = $rs->page(1);\r
15 }\r
16 return ( $rs->pager, $rs );\r
2a21de92 17}\r
18\r
191;\r