From: Arthur Axel "fREW" Schmidt <frioux@gmail.com>
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;hp=305ce558b4dd7c9737e78d4921abea054c5162b4;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;