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