| line |
true |
false |
branch |
|
50
|
10 |
38 |
if (@_ and grep /^shell$/, @_) |
|
70
|
21 |
27 |
unless defined $Shell::Base::PROMPT |
|
106
|
1 |
15 |
UNIVERSAL::isa($_[0], 'HASH') ? : |
|
151
|
3 |
13 |
if (my $histfile = $$args{'HISTFILE'}) |
|
174
|
12 |
1 |
unless defined $$args{'RCFILES'} |
|
178
|
0 |
1 |
unless ref $$args{'RCFILES'} eq 'ARRAY' |
|
200
|
0 |
2 |
unless my $rc = 'IO::File'->new($rcfile) |
|
207
|
4 |
44 |
if (length $buffer and length $line) |
|
212
|
4 |
44 |
if ($line =~ s/\\$//) { } |
|
219
|
30 |
14 |
unless length $line |
|
223
|
2 |
12 |
unless (defined $value) |
|
224
|
1 |
1 |
if ($name =~ s/^no//) { } |
|
234
|
1 |
1 |
wantarray ? : |
|
352
|
0 |
0 |
if (defined $blurb) |
|
365
|
0 |
0 |
if (not length $cmd) { } |
|
|
0 |
0 |
elsif ($cmd =~ /$Shell::Base::RE_HELP/) { } |
|
|
0 |
0 |
elsif ($cmd =~ /$Shell::Base::RE_QUIT/) { } |
|
375
|
0 |
0 |
if ($cmd =~ /$Shell::Base::RE_SHEBANG/) |
|
382
|
0 |
0 |
if ($@) |
|
397
|
0 |
0 |
if defined $output |
|
447
|
0 |
0 |
unless defined $status |
|
450
|
0 |
0 |
if defined $blurb |
|
452
|
0 |
0 |
if (my $h = $self->histfile) |
|
638
|
2 |
5 |
if ($args[0] =~ /=/) { } |
|
665
|
21 |
2 |
if (@_) |
|
682
|
10 |
0 |
if (@_) |
|
699
|
16 |
1 |
if @_ |
|
712
|
3 |
0 |
if @_ |
|
731
|
2 |
4 |
if (@_) |
|
733
|
1 |
1 |
if (ref $p eq 'CODE') { } |
|
755
|
1 |
3 |
if (@_) |
|
759
|
3 |
1 |
unless (defined $$self{'PAGER'}) |
|
761
|
3 |
0 |
unless -x $$self{'PAGER'} |
|
780
|
0 |
0 |
if ($topic) { } |
|
781
|
0 |
0 |
if (my $sub = $self->can("help_$topic")) { } |
|
792
|
0 |
0 |
if (@helps) { } |
|
818
|
14 |
2 |
if (@_) |
|
854
|
13 |
1 |
if (@_) |
|
871
|
0 |
0 |
unless (system($sh, @args) == 0) |