| line |
true |
false |
branch |
|
21
|
10 |
688 |
caller() eq 'DB' ? :
|
|
23
|
16 |
682 |
unless @caller
|
|
24
|
65 |
617 |
if $name_cache
|
|
25
|
65 |
617 |
$caller[0] eq 'OpenTracing::WrapScope' ? :
|
|
26
|
304 |
378 |
if $name_cache or $height-- != 0
|
|
27
|
181 |
5 |
@_ ? :
|
|
|
186 |
192 |
wantarray ? :
|
|
38
|
2 |
20 |
if ($arg eq '-env') { }
|
|
|
2 |
18 |
elsif ($arg eq '-file') { }
|
|
42
|
0 |
2 |
unless my(undef, $next) = each @_
|
|
43
|
1 |
1 |
ref $next eq 'ARRAY' ? :
|
|
49
|
2 |
0 |
if ($use_env and $ENV{'OPENTRACING_WRAPSCOPE_FILE'})
|
|
63
|
2 |
34 |
unless (defined &$sub)
|
|
101
|
4 |
38 |
if (defined $wantarray) { }
|
|
102
|
2 |
2 |
$wantarray ? :
|
|
109
|
1 |
41 |
unless $ok
|
|
112
|
1 |
41 |
unless $ok
|
|
113
|
37 |
4 |
unless defined wantarray
|
|
114
|
2 |
2 |
wantarray ? :
|
|
120
|
38 |
16 |
if $sub =~ /'|::/
|
|
127
|
0 |
9 |
unless open my $fh_subs, '<', $filename
|
|
132
|
1 |
16 |
unless /'|::/
|