1package # hide from PAUSE
2    DBIx::Class::CDBICompat::Pager;
3
4use strict;
5use warnings FATAL => 'all';
6
7*pager = \&page;
8
9sub page {
10  my $class = shift;
11
12  my $rs = $class->search(@_);
13  unless ($rs->{attrs}{page}) {
14    $rs = $rs->page(1);
15  }
16  return ( $rs->pager, $rs );
17}
18
191;
20