diff options
author | adam lounds <adamlounds@gmail.com> | 2013-03-20 11:08:43 +0000 |
---|---|---|
committer | adam lounds <adamlounds@gmail.com> | 2013-03-20 11:08:43 +0000 |
commit | 1f39a88e1e7fa18f241605b7469ee06ba40ec03b (patch) | |
tree | afe5539b0e159f4db3b81ad9654d56f23c78f9ba /lib/Net/Riak/Role/PBC/Meta.pm | |
parent | Add gitignore (diff) | |
download | net-riak-1f39a88e1e7fa18f241605b7469ee06ba40ec03b.tar.gz |
Add support for usermeta nvps
Diffstat (limited to 'lib/Net/Riak/Role/PBC/Meta.pm')
-rw-r--r-- | lib/Net/Riak/Role/PBC/Meta.pm | 24 |
1 files changed, 24 insertions, 0 deletions
diff --git a/lib/Net/Riak/Role/PBC/Meta.pm b/lib/Net/Riak/Role/PBC/Meta.pm new file mode 100644 index 0000000..b04ec81 --- /dev/null +++ b/lib/Net/Riak/Role/PBC/Meta.pm @@ -0,0 +1,24 @@ +package Net::Riak::Role::PBC::Meta; + +use Moose::Role; + +sub _populate_metas { + my ($self, $object, $metas) = @_; + + for my $meta (@$metas) { + $object->set_meta( $meta->key, $meta->value ); + } +} + +sub _metas_for_message { + my ($self, $object) = @_; + + my @out; + while ( my ( $k, $v ) = each %{ $object->metadata } ) { + push @out, { key => $k, value => $v }; + } + return \@out; + +} + +1; |