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) { } |