| line |
true |
false |
branch |
|
47
|
0 |
0 |
$_[1] ? : |
|
61
|
3 |
0 |
if (defined &B::sub_generation) { } |
|
176
|
0 |
1 |
if (defined $root) { } |
|
177
|
0 |
0 |
if $root =~ /^main\b/ or not $root =~ /^\w[:\w]*$/ |
|
189
|
0 |
1 |
if defined $mask |
|
200
|
1 |
0 |
if $Opcode::VERSION > 1.04 |
|
207
|
1 |
0 |
if $obj->{'Erase'} |
|
238
|
1 |
0 |
if ($action and $action eq 'DESTROY') { } |
|
255
|
0 |
3 |
if @_ |
|
262
|
0 |
0 |
unless @_ |
|
308
|
0 |
1 |
unless ref $vars eq 'ARRAY' |
|
312
|
0 |
1 |
unless keys %{"${pkg}::";} |
|
317
|
50 |
2 |
if ($var = $arg) =~ s/^(\W)// |
|
325
|
2 |
0 |
$type eq '*' ? : |
|
|
0 |
2 |
$type eq '%' ? : |
|
|
2 |
2 |
$type eq '@' ? : |
|
|
8 |
4 |
$type eq '$' ? : |
|
|
88 |
12 |
$type eq '&' ? : |
|
|
4 |
100 |
!$type ? : |
|
329
|
1 |
0 |
unless $no_record or not $vars |
|
339
|
1 |
0 |
if @$vars |
|
375
|
0 |
0 |
if \%{$root . $_;} eq \%$root |
|
382
|
0 |
0 |
unless $obj->isa('Eval::Safe::ForkedSafe') |
|
390
|
0 |
0 |
if (defined wantarray) { } |
|
393
|
0 |
0 |
wantarray ? : |
|
398
|
0 |
0 |
if $sg != sub_generation() |
|
400
|
0 |
0 |
wantarray ? : |
|
418
|
0 |
0 |
unless my $reftype = $item && &reftype($item) |
|
422
|
0 |
0 |
if ++$OID{&refaddr($item)} > 1 |
|
424
|
0 |
0 |
if ($reftype eq 'ARRAY') { } |
|
|
0 |
0 |
elsif ($reftype eq 'HASH') { } |
|
|
0 |
0 |
elsif ($reftype eq 'CODE') { } |
|
440
|
0 |
0 |
unless $obj->isa('Eval::Safe::ForkedSafe') |
|
445
|
0 |
0 |
if &reftype($sub) ne 'CODE' |
|
456
|
0 |
0 |
if (defined wantarray) { } |
|
459
|
0 |
0 |
wantarray ? : |
|
463
|
0 |
0 |
if $sg != sub_generation() |
|
466
|
0 |
0 |
wantarray ? : |
|
475
|
0 |
0 |
unless $obj->isa('Eval::Safe::ForkedSafe') |
|
484
|
0 |
0 |
wantarray ? : |
|
485
|
0 |
0 |
if $sg != sub_generation() |
|
487
|
0 |
0 |
wantarray ? : |