lib/Net/Riak/Role/PBC/Meta.pm


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
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;