File Coverage

blib/lib/Ukigumo/Client/Executor/Command.pm
Criterion Covered Total %
statement 18 23 78.2
branch 0 2 0.0
condition n/a
subroutine 6 7 85.7
pod 0 1 0.0
total 24 33 72.7


line stmt bran cond sub pod time code
1 4     4   23 use strict;
  4         7  
  4         211  
2 4     4   22 use warnings;
  4         7  
  4         112  
3 4     4   19 use utf8;
  4         9  
  4         29  
4              
5             package Ukigumo::Client::Executor::Command;
6 4     4   119 use Mouse;
  4         6  
  4         20  
7 4     4   1026 use Mouse::Util::TypeConstraints;
  4         8  
  4         23  
8 4     4   300 use Ukigumo::Constants;
  4         7  
  4         900  
9              
10             subtype 'ArrayRefOfStrs', as 'ArrayRef[Str]';
11             coerce 'ArrayRefOfStrs', from 'Str', via { [$_] };
12              
13             has command => (
14             is => 'ro',
15             isa => 'ArrayRefOfStrs',
16             required => 1,
17             coerce => 1,
18             );
19              
20             sub run {
21 0     0 0   my ($self, $c) = @_;
22              
23 0           for my $command (@{ $self->command }) {
  0            
24 0 0         return STATUS_FAIL if $c->tee($command) != 0;
25             }
26              
27 0           return STATUS_SUCCESS;
28             }
29              
30             1;
31             __END__