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'} |