line |
true |
false |
branch |
30
|
0 |
101 |
unless defined $_[0]
|
33
|
5 |
96 |
if $reftype eq 'ARRAY'
|
34
|
5 |
91 |
if $reftype eq 'HASH'
|
35
|
4 |
4 |
${$_[0];} ? :
|
|
8 |
83 |
if $reftype eq 'SCALAR'
|
38
|
2 |
81 |
if (my $package = &blessed($_[0]))
|
40
|
1 |
1 |
${$_[0];} ? :
|
|
2 |
0 |
if $reftype eq 'SCALAR' and $package =~ /bool/imsx
|
44
|
0 |
81 |
if $reftype
|
47
|
25 |
0 |
if B::svref_2object(\$_[0])->FLAGS & $number_flags and 0 + $_[0] eq $_[0] and $_[0] * 0 == 0
|
55
|
0 |
245 |
if (exists $slash_escaped->{$cp}) { }
|
|
233 |
12 |
elsif ($cp >= 32 and $cp < 128) { }
|
|
12 |
0 |
elsif ($cp < 65536) { }
|
90
|
192 |
12 |
$is_unreserved{$_} ? :
|