[Jifty-commit] r7002 - wifty/trunk/lib/Wifty/Model
Jifty commits
jifty-commit at lists.jifty.org
Tue May 12 03:58:40 EDT 2009
Author: ruz
Date: Tue May 12 03:58:40 2009
New Revision: 7002
Added:
wifty/trunk/lib/Wifty/Model/RevisionCollection.pm
Log:
* add RevisionCollection with methods abstracted from Revision
Added: wifty/trunk/lib/Wifty/Model/RevisionCollection.pm
==============================================================================
--- (empty file)
+++ wifty/trunk/lib/Wifty/Model/RevisionCollection.pm Tue May 12 03:58:40 2009
@@ -0,0 +1,54 @@
+use strict;
+use warnings;
+
+package Wifty::Model::RevisionCollection;
+use base qw(Jifty::Collection);
+
+use Scalar::Util qw(blessed);
+
+sub limit_by_page {
+ my $self = shift;
+ my $page = shift;
+ if ( blessed $page ) {
+ $page = $page->can('page')? $page->page->id : $page->id;
+ }
+ return $self->limit(
+ @_,
+ column => 'page',
+ value => $page,
+ quote_value => 0,
+ case_sensitive => 1
+ );
+}
+
+sub newer_than {
+ my $self = shift;
+ my $rev = shift;
+ $rev = $rev->id if blessed $rev;
+
+ return $self->limit(
+ @_,
+ column => 'id',
+ operator => '>',
+ value => $rev,
+ quote_value => 0,
+ case_sensitive => 1
+ );
+}
+
+sub older_than {
+ my $self = shift;
+ my $rev = shift;
+ $rev = $rev->id if blessed $rev;
+
+ return $self->limit(
+ @_,
+ column => 'id',
+ operator => '<',
+ value => $rev,
+ quote_value => 0,
+ case_sensitive => 1
+ );
+}
+
+1;
More information about the Jifty-commit
mailing list