| line |
true |
false |
branch |
|
21
|
0 |
9 |
unless @_ |
|
26
|
1 |
7 |
if keys %$opts |
|
36
|
0 |
2 |
if keys %$opts |
|
46
|
5 |
12 |
if ($symbol =~ /^-(.*)$/) |
|
47
|
1 |
4 |
unless $opts{$1} = shift @_ |
|
52
|
5 |
7 |
$sig ? : |
|
53
|
0 |
12 |
unless $type |
|
55
|
0 |
12 |
unless my $new_name = shift @_ |
|
58
|
0 |
12 |
if $renames{$name}{$type} |
|
69
|
46 |
16 |
unless $type eq 'SCALAR' |
|
72
|
0 |
16 |
if $] < 5.01 |
|
76
|
8 |
8 |
if $sv->isa('B::SV') |
|
77
|
0 |
8 |
unless $sv->isa('B::SPECIAL') |
|
99
|
3 |
24 |
$type eq 'SCALAR' ? : |
|
|
12 |
27 |
if (my $new_name = $types->{$type}) { } |
|
|
6 |
21 |
elsif ($type eq 'SCALAR' ? defined ${*GLOBCLONE{$type};} : defined *GLOBCLONE{$type}) { } |
|
100
|
1 |
11 |
unless _symbol_exists(\*GLOBCLONE, $type) |
|
103
|
2 |
9 |
if (my $ref = ref $new_name) |
|
104
|
1 |
1 |
unless $ref eq 'SCALAR' |
|
116
|
1 |
8 |
if not ref $new_name and _symbol_exists($destglob, $type) |