The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use strict;
use warnings;
use utf8;

package Ukigumo::Client::Executor::Command;
use Mouse;
use Ukigumo::Constants;

has command => (
    is       => 'ro',
    isa      => 'Str',
    required => 1,
);

sub run {
    my ($self, $c) = @_;
    return $c->tee($self->command)==0 ? STATUS_SUCCESS : STATUS_FAIL;
}

1;
__END__

=head1 NAME

Ukigumo::Client::Executor::Command - runs command

=head1 DESCRIPTION

This executor runs command.