Branch Coverage

blib/lib/App/sh2p/Compound.pm
Criterion Covered Total %
branch 0 150 0.0


line true false branch
72 0 0 if ($subtok =~ /^[_A-Za-z]/) { }
0 0 elsif ($subtok =~ /\$[A-Z0-9\?#\{\}\[\]]+/i) { }
78 0 0 if defined $special
86 0 0 if (query_semi_colon) { }
103 0 0 if (exists $convert{$$rtok}) { }
0 0 elsif (substr($$rtok, 0, 1) eq '-') { }
143 0 0 if (&identify_ksh_boolean(\$tokens[$i], \$types[$i])) { }
145 0 0 if ($i < $#tokens and not $tokens[$i + 1] =~ /^($specials)\(/)
159 0 0 if ($token =~ /^($specials)\(/) { }
0 0 elsif ($token eq '!') { }
0 0 elsif ($types[$i][0] eq 'VARIABLE') { }
162 0 0 if ($char eq '+' or $char eq '?' or $char eq '*') { }
0 0 elsif ($char eq '@') { }
0 0 elsif ($char eq '!') { }
169 0 0 if ($tokens[$i - 1] eq 'eq')
179 0 0 if ($i > 0)
180 0 0 if ($tokens[$i - 1] eq 'eq') { }
0 0 elsif ($tokens[$i - 1] eq 'ne') { }
192 0 0 if (Register_variable($token, '$'))
201 0 0 if ($g_not) { }
216 0 0 if ($rest)
233 0 0 if (exists $sh_convert{$$rtok}) { }
0 0 elsif (exists $convert{$$rtok}) { }
0 0 elsif (substr($$rtok, 0, 1) eq '-') { }
263 0 0 if (@rest)
268 0 0 if is_break($rest[$i]) or $rest[$i] eq ';'
271 0 0 if ($i)
290 0 0 if (&identify_sh_boolean(\$tokens[$i], \$types[$i])) { }
292 0 0 if ($i < $#tokens and not $tokens[$i + 1] =~ /^($specials)\(/)
304 0 0 if ($tokens[$i] =~ /[^\$]($specials)/) { }
0 0 elsif ($tokens[$i] eq '!') { }
0 0 elsif ($types[$i][0] eq 'VARIABLE') { }
311 0 0 if (Register_variable($tokens[$i], '$'))
318 0 0 if ($g_not) { }
334 0 0 if (defined $rest and $rest)
365 0 0 if (substr($statements[$i], 0, 1) eq '#')
375 0 0 if (@statements)
411 0 0 if (substr($statements[$i], 0, 1) eq '#')
422 0 0 if (@statements)
436 0 0 if (substr($statements[$i], 0, 1) eq '#')
453 0 0 if (@statements)
468 0 0 if (substr($statements[$i], 0, 1) eq '#')
483 0 0 if (@statements)
504 0 0 if ($chars[$i] eq '\\') { }
0 0 elsif ($chars[$i] eq '[') { }
0 0 elsif ($chars[$i] eq ']' and $inside_br) { }
0 0 elsif ($chars[$i] eq '!' and $inside_br and $chars[$i - 1] eq '[') { }
0 0 elsif (not $inside_br) { }
518 0 0 if ($chars[$i] eq '*') { }
0 0 elsif ($chars[$i] eq '?') { }
519 0 0 if (defined $minimal and $minimal) { }
533 0 0 if (defined $nested and $nested) { }
560 0 0 if ($in ne 'in')
579 0 0 if is_break($condition)
582 0 0 if ($condition eq 'esac')
601 0 0 if ($rest[$i] eq ';' and $rest[$i + 1] eq ';')
659 0 0 if $cmd eq 'select'
661 0 0 if defined $var
664 0 0 if defined $in
669 0 0 if $list[$i] eq 'do'
670 0 0 if $list[$i] eq ';'
671 0 0 if substr($list[$i], 0, 1) eq '#'
678 0 0 if (@for_tokens) { }
682 0 0 if (ina_function()) { }
692 0 0 if ($for_tokens[0] =~ /\$[A-Z0-9#\{\}\[\]]+/i)
699 0 0 if (@for_tokens)
719 0 0 if (substr($statements[$i], 0, 1) eq '#')
733 0 0 if (@statements)
754 0 0 if (@statements)
856 0 0 if (is_break($statements[$i]) or $statements[$i] eq ';')
861 0 0 unless $i > 0
871 0 0 if ($cmd and $tokens[0] ne 'test' and $types[0][0] eq 'EXTERNAL' || $types[0][0] eq 'BUILTIN' || $types[0][0] eq 'PERL_BUILTIN')
880 0 0 if $cmd
882 0 0 if $cmd
884 0 0 if ($paren)