After 5e0eea35 we can actually test for cleaned namespaces within CDBI

[dbsrgits/DBIx-Class.git] / lib / DBIx / Class / CDBICompat / Pager.pm

diff --git a/lib/DBIx/Class/CDBICompat/Pager.pm b/lib/DBIx/Class/CDBICompat/Pager.pm
index 203b598..7316d9d 100644 (file)
--- a/lib/DBIx/Class/CDBICompat/Pager.pm
+++ b/lib/DBIx/Class/CDBICompat/Pager.pm
@@ -8,7 +8,9 @@ use strict;
 # leaving the compat layer as-is, something may in fact depend on that
 use warnings FATAL => 'all';
 
-*pager = \&page;
+use base 'DBIx::Class';
+
+sub pager { shift->page(@_) }
 
 sub page {
   my $class = shift;