package DBIx::Class::CDBICompat::Pager;
use strict;
use warnings FATAL => 'all';
*pager = \&page;
sub page {
my $class = shift;
my $it = $class->search(@_);
return ( $it->pager, $it );
}
1;
package DBIx::Class::CDBICompat::Pager;
use strict;
use warnings FATAL => 'all';
*pager = \&page;
sub page {
my $class = shift;
my $it = $class->search(@_);
return ( $it->pager, $it );
}
1;