diff options
Diffstat (limited to '')
| -rw-r--r-- | lib/Net/Riak/Role/PBC/Object.pm | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/lib/Net/Riak/Role/PBC/Object.pm b/lib/Net/Riak/Role/PBC/Object.pm index f1a82a5..280956c 100644 --- a/lib/Net/Riak/Role/PBC/Object.pm +++ b/lib/Net/Riak/Role/PBC/Object.pm @@ -16,13 +16,16 @@ sub store_object { my $content = { content_type => $object->content_type, value => $value, - usermeta => undef }; if ($object->has_links) { $content->{links} = $self->_links_for_message($object); } + if ($object->has_meta) { + $content->{usermeta} = $self->_metas_for_message($object); + } + $self->send_message( PutReq => { bucket => $object->bucket->name, @@ -87,6 +90,10 @@ sub populate_object { $self->_populate_links($object, $content->links); } + if($content->usermeta) { + $self->_populate_metas($object, $content->usermeta); + } + my $data = ($object->content_type eq 'application/json') ? JSON::decode_json($content->value) : $content->value; |