| line |
true |
false |
branch |
|
29
|
5 |
31 |
if (ref $args[1] eq 'HASH') |
|
41
|
0 |
0 |
ref $_[0] ? : |
|
43
|
0 |
0 |
if @_ == 1 |
|
52
|
2 |
1 |
ref $_[0] ? : |
|
61
|
2 |
3 |
ref $_[0] ? : |
|
68
|
3 |
2 |
unless $caller[0] |
|
73
|
2 |
3 |
if @DB::args and "$DB::args[0]" eq "$params" |
|
87
|
0 |
37 |
unless defined $target |
|
89
|
4 |
33 |
if ($$params{'Deep'}) |
|
93
|
2 |
35 |
if ($$params{'AutoImport'}) |
|
120
|
24 |
13 |
unless defined $$params{'Verbose'} |
|
121
|
4 |
33 |
if ($$params{'Verbose'} == 1) { } |
|
|
4 |
29 |
elsif ($$params{'Verbose'} == 2) { } |
|
129
|
37 |
0 |
$import_targets{$target . $suffix} ? : |
|
134
|
194 |
38 |
defined $$params{'Match'} ? : |
|
135
|
191 |
41 |
unless $export_to =~ /$match/ |
|
137
|
0 |
41 |
if (my $excl = $$params{'Exclude'}) |
|
138
|
0 |
0 |
ref $excl eq 'ARRAY' ? : |
|
141
|
0 |
41 |
if $exclude{$export_to} |
|
146
|
41 |
0 |
if ($target and $import_targets{$target}) { } |
|
155
|
0 |
0 |
if $target |
|
164
|
3 |
38 |
if ($$params{'AllSubs'}) |
|
176
|
170 |
0 |
if (defined \&{"${package}::$sub";}) |
|
196
|
29 |
33 |
if $_[0] and ref $_[0] eq 'HASH' |
|
197
|
14 |
48 |
unless _evaluate_level($package, $trace_level, $level) |
|
200
|
0 |
62 |
if ($@) |
|
221
|
1 |
2 |
if defined $context |
|
224
|
0 |
2 |
if ($_[0] and ref $_[0] eq 'HASH' and defined $_[0]{'Level'}) |
|
228
|
0 |
2 |
unless _evaluate_level($package, $trace_level, $level) |
|
232
|
0 |
3 |
if ($@) |
|
250
|
4 |
766 |
if $module eq 'Log::Trace' |
|
251
|
571 |
195 |
unless $all_packages or defined &{"${module}::TRACE";} |
|
262
|
1 |
2 |
if $_autowrap{$package} |
|
263
|
2 |
0 |
unless defined $_autowrap{$package} |
|
270
|
8 |
8 |
if $typeglob =~ /^(?:TRACE(?:F|_HERE)?|DUMP|AUTOLOAD)$/ |
|
274
|
2 |
6 |
unless defined $sub and defined &$sub |
|
277
|
0 |
6 |
if $_autowrap{$package}{$typeglob}++ |
|
290
|
0 |
6 |
if (defined(my $proto = prototype $sub)) { } |
|
296
|
0 |
0 |
$_[0] && ref $_[0] ? : |
|
|
0 |
1 |
$_[0] && ref $_[0] ? : |
|
|
0 |
1 |
$_[0] && ref $_[0] ? : |
|
|
0 |
0 |
$_[0] && ref $_[0] ? : |
|
|
0 |
1 |
$_[0] && ref $_[0] ? : |
|
|
0 |
1 |
$_[0] && ref $_[0] ? : |
|
308
|
4 |
770 |
unless defined $package |
|
322
|
13348 |
778 |
unless $module =~ s/::$// |
|
324
|
8 |
254 |
if not $package and $module eq 'main' || !($module =~ /^[a-zA-Z_]\w*$/) |
|
326
|
516 |
254 |
$package ? : |
|
355
|
2 |
1 |
if $INC{$what} |
|
359
|
0 |
1 |
if ($what =~ /^v?[\d_.]+$/) { } |
|
|
1 |
0 |
elsif ($what =~ /(.*)\.pm$/) { } |
|
|
0 |
0 |
elsif ($what =~ /^[a-zA-Z_]\w*(?:::\w+)*$/i) { } |
|
364
|
0 |
0 |
if (my $error = $@) |
|
380
|
1 |
0 |
if ($rv and $package) |
|
384
|
0 |
1 |
unless $$params{'Everywhere'} or defined &{"${package}::TRACE";} |
|
403
|
13 |
52 |
unless defined $c[0] |
|
405
|
0 |
52 |
unless $caller[0] eq 'Log::Trace' or $caller[3] =~ /^@{['Log::Trace'];}\::/o |
|
410
|
0 |
13 |
if $caller[0] eq 'Log::Trace' |
|
423
|
37 |
27 |
unless defined $imported_level |
|
425
|
2 |
25 |
if (ref $imported_level eq 'CODE') { } |
|
|
7 |
18 |
elsif (ref $imported_level eq 'ARRAY') { } |
|
|
18 |
0 |
elsif (not ref $imported_level) { } |
|
433
|
1 |
2 |
unless defined $_ or defined $trace_level |
|
434
|
6 |
12 |
unless defined $trace_level and defined $_ |
|
435
|
3 |
9 |
if $_ == $trace_level |
|
440
|
1 |
17 |
unless defined $trace_level |
|
466
|
1 |
6 |
unless $fh |
|
476
|
5 |
0 |
if (open LOG_FILE, ">> $filename") { } |
|
478
|
5 |
0 |
if (eval {
do {
flock LOG_FILE, 6
}
}) { } |
|
499
|
0 |
0 |
unless eval {
do {
require Sys::Syslog
}
} |
|
510
|
1 |
2 |
ref $args[0] ? : |
|
511
|
2 |
1 |
if $msg and @args |
|
516
|
0 |
3 |
if ($$params{'Dumper'}) { } |
|
520
|
0 |
0 |
ref $$params{'Dumper'} ? : |
|
543
|
0 |
3 |
if $@ |
|
549
|
4 |
0 |
if $INC{'Time/HiRes.pm'} |
|
561
|
4 |
0 |
if defined $usec |