| line |
l |
!l |
condition |
|
98
|
2 |
0 |
$args->[0] // 1
|
|
112
|
0 |
1 |
$cd->{'subs'}{'unbless'} //= " 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"
|
|
156
|
0 |
11 |
$cd->{'modules'}{'Scalar::Util'} //= 0
|
|
157
|
0 |
0 |
$cd->{'modules'}{'Data::Dmp'} //= 0
|
|
161
|
0 |
11 |
$ENV{'PERL_DATA_CLEAN_CLONE_FUNC'} // "Clone::PP::clone"
|
|
165
|
0 |
11 |
$cd->{'modules'}{$1} //= 0
|
|
297
|
0 |
0 |
$ENV{'LINENUM'} // 1
|