line |
true |
false |
branch |
125
|
0 |
21 |
unless defined $shells{$shell} |
127
|
21 |
0 |
'HASH' eq ref $_[-1] ? : |
133
|
0 |
21 |
if @notvalid |
156
|
0 |
21 |
unless my $fh_e = 'File::Temp'->new |
169
|
21 |
0 |
if $self->{'redirect'} |
172
|
0 |
21 |
if ($self->{'debug'}) |
181
|
3 |
18 |
if ($self->{'expect'}) { } |
193
|
21 |
0 |
if $self->{'redirect'} |
195
|
0 |
21 |
if ($error) |
231
|
0 |
22 |
unless open $self->{'oSTDOUT'}, '>&STDOUT' |
233
|
0 |
22 |
unless open $self->{'oSTDERR'}, '>&STDERR' |
236
|
0 |
22 |
unless open STDERR, '>', $stderr |
238
|
0 |
22 |
unless open STDOUT, '>', $stdout |
271
|
89 |
16 |
if exists $shell->{$_} |
280
|
0 |
0 |
'ARRAY' eq ref $self->{'shellopts'} ? : |
|
0 |
21 |
defined $self->{'shellopts'} ? : |
287
|
0 |
0 |
if $self->{'shell'} eq 'csh' || $self->{'shell'} eq 'tcsh' and $self->{'login'} and @options + @shellopts > 1 |
294
|
21 |
0 |
@bundled ? : |
306
|
21 |
0 |
$bundled ? : |
319
|
0 |
18 |
unless open my $pipe, '|-', $self->{'shell'}, @{$self->{'shelloptions'};} |
323
|
0 |
18 |
unless close $pipe |
335
|
0 |
3 |
unless $exp->spawn($self->{'shell'}, @{$$self{'shelloptions'};}) |
365
|
0 |
24 |
if @unknown |
378
|
3 |
21 |
unless 'ARRAY' eq ref $opt{'exclude'} |
384
|
1 |
5 |
if ('Regexp' eq ref $exclude) { } |
|
1 |
4 |
elsif ('CODE' eq ref $exclude) { } |
403
|
2 |
22 |
if ($opt{'diffsonly'}) |
406
|
44 |
2 |
if exists $ENV{$_} |
413
|
2 |
22 |
if ($opt{'envstr'}) |
418
|
0 |
2 |
if ($opt{'zapdeleted'}) |
421
|
0 |
0 |
if exists $ENV{$_} |
440
|
0 |
24 |
if ($str eq '') { } |
|
4 |
20 |
elsif ($str =~ /\s/) { } |
480
|
0 |
8 |
if @unknown |
494
|
7 |
1 |
if ($opt{'ZapDeleted'}) |
496
|
188 |
0 |
if exists $ENV{$_} |