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 |