The Perl and Raku Conference 2025: Greenville, South Carolina - June 27-29 Learn more

use Moo;
has knife => (is => 'ro', required => 1, handles => [qw/handle_options run/]);
sub create {
my ($self, $vault, $item, $values, %options) = @_;
my @opts = $self->handle_options(%options);
my @cmd = (qw/knife vault create/, $vault, $item);
push @cmd, $values if $values;
push @cmd, @opts;
$self->run(@cmd);
}
sub update {
my ($self, $vault, $item, $values, %options) = @_;
my @opts = $self->handle_options(%options);
my @cmd = (qw/knife vault update/, $vault, $item);
push @cmd, $values if $values;
push @cmd, @opts;
$self->run(@cmd);
}
sub show {
my ($self, $vault, $item, %options) = @_;
my @opts = $self->handle_options(%options);
my @cmd = (qw/knife vault show/, $vault);
push @cmd, $item if $item;
push @cmd, @opts;
$self->run(@cmd);
}
1;