initial import

1 files changed, 20 insertions, 0 deletions

diff --git a/lib/Net/Riak/LinkPhase.pm b/lib/Net/Riak/LinkPhase.pm
new file mode 100644
index 0000000..61dadf5
--- /dev/null
+++ b/lib/Net/Riak/LinkPhase.pm
@@ -0,0 +1,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;