blob: 61dadf5c5de0f48ede4954c93bb416d431ec7c42 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
package Net::Riak::LinkPhase;
use Moose;
use JSON;
has bucket => (is => 'ro', isa => 'Str', required => 1);
has tag => (is => 'ro', isa => 'Str', required => 1);
has keep => (is => 'rw', isa => 'JSON::Boolean', required => 1);
sub to_array {
my $self = shift;
my $step_def = {
bucket => $self->bucket,
tag => $self->tag,
keep => $self->keep,
};
return {link => $step_def};
}
1;
|