1 package # hide from PAUSE
2 DBIx::Class::CDBICompat::Pager;
6 # even though fatalization has been proven over and over to be a universally
7 # bad idea, this line has been part of the code from the beginning
8 # leaving the compat layer as-is, something may in fact depend on that
9 use warnings FATAL => 'all';
11 use base 'DBIx::Class';
13 sub pager { shift->page(@_) }
18 my $rs = $class->search(@_);
19 unless ($rs->{attrs}{page}) {
22 return ( $rs->pager, $rs );