| line |
true |
false |
branch |
|
114
|
0 |
0 |
unless ref $@ |
|
140
|
0 |
1 |
$dbgpkg{caller()} ? : |
|
182
|
0 |
1 |
if (ref $class) { } |
|
185
|
0 |
0 |
if $$$self{'tmppkg'} |
|
186
|
0 |
0 |
if $$$self{'implicit_safe'} |
|
223
|
0 |
1 |
unless ref $self |
|
421
|
0 |
15 |
unless ref $self |
|
425
|
0 |
14 |
if (ref $_ eq 'ARRAY') { } |
|
|
3 |
11 |
elsif (ref $_ eq 'HASH') { } |
|
|
2 |
9 |
elsif (ref $_ eq 'SCALAR') { } |
|
|
3 |
6 |
elsif (ref $_ eq 'GLOB' or ref \$_ eq 'GLOB') { } |
|
|
0 |
6 |
elsif (ref $_ and $_->isa('Safe::Hole')) { } |
|
|
0 |
6 |
elsif (ref $_ and $_->isa('Safe')) { } |
|
429
|
1 |
1 |
if (not $seenmap++ and $$map and @$$map) |
|
446
|
0 |
0 |
unless defined $$$self{'trap'} |
|
452
|
4 |
11 |
unless defined wantarray |
|
463
|
2 |
9 |
if ($$$self{'implicit_safe'} and not $safe) |
|
470
|
11 |
0 |
if (defined $string and not $code or $pos) |
|
471
|
7 |
4 |
unless $pos |
|
475
|
4 |
7 |
if $pos |
|
479
|
0 |
11 |
if ($pkg and $pkg eq 'Safe') |
|
484
|
3 |
8 |
if $safe |
|
486
|
3 |
0 |
%_ ? : |
|
|
3 |
8 |
if $safe and not $$$self{'unsafe_underscore'} |
|
496
|
0 |
11 |
if ($$$self{'lexicals'}) |
|
504
|
0 |
0 |
unless $k =~ s/^([\@%\$])// |
|
506
|
0 |
0 |
if ref $v eq 'GLOB' |
|
516
|
4 |
27 |
if (ref $v eq 'HASH') { } |
|
|
9 |
18 |
elsif (ref $v eq 'CODE') { } |
|
|
4 |
14 |
elsif (ref $v eq 'ARRAY') { } |
|
|
4 |
10 |
elsif (ref $v eq 'SCALAR') { } |
|
517
|
1 |
3 |
if ($safe_symbols) { } |
|
524
|
3 |
6 |
if (defined $p and not $p) { } |
|
|
0 |
6 |
elsif ($p and $p ne '$') { } |
|
549
|
1 |
3 |
if ($safe_symbols) { } |
|
564
|
1 |
3 |
if ($safe_symbols) { } |
|
577
|
3 |
7 |
if ($safe_symbols) { } |
|
588
|
10 |
1 |
unless ($code) |
|
589
|
0 |
10 |
unless (defined $string) |
|
595
|
3 |
7 |
if ($safe) { } |
|
613
|
0 |
10 |
if ($@) |
|
614
|
0 |
0 |
if $$$self{'trap'} |
|
622
|
3 |
8 |
if ($safe) { } |
|
627
|
0 |
3 |
if ($@) |
|
628
|
0 |
0 |
if $$$self{'trap'} |
|
632
|
0 |
8 |
$$$self{'trap'} ? : |
|
638
|
0 |
11 |
if $$$self{'lexicals'} |
|
701
|
0 |
0 |
unless ref $self |
|
703
|
0 |
0 |
defined $trap ? : |
|
724
|
0 |
6 |
unless ref $self |
|
726
|
5 |
1 |
defined $unsafe_underscore ? : |
|
748
|
0 |
6 |
unless ref $self |
|
750
|
5 |
1 |
defined $unsafe_symbols ? : |
|
784
|
0 |
0 |
unless ref $self |
|
786
|
0 |
0 |
defined $lexicals ? : |
|
|
0 |
0 |
if ($$$self{'lexicals'} = defined $lexicals ? $lexicals : 1) |
|
818
|
0 |
4 |
unless ref $self |
|
820
|
1 |
3 |
if ref $pkg eq 'GLOB' |
|
821
|
0 |
4 |
unless ($pkg) = $pkg =~ /^\*?(?:main::(?!$))*(.*?)(?:::)?$/ |
|
862
|
0 |
0 |
unless ref $self |
|
864
|
0 |
0 |
unless (UNIVERSAL::isa($safe_hole, 'Safe::Hole')) |
|
865
|
0 |
0 |
if ($safe_hole or not defined $safe_hole) { } |
|
866
|
0 |
0 |
unless (eval {
do {
require Safe::Hole;
1
}
}) |
|
870
|
0 |
0 |
$Safe::Hole::VERSION > 0.09 ? : |
|
916
|
0 |
6 |
unless ref $self |
|
920
|
6 |
0 |
if ($method) { } |
|
923
|
2 |
4 |
if (defined $un and not $un) |
|
943
|
2 |
5 |
if $$$self{'implicit_safe'} |
|
944
|
0 |
7 |
if ($$$self{'tmppkg'}) |
|
970
|
0 |
4 |
unless $$$self{'map'} |
|
1010
|
0 |
6 |
unless my $action = $$actions{shift()} |
|
1015
|
6 |
0 |
unless $String::Interpolate::safe_hole |