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