[Bps-public-commit] r12142 - in Net-Hiveminder: lib/Net/Hiveminder

[sartak at bestpractical.com]

Author: sartak
Date: Wed May  7 20:04:01 2008
New Revision: 12142

Added:
   Net-Hiveminder/lib/Net/Hiveminder/
   Net-Hiveminder/lib/Net/Hiveminder/Task.pm
Modified:
   Net-Hiveminder/   (props changed)

Log:
 r55319 at onn:  sartak | 2008-05-07 20:03:24 -0400
 Begin adding Net::Hiveminder::Task


Added: Net-Hiveminder/lib/Net/Hiveminder/Task.pm
==============================================================================
--- (empty file)
+++ Net-Hiveminder/lib/Net/Hiveminder/Task.pm	Wed May  7 20:04:01 2008
@@ -0,0 +1,18 @@
+#!/usr/bin/env perl
+package Net::Hiveminder::Task;
+use Moose;
+extends 'Net::Jifty::Record';
+
+use Number::RecordLocator;
+my $LOCATOR = Number::RecordLocator->new;
+
+sub record_locator {
+    my $self = shift;
+    return $LOCATOR->encode($self->id);
+}
+
+__PACKAGE__->meta->make_immutable;
+no Moose;
+
+1;
+