| line | % | coverage | branch |
|---|
| 192 | 100 | T | F | if (scalar @_ == 1 and ref $_[0] ne 'HASH') { } |
| 100 | T | F | elsif (my $params = Params::Get::get_params(undef, @_)) { } |
| 199 | 100 | T | F | if (exists $args{'config_file'}) |
| 201 | 100 | T | F | unless (-r $args{"config_file"}) |
| 204 | 50 | T | F | if (my $config = 'Config::Abstraction'->new('config_dirs', [''], 'config_file', $args{'config_file'}, 'env_prefix', "${class}::")) { } |
| 206 | 100 | T | F | if ($$config{$class}) |
| 211 | 50 | T | F | if ($array) |
| 219 | 100 | T | F | if (not defined $class) { } |
| 100 | T | F | elsif (&Scalar::Util::blessed($class)) { } |
| 220 | 50 | T | F | if (scalar keys %args > 0) |
| 235 | 100 | T | F | if ($args{"syslog"} and not $args{"script_name"}) |
| 236 | 50 | T | F | unless "File::Basename"->can("basename") |
| 241 | 50 | T | F | unless defined $args{"script_name"} |
| 245 | 100 | T | F | if (defined(my $logger = $args{'logger'})) { } |
| 50 | T | F | elsif (not $args{'file'} || $args{'array'}) { } |
| 246 | 50 | T | F | if (&Scalar::Util::blessed($logger) and ref $logger eq __PACKAGE__) |
| 255 | 50 | T | F | $args{'verbose'} ? : |
| 259 | 100 | T | F | if ($level) { } |
| 260 | 50 | T | F | if (ref $level eq "ARRAY") |
| 264 | 50 | T | F | unless (defined $Log::Abstraction::syslog_values{$level}) |
| 328 | 0 | T | F | unless defined $value |
| 341 | 100 | T | F | unless (UNIVERSAL::isa((&CORE::GLOBAL::caller())[0], __PACKAGE__)) |
| 345 | 50 | T | F | unless (defined $Log::Abstraction::syslog_values{$level}) |
| 349 | 100 | T | F | if ($Log::Abstraction::syslog_values{$level} > $$self{"level"}) |
| 354 | 50 | T | F | if (scalar @messages == 1 and ref $messages[0] eq "ARRAY") |
| 367 | 100 | T | F | if ($class eq __PACKAGE__) |
| 373 | 50 | T | F | if (my $logger = $$self{'logger'}) { } |
| 0 | T | F | elsif ($$self{'array'}) { } |
| 374 | 100 | T | F | if (ref $logger eq 'CODE') { } |
| 100 | T | F | elsif (ref $logger eq 'ARRAY') { } |
| 100 | T | F | elsif (ref $logger eq 'HASH') { } |
| 100 | T | F | elsif (not ref $logger) { } |
| 50 | T | F | elsif (&Scalar::Util::blessed($logger)) { } |
| 388 | 100 | T | F | if (my $file = $$logger{"file"}) |
| 390 | 50 | T | F | if ($file =~ /^([^<>|*?;!`$"\0-\037]+)$/) { } |
| 395 | 50 | T | F | if (open my $fout, ">>", $$logger{"file"}) |
| 406 | 50 | T | F | unless print $fout "$format\n" |
| 410 | 50 | T | F | if (my $array = $$logger{"array"}) |
| 413 | 50 | T | F | if ($$logger{"sendmail"}{"to"}) |
| 416 | 0 | T | F | if (not defined $$logger{"sendmail"}{"level"} or $Log::Abstraction::syslog_values{$level} <= $Log::Abstraction::syslog_values{$$logger{"sendmail"}{"level"}}) |
| 429 | 0 | T | F | if (my $from = $$logger{'sendmail'}{'from'}) { } |
| 434 | 0 | T | F | if (my $subject = $$logger{"sendmail"}{"subject"}) |
| 448 | 0 | T | F | if ($@) |
| 454 | 100 | T | F | if (my $syslog = $$logger{"syslog"}) |
| 455 | 50 | T | F | if (not defined $$syslog{"level"} or $Log::Abstraction::syslog_values{$level} <= $$syslog{"level"}) |
| 456 | 50 | T | F | unless ($$self{"_syslog_opened"}) |
| 461 | 50 | T | F | if ($$syslog{"server"}) |
| 464 | 50 | T | F | if scalar keys %{$syslog;} |
| 474 | 50 | T | F | $level eq 'error' ? : |
| 478 | 50 | T | F | if ($@) |
| 486 | 50 | T | F | if (my $fout = $$logger{'fd'}) { } |
| 50 | T | F | elsif (not $$logger{'file'} || $$logger{'syslog'} || $$logger{'sendmail'}) { } |
| 498 | 0 | T | F | unless print $fout "$format\n" |
| 504 | 50 | T | F | if (open my $fout, ">>", $logger) |
| 516 | 50 | T | F | unless print $fout "$format\n" |
| 521 | 50 | T | F | unless ($logger->can($level)) |
| 522 | 0 | T | F | if ($level eq 'notice' and $logger->can('info')) { } |
| 537 | 50 | T | F | if ($$self{"file"}) |
| 542 | 0 | T | F | if ($file =~ /^([^<>|*?;!`$"\0-\037]+)$/) { } |
| 548 | 0 | T | F | if (open my $fout, ">>", $file) |
| 553 | 0 | T | F | if (&blessed($self) eq __PACKAGE__) { } |
| 566 | 0 | T | F | unless print $fout "$format\n" |
| 570 | 100 | T | F | if (my $fout = $$self{"fd"}) |
| 575 | 50 | T | F | if (&blessed($self) eq __PACKAGE__) { } |
| 588 | 50 | T | F | unless print $fout "$format\n" |
| 603 | 50 | T | F | if ($level) |
| 604 | 50 | T | F | unless (defined $Log::Abstraction::syslog_values{$level}) |
| 624 | 100 | T | F | $$self{'level'} && $$self{'level'} >= $Log::Abstraction::DEBUG ? : |
| 739 | 50 | T | F | unless $params and ref $params eq "HASH" |
| 742 | 50 | T | F | if $Log::Abstraction::syslog_values{$level} > $Log::Abstraction::WARNING |
| 745 | 100 | T | F | unless (defined $warning) |
| 746 | 50 | T | F | if (scalar @_ and not ref $_[0]) { } |
| 753 | 100 | T | F | if (ref $warning eq "ARRAY") |
| 758 | 50 | T | F | if ($self eq __PACKAGE__) |
| 760 | 0 | T | F | if ($Log::Abstraction::syslog_values{$level} <= $Log::Abstraction::ERROR) |
| 770 | 50 | T | F | if ($Log::Abstraction::syslog_values{$level} <= $Log::Abstraction::ERROR) |
| 772 | 0 | T | F | if ($$self{"croak_on_error"} or not defined $$self{"logger"}) |
| 777 | 50 | T | F | if ($$self{"carp_on_warn"} or not defined $$self{"logger"}) |
| 787 | 100 | T | F | if ($$self{"_syslog_opened"}) |