Branch Coverage

lib/Yote/Spiderpup/Transform.pm
Criterion Covered Total %
branch 75 92 81.5


line true false branch
20 0 58 unless defined $expr
41 8 14 if $pos >= $range->[0] and $pos < $range->[1]
56 9 0 unless (&$is_protected($match_start))
65 97 0 $i > 0 ? :
68 81 16 if (not $in_string and $prev ne '\\') { }
1 28 elsif ($in_string and $char eq $in_string and $prev ne '\\') { }
69 0 80 if ($char eq "\"" or $char eq "'" or $char eq "`")
78 15 80 if $in_string
80 2 78 if ($char eq '(' or $char eq '[' or $char eq '{') { }
5 73 elsif ($char eq ')' or $char eq ']' or $char eq '}') { }
2 142 elsif ($char eq ';' || $char eq ',' and $depth == 0) { }
83 3 2 if ($depth == 0)
132 25 8 unless (&$is_protected($match_start))
154 5 3 if $param =~ /^\w+$/
169 10 0 if $param =~ /^\w+$/
179 0 29 unless defined $expr
197 1 43 if $pos >= $range->[0] and $pos < $range->[1]
211 1 62 if &$is_protected($match_start)
217 31 31 if $before =~ /\.\s*$/
220 0 31 if $before =~ /\bnew\s+$/
223 0 31 if $before =~ /\bfunction\s+$/
226 0 31 if $before =~ /\bthis\.\s*$/
229 0 31 if $local_vars->{$name}
232 26 5 unless $known_methods and $known_methods->{$name}
247 0 29 unless defined $expr and $expr =~ /\S/
251 2 27 if ($expr =~ /^async\s/ or $expr =~ /^function[\s(]/) { }
14 13 elsif (not $expr =~ /^\(/) { }
0 13 elsif ($expr =~ /^\s*\(\s*([^)]+)\s*\)\s*=>\s*([{].*)/s) { }
5 8 elsif ($expr =~ /^\s*\(\s*([^)]+)\s*\)\s*=>\s*(.*)/s) { }
289 56 145 if ($token =~ m[^$]) { }
64 81 elsif ($token =~ m[^<([\w.!]+)((?:[^>"']|"[^"]*"|'[^']*')*?)(/?)>$]) { }
32 49 elsif (not $token =~ /^\s*$/) { }
291 56 0 if @stack > 1
298 0 64 if $full_tag =~ /^!/
306 2 62 if defined $variant
314 4 34 if ($tag eq 'if' || $tag eq 'elseif' and $attr eq 'condition') { }
4 30 elsif ($attr eq 'for') { }
3 27 elsif ($attr =~ /^@(\w+)$/) { }
4 23 elsif ($value =~ /^\(/) { }
3 20 elsif ($value =~ /\$/) { }
318 2 2 if ($value =~ /^\[/)
347 1 0 unless (exists $attrs{$attr} or exists $attrs{"*$attr"})
357 56 0 unless ($self_close or $void_tags{$tag})
365 32 0 if ($text ne "")
366 1 31 if ($text =~ /^\s*(\([^)]*\)\s*=>)(.*)/) { }
10 21 elsif ($text =~ /\$/) { }