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 |