| line |
true |
false |
branch |
|
113
|
18 |
17 |
if (exists $loaded{$module}) { } |
|
123
|
17 |
0 |
if (&detaint(\$mname, 'filename')) { } |
|
126
|
14 |
1 |
loadModule("Paranoid::Log::$mname", '') && eval "Paranoid::Log::${mname}::init();" && eval "\$sref = \\&Paranoid::Log::${mname}::logMsg;" && eval "\$aref = \\&Paranoid::Log::${mname}::addLogger;" && eval "\$dref = \\&Paranoid::Log::${mname}::delLogger;" ? : |
|
|
1 |
15 |
$mname eq 'PDebug' ? : |
|
|
0 |
16 |
$mname eq 'Stdout' ? : |
|
|
1 |
16 |
$mname eq 'Stderr' ? : |
|
139
|
1 |
16 |
unless ($rv) |
|
140
|
0 |
1 |
loadModule($mname, '') && eval "${mname}::init();" && eval "\$sref = \\&${mname}::logMsg;" && eval "\$aref = \\&${mname}::addLogger;" && eval "\$dref = \\&${mname}::delLogger;" ? : |
|
153
|
16 |
1 |
if ($rv) { } |
|
191
|
16 |
10 |
if ($scope eq '=') { } |
|
|
7 |
3 |
elsif ($scope eq '+') { } |
|
|
0 |
3 |
elsif ($scope eq '-') { } |
|
203
|
21 |
3 |
if $level != $_ |
|
235
|
1 |
34 |
unless defined $level |
|
236
|
1 |
34 |
unless defined $scope |
|
241
|
1 |
34 |
if $mech eq "PDebug" |
|
244
|
0 |
35 |
unless (defined $name and length $name) |
|
251
|
0 |
35 |
unless (scalar grep({$_ == $level;} @_levels)) |
|
258
|
0 |
35 |
unless (scalar grep({$_ eq $scope;} @_scopes)) |
|
265
|
35 |
0 |
if $rv |
|
268
|
34 |
1 |
if ($rv) |
|
269
|
0 |
34 |
if (exists $loggers{$name}) { } |
|
274
|
16 |
18 |
unless defined $mopts and ref $mopts eq "HASH" |
|
286
|
1 |
32 |
$mech eq 'PDebug' ? : |
|
|
0 |
33 |
$mech eq 'Stdout' ? : |
|
|
1 |
33 |
$mech eq 'Stderr' ? : |
|
287
|
22 |
12 |
if ($rv) { } |
|
311
|
6 |
12 |
if (exists $loggers{$name}) |
|
312
|
5 |
0 |
unless ($loggers{$name}{'mechanism'} eq "Stderr" or $loggers{$name}{'mechanism'} eq "Stdout" or $loggers{$name}{'mechanism'} eq "PDebug") |
|
319
|
6 |
0 |
if ($rv) |
|
352
|
0 |
665 |
unless defined $message and scalar grep({$_ == $level;} @_levels) |
|
354
|
665 |
0 |
if ($rv) { } |
|
363
|
30 |
635 |
if (grep {$loggers{$_}{'mechanism'} eq "PDebug";} keys %loggers) |
|
383
|
10 |
20 |
if scalar @margs |
|
388
|
653 |
12 |
if (defined $dist[$level]) |
|
392
|
30 |
647 |
if $loggers{$logger}{'mechanism'} eq "PDebug" |
|
394
|
1 |
646 |
if ($loggers{$logger}{'mechanism'} eq 'Stderr') { } |
|
|
0 |
646 |
elsif ($loggers{$logger}{'mechanism'} eq 'Stdout') { } |
|
411
|
646 |
0 |
defined $sref ? : |
|
449
|
0 |
0 |
unless $level > -1 |
|
452
|
0 |
0 |
if $level > $max |
|
456
|
0 |
0 |
$_ < 3 ? : |
|
460
|
0 |
0 |
if ($level) |