| line |
true |
false |
branch |
|
47
|
0 |
0 |
if (not defined $delimexp) { } |
|
|
0 |
0 |
elsif ($delimexp eq ' ') { } |
|
50
|
0 |
0 |
unless (defined $num) |
|
51
|
0 |
0 |
unless (defined $keep) |
|
59
|
0 |
0 |
if (@matches > 2) |
|
65
|
0 |
0 |
if (@matches == 2) { } |
|
84
|
0 |
0 |
if ($startNewPiece) |
|
89
|
0 |
0 |
if (@pieces == $num) |
|
95
|
0 |
0 |
if (not $keep and defined $prefix) |
|
98
|
0 |
0 |
if (defined $delimiter) { } |
|
|
0 |
0 |
elsif (defined $quote) { } |
|
100
|
0 |
0 |
if ($saveDelimiters) { } |
|
|
0 |
0 |
elsif (@pieces > 1 or $pieces[0]) { } |
|
101
|
0 |
0 |
if (length $pieces[$#pieces] or not $freshPiece) { } |
|
114
|
0 |
0 |
if (defined $restOfQuote) { } |
|
115
|
0 |
0 |
if (not $keep and $quote ne q['] and $quote ne 'q(') |
|
129
|
0 |
0 |
if (not $keep and length $line) |
|
135
|
0 |
0 |
if (length $line) |
|
136
|
0 |
0 |
if (defined $unmatched) |
|
137
|
0 |
0 |
wantarray ? : |
|
143
|
0 |
0 |
unless $line =~ /[\[{('"]/s |
|
147
|
0 |
0 |
if ($unmatch) |
|
153
|
0 |
0 |
if length $word != 1 |
|
154
|
0 |
0 |
if ($word eq '[' or $word eq '{' or $word eq '(' or $word eq '"' or $word eq '"') { } |
|
|
0 |
0 |
elsif ($word eq ')' or $word eq '}' or $word eq ']' or $word eq '"' or $word eq '"') { } |
|
161
|
0 |
0 |
if ($open ne $curopen) |
|
166
|
0 |
0 |
if (scalar @openstack > 1) |
|
217
|
0 |
0 |
if ($word =~ /['"']/ or not $word =~ /{.*}|\[.*\]|[*?~]/) { } |
|
224
|
0 |
0 |
if (scalar @results == 0) { } |
|
|
0 |
0 |
elsif (scalar @results > 1 or $results[0] ne $word) { } |
|
229
|
0 |
0 |
if ($join_char) { } |
|
243
|
0 |
0 |
if (substr($text, 0, 1) eq q['] and substr($text, -1, 1) eq q[']) { } |
|
|
0 |
0 |
elsif (substr($text, 0, 1) eq '"' and substr($text, -1, 1) eq '"') { } |
|
|
0 |
0 |
elsif (substr($text, 0, 1) eq '\\') { } |
|
273
|
0 |
0 |
if (substr($text, 0, 1) eq '(' and substr($text, -1, 1) eq ')') { } |
|
|
0 |
0 |
elsif (substr($text, 0, 1) eq '{' and substr($text, -1, 1) eq '}') { } |
|
289
|
0 |
0 |
if (@tmp > 2) |
|
292
|
0 |
0 |
if (@tmp < 2) |
|
295
|
0 |
0 |
if (@tmp == 2 and not $tmp[0]) |
|
301
|
0 |
0 |
if (lc $_ eq 'all') |
|
304
|
0 |
0 |
if (/^\d+$/) { } |
|
307
|
0 |
0 |
if (ref *{"$Psh::PerlEval::current_package::$_";}{'FILEHANDLE'}) |
|
319
|
0 |
0 |
if $splitonly |
|
326
|
0 |
0 |
if (length $_ == 1) |
|
327
|
0 |
0 |
if ($_ eq '[' or $_ eq '(' or $_ eq '{') { } |
|
|
0 |
0 |
elsif ($_ eq '}' or $_ eq ')' or $_ eq ']') { } |
|
333
|
0 |
0 |
if ($nestlevel) { } |
|
|
0 |
0 |
elsif (@tmp) { } |
|
347
|
0 |
0 |
if ($tmp eq '||' or $tmp eq '&&') { } |
|
|
0 |
0 |
elsif ($tmp eq ';;') { } |
|
|
0 |
0 |
elsif ($tmp eq '|') { } |
|
|
0 |
0 |
elsif ($tmp =~ /^(>>?)$/) { } |
|
|
0 |
0 |
elsif ($tmp eq '<') { } |
|
|
0 |
0 |
elsif ($tmp eq '&') { } |
|
|
0 |
0 |
elsif ($tmp eq ';') { } |
|
|
0 |
0 |
elsif ($tmp eq '`') { } |
|
|
0 |
0 |
elsif ($tmp =~ /^\s+$/) { } |
|
349
|
0 |
0 |
$tmp eq '||' ? : |
|
357
|
0 |
0 |
if (@parts > 0) |
|
359
|
0 |
0 |
if ($tmp =~ /^\[(.+?)\]$/) { } |
|
361
|
0 |
0 |
if (lc $tmp2 eq 'all') |
|
365
|
0 |
0 |
unless (@fileno) |
|
383
|
0 |
0 |
if (@parts > 0) |
|
385
|
0 |
0 |
if ($tmp =~ /^\[(.+?)\]$/) { } |
|
387
|
0 |
0 |
if (lc $tmp2 eq 'all') |
|
391
|
0 |
0 |
unless (@fileno) |
|
399
|
0 |
0 |
if ($fileno[1] == 0) { } |
|
402
|
0 |
0 |
unless $file =~ /^\s+$/ |
|
405
|
0 |
0 |
if (not $file or substr($file, 0, 1) eq '&') |
|
414
|
0 |
0 |
if ($allflag) |
|
420
|
0 |
0 |
if (@parts > 0) |
|
422
|
0 |
0 |
if ($tmp =~ /^\[(.+?)\]$/) { } |
|
424
|
0 |
0 |
unless (@fileno) |
|
433
|
0 |
0 |
if ($fileno[0] == 0) { } |
|
436
|
0 |
0 |
unless $file =~ /^\s+$/ |
|
439
|
0 |
0 |
if (not $file or substr($file, 0, 1) eq '&') |
|
481
|
0 |
0 |
if substr($line, 0, 1) eq '#' |
|
484
|
0 |
0 |
if (@use_strats) { } |
|
|
0 |
0 |
elsif (@Psh::temp_use_strats) { } |
|
492
|
0 |
0 |
if (@$lvl1) |
|
497
|
0 |
0 |
if ($@) { } |
|
|
0 |
0 |
elsif ($how) { } |
|
507
|
0 |
0 |
if (@$lvl2) |
|
510
|
0 |
0 |
if (@$lvl3) |
|
516
|
0 |
0 |
unless defined $element |
|
518
|
0 |
0 |
if (@tokens > 0) |
|
519
|
0 |
0 |
if ($tokens[0][0] == 0) |
|
522
|
0 |
0 |
if (@tokens > 0) |
|
523
|
0 |
0 |
if ($tokens[0][0] == 6) { } |
|
|
0 |
0 |
elsif ($tokens[0][0] == 5) { } |
|
555
|
0 |
0 |
if (@$tokens > 0 and $$tokens[0][0] == 4) |
|
572
|
0 |
0 |
if ($$token[0] == 1) { } |
|
|
0 |
0 |
elsif ($$token[0] == 3) { } |
|
573
|
0 |
0 |
if ($firstwords and $$token[1] eq 'noglob' || $$token[1] eq 'noexpand' || $$token[1] eq 'noalias') { } |
|
590
|
0 |
0 |
if (%Psh::Support::Alias::aliases and not $$opt{'noalias'} and $Psh::Support::Alias::aliases{$words[0]} and not $$alias_disabled{$words[0]}) { } |
|
|
0 |
0 |
elsif (substr($words[0], 0, 1) eq '\\') { } |
|
613
|
0 |
0 |
if ($@) { } |
|
|
0 |
0 |
elsif ($how) { } |
|
637
|
0 |
0 |
unless defined $word and $word |
|
639
|
0 |
0 |
if ($word =~ /[a-zA-Z]/ and $word =~ m[^(\\.|[$.:a-zA-Z0-9/.])*$]) |