From b5f8ecf61b083da72a6f56f89099fc098ffc2d7f Mon Sep 17 00:00:00 2001
From: franck cuny <franck@lumberjaph.net>
Date: Mon, 10 May 2010 21:55:33 +0200
Subject: class for bucket and object

---
 lib/AnyEvent/Riak/Object.pm | 20 ++++++++++++++++++++
 1 file changed, 20 insertions(+)
 create mode 100644 lib/AnyEvent/Riak/Object.pm

(limited to 'lib/AnyEvent/Riak/Object.pm')

diff --git a/lib/AnyEvent/Riak/Object.pm b/lib/AnyEvent/Riak/Object.pm
new file mode 100644
index 0000000..f756af4
--- /dev/null
+++ b/lib/AnyEvent/Riak/Object.pm
@@ -0,0 +1,20 @@
+package AnyEvent::Riak::Object;
+
+use Moose;
+
+has _client => (is => 'rw', isa => 'AnyEvent::Riak', requid => 1);
+has key     => (is => 'rw', isa => 'Str');
+has content => (is => 'rw', isa => 'HashRef');
+has content_type => (is => 'rw', isa => 'Str', default => 'application/json');
+has bucket => (is => 'rw', isa => 'AnyEvent::Riak::Bucket', required => 1);
+has status => (is => 'rw', isa => 'Int');
+has r      => (is => 'rw', isa => 'Int');
+
+sub get {
+    my ($self) = @_;
+    $self->_client->http_get($self->bucket_name, $self->key, $self->r);
+}
+
+no Moose;
+
+1;
-- 
cgit v1.2.3