File Coverage

blib/lib/Command/Template/Runner/Record.pm
Criterion Covered Total %
statement 52 69 75.3
branch n/a
condition n/a
subroutine 14 18 77.7
pod 14 14 100.0
total 80 101 79.2


line stmt bran cond sub pod time code
1             package Command::Template::Runner::Record;
2 3     3   50 use 5.024000;
  3         11  
3 3     3   15 use warnings;
  3         8  
  3         96  
4 3     3   20 use experimental qw< signatures >;
  3         6  
  3         18  
5 3     3   325 no warnings qw< experimental::signatures >;
  3         7  
  3         1643  
6             { our $VERSION = '0.001' }
7              
8 0     0 1 0 sub command ($self) { $self->{command} }
  0         0  
  0         0  
  0         0  
9 0     0 1 0 sub command_as_string ($self) { join ' ', @{$self->command} }
  0         0  
  0         0  
  0         0  
  0         0  
10 6     6 1 4174 sub exit_code ($self) { $self->{ec} >> 8 }
  6         16  
  6         9  
  6         43  
11 4     4 1 1350 sub failure ($self) { $self->full_exit_code != 0 }
  4         8  
  4         8  
  4         24  
12 9     9 1 19 sub full_exit_code ($self) { $self->{ec} }
  9         21  
  9         25  
  9         59  
13 0     0 1 0 sub merged ($self) { $self->stderr . $self->stdout }
  0         0  
  0         0  
  0         0  
14 6     6 1 18 sub new ($pack, $data) { return bless { $data->%* }, $pack }
  6         16  
  6         17  
  6         14  
  6         157  
15 0     0 1 0 sub options ($self) { $self->{options} }
  0         0  
  0         0  
  0         0  
16 6     6 1 3067 sub signal ($self) { $self->{ec} & 0x7F }
  6         18  
  6         11  
  6         23  
17 6     6 1 2148 sub stderr ($self) { $self->{stderr} }
  6         15  
  6         9  
  6         29  
18 6     6 1 2654 sub stdout ($self) { $self->{stdout} }
  6         12  
  6         15  
  6         19  
19 4     4 1 3485 sub success ($self) { $self->full_exit_code == 0 }
  4         20  
  4         8  
  4         17  
20 1     1 1 3 sub timed_out ($self) { $self->timeout }
  1         3  
  1         2  
  1         4  
21 1     1 1 1 sub timeout ($self) { $self->{timeout} }
  1         7  
  1         3  
  1         6  
22              
23             1;