| line |
true |
false |
branch |
|
30
|
1 |
2 |
unless $convention |
|
32
|
2 |
0 |
if (grep {$_ eq $convention;} @_valid_conventions) { } |
|
49
|
1 |
1 |
if (@_) |
|
69
|
10 |
4 |
if (ref $words[-1] eq 'HASH') |
|
73
|
10 |
0 |
if (_is_valid_convention($$option{'convention'})) { } |
|
80
|
0 |
10 |
if (exists $$option{'keep_uppers'}) |
|
86
|
4 |
38 |
if $keep_uppers and $word =~ /^[A-Z]+$/ and $convention =~ /Camel/ |
|
90
|
4 |
10 |
if ($convention eq '_') { } |
|
|
4 |
6 |
elsif ($convention eq '-') { } |
|
|
3 |
3 |
elsif ($convention eq 'UpperCamelCase') { } |
|
|
3 |
0 |
elsif ($convention eq 'lowerCamelCase') { } |
|
111
|
0 |
43 |
unless $convention |
|
133
|
38 |
4 |
if (scalar @_) { } |
|
|
2 |
2 |
elsif (defined $_ and not ref $_) { } |
|
146
|
33 |
7 |
if ($option and ref $option eq 'HASH') |
|
149
|
33 |
0 |
if (_is_valid_convention($$option{'convention'})) { } |
|
158
|
8 |
32 |
if ($name =~ /(_)/ or $name =~ /(-)/) { } |
|
160
|
0 |
8 |
if $convention eq $from |
|
162
|
4 |
4 |
if ($convention eq '_' or $convention eq '-') { } |
|
169
|
2 |
2 |
if $convention eq 'UpperCamelCase' |
|
174
|
19 |
13 |
if ($convention eq '_' or $convention eq '-') { } |
|
192
|
8 |
5 |
if $name =~ /^[^A-Z]/ |
|
193
|
4 |
9 |
if ($convention eq 'UpperCamelCase' and $convention ne $from) { } |
|
|
3 |
8 |
elsif ($convention eq 'lowerCamelCase' and $convention ne $from) { } |