diff options
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; |