Branch Coverage

blib/lib/Text/Naming/Convention.pm
Criterion Covered Total %
branch 40 48 83.3


line true false branch
57 1 2 unless $convention
59 2 0 if (grep {$_ eq $convention;} @_valid_conventions) { }
76 1 1 if (@_)
96 10 4 if (ref $words[-1] eq 'HASH')
100 10 0 if (_is_valid_convention($option->{'convention'})) { }
107 0 10 if (exists $option->{'keep_uppers'})
113 4 38 if $keep_uppers and $word =~ /^[A-Z]+$/ and $convention =~ /Camel/
117 4 10 if ($convention eq '_') { }
4 6 elsif ($convention eq '-') { }
3 3 elsif ($convention eq 'UpperCamelCase') { }
3 0 elsif ($convention eq 'lowerCamelCase') { }
138 0 43 unless $convention
160 38 4 if (scalar @_) { }
2 2 elsif (defined $_ and not ref $_) { }
173 33 7 if ($option and ref $option eq 'HASH')
176 33 0 if (_is_valid_convention($option->{'convention'})) { }
185 8 32 if ($name =~ /(_)/ or $name =~ /(-)/) { }
187 0 8 if $convention eq $from
189 4 4 if ($convention eq '_' or $convention eq '-') { }
196 0 4 if $convention eq 'UpperCamelCase'
201 19 13 if ($convention eq '_' or $convention eq '-') { }
219 8 5 if $name =~ /^[^A-Z]/
220 6 7 if ($convention eq 'UpperCamelCase' and $convention ne $from) { }
3 6 elsif ($convention eq 'lowerCamelCase' and $convention ne $from) { }