| line |
true |
false |
branch |
|
62
|
2 |
14 |
unless (defined $arg and defined($reftype = reftype $arg)) |
|
64
|
1 |
1 |
defined $arg ? : |
|
68
|
2 |
12 |
unless exists $sigils{$reftype} and $sigil =~ /\Q$sigils{$reftype}\E/ |
|
95
|
1 |
26 |
unless defined $proto |
|
101
|
16 |
23 |
if ($1) { } |
|
|
6 |
17 |
elsif ($sigil =~ /[\@\%]/) { } |
|
105
|
1 |
1 |
$reftype eq 'GLOB' ? : |
|
|
4 |
2 |
$reftype eq 'HASH' ? : |
|
|
4 |
6 |
$reftype eq 'ARRAY' ? : |
|
|
2 |
10 |
$reftype eq 'SCALAR' ? : |
|
122
|
1 |
16 |
unless @_ |
|
198
|
7 |
38 |
if $sigil =~ /^\[([^\]]+)\]/ |
|
202
|
12 |
33 |
if ($ref) { } |
|
|
8 |
25 |
elsif ($sigil =~ /[\@\%]/) { } |
|
|
9 |
16 |
elsif ($sigil =~ /\&/) { } |
|
|
3 |
13 |
elsif ($sigil eq '_') { } |
|
203
|
7 |
5 |
if (length $sigil > 1) { } |
|
221
|
6 |
3 |
if (exists $h{$i}) { } |
|
244
|
4 |
33 |
unless $name |
|
248
|
20 |
13 |
if (not $r) { } |
|
|
7 |
6 |
elsif ($r eq 'HASH') { } |
|
251
|
2 |
5 |
unless keys %$name == 1 |
|
265
|
1 |
24 |
if @_ % 2 |
|
269
|
19 |
5 |
unless defined $opts{'sub'} |
|
270
|
19 |
5 |
if not defined $opts{'compile'} and $opts{'sub'} |
|
271
|
22 |
2 |
unless defined $opts{'wrong_ref'} |
|
275
|
19 |
5 |
if (defined $proto) { } |
|
281
|
2 |
22 |
if (@coderefs) |
|
282
|
1 |
1 |
@coderefs > 1 ? : |
|
288
|
21 |
3 |
if $opts{'sub'} |
|
290
|
19 |
5 |
if ($opts{'compile'}) |
|
297
|
2 |
17 |
if $err |
|
336
|
0 |
5 |
if ("$]" == 5.008) { } |
|
340
|
0 |
0 |
if $err |
|
346
|
7 |
13 |
if $err |