| 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'}) |