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 |