File Coverage

blib/lib/Bat/Interpreter/Delegate/Executor/PartialDryRunner.pm
Criterion Covered Total %
statement 23 23 100.0
branch n/a
condition n/a
subroutine 7 7 100.0
pod 3 3 100.0
total 33 33 100.0


line stmt bran cond sub pod time code
1             package Bat::Interpreter::Delegate::Executor::PartialDryRunner;
2              
3 22     22   180 use utf8;
  22         51  
  22         131  
4              
5 22     22   730 use Moo;
  22         55  
  22         138  
6 22     22   7298 use Types::Standard qw(ArrayRef);
  22         54  
  22         251  
7 22     22   14333 use namespace::autoclean;
  22         58  
  22         509  
8              
9             with 'Bat::Interpreter::Role::Executor';
10              
11             our $VERSION = '0.022'; # VERSION
12              
13             has 'commands_executed' => ( is => 'ro',
14             isa => ArrayRef,
15             default => sub { [] },
16             );
17              
18             sub add_command {
19 28     28 1 61 push @{ shift->commands_executed }, @_;
  28         168  
20             }
21              
22             sub execute_command {
23 28     28 1 321 my $self = shift();
24 28         66 my $command = shift();
25 28         148 $self->add_command($command);
26 28         82 return 0;
27             }
28              
29             sub execute_for_command {
30 1     1 1 9 my $self = shift();
31 1         3 my $command = shift();
32 1         8087 my $output = `$command`;
33 1         24 chomp $output;
34 1         65 return $output;
35             }
36              
37             1;
38              
39             __END__