| line |
true |
false |
branch |
|
9
|
0 |
0 |
if not exists $s->{$_} |
|
|
0 |
4 |
if $e{'M'} |
|
|
70 |
752 |
$#_ ? : |
|
|
0 |
44 |
unless $#_ % 2 |
|
|
0 |
44 |
unless $a{'is'} |
|
|
0 |
900 |
$#_ && $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 |
353 |
!exists $_[0]{$n} ? : |
|
|
0 |
431 |
$#_ ? : |
|
|
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') { } |
|
203
|
0 |
17 |
unless binmode $self->stdin, $enc |
|
204
|
0 |
17 |
unless binmode $self->stdout, $enc |
|
205
|
0 |
17 |
unless binmode $self->stderr, $enc |
|
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
|
584 |
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) |
|
323
|
0 |
3 |
unless open $h->[0], $h->[1], fileno $h->[2] |
|
335
|
1 |
0 |
if (ref(my $code = $self->cmd->[0]) eq "CODE") |
|
346
|
12 |
17 |
if (wantarray) { } |
|
357
|
2 |
35 |
unless defined $self->pid |
|
358
|
18 |
17 |
if defined $self->exit |
|
366
|
0 |
17 |
if ($pid != $self->pid) |
|
373
|
0 |
17 |
if ($ret == -1) |
|
404
|
2 |
15 |
if (my $subref = $self->on_exit) |
|
417
|
0 |
99 |
unless my $fh = $self->$h |
|
418
|
52 |
47 |
unless $fh->opened |
|
419
|
17 |
30 |
if ($h eq "stderr") |
|
423
|
0 |
47 |
unless $fh->close |