| line |
true |
false |
branch |
|
16
|
2 |
2 |
if $renaming_on |
|
29
|
0 |
1 |
unless $renaming_on |
|
41
|
0 |
16 |
unless $renaming_on |
|
44
|
1 |
15 |
unless $key and $key eq 'Renaming' and ref $renamings eq 'ARRAY' |
|
51
|
7 |
1 |
unless @normal |
|
58
|
0 |
1 |
unless $renaming_on |
|
64
|
0 |
1 |
unless $key and $key eq 'Renaming' and ref $renamings eq 'ARRAY' |
|
67
|
1 |
0 |
if @normal |
|
75
|
1 |
15 |
if @$renamings % 2 |
|
82
|
1 |
20 |
unless defined $old_type |
|
84
|
1 |
19 |
unless defined $new_type |
|
88
|
1 |
18 |
unless $new_name =~ /^[A-Za-z_]\w*$/ |
|
94
|
1 |
17 |
if $old_type ne $new_type |
|
99
|
1 |
16 |
if exists $table{$new_sym} |
|
127
|
2 |
68 |
if $type and not $type =~ /[\$\@%&*]/ |
|
141
|
1 |
0 |
$type eq '*' ? : |
|
|
7 |
1 |
$type eq '&' ? : |
|
|
1 |
8 |
$type eq '%' ? : |
|
|
1 |
9 |
$type eq '@' ? : |
|
|
4 |
10 |
$type eq '$' ? : |