[Bast-commits] r7768 - in DBIx-Class/0.08/branches/is_resultset_paginated: lib/DBIx/Class t/resultset

frew at dev.catalyst.perl.org frew at dev.catalyst.perl.org
Fri Oct 9 04:45:36 GMT 2009


Author: frew
Date: 2009-10-09 04:45:36 +0000 (Fri, 09 Oct 2009)
New Revision: 7768

Added:
   DBIx-Class/0.08/branches/is_resultset_paginated/t/resultset/is_paged.t
Removed:
   DBIx-Class/0.08/branches/is_resultset_paginated/t/resultset/is_paginated.t
Modified:
   DBIx-Class/0.08/branches/is_resultset_paginated/lib/DBIx/Class/ResultSet.pm
Log:
change name of method

Modified: DBIx-Class/0.08/branches/is_resultset_paginated/lib/DBIx/Class/ResultSet.pm
===================================================================
--- DBIx-Class/0.08/branches/is_resultset_paginated/lib/DBIx/Class/ResultSet.pm	2009-10-08 01:56:53 UTC (rev 7767)
+++ DBIx-Class/0.08/branches/is_resultset_paginated/lib/DBIx/Class/ResultSet.pm	2009-10-09 04:45:36 UTC (rev 7768)
@@ -2564,13 +2564,19 @@
   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};
 }

Copied: DBIx-Class/0.08/branches/is_resultset_paginated/t/resultset/is_paged.t (from rev 7767, DBIx-Class/0.08/branches/is_resultset_paginated/t/resultset/is_paginated.t)
===================================================================
--- DBIx-Class/0.08/branches/is_resultset_paginated/t/resultset/is_paged.t	                        (rev 0)
+++ DBIx-Class/0.08/branches/is_resultset_paginated/t/resultset/is_paged.t	2009-10-09 04:45:36 UTC (rev 7768)
@@ -0,0 +1,19 @@
+use strict;
+use warnings;
+
+use lib qw(t/lib);
+use Test::More;
+use Test::Exception;
+use DBICTest;
+
+my $schema = DBICTest->init_schema();
+
+my $tkfks = $schema->resultset('Artist');
+
+ok !$tkfks->is_paged, 'vanilla resultset is not paginated';
+
+my $paginated = $tkfks->search(undef, { page => 5 });
+ok $paginated->is_paged, 'resultset is paginated now';
+
+done_testing;
+


Property changes on: DBIx-Class/0.08/branches/is_resultset_paginated/t/resultset/is_paged.t
___________________________________________________________________
Name: svn:mergeinfo
   + 

Deleted: DBIx-Class/0.08/branches/is_resultset_paginated/t/resultset/is_paginated.t
===================================================================
--- DBIx-Class/0.08/branches/is_resultset_paginated/t/resultset/is_paginated.t	2009-10-08 01:56:53 UTC (rev 7767)
+++ DBIx-Class/0.08/branches/is_resultset_paginated/t/resultset/is_paginated.t	2009-10-09 04:45:36 UTC (rev 7768)
@@ -1,19 +0,0 @@
-use strict;
-use warnings;
-
-use lib qw(t/lib);
-use Test::More;
-use Test::Exception;
-use DBICTest;
-
-my $schema = DBICTest->init_schema();
-
-my $tkfks = $schema->resultset('Artist');
-
-ok !$tkfks->is_paginated, 'vanilla resultset is not paginated';
-
-my $paginated = $tkfks->search(undef, { page => 5 });
-ok $paginated->is_paginated, 'resultset is paginated now';
-
-done_testing;
-




More information about the Bast-commits mailing list