| line |
true |
false |
branch |
|
21
|
0 |
7 |
unless @_ |
|
26
|
1 |
5 |
if keys %$opts |
|
36
|
0 |
2 |
if keys %$opts |
|
46
|
5 |
10 |
if ($symbol =~ /^-(.*)$/) |
|
47
|
1 |
4 |
unless $opts{$1} = shift @_ |
|
52
|
5 |
5 |
$sig ? : |
|
53
|
0 |
10 |
unless $type |
|
55
|
0 |
10 |
unless my $new_name = shift @_ |
|
58
|
0 |
10 |
if $renames{$name}{$type} |
|
69
|
44 |
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
|
2 |
20 |
$type eq 'SCALAR' ? : |
|
|
10 |
22 |
if (my $new_name = $types->{$type}) { } |
|
|
6 |
16 |
elsif ($type eq 'SCALAR' ? defined ${*GLOBCLONE{$type};} : defined *GLOBCLONE{$type}) { } |
|
104
|
1 |
9 |
if _symbol_exists($destglob, $type) |
|
107
|
1 |
8 |
unless _symbol_exists(\*GLOBCLONE, $type) |