| line |
true |
false |
branch |
|
22
|
10 |
783 |
caller() eq 'DB' ? :
|
|
24
|
18 |
775 |
unless @caller
|
|
25
|
108 |
667 |
if $name_cache
|
|
26
|
108 |
667 |
$caller[0] eq 'OpenTracing::WrapScope' ? :
|
|
27
|
361 |
414 |
if $name_cache or $height-- != 0
|
|
28
|
195 |
5 |
@_ ? :
|
|
|
200 |
214 |
wantarray ? :
|
|
42
|
2 |
23 |
if ($arg eq '-env') { }
|
|
|
2 |
21 |
elsif ($arg eq '-file') { }
|
|
46
|
0 |
2 |
unless my(undef, $next) = each @_
|
|
47
|
1 |
1 |
ref $next eq 'ARRAY' ? :
|
|
53
|
2 |
0 |
if ($use_env and $ENV{'OPENTRACING_WRAPSCOPE_FILE'})
|
|
73
|
8 |
3 |
unless %{$stashes{$stash};}
|
|
80
|
1181 |
18 |
unless exists $stashes{$new_stash}
|
|
83
|
7 |
11 |
unless my $stash = $stashes{$new_stash}
|
|
86
|
10 |
1 |
if not %$stash
|
|
90
|
0 |
18 |
if not %stashes
|
|
99
|
0 |
22 |
unless $stash
|
|
102
|
4 |
35 |
unless defined &$sub
|
|
113
|
2 |
38 |
unless (defined &$sub)
|
|
151
|
4 |
42 |
if (defined $wantarray) { }
|
|
152
|
2 |
2 |
$wantarray ? :
|
|
160
|
1 |
45 |
unless $ok
|
|
163
|
1 |
45 |
unless $ok
|
|
164
|
41 |
4 |
unless defined wantarray
|
|
165
|
2 |
2 |
wantarray ? :
|
|
171
|
45 |
16 |
if $sub =~ /'|::/
|
|
178
|
0 |
10 |
unless open my $fh_subs, '<', $filename
|
|
182
|
1 |
18 |
if /^\s*#/
|
|
185
|
1 |
17 |
unless /'|::/
|
|
201
|
15 |
0 |
unless %$stash_set
|