Branch Coverage

blib/lib/Ordeal/Model/Parser.pm
Criterion Covered Total %
branch 34 64 53.1


line true false branch
25 0 2 if (length $rest)
28 0 0 length $rest > 20 ? :
43 34 12 unless defined(my $retval = &$alt($rtext))
57 8 22 if length($$rtext) - $pos < $wlen
58 14 8 if substr($$rtext, $pos, $wlen) ne $what
65 1 0 if defined $sep and not ref $sep
68 0 2 unless defined(my $base = &$what($rtext))
71 2 0 if ($sep)
73 2 0 unless &$sep($rtext)
79 2 0 if $sep
87 92 4 unless my(undef, $retval) = $$rtext =~ /\G()$rx/cgmsux
94 0 0 if ref $what
105 4 34 unless ref $item
106 20 18 if (defined(my $piece = &$item($rtext))) { }
125 10 4 unless defined(my $piece = &$what($rtext))
127 0 4 if ($local_min > 0) { }
135 0 10 if $local_min > 0
151 0 2 unless my $match = &$seq($rtext)
163 0 2 unless my $retval = &$base($rtext)
175 0 0 unless my $match = &$seq($rtext)
196 0 2 unless my $match = &$seq($rtext)
209 0 2 unless my $rv = &$alts($rtext)
225 0 2 unless my $list = &$seq($rtext)
240 2 0 unless my $r = &$ri($rtext)
244 0 0 unless ref $x
246 0 0 unless &$is_positive($x->[$i])
250 0 0 if &$is_positive($r)
263 8 0 unless my $list = &$seq($rtext)
271 0 0 unless my $range = &$ranger($rtext)
283 4 2 unless my $slice = &$slicer($rtext)
293 6 0 unless my $catched = &$catcher($rtext)
311 2 2 @$_ <= 1 ? :