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