line |
true |
false |
branch |
23
|
0 |
42 |
$_[1] ? : |
37
|
10 |
0 |
if (defined &B::sub_generation) { } |
152
|
5 |
12 |
if (defined $root) { } |
153
|
0 |
5 |
if $root =~ /^main\b/ or not $root =~ /^\w[:\w]*$/ |
165
|
0 |
17 |
if defined $mask |
176
|
17 |
0 |
if $Opcode::VERSION > 1.04 |
183
|
12 |
5 |
if $$obj{'Erase'} |
214
|
12 |
3 |
if ($action and $action eq 'DESTROY') { } |
231
|
0 |
52 |
if @_ |
238
|
2 |
1 |
unless @_ |
284
|
0 |
25 |
unless ref $vars eq 'ARRAY' |
288
|
0 |
25 |
unless keys %{"${pkg}::";} |
293
|
988 |
41 |
if ($var = $arg) =~ s/^(\W)// |
301
|
42 |
0 |
$type eq '*' ? : |
|
2 |
42 |
$type eq '%' ? : |
|
42 |
44 |
$type eq '@' ? : |
|
170 |
86 |
$type eq '$' ? : |
|
1720 |
256 |
$type eq '&' ? : |
|
82 |
1976 |
!$type ? : |
305
|
25 |
0 |
unless $no_record or not $vars |
315
|
25 |
0 |
if @$vars |
351
|
45 |
401 |
if \%{$root . $_;} eq \%$root |
358
|
0 |
42 |
unless $obj->isa('Safe') |
365
|
1 |
41 |
wantarray ? : |
368
|
42 |
0 |
if $sg != sub_generation() |
370
|
1 |
41 |
wantarray ? : |
388
|
46 |
4 |
unless my $reftype = $item && reftype $item |
392
|
0 |
4 |
if ++$OID{refaddr $item} > 1 |
394
|
2 |
2 |
if ($reftype eq 'ARRAY') { } |
|
1 |
1 |
elsif ($reftype eq 'HASH') { } |
|
1 |
0 |
elsif ($reftype eq 'CODE') { } |
410
|
0 |
2 |
unless $obj->isa('Safe') |
415
|
0 |
2 |
if reftype $sub ne 'CODE' |
427
|
0 |
2 |
wantarray ? : |
431
|
2 |
0 |
if $sg != sub_generation() |
433
|
2 |
0 |
if ($error) |
437
|
0 |
0 |
wantarray ? : |
446
|
0 |
1 |
unless $obj->isa('Safe') |
453
|
0 |
1 |
wantarray ? : |
456
|
1 |
0 |
if $sg != sub_generation() |
458
|
0 |
1 |
wantarray ? : |