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