| line |
true |
false |
branch |
|
32
|
0 |
0 |
if (ref $_ eq 'CODE') { } |
|
|
0 |
0 |
elsif (/[=\*]/ or /^\d/ or /::/) { } |
|
41
|
0 |
986 |
if @level |
|
42
|
0 |
986 |
if @export |
|
43
|
986 |
0 |
if not @export || @level |
|
60
|
0 |
0 |
if (@_) { } |
|
61
|
0 |
0 |
@_ > 1 ? : |
|
63
|
0 |
0 |
if (/^\d+$/) { } |
|
|
0 |
0 |
elsif (/^([\w:]+)(\*)?(?:=(\d+))?$/) { } |
|
67
|
0 |
0 |
defined $3 ? : |
|
71
|
0 |
0 |
if $name =~ /^SIP\b/ |
|
72
|
0 |
0 |
unless $name =~ /^Net::SIP\b/ |
|
75
|
0 |
0 |
if $below |
|
83
|
0 |
0 |
unless $DEBUG |
|
84
|
0 |
0 |
if (%level4package) |
|
90
|
0 |
0 |
if not $pkg or $pkg ne 'Net::SIP::Debug' |
|
92
|
0 |
0 |
unless $pkg |
|
96
|
0 |
0 |
if defined $l |
|
101
|
0 |
0 |
if defined($l = $level4package{$pkg}) |
|
130
|
40732 |
0 |
unless $DEBUG |
|
133
|
0 |
0 |
if (@_ > 1 and &looks_like_number($_[0])) |
|
135
|
0 |
0 |
if $when > $level |
|
139
|
0 |
0 |
unless defined $msg |
|
144
|
0 |
0 |
if $sub |
|
149
|
0 |
0 |
if (@arg) |
|
156
|
0 |
0 |
if $debug_sub |
|
162
|
0 |
0 |
if defined wantarray |
|
175
|
53 |
0 |
unless $DEBUG |
|
178
|
0 |
0 |
if (@_ > 1 and &looks_like_number($_[0])) |
|
180
|
0 |
0 |
if $when > $level |
|
182
|
0 |
0 |
@_ > 1 ? : |
|
183
|
0 |
0 |
if defined $when |
|
219
|
0 |
0 |
if ($class =~ /^$leak_pkg/) |
|
226
|
0 |
0 |
unless ($class eq 'HASH' or $class eq 'ARRAY' or $class eq 'SCALAR') |
|
229
|
0 |
0 |
unless (UNIVERSAL::can($leak_pkg, 'DESTROY')) |
|
238
|
0 |
0 |
if $@ |