| line |
true |
false |
branch |
|
17
|
0 |
0 |
unless @_ <= 3 |
|
|
0 |
0 |
unless @_ >= 3 |
|
19
|
0 |
0 |
if $caller ne $skip_ns |
|
23
|
0 |
2168 |
unless @_ >= 1 |
|
|
0 |
2168 |
unless @_ & 1 |
|
29
|
0 |
9 |
unless @_ >= 1 |
|
|
0 |
9 |
unless @_ & 1 |
|
35
|
0 |
10 |
unless $hash{$name} |
|
45
|
0 |
2807 |
unless @_ <= 1 |
|
|
0 |
2807 |
unless @_ >= 1 |
|
52
|
0 |
3903 |
unless @_ <= 2 |
|
|
0 |
3903 |
unless @_ >= 2 |
|
58
|
0 |
62 |
unless @_ <= 1 |
|
|
0 |
62 |
unless @_ >= 1 |
|
75
|
0 |
1979 |
if @_ & 1 |
|
96
|
0 |
140 |
unless @_ <= 1 |
|
|
0 |
140 |
unless @_ >= 1 |
|
102
|
0 |
2698 |
unless @_ <= 2 |
|
|
0 |
2698 |
unless @_ >= 2 |
|
104
|
918 |
1780 |
if $pkg =~ /$RX_PKG/ |
|
106
|
1529 |
251 |
if $pkg =~ /^\-($RX_PKG_NOT_FIRST)$/ |
|
109
|
140 |
111 |
if ($pkg =~ m[^/(.*)$]) |
|
111
|
1 |
139 |
unless my $parent = _parent($caller) |
|
114
|
139 |
0 |
if "$parent$rest" =~ /^$RX_PKG$/ |
|
117
|
107 |
4 |
if $pkg =~ /^::($RX_PKG_NOT_FIRST)$/ |
|
123
|
0 |
3 |
unless @_ <= 2 |
|
|
0 |
3 |
unless @_ >= 2 |
|
125
|
2 |
1 |
if not grep({$_ eq $me;} @{"${caller}::CARP_NOT";}) |