X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDBIx%2FClass%2FTable.pm;h=42631ded9ac97b3ceac7719394d56b4698d6ae4d;hb=ee38fa40d848a164040097286b4440d4b64565e8;hp=9aa00ab4a44ee99d033d5c693c1ea4f3d3bea073;hpb=1a14aa3f5016c456db28c148abab256ea72776df;p=dbsrgits%2FDBIx-Class-Historic.git diff --git a/lib/DBIx/Class/Table.pm b/lib/DBIx/Class/Table.pm index 9aa00ab..42631de 100644 --- a/lib/DBIx/Class/Table.pm +++ b/lib/DBIx/Class/Table.pm @@ -4,6 +4,7 @@ use strict; use warnings; use DBIx::Class::ResultSet; +use Data::Page; use base qw/Class::Data::Inheritable/; @@ -112,9 +113,9 @@ sub search { $attrs = { %{ pop(@_) } }; } $attrs->{where} = (@_ == 1 || ref $_[0] eq "HASH" ? shift: {@_}); - + my $rs = $class->resultset($attrs); - + return (wantarray ? $rs->all : $rs); }