| 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{$_} |