Branch Coverage

blib/lib/Business/UDC/Grammar.pm
Criterion Covered Total %
branch 42 62 67.7


line true false branch
112 0 0 unless ($TOKEN_RULES{$type})
116 0 0 if ($type eq "AUX_GROUP")
120 0 0 $TOKEN_RULES{$type}{'standalone'} ? :
126 0 22 unless (is_valid_operator($op))
130 0 22 unless $OPERATORS{$op}{'right_types'}
132 20 2 $allowed{$type} ? :
138 29 40 unless (is_modifier_token($type))
142 10 30 if ($type eq 'FORM') { }
3 27 elsif ($type eq 'AUX_DOT') { }
13 14 elsif ($type eq 'AUX_GROUP') { }
1 13 elsif ($type eq 'AUX_TIME') { }
1 12 elsif ($type eq 'AUX_LANG') { }
5 7 elsif ($type eq 'ALPHA_SPEC') { }
7 0 elsif ($type eq 'APOS_AUX') { }
143 10 0 if (defined $primary_type and &any(sub { $primary_type eq $_; } , "APOS_AUX", "AUX_DOT", "AUX_GROUP", "AUX_LANG", "AUX_TIME", "FORM", "NUMBER", "SUBGROUP"))
150 3 0 if (defined $primary_type and &any(sub { $primary_type eq $_; } , "NUMBER", "AUX_GROUP", "SUBGROUP"))
158 3 10 if ($subtype eq "AUX_FORM")
169 5 0 if (defined $primary_type and &any(sub { $primary_type eq $_; } , "AUX_GROUP", "AUX_LANG", "AUX_TIME", "FORM", "NUMBER", "SUBGROUP"))
176 7 0 if (defined $primary_type and &any(sub { $primary_type eq $_; } , "APOS_AUX", "AUX_DOT", "AUX_GROUP", "AUX_LANG", "AUX_TIME", "FORM", "NUMBER", "SUBGROUP"))
196 0 4 unless defined $type
198 1 3 if ($type eq "SUBGROUP")
202 3 0 if ($type eq "AUX_GROUP")
204 2 1 $subtype eq 'AUX_FORM' ? :
207 0 0 if ($type eq "AUX_TIME" or $type eq "AUX_LANG")
229 0 16 unless (defined $value)
234 5 11 if $value =~ /^\(0(?:[^)]*)\)$/
237 11 0 if $value =~ /^\([1-9][^)]*\)$/
245 40 29 $TOKEN_RULES{$type} && $TOKEN_RULES{$type}{'modifier'} ? :
251 24 6 defined $type && $type eq 'OP' ? :
257 61 9 $TOKEN_RULES{$type} && $TOKEN_RULES{$type}{'primary'} ? :
263 46 0 exists $OPERATORS{$op} ? :