| 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) |
|
254
|
0 |
0 |
unless ($App_PerlShell_Shell->{'shellCmdLine'} =~ /\n;$/) |
|
261
|
0 |
0 |
if ($App_PerlShell_Shell->{'shellCmdComplete'}{'parenthesis'} == 0 and $App_PerlShell_Shell->{'shellCmdComplete'}{'bracket'} == 0 and $App_PerlShell_Shell->{'shellCmdComplete'}{'brace'} == 0) |
|
266
|
0 |
0 |
unless ($App_PerlShell_Shell->{'shellCmdLine'} =~ /(;|\})\s*$/) |
|
268
|
0 |
0 |
if ($ENV{'PERLSHELL_SEMIOFF'}) { } |
|
280
|
0 |
0 |
if (exists $App_PerlShell_Shell->{'shellLexEnv'}) { } |
|
281
|
0 |
0 |
if ($App_PerlShell_Shell->{'shellLexEnv'}->get_package ne 'App::PerlShell') |
|
286
|
0 |
0 |
if ($HAVE_ModRefresh) |
|
297
|
0 |
0 |
if ($ENV{'PERLSHELL_PACKAGE'} ne 'App::PerlShell') |
|
301
|
0 |
0 |
if ($HAVE_ModRefresh) |
|
316
|
0 |
0 |
if $@ |
|
319
|
0 |
0 |
if (defined $ENV{'PERLSHELL_SESSION'} and not $@) |
|
331
|
0 |
0 |
if $App_PerlShell_Shell->{'shellCmdLine'} ne '' |
|
351
|
0 |
0 |
if (not defined $arg) { } |
|
354
|
0 |
0 |
if (-e $arg) { } |
|
360
|
0 |
0 |
if (defined wantarray) |
|
370
|
0 |
0 |
if ($^O eq 'MSWin32') { } |
|
388
|
0 |
0 |
if (defined $arg) |
|
393
|
0 |
0 |
if $name =~ /^_/ |
|
396
|
0 |
0 |
unless defined $sub |
|
399
|
0 |
0 |
if defined $proto and length $proto == 0 |
|
401
|
0 |
0 |
if ($name =~ /$regex/) |
|
406
|
0 |
0 |
if (not defined $retType) { } |
|
|
0 |
0 |
elsif ($retType) { } |
|
440
|
0 |
0 |
if ($^O eq 'MSWin32') |
|
453
|
0 |
0 |
if (not defined $retType) { } |
|
457
|
0 |
0 |
if ($retType) { } |
|
477
|
0 |
0 |
if (defined $arg) { } |
|
478
|
0 |
0 |
if ($module =~ /$arg/) |
|
488
|
0 |
0 |
unless ($FOUND) |
|
489
|
0 |
0 |
defined $arg ? : |
|
493
|
0 |
0 |
if (not defined $retType) { } |
|
|
0 |
0 |
elsif ($retType) { } |
|
496
|
0 |
0 |
defined $rets{$module} ? : |
|
508
|
0 |
0 |
if ($#args == -1) |
|
519
|
0 |
0 |
if ($args[0] =~ /^::/) |
|
527
|
0 |
0 |
if (not defined wantarray) { } |
|
537
|
0 |
0 |
unless (defined $arg) |
|
538
|
0 |
0 |
if (defined $ENV{'PERLSHELL_SESSION'}) { } |
|
539
|
0 |
0 |
unless (defined wantarray) |
|
544
|
0 |
0 |
unless (defined wantarray) |
|
551
|
0 |
0 |
if ($arg eq ':close') |
|
552
|
0 |
0 |
if (defined $ENV{'PERLSHELL_SESSION'}) { } |
|
553
|
0 |
0 |
unless (defined wantarray) |
|
559
|
0 |
0 |
unless (defined wantarray) |
|
566
|
0 |
0 |
if (not defined $ENV{'PERLSHELL_SESSION'}) { } |
|
567
|
0 |
0 |
if (-e $arg) |
|
568
|
0 |
0 |
unless (defined wantarray) |
|
573
|
0 |
0 |
if (open my $fh, '>>', $arg) { } |
|
576
|
0 |
0 |
unless (defined wantarray) |
|
581
|
0 |
0 |
unless (defined wantarray) |
|
587
|
0 |
0 |
unless (defined wantarray) |
|
602
|
0 |
0 |
unless (exists $ENV{'PERLSHELL_PACKAGE'}) |
|
607
|
0 |
0 |
if (defined $ENV{'PERLSHELL_SKIPVARS'}) |
|
618
|
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}) { } |
|
630
|
0 |
0 |
if (not defined $retType) { } |
|
|
0 |
0 |
elsif ($retType) { } |