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