| line |
true |
false |
branch |
|
112
|
18 |
17 |
if (exists $loaded{$module}) { } |
|
122
|
17 |
0 |
if (&detaint(\$mname, 'filename')) { } |
|
125
|
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' ? : |
|
138
|
1 |
16 |
unless ($rv) |
|
139
|
0 |
1 |
loadModule($mname, '') && eval "${mname}::init();" && eval "\$sref = \\&${mname}::logMsg;" && eval "\$aref = \\&${mname}::addLogger;" && eval "\$dref = \\&${mname}::delLogger;" ? : |
|
152
|
16 |
1 |
if ($rv) { } |
|
189
|
16 |
10 |
if ($scope eq '=') { } |
|
|
7 |
3 |
elsif ($scope eq '+') { } |
|
|
0 |
3 |
elsif ($scope eq '-') { } |
|
201
|
21 |
3 |
if $level != $_ |
|
232
|
1 |
34 |
unless defined $level |
|
233
|
1 |
34 |
unless defined $scope |
|
238
|
1 |
34 |
if $mech eq "PDebug" |
|
241
|
0 |
35 |
unless (defined $name and length $name) |
|
248
|
0 |
35 |
unless (scalar grep({$_ == $level;} @_levels)) |
|
255
|
0 |
35 |
unless (scalar grep({$_ eq $scope;} @_scopes)) |
|
262
|
35 |
0 |
if $rv |
|
265
|
34 |
1 |
if ($rv) |
|
266
|
0 |
34 |
if (exists $loggers{$name}) { } |
|
271
|
16 |
18 |
unless defined $mopts and ref $mopts eq "HASH" |
|
283
|
1 |
32 |
$mech eq 'PDebug' ? : |
|
|
0 |
33 |
$mech eq 'Stdout' ? : |
|
|
1 |
33 |
$mech eq 'Stderr' ? : |
|
284
|
22 |
12 |
if ($rv) { } |
|
307
|
6 |
12 |
if (exists $loggers{$name}) |
|
308
|
5 |
0 |
unless ($loggers{$name}{'mechanism'} eq "Stderr" or $loggers{$name}{'mechanism'} eq "Stdout" or $loggers{$name}{'mechanism'} eq "PDebug") |
|
315
|
6 |
0 |
if ($rv) |
|
347
|
0 |
665 |
unless defined $message and scalar grep({$_ == $level;} @_levels) |
|
349
|
665 |
0 |
if ($rv) { } |
|
358
|
30 |
635 |
if (grep {$loggers{$_}{'mechanism'} eq "PDebug";} keys %loggers) |
|
378
|
10 |
20 |
if scalar @margs |
|
383
|
653 |
12 |
if (defined $dist[$level]) |
|
387
|
30 |
647 |
if $loggers{$logger}{'mechanism'} eq "PDebug" |
|
389
|
1 |
646 |
if ($loggers{$logger}{'mechanism'} eq 'Stderr') { } |
|
|
0 |
646 |
elsif ($loggers{$logger}{'mechanism'} eq 'Stdout') { } |
|
406
|
646 |
0 |
defined $sref ? : |
|
442
|
0 |
0 |
unless $level > -1 |
|
445
|
0 |
0 |
if $level > $max |
|
449
|
0 |
0 |
$_ < 3 ? : |
|
453
|
0 |
0 |
if ($level) |