Branch Coverage

blib/lib/Zoidberg/StringParser.pm
Criterion Covered Total %
branch 76 90 84.4


line true false branch
44 1548 3 if (not ref $gram) { }
0 3 elsif (ref $gram eq 'ARRAY') { }
45 0 1548 unless $$self{'collection'}{$gram}
50 0 0 ref $_ ? :
53 0 0 if $error
63 10 1541 if (ref $input eq 'ARRAY') { }
66 1 1550 unless length $string or @$input
75 2335 304 if length $1
79 2433 1916 $_ eq $2 ? :
82 1327 1312 unless length $sign or length $string
84 9 1303 if ($type eq 'd_esc')
93 488 815 if (ref $$slice{$type}[1] eq 'ARRAY') { }
94 550 221 ref $$_[0] ? :
100 49 1254 if $item eq '_SELF'
102 12 1291 if (exists $$slice{'s_esc'} and $1 =~ /$$slice{'s_esc'}$/)
104 1 11 if $type eq 'tokens' and not $$self{'settings'}{'no_esc_rm'}
110 891 400 if ($type eq 'tokens') { }
111 493 398 if (not $s_i) { }
112 0 493 if (ref $item) { }
123 398 0 if ($item eq '_POP') { }
0 0 elsif ($item eq '_CUT') { }
141 400 0 unless (ref $item)
142 48 352 if ($item eq '_REC') { }
144 133 219 $type eq 'nests' ? :
162 233 1058 unless length $string
165 1979 60 if (length $block)
169 84 1955 if ($token and $token ne '_CUT')
172 489 1550 if ($s_i || ++$i != $int and length $string || scalar @$input) { }
1 1549 elsif ($i == $int) { }
173 11 478 unless length $string
181 2 1548 if ($s_i)
185 1 1 unless $$self{'settings'}{'allow_broken'}
189 527 0 ref $_ ? :
184 1365 if $$gram[-1]{'was_regexp'} and not $$self{'settings'}{'no_split_intel'}
198 185 5239 if (ref $ref eq 'Regexp') { }
0 5239 elsif (ref $ref ne 'HASH') { }
205 677 4747 unless ($$ref{'prepared'})
206 21 656 if (exists $$ref{'esc'}) { }
636 37 elsif (not exists $$ref{'s_esc'} and exists $index{'s_esc'}) { }
207 0 21 ref $$ref{'esc'} ? :
216 779 1252 unless exists $$ref{$_}
217 255 272 ref $$_[0] ? :
221 237 1015 ref $$ref{$_} eq 'ARRAY' ? :
222 1016 236 $expr ? :
234 288 9108 unless length $index{$_}