[Jifty-commit] r5395 - in Net-Jifty: .

Jifty commits jifty-commit at lists.jifty.org
Wed May 7 19:59:21 EDT 2008


Author: sartak
Date: Wed May  7 19:59:21 2008
New Revision: 5395

Added:
   Net-Jifty/lib/Net/Jifty/
   Net-Jifty/lib/Net/Jifty/Record.pm
Modified:
   Net-Jifty/   (props changed)

Log:
 r55315 at onn:  sartak | 2008-05-07 19:59:13 -0400
 Begin adding Net::Jifty::Record


Added: Net-Jifty/lib/Net/Jifty/Record.pm
==============================================================================
--- (empty file)
+++ Net-Jifty/lib/Net/Jifty/Record.pm	Wed May  7 19:59:21 2008
@@ -0,0 +1,53 @@
+#!/usr/bin/env perl
+package Net::Jifty::Record;
+use Moose;
+
+has id => (
+    is  => 'ro',
+    isa => 'Int',
+);
+
+has _interface => (
+    is  => 'ro',
+    isa => 'Net::Jifty',
+);
+
+has _model_class => (
+    is  => 'ro',
+    isa => 'Str',
+);
+
+=head2 update col1 => val1, col2 => val2, etc
+
+Updates this record with the given arguments.
+
+=cut
+
+sub update {
+    my $self = shift;
+    $self->_interface->update(
+        $self->_model_class,
+        id => $self->id,
+        @_,
+    );
+}
+
+=head2 delete
+
+Delete this record.
+
+=cut
+
+sub delete {
+    my $self = shift;
+    $self->_interface->delete(
+        $self->_model_class,
+        id => $self->id,
+    );
+}
+
+__PACKAGE__->meta->make_immutable;
+no Moose;
+
+1;
+


More information about the Jifty-commit mailing list