| line |
true |
false |
branch |
|
58
|
0 |
0 |
unless (defined $from) |
|
62
|
0 |
0 |
if ($message) |
|
63
|
0 |
0 |
if $from eq 'hide' |
|
64
|
0 |
0 |
if ($message =~ /^SECRET $Psh::bin:(.*)$/s) { } |
|
65
|
0 |
0 |
if ($from ne 'main_loop') |
|
68
|
0 |
0 |
if ($from eq 'main_loop') |
|
69
|
0 |
0 |
if (Psh::Options::get_option('ignoredie')) { } |
|
83
|
0 |
0 |
if @use_strats |
|
96
|
0 |
0 |
if ($type == &Psh::Parser::T_EXECUTE()) { } |
|
|
0 |
0 |
elsif ($type == &Psh::Parser::T_OR()) { } |
|
|
0 |
0 |
elsif ($type == &Psh::Parser::T_AND()) { } |
|
97
|
0 |
0 |
if ($trace) |
|
107
|
0 |
0 |
if @result and $result[0] |
|
109
|
0 |
0 |
unless @result |
|
110
|
0 |
0 |
if $result[0] |
|
138
|
0 |
0 |
$prompt_templ ? : |
|
141
|
0 |
0 |
unless (defined $temp) |
|
145
|
0 |
0 |
if $temp =~ /^$terminator$/ |
|
166
|
0 |
0 |
$prompt_templ ? : |
|
170
|
0 |
0 |
unless (defined $temp) |
|
175
|
0 |
0 |
if Psh::Parser::incomplete_expr($sofar) <= 0 |
|
210
|
0 |
0 |
if ($q_prompt) |
|
215
|
0 |
0 |
if ($q_prompt) { } |
|
222
|
0 |
0 |
if $Psh::interactive |
|
226
|
0 |
0 |
unless (defined $input) |
|
227
|
0 |
0 |
unless $Psh::interactive |
|
231
|
0 |
0 |
unless ($control_d_max =~ /^\d$/) |
|
234
|
0 |
0 |
if $control_d_counter >= $control_d_max |
|
239
|
0 |
0 |
unless $input |
|
240
|
0 |
0 |
if $input =~ /^\s*$/ |
|
242
|
0 |
0 |
if ($input =~ /(.*)<<([a-zA-Z_0-9\-]*)(.*)/) { } |
|
|
0 |
0 |
elsif (Psh::Parser::incomplete_expr($input) > 0) { } |
|
247
|
0 |
0 |
$q_prompt ? : |
|
252
|
0 |
0 |
$q_prompt ? : |
|
260
|
0 |
0 |
if $@ |
|
261
|
0 |
0 |
if (@elements) { } |
|
266
|
0 |
0 |
if ($result) { } |
|
277
|
0 |
0 |
unless $Psh::interactive |
|
282
|
0 |
0 |
if (ref $echo eq 'CODE') { } |
|
|
0 |
0 |
elsif (ref $echo) { } |
|
287
|
0 |
0 |
if ($echo) |
|
290
|
0 |
0 |
if ($qEcho) |
|
292
|
0 |
0 |
if ($last_result_array ne $Psh::result_array) |
|
295
|
0 |
0 |
if ($what eq 'ARRAY') { } |
|
|
0 |
0 |
elsif ($what) { } |
|
299
|
0 |
0 |
unless (defined $result_array_name) |
|
312
|
0 |
0 |
if (scalar @result > 1) { } |
|
315
|
0 |
0 |
if ($Psh::interactive) |
|
318
|
0 |
0 |
if (defined $val) { } |
|
332
|
0 |
0 |
if (@{$result_array_ref;} > 100) |
|
347
|
0 |
0 |
unless (defined $pack) |
|
350
|
0 |
0 |
if ($symb =~ /::$/) { } |
|
|
0 |
0 |
elsif (\@{"$pack$symb";} eq $arref) { } |
|
351
|
0 |
0 |
unless $pack eq 'main::' and $symb eq 'main::' |
|
357
|
0 |
0 |
if (defined $ans) |
|
370
|
0 |
0 |
unless (defined @_) |
|
371
|
0 |
0 |
if (scalar @_ == 0) |
|
373
|
0 |
0 |
if (scalar @_ == 1) |
|
374
|
0 |
0 |
unless (defined $_[0]) |
|
375
|
0 |
0 |
if ($_[0] eq '') |
|
397
|
0 |
0 |
unless (-r $path) |
|
403
|
0 |
0 |
unless (open FILE, "< $path") |
|
410
|
0 |
0 |
if ($Psh::debugging =~ /f/ or $Psh::debugging eq '1') { } |
|
431
|
0 |
0 |
if (ref $var eq 'ARRAY') { } |
|
476
|
0 |
0 |
if ($Psh::term->ReadLine eq 'Term::ReadLine::Perl' and $prompt =~ /^(.*\n)([^\n]+)$/) |
|
485
|
0 |
0 |
if $sigint |
|
488
|
0 |
0 |
if ($Psh::term) { } |
|
489
|
0 |
0 |
if $prompt_hook |
|
490
|
0 |
0 |
if $prompt_pre |
|
494
|
0 |
0 |
if $prompt_hook |
|
495
|
0 |
0 |
if $prompt_pre |
|
496
|
0 |
0 |
if $prompt |
|
500
|
0 |
0 |
if ($@) |
|
501
|
0 |
0 |
if ($@ =~ /Signal INT/) { } |
|
504
|
0 |
0 |
if ($returnflag) |
|
517
|
0 |
0 |
unless defined $line |
|
527
|
0 |
0 |
if not $line or $line =~ /^\s*$/ |
|
528
|
0 |
0 |
if (not @Psh::history or $Psh::history[$#Psh::history] ne $line) |
|
530
|
0 |
0 |
if $Psh::term |
|
532
|
0 |
0 |
if (@Psh::history > $len) |
|
540
|
0 |
0 |
unless $Psh::term |
|
542
|
0 |
0 |
if (Psh::Options::get_option('save_history')) |
|
544
|
0 |
0 |
unless $file |
|
545
|
0 |
0 |
if ($readline_saves_history) { } |
|
550
|
0 |
0 |
if (open F_HISTORY, ">> $file") |
|
583
|
0 |
0 |
if ($] >= 5.005) |
|
587
|
0 |
0 |
if $@ |
|
597
|
0 |
0 |
if $ENV{'SHELL'} |
|
624
|
0 |
0 |
if Psh::Options::get_option('ignoresegfault') |
|
627
|
0 |
0 |
unless (defined $Psh::longhost) |
|
631
|
0 |
0 |
unless (defined $Psh::host) |
|
633
|
0 |
0 |
if $Psh::longhost =~ /([^\.]+)\..*/ |
|
639
|
0 |
0 |
if (-t STDIN) |
|
644
|
0 |
0 |
if ($@) { } |
|
649
|
0 |
0 |
if ($@) |
|
654
|
0 |
0 |
if ($@) |
|
659
|
0 |
0 |
if ($Psh::term) |
|
664
|
0 |
0 |
if ($Psh::term->ReadLine eq 'Term::ReadLine::Gnu') |
|
685
|
0 |
0 |
if (defined $Psh::term and Psh::Options::get_option('save_history')) |
|
687
|
0 |
0 |
unless $file |
|
688
|
0 |
0 |
if ($readline_saves_history) { } |
|
693
|
0 |
0 |
if (open F_HISTORY, "< $file") |
|
722
|
0 |
0 |
unless $Psh::term |
|
723
|
0 |
0 |
if ($Psh::term->can('add_defun')) |
|
747
|
0 |
0 |
if ($opt_f) { } |
|
754
|
0 |
0 |
if (-r $rc) |
|
773
|
0 |
0 |
if (-r $arg) |
|
791
|
0 |
0 |
if my $interactive = -t STDIN |
|
796
|
0 |
0 |
if ($interactive) { } |