| line |
true |
false |
branch |
|
28
|
12 |
16 |
$ref ? : |
|
51
|
2 |
18 |
unless $old_sym->{'type'} eq $new_sym->{'type'} |
|
53
|
2 |
16 |
unless my $old_ref = _get_ref($old_sym) |
|
54
|
3 |
13 |
if my $new_ref = _get_ref($new_sym) |
|
71
|
18 |
122 |
if ref $sym |
|
78
|
4 |
118 |
if $pkg eq '::' |
|
111
|
52 |
139 |
if $type ne 'SCALAR' and defined *{$globref;}{$type} |
|
113
|
0 |
139 |
if ($] < 5.01) |
|
114
|
0 |
0 |
if eval {
do {
defined ${*{$globref;}{$type};}
}
} |
|
119
|
72 |
67 |
if $sv->isa('B::SV') |
|
120
|
0 |
67 |
unless $sv->isa('B::SPECIAL') |
|
121
|
0 |
67 |
if $B::specialsv_name[$$sv] ne 'Nullsv' |
|
138
|
18 |
90 |
if $type eq $sym->{'type'} |