line |
true |
false |
branch |
17
|
0 |
1 |
if @_ == 1 |
22
|
0 |
3 |
if ($_[$i] eq 'var') { } |
|
0 |
3 |
elsif ($_[$i] eq 'sub') { } |
|
0 |
3 |
elsif ($_[$i] eq 'output') { } |
|
0 |
3 |
elsif ($_[$i] =~ /^(?:debug)?(\d+)$/) { } |
43
|
1 |
0 |
if @_ > 1 |
48
|
0 |
0 |
unless $DEBUG |
50
|
0 |
0 |
if @_ |
51
|
0 |
0 |
if ($DEBUG_SUB) |
55
|
0 |
0 |
unless $DEBUG_RX |
59
|
0 |
0 |
if ($DEBUG_RX) |
62
|
0 |
0 |
unless $pkg =~ /$DEBUG_RX/ |
64
|
0 |
0 |
if $DEBUG_SUB |
68
|
0 |
0 |
if $sub |
77
|
0 |
0 |
$4 ? : |
|
0 |
0 |
$3 ? : |
|
0 |
0 |
$2 ? : |
|
0 |
0 |
$1 ? : |
85
|
0 |
0 |
if ($OUTPUT_SUB) { } |
94
|
0 |
0 |
unless $DEBUG |
103
|
0 |
0 |
unless %TRACE |
106
|
0 |
0 |
unless $TRACE{$pkg} or $TRACE{'*'} |
109
|
0 |
0 |
if @_ |
111
|
0 |
0 |
if ($OUTPUT_SUB) { } |
121
|
0 |
0 |
unless %TRACE |