Branch Coverage

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


line true false branch
113 0 0 unless ($TOKEN_RULES{$type})
117 0 0 if ($type eq "AUX_GROUP")
121 0 0 $TOKEN_RULES{$type}{'standalone'} ? :
127 0 25 unless (is_valid_operator($op))
131 0 25 unless $OPERATORS{$op}{'right_types'}
133 23 2 $allowed{$type} ? :
139 32 49 unless (is_modifier_token($type))
143 14 35 if ($type eq 'FORM') { }
3 32 elsif ($type eq 'AUX_DOT') { }
13 19 elsif ($type eq 'AUX_GROUP') { }
1 18 elsif ($type eq 'AUX_TIME') { }
1 17 elsif ($type eq 'AUX_LANG') { }
10 7 elsif ($type eq 'ALPHA_SPEC') { }
7 0 elsif ($type eq 'APOS_AUX') { }
144 14 0 if (defined $primary_type and &any(sub { $primary_type eq $_; } , "ALPHA_SPEC", "APOS_AUX", "AUX_DOT", "AUX_GROUP", "AUX_LANG", "AUX_TIME", "FORM", "NUMBER", "SUBGROUP"))
151 3 0 if (defined $primary_type and &any(sub { $primary_type eq $_; } , "NUMBER", "AUX_GROUP", "SUBGROUP"))
159 3 10 if ($subtype eq "AUX_FORM")
170 10 0 if (defined $primary_type and &any(sub { $primary_type eq $_; } , "AUX_GROUP", "AUX_LANG", "AUX_TIME", "FORM", "NUMBER", "SUBGROUP"))
177 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"))
197 0 4 unless defined $type
199 1 3 if ($type eq "SUBGROUP")
203 3 0 if ($type eq "AUX_GROUP")
205 2 1 $subtype eq 'AUX_FORM' ? :
208 0 0 if ($type eq "AUX_TIME" or $type eq "AUX_LANG")
230 0 16 unless (defined $value)
235 5 11 if $value =~ /^\(0(?:[^)]*)\)$/
238 11 0 if $value =~ /^\([1-9][^)]*\)$/
246 49 32 $TOKEN_RULES{$type} && $TOKEN_RULES{$type}{'modifier'} ? :
252 27 6 defined $type && $type eq 'OP' ? :
258 70 9 $TOKEN_RULES{$type} && $TOKEN_RULES{$type}{'primary'} ? :
264 52 0 exists $OPERATORS{$op} ? :