From: Arthur Axel "fREW" Schmidt Date: Fri, 9 Oct 2009 04:45:36 +0000 (+0000) Subject: change name of method X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=8c0a1f318ca3f27e200bb08388f086a2d2e18c09;p=dbsrgits%2FDBIx-Class-Historic.git change name of method --- diff --git a/lib/DBIx/Class/ResultSet.pm b/lib/DBIx/Class/ResultSet.pm index 9f628b2..14882ff 100644 --- a/lib/DBIx/Class/ResultSet.pm +++ b/lib/DBIx/Class/ResultSet.pm @@ -2564,13 +2564,19 @@ sub clear_cache { shift->set_cache(undef); } -=head2 is_paginated +=head2 is_paged -Returns true if the resultset has been paginated +=over 4 + +=item Arguments: none + +=item Return Value: true, if the resultset has been paginated + +=back =cut -sub is_paginated { +sub is_paged { my ($self) = @_; return !!$self->{attrs}{page}; } diff --git a/t/resultset/is_paginated.t b/t/resultset/is_paged.t similarity index 63% rename from t/resultset/is_paginated.t rename to t/resultset/is_paged.t index df423ff..c40adb7 100644 --- a/t/resultset/is_paginated.t +++ b/t/resultset/is_paged.t @@ -10,10 +10,10 @@ my $schema = DBICTest->init_schema(); my $tkfks = $schema->resultset('Artist'); -ok !$tkfks->is_paginated, 'vanilla resultset is not paginated'; +ok !$tkfks->is_paged, 'vanilla resultset is not paginated'; my $paginated = $tkfks->search(undef, { page => 5 }); -ok $paginated->is_paginated, 'resultset is paginated now'; +ok $paginated->is_paged, 'resultset is paginated now'; done_testing;