| line |
true |
false |
branch |
|
32
|
0 |
3 |
unless $as =~ /^[a-z][\w]*$/ |
|
41
|
1 |
3 |
if ($args{'exe'}) { } |
|
42
|
0 |
1 |
unless -x $args{'exe'} |
|
47
|
0 |
3 |
unless $cmd[0] |
|
50
|
1 |
3 |
if (defined $args{'args'}) { } |
|
67
|
0 |
14 |
if $self->{'debug'} |
|
68
|
0 |
14 |
if $self->{'debug'} |
|
78
|
0 |
14 |
unless open my $inh, '<', \$input |
|
79
|
0 |
14 |
if $self->{'debug'} and $input |
|
85
|
0 |
14 |
if ($self->{'debug'} and %env) |
|
92
|
12 |
2 |
unless $input |
|
103
|
2 |
12 |
if $input |
|
109
|
0 |
1 |
if $self->{'debug'} |
|
112
|
0 |
14 |
if $self->{'debug'} |
|
122
|
0 |
22 |
unless (defined $bytes) |
|
123
|
0 |
0 |
if $self->{'debug'} |
|
128
|
0 |
22 |
if $self->{'debug'} and $bytes |
|
132
|
14 |
8 |
unless ($bytes) |
|
133
|
0 |
14 |
if $self->{'debug'} |
|
143
|
0 |
11 |
if ($pipe_closed) |
|
145
|
0 |
0 |
if $self->{'debug'} |
|
156
|
3 |
8 |
length $data < 1024 ? : |
|
159
|
0 |
11 |
if $self->{'debug'} and $data |
|
163
|
1 |
10 |
unless (defined $bytes) |
|
164
|
0 |
1 |
if $self->{'debug'} |
|
172
|
0 |
10 |
if $self->{'debug'} and $bytes < $to_be_written |
|
175
|
7 |
3 |
if ($bytes < length $data) |
|
180
|
1 |
9 |
if (eof $inh) |
|
182
|
0 |
1 |
if $self->{'debug'} |
|
193
|
0 |
14 |
if $self->{'debug'} |