[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