| line |
l |
!l |
condition |
|
96
|
2 |
0 |
$args->[0] // 1
|
|
110
|
0 |
1 |
$cd->{'subs'}{'unbless'} //= qq[ my \$ref = shift;\n\n my \$r = ref(\$ref);\n # not a reference\n return \$ref unless \$r;\n\n # return if not a blessed ref\n my (\$r2, \$r3) = "\$ref" =~ /(.+)=(.+?)\\(/\n or return \$ref;\n\n if (\$r3 eq 'HASH') {\n return { %\$ref };\n } elsif (\$r3 eq 'ARRAY') {\n return [ \@\$ref ];\n } elsif (\$r3 eq 'SCALAR') {\n return \\( my \$copy = \${\$ref} );\n } else {\n die "Can't handle \$ref";\n }\n]
|
|
154
|
0 |
11 |
$cd->{'modules'}{'Scalar::Util'} //= 0
|
|
155
|
0 |
0 |
$cd->{'modules'}{'Data::Dmp'} //= 0
|
|
162
|
0 |
11 |
$cd->{'modules'}{$1} //= 0
|
|
294
|
0 |
0 |
$ENV{'LINENUM'} // 1
|