| line |
true |
false |
branch |
|
21
|
0 |
8 |
if ($args{'to_camel_case'} || $args{'from_camel_case'} and defined $replacement) { } |
|
|
0 |
8 |
elsif (not $args{'to_camel_case'} || $args{'from_camel_case'} || defined $replacement) { } |
|
35
|
0 |
8 |
unless defined $token |
|
38
|
0 |
8 |
unless defined $declaration |
|
50
|
4 |
4 |
unless (defined $replacement) |
|
51
|
2 |
2 |
if ($args{'from_camel_case'}) { } |
|
56
|
0 |
4 |
if ($varname eq $replacement) |
|
69
|
2 |
6 |
$type eq '%' ? : |
|
|
0 |
8 |
$type eq '@' ? : |
|
72
|
2 |
6 |
if ($type eq '@' or $type eq '%') { } |
|
80
|
2 |
0 |
if ($type eq '%') { } |
|
|
0 |
0 |
elsif ($type eq '@') { } |
|
106
|
44 |
424 |
if ($node->isa('PPI::Token::Symbol')) { } |
|
|
0 |
424 |
elsif ($type eq '@' and $node->isa('PPI::Token::ArrayIndex')) { } |
|
|
360 |
64 |
elsif ($node->isa('PPI::Token')) { } |
|
107
|
26 |
18 |
unless $node->symbol eq $varname |
|
119
|
0 |
0 |
unless substr($node->content, 2) eq substr($varname, 1) |
|
126
|
4 |
356 |
if ($str =~ s(($finder_regexp)([\[\{]?))[if ($1 =~ tr/{//) {
substr($1, 0, $1 =~ tr/#// + 1) . "{$replacement}$2";
}
else {
substr($1, 0, $1 =~ tr/#// + 1) . "$replacement$2";
} ;]eg) |
|
127
|
4 |
0 |
if ($1 =~ tr/{//) { } |
|
153
|
6 |
32 |
if ($var =~ s/^(\W*_)//) |
|
157
|
19 |
19 |
if $ucfirst |
|
158
|
6 |
32 |
if defined $prefix |
|
166
|
56 |
0 |
if ($var =~ s/^(\W*_?)//) |
|
169
|
28 |
28 |
if ($ucfirst) { } |
|
177
|
56 |
0 |
if defined $prefix |
|
184
|
8 |
0 |
if ($var =~ s/^([\$\@\%])(.+)$/$1{$2}/) |