| line |
true |
false |
branch |
|
70
|
0 |
0 |
$^O eq 'MSWin32' ? : |
|
76
|
0 |
0 |
if (@_ == 1) { } |
|
81
|
0 |
0 |
if (/^-?homedir$/i) { } |
|
|
0 |
0 |
elsif (/^-?execute$/i) { } |
|
|
0 |
0 |
elsif (/^-?lex(?:ical)?$/i) { } |
|
|
0 |
0 |
elsif (/^-?package$/i) { } |
|
|
0 |
0 |
elsif (/^-?prompt$/i) { } |
|
|
0 |
0 |
elsif (/^-?feature$/i) { } |
|
|
0 |
0 |
elsif (/^-?session$/i) { } |
|
|
0 |
0 |
elsif (/^-?skipvars$/i) { } |
|
|
0 |
0 |
elsif (/^-?verbose$/i) { } |
|
82
|
0 |
0 |
if (-d $cfg{$_}) { } |
|
101
|
0 |
0 |
if (ref $cfg{$_} eq 'ARRAY') { } |
|
114
|
0 |
0 |
if ($lex) |
|
115
|
0 |
0 |
if ($HAVE_LexPersist) { } |
|
132
|
0 |
0 |
if (defined $params{'skipvars'}) |
|
136
|
0 |
0 |
if ($verbose) |
|
153
|
0 |
0 |
if (defined $App_PerlShell_Shell->{'session'}) |
|
154
|
0 |
0 |
unless (defined session($App_PerlShell_Shell->{'session'})) |
|
160
|
0 |
0 |
if (exists $App_PerlShell_Shell->{'shellLexEnv'}) { } |
|
181
|
0 |
0 |
if (defined $App_PerlShell_Shell->{'execute'}) { } |
|
193
|
0 |
0 |
defined $App_PerlShell_Shell->{'shellCmdLine'} ? : |
|
199
|
0 |
0 |
if ($App_PerlShell_Shell->{'shellCmdLine'} =~ /^\s*$/) |
|
205
|
0 |
0 |
if ($App_PerlShell_Shell->{'shellCmdLine'} =~ /^\s*exit\s*(;)?\s*$/) |
|
206
|
0 |
0 |
unless (defined $1) |
|
213
|
0 |
0 |
if ($App_PerlShell_Shell->{'shellCmdLine'} =~ /\ndebug$/) |
|
220
|
0 |
0 |
if (exists $App_PerlShell_Shell->{'shellLexEnv'}) |
|
221
|
0 |
0 |
if ($App_PerlShell_Shell->{'shellCmdLine'} =~ /^\s*variables\s*;\s*$/) |
|
243
|
0 |
0 |
if (my(@c) = $App_PerlShell_Shell->{'shellCmdLine'} =~ /\(/g) |
|
247
|
0 |
0 |
if (my(@c) = $App_PerlShell_Shell->{'shellCmdLine'} =~ /\)/g) |
|
251
|
0 |
0 |
if (my(@c) = $App_PerlShell_Shell->{'shellCmdLine'} =~ /\[/g) |
|
254
|
0 |
0 |
if (my(@c) = $App_PerlShell_Shell->{'shellCmdLine'} =~ /\]/g) |
|
257
|
0 |
0 |
if (my(@c) = $App_PerlShell_Shell->{'shellCmdLine'} =~ /\{/g) |
|
260
|
0 |
0 |
if (my(@c) = $App_PerlShell_Shell->{'shellCmdLine'} =~ /\}/g) |
|
264
|
0 |
0 |
if ($App_PerlShell_Shell->{'shellCmdLine'} =~ /,\s*$/ or $App_PerlShell_Shell->{'shellCmdComplete'}{'parenthesis'} != 0 or $App_PerlShell_Shell->{'shellCmdComplete'}{'bracket'} != 0 or $App_PerlShell_Shell->{'shellCmdComplete'}{'brace'} != 0) |
|
269
|
0 |
0 |
unless ($App_PerlShell_Shell->{'shellCmdLine'} =~ /\n;$/) |
|
276
|
0 |
0 |
if ($App_PerlShell_Shell->{'shellCmdComplete'}{'parenthesis'} == 0 and $App_PerlShell_Shell->{'shellCmdComplete'}{'bracket'} == 0 and $App_PerlShell_Shell->{'shellCmdComplete'}{'brace'} == 0) |
|
281
|
0 |
0 |
unless ($App_PerlShell_Shell->{'shellCmdLine'} =~ /(;|\})\s*$/) |
|
283
|
0 |
0 |
if ($ENV{'PERLSHELL_SEMIOFF'}) { } |
|
295
|
0 |
0 |
if (exists $App_PerlShell_Shell->{'shellLexEnv'}) { } |
|
296
|
0 |
0 |
if ($App_PerlShell_Shell->{'shellLexEnv'}->get_package ne "App::PerlShell") |
|
301
|
0 |
0 |
if ($HAVE_ModRefresh) |
|
316
|
0 |
0 |
if ($ENV{'PERLSHELL_PACKAGE'} ne "App::PerlShell") |
|
320
|
0 |
0 |
if ($HAVE_ModRefresh) |
|
335
|
0 |
0 |
if $@ |
|
338
|
0 |
0 |
if (defined $ENV{'PERLSHELL_SESSION'} and not $@) |
|
352
|
0 |
0 |
if $App_PerlShell_Shell->{'shellCmdLine'} ne "" |
|
372
|
0 |
0 |
if (not defined $arg) { } |
|
375
|
0 |
0 |
if (-e $arg) { } |
|
381
|
0 |
0 |
if (defined wantarray) |
|
391
|
0 |
0 |
if ($^O eq 'MSWin32') { } |
|
409
|
0 |
0 |
if (defined $arg) |
|
414
|
0 |
0 |
if $name =~ /^_/ |
|
417
|
0 |
0 |
unless defined $sub |
|
420
|
0 |
0 |
if defined $proto and length $proto == 0 |
|
422
|
0 |
0 |
if ($name =~ /$regex/) |
|
427
|
0 |
0 |
if (not defined $retType) { } |
|
|
0 |
0 |
elsif ($retType) { } |
|
454
|
0 |
0 |
if (defined $arg) { } |
|
455
|
0 |
0 |
if ($env =~ /$arg/) |
|
465
|
0 |
0 |
unless ($FOUND) |
|
466
|
0 |
0 |
defined $arg ? : |
|
470
|
0 |
0 |
if (not defined $retType) { } |
|
|
0 |
0 |
elsif ($retType) { } |
|
473
|
0 |
0 |
defined $rets{$env} ? : |
|
497
|
0 |
0 |
if ($^O eq "MSWin32") |
|
510
|
0 |
0 |
if (not defined $retType) { } |
|
514
|
0 |
0 |
if ($retType) { } |
|
534
|
0 |
0 |
if (defined $arg) { } |
|
535
|
0 |
0 |
if ($module =~ /$arg/) |
|
545
|
0 |
0 |
unless ($FOUND) |
|
546
|
0 |
0 |
defined $arg ? : |
|
550
|
0 |
0 |
if (not defined $retType) { } |
|
|
0 |
0 |
elsif ($retType) { } |
|
553
|
0 |
0 |
defined $rets{$module} ? : |
|
565
|
0 |
0 |
if ($#args == -1) |
|
576
|
0 |
0 |
if ($args[0] =~ /^::/) |
|
584
|
0 |
0 |
if (not defined wantarray) { } |
|
594
|
0 |
0 |
unless (defined $arg) |
|
595
|
0 |
0 |
if (defined $ENV{'PERLSHELL_SESSION'}) { } |
|
596
|
0 |
0 |
unless (defined wantarray) |
|
601
|
0 |
0 |
unless (defined wantarray) |
|
608
|
0 |
0 |
if ($arg eq ":close") |
|
609
|
0 |
0 |
if (defined $ENV{'PERLSHELL_SESSION'}) { } |
|
610
|
0 |
0 |
unless (defined wantarray) |
|
616
|
0 |
0 |
unless (defined wantarray) |
|
623
|
0 |
0 |
if (not defined $ENV{'PERLSHELL_SESSION'}) { } |
|
624
|
0 |
0 |
if (-e $arg) |
|
625
|
0 |
0 |
unless (defined wantarray) |
|
630
|
0 |
0 |
if (open my $fh, '>>', $arg) { } |
|
633
|
0 |
0 |
unless (defined wantarray) |
|
638
|
0 |
0 |
unless (defined wantarray) |
|
644
|
0 |
0 |
unless (defined wantarray) |
|
659
|
0 |
0 |
unless (exists $ENV{'PERLSHELL_PACKAGE'}) |
|
664
|
0 |
0 |
if (defined $ENV{'PERLSHELL_SKIPVARS'}) |
|
675
|
0 |
0 |
if (defined ${$ENV{'PERLSHELL_PACKAGE'} . "::$var";} and not defined $SKIP{'$' . $var}) { } |
|
|
0 |
0 |
elsif (@{$ENV{'PERLSHELL_PACKAGE'} . "::$var";} and not defined $SKIP{'@' . $var}) { } |
|
|
0 |
0 |
elsif (%{$ENV{'PERLSHELL_PACKAGE'} . "::$var";} and not defined $SKIP{'%' . $var}) { } |
|
687
|
0 |
0 |
if (not defined $retType) { } |
|
|
0 |
0 |
elsif ($retType) { } |