[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