| line |
true |
false |
branch |
|
68
|
0 |
0 |
$^O eq 'MSWin32' ? : |
|
73
|
0 |
0 |
if (@_ == 1) { } |
|
78
|
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 (/^-?session$/i) { } |
|
|
0 |
0 |
elsif (/^-?skipvars$/i) { } |
|
79
|
0 |
0 |
if (-d $cfg{$_}) { } |
|
97
|
0 |
0 |
if (ref $cfg{$_} eq 'ARRAY') { } |
|
108
|
0 |
0 |
if ($lex) { } |
|
109
|
0 |
0 |
if ($HAVE_LexPersist) { } |
|
122
|
0 |
0 |
if (defined $params{'skipvars'}) |
|
138
|
0 |
0 |
if (defined $App_PerlShell_Shell->{'session'}) |
|
139
|
0 |
0 |
unless (defined session($App_PerlShell_Shell->{'session'})) |
|
145
|
0 |
0 |
if (exists $App_PerlShell_Shell->{'shellLexEnv'}) { } |
|
166
|
0 |
0 |
if (defined $App_PerlShell_Shell->{'execute'}) { } |
|
178
|
0 |
0 |
defined $App_PerlShell_Shell->{'shellCmdLine'} ? : |
|
184
|
0 |
0 |
if ($App_PerlShell_Shell->{'shellCmdLine'} =~ /^\s*$/) |
|
190
|
0 |
0 |
if ($App_PerlShell_Shell->{'shellCmdLine'} =~ /^\s*exit\s*(;)?\s*$/) |
|
191
|
0 |
0 |
unless (defined $1) |
|
198
|
0 |
0 |
if ($App_PerlShell_Shell->{'shellCmdLine'} =~ /\ndebug$/) |
|
205
|
0 |
0 |
if (exists $App_PerlShell_Shell->{'shellLexEnv'}) |
|
206
|
0 |
0 |
if ($App_PerlShell_Shell->{'shellCmdLine'} =~ /^\s*variables\s*;\s*$/) |
|
228
|
0 |
0 |
if (my(@c) = $App_PerlShell_Shell->{'shellCmdLine'} =~ /\(/g) |
|
232
|
0 |
0 |
if (my(@c) = $App_PerlShell_Shell->{'shellCmdLine'} =~ /\)/g) |
|
236
|
0 |
0 |
if (my(@c) = $App_PerlShell_Shell->{'shellCmdLine'} =~ /\[/g) |
|
239
|
0 |
0 |
if (my(@c) = $App_PerlShell_Shell->{'shellCmdLine'} =~ /\]/g) |
|
242
|
0 |
0 |
if (my(@c) = $App_PerlShell_Shell->{'shellCmdLine'} =~ /\{/g) |
|
245
|
0 |
0 |
if (my(@c) = $App_PerlShell_Shell->{'shellCmdLine'} =~ /\}/g) |
|
249
|
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 or not $App_PerlShell_Shell->{'shellCmdLine'} =~ /(;|\})\s*$/ and $App_PerlShell_Shell->{'shellCmdComplete'}{'parenthesis'} == 0 and $App_PerlShell_Shell->{'shellCmdComplete'}{'bracket'} == 0 and $App_PerlShell_Shell->{'shellCmdComplete'}{'brace'} == 0) |
|
263
|
0 |
0 |
unless ($App_PerlShell_Shell->{'shellCmdLine'} =~ /\n;$/) |
|
272
|
0 |
0 |
if (exists $App_PerlShell_Shell->{'shellLexEnv'}) { } |
|
273
|
0 |
0 |
if ($App_PerlShell_Shell->{'shellLexEnv'}->get_package ne 'App::PerlShell') |
|
278
|
0 |
0 |
if ($HAVE_ModRefresh) |
|
289
|
0 |
0 |
if ($ENV{'PERLSHELL_PACKAGE'} ne 'App::PerlShell') |
|
293
|
0 |
0 |
if ($HAVE_ModRefresh) |
|
308
|
0 |
0 |
if $@ |
|
311
|
0 |
0 |
if (defined $ENV{'PERLSHELL_SESSION'} and not $@) |
|
323
|
0 |
0 |
if $App_PerlShell_Shell->{'shellCmdLine'} ne '' |
|
343
|
0 |
0 |
if (not defined $arg) { } |
|
346
|
0 |
0 |
if (-e $arg) { } |
|
352
|
0 |
0 |
if (defined wantarray) |
|
362
|
0 |
0 |
if ($^O eq 'MSWin32') { } |
|
380
|
0 |
0 |
if (defined $arg) |
|
385
|
0 |
0 |
if $name =~ /^_/ |
|
388
|
0 |
0 |
unless defined $sub |
|
391
|
0 |
0 |
if defined $proto and length $proto == 0 |
|
393
|
0 |
0 |
if ($name =~ /$regex/) |
|
398
|
0 |
0 |
if (not defined $retType) { } |
|
|
0 |
0 |
elsif ($retType) { } |
|
432
|
0 |
0 |
if ($^O eq 'MSWin32') |
|
445
|
0 |
0 |
if (not defined $retType) { } |
|
449
|
0 |
0 |
if ($retType) { } |
|
469
|
0 |
0 |
if (defined $arg) { } |
|
470
|
0 |
0 |
if ($module =~ /$arg/) |
|
480
|
0 |
0 |
unless ($FOUND) |
|
481
|
0 |
0 |
defined $arg ? : |
|
485
|
0 |
0 |
if (not defined $retType) { } |
|
|
0 |
0 |
elsif ($retType) { } |
|
488
|
0 |
0 |
defined $rets{$module} ? : |
|
500
|
0 |
0 |
if ($#args == -1) |
|
511
|
0 |
0 |
if ($args[0] =~ /^::/) |
|
519
|
0 |
0 |
if (not defined wantarray) { } |
|
529
|
0 |
0 |
unless (defined $arg) |
|
530
|
0 |
0 |
if (defined $ENV{'PERLSHELL_SESSION'}) { } |
|
531
|
0 |
0 |
unless (defined wantarray) |
|
536
|
0 |
0 |
unless (defined wantarray) |
|
543
|
0 |
0 |
if ($arg eq ':close') |
|
544
|
0 |
0 |
if (defined $ENV{'PERLSHELL_SESSION'}) { } |
|
545
|
0 |
0 |
unless (defined wantarray) |
|
551
|
0 |
0 |
unless (defined wantarray) |
|
558
|
0 |
0 |
if (not defined $ENV{'PERLSHELL_SESSION'}) { } |
|
559
|
0 |
0 |
if (-e $arg) |
|
560
|
0 |
0 |
unless (defined wantarray) |
|
565
|
0 |
0 |
if (open my $fh, '>>', $arg) { } |
|
568
|
0 |
0 |
unless (defined wantarray) |
|
573
|
0 |
0 |
unless (defined wantarray) |
|
579
|
0 |
0 |
unless (defined wantarray) |
|
594
|
0 |
0 |
unless (exists $ENV{'PERLSHELL_PACKAGE'}) |
|
599
|
0 |
0 |
if (defined $ENV{'PERLSHELL_SKIPVARS'}) |
|
610
|
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}) { } |
|
622
|
0 |
0 |
if (not defined $retType) { } |
|
|
0 |
0 |
elsif ($retType) { } |