| line |
true |
false |
branch |
|
9
|
0 |
0 |
if not exists $s->{$_} |
|
|
0 |
4 |
if $e{'M'} |
|
|
70 |
736 |
$#_ ? : |
|
|
0 |
44 |
unless $#_ % 2 |
|
|
0 |
44 |
unless $a{'is'} |
|
|
0 |
884 |
$#_ && $a{'is'} eq 'ro' && caller ne 'Mo::coerce' ? : |
|
|
0 |
17 |
unless (exists $a{$n}) |
|
|
3 |
36 |
if ($a{'required'}) |
|
|
31 |
13 |
unless exists $a{'default'} |
|
|
13 |
0 |
'CODE' eq $r ? : |
|
|
0 |
13 |
'ARRAY' eq $r ? : |
|
|
0 |
13 |
'HASH' eq ($r = ref $d) ? : |
|
|
0 |
13 |
exists $a{'lazy'} ? : |
|
|
0 |
13 |
unless $i |
|
|
78 |
336 |
!exists $_[0]{$n} ? : |
|
|
0 |
414 |
$#_ ? : |
|
|
3 |
1 |
@_ == 1 ? : |
|
|
0 |
4 |
@_ == 2 && !$_[1] ? : |
|
36
|
0 |
0 |
if ($proc->exit != 0) |
|
37
|
0 |
0 |
if $CONFESS |
|
44
|
0 |
0 |
if @err |
|
46
|
0 |
0 |
if (wantarray) { } |
|
61
|
0 |
0 |
if ($proc->exit != 0) |
|
62
|
0 |
0 |
if $CONFESS |
|
69
|
0 |
0 |
if (wantarray) { } |
|
80
|
0 |
26 |
unless defined $cmd[0] |
|
82
|
24 |
2 |
unless (ref $cmd[0] eq 'CODE') |
|
84
|
4 |
20 |
if ('File::Spec'->splitdir($cmd[0]) == 1) |
|
90
|
2 |
18 |
unless (-x $cmd[0]) |
|
96
|
0 |
20 |
if (@opts > 2) |
|
100
|
14 |
6 |
@opts ? : |
|
179
|
4 |
16 |
if $dir |
|
180
|
4 |
16 |
if $dir |
|
184
|
10 |
8 |
if (defined(my $x = $self->env)) |
|
186
|
12 |
4 |
if (defined $val) { } |
|
195
|
2 |
16 |
if (ref $self->cmd->[0] eq 'CODE') { } |
|
210
|
4 |
13 |
if (defined(my $input = $self->input)) |
|
214
|
2 |
2 |
if length $input |
|
237
|
0 |
16 |
unless pipe my $child_in, $self->stdin |
|
238
|
0 |
16 |
unless pipe $self->stdout, my $child_out |
|
239
|
0 |
16 |
unless pipe $self->stderr, my $child_err |
|
261
|
296 |
0 |
defined $ENV{$_} ? : |
|
275
|
0 |
16 |
if $err |
|
276
|
0 |
16 |
unless defined $self->pid |
|
290
|
0 |
2 |
unless pipe my $child_in, $self->stdin |
|
291
|
0 |
2 |
unless pipe $self->stdout, my $child_out |
|
292
|
0 |
2 |
unless pipe $self->stderr, my $child_err |
|
295
|
0 |
2 |
unless (defined $self->pid) |
|
300
|
1 |
1 |
if ($self->pid == 0) |
|
306
|
0 |
1 |
unless (open STDERR, '>&=', fileno $child_err) |
|
320
|
1 |
0 |
if (ref $self->cmd->[0] eq 'CODE') |
|
345
|
12 |
17 |
if (wantarray) { } |
|
356
|
2 |
35 |
unless defined $self->pid |
|
357
|
18 |
17 |
if defined $self->exit |
|
365
|
0 |
17 |
if ($pid != $self->pid) |
|
372
|
0 |
17 |
if ($ret == -1) |
|
403
|
2 |
15 |
if (my $subref = $self->on_exit) |
|
416
|
0 |
99 |
unless my $fh = $self->$h |
|
417
|
52 |
47 |
unless $fh->opened |
|
418
|
0 |
47 |
unless $fh->close |