| line |
true |
false |
branch |
|
31
|
0 |
3 |
unless $as =~ /^[a-z][\w]*$/ |
|
40
|
1 |
3 |
if ($args{'exe'}) { } |
|
41
|
0 |
1 |
unless -x $args{'exe'} |
|
46
|
0 |
3 |
unless $cmd[0] |
|
49
|
1 |
3 |
if (defined $args{'args'}) { } |
|
65
|
0 |
14 |
if $self->{'debug'} |
|
66
|
0 |
14 |
if $self->{'debug'} |
|
76
|
0 |
14 |
unless open my $inh, '<', \$input |
|
77
|
0 |
14 |
if $self->{'debug'} and $input |
|
83
|
0 |
14 |
if ($self->{'debug'} and %env) |
|
90
|
12 |
2 |
unless $input |
|
101
|
2 |
12 |
if $input |
|
107
|
0 |
1 |
if $self->{'debug'} |
|
110
|
0 |
14 |
if $self->{'debug'} |
|
120
|
0 |
22 |
unless (defined $bytes) |
|
121
|
0 |
0 |
if $self->{'debug'} |
|
126
|
0 |
22 |
if $self->{'debug'} and $bytes |
|
130
|
14 |
8 |
unless ($bytes) |
|
131
|
0 |
14 |
if $self->{'debug'} |
|
141
|
0 |
13 |
if ($pipe_closed) |
|
143
|
0 |
0 |
if $self->{'debug'} |
|
154
|
3 |
10 |
length $data < 1024 ? : |
|
157
|
0 |
13 |
if $self->{'debug'} and $data |
|
161
|
1 |
12 |
unless (defined $bytes) |
|
162
|
0 |
1 |
if $self->{'debug'} |
|
170
|
0 |
12 |
if $self->{'debug'} and $bytes < $to_be_written |
|
173
|
9 |
3 |
if ($bytes < length $data) |
|
178
|
1 |
11 |
if (eof $inh) |
|
180
|
0 |
1 |
if $self->{'debug'} |
|
191
|
0 |
14 |
if $self->{'debug'} |