| line | % | coverage | branch |
|---|
| 385 | 100 | T | F | if (scalar @_ == 1 and ref $_[0] ne 'HASH') { } |
| 100 | T | F | elsif (my $params = Params::Get::get_params(undef, \@_)) { } |
| 392 | 100 | T | F | if (exists $args{'config_file'}) |
| 393 | 100 | T | F | unless (-r $args{'config_file'}) |
| 396 | 50 | T | F | if (my $config = 'Config::Abstraction'->new('config_dirs', [''], 'config_file', $args{'config_file'}, 'env_prefix', "${class}::")) { } |
| 403 | 100 | T | F | if ($config->{$class}) |
| 409 | 100 | T | F | if ($array) |
| 418 | 100 | T | F | if (not defined $class) { } |
| 100 | T | F | elsif (&Scalar::Util::blessed($class)) { } |
| 423 | 100 | T | F | if (my $level = $args{'level'}) |
| 425 | 100 | T | F | unless (defined $Log::Abstraction::syslog_values{$level}) |
| 436 | 100 | T | F | if ($args{'syslog'} and not $args{'script_name'}) |
| 440 | 50 | T | F | unless defined $args{'script_name'} |
| 444 | 100 | T | F | if (defined(my $logger = $args{'logger'})) { } |
| 100 | T | F | elsif (not $args{'file'} || $args{'array'}) { } |
| 445 | 100 | T | F | if (&Scalar::Util::blessed($logger) and ref $logger eq __PACKAGE__) |
| 457 | 100 | T | F | $args{'verbose'} ? : |
| 464 | 100 | T | F | if ($level) { } |
| 465 | 100 | T | F | if (ref $level eq "ARRAY") |
| 469 | 100 | T | F | unless (defined $Log::Abstraction::syslog_values{$level}) |
| 497 | 0 | T | F | unless defined $value |
| 525 | 50 | T | F | if ($path =~ /$RE_SAFE_PATH/ and not $path =~ /$RE_DOTDOT/) |
| 556 | 0 | T | F | defined $fields{$key} ? : |
| 557 | 0 | T | F | if ($value =~ /[\n\0]/) { } |
| 628 | 50 | T | F | if (defined $format and $format eq "json") |
| 631 | 0 | T | F | $bclass && $bclass ne __PACKAGE__ ? : |
| 639 | 0 | T | F | if defined $class |
| 644 | 50 | T | F | $use_class ? : |
| 651 | 50 | T | F | $bclass && $bclass ne __PACKAGE__ ? : |
| 748 | 50 | T | F | unless ((&CORE::GLOBAL::caller())[0]->isa(__PACKAGE__)) |
| 753 | 50 | T | F | unless (defined $Log::Abstraction::syslog_values{$level}) |
| 758 | 100 | T | F | if ($Log::Abstraction::syslog_values{$level} > $self->{'level'}) |
| 763 | 100 | T | F | if (scalar @messages == 1 and ref $messages[0] eq "ARRAY") |
| 777 | 50 | T | F | if ($class eq __PACKAGE__) |
| 784 | 100 | T | F | ((&CORE::GLOBAL::caller(1))[3] // '') =~ /::_high_priority$/ ? : |
| 791 | 100 | T | F | if (my $logger = $self->{'logger'}) { } |
| 100 | T | F | elsif ($self->{'array'}) { } |
| 792 | 100 | T | F | if (ref $logger eq 'CODE') { } |
| 50 | T | F | elsif (ref $logger eq 'ARRAY') { } |
| 0 | T | F | elsif (ref $logger eq 'HASH') { } |
| 0 | T | F | elsif (not ref $logger) { } |
| 0 | T | F | elsif (&Scalar::Util::blessed($logger)) { } |
| 801 | 100 | T | F | if (my $ctx = $self->{'ctx'}) |
| 812 | 0 | T | F | if (my $raw_file = $logger->{'file'}) |
| 814 | 0 | T | F | $class ne '' ? : |
| 825 | 0 | T | F | if (my $array = $logger->{'array'}) |
| 830 | 0 | T | F | if (exists $logger->{'sendmail'} and exists $logger->{'sendmail'}{'to'}) |
| 834 | 0 | T | F | if (not defined $sm->{'level'} or $Log::Abstraction::syslog_values{$level} <= $Log::Abstraction::syslog_values{$sm->{'level'}}) |
| 839 | 0 | T | F | if (my $interval = $sm->{'min_interval'}) |
| 845 | 0 | T | F | unless ($throttled) |
| 848 | 0 | T | F | if $host =~ /$RE_SAFE_HOST/ |
| 851 | 0 | T | F | unless $port =~ /$RE_PORT/ and $port >= $MIN_PORT and $port <= $MAX_PORT |
| 877 | 0 | T | F | if (my $subject = $sm->{'subject'}) |
| 892 | 0 | T | F | if ($@) |
| 904 | 0 | T | F | if (my $syslog = $logger->{'syslog'}) |
| 905 | 0 | T | F | if (not defined $syslog->{'level'} or $Log::Abstraction::syslog_values{$level} <= $syslog->{'level'}) |
| 909 | 0 | T | F | unless ($self->{'_syslog_opened'}) |
| 914 | 0 | T | F | if ($syslog->{'server'}) |
| 917 | 0 | T | F | if scalar keys %{$syslog;} |
| 931 | 0 | T | F | if ($@) |
| 940 | 0 | T | F | if (my $jd = $logger->{'journald'}) |
| 960 | 0 | T | F | if lc($key) =~ /^(?:socket|identifier)$/ |
| 966 | 0 | T | F | if $@ |
| 970 | 0 | T | F | if (my $fout = $logger->{'fd'}) { } |
| 0 | T | F | elsif (not $logger->{'file'} || $logger->{'array'} || $logger->{'syslog'} || exists $logger->{'sendmail'} || $logger->{'fd'} || $logger->{'journald'}) { } |
| 971 | 0 | T | F | $class ne '' ? : |
| 985 | 0 | T | F | $class ne '' ? : |
| 996 | 0 | T | F | unless ($logger->can($level)) |
| 997 | 0 | T | F | if ($level eq 'notice' and $logger->can('info')) { } |
| 1022 | 100 | T | F | if ($self->{'file'}) |
| 1024 | 50 | T | F | $class ne '' ? : |
| 1034 | 50 | T | F | if (my $fout = $self->{'fd'}) |
| 1035 | 0 | T | F | $class ne '' ? : |
| 1089 | 50 | T | F | if scalar @_ == 0 |
| 1092 | 50 | T | F | if $Log::Abstraction::syslog_values{$level} > $Log::Abstraction::WARNING |
| 1100 | 50 | T | F | if ($params and ref $params eq 'HASH' and exists $params->{'warning'}) { } |
| 1103 | 50 | T | F | unless defined $warning |
| 1104 | 100 | T | F | if (ref $warning eq "ARRAY") |
| 1111 | 0 | T | F | unless length $warning |
| 1115 | 50 | T | F | if ($self eq __PACKAGE__) |
| 1116 | 0 | T | F | if ($Log::Abstraction::syslog_values{$level} <= $Log::Abstraction::ERROR) |
| 1127 | 100 | T | F | if ($Log::Abstraction::syslog_values{$level} <= $Log::Abstraction::ERROR) |
| 1128 | 100 | T | F | if ($self->{'croak_on_error'} or not defined $self->{'logger'} || defined $self->{'array'}) |
| 1135 | 100 | T | F | if ($self->{'carp_on_warn'} or not defined $self->{'logger'} || defined $self->{'array'}) |
| 1218 | 100 | T | F | if ($level) |
| 1220 | 100 | T | F | unless (defined $Log::Abstraction::syslog_values{$level}) |
| 1274 | 100 | T | F | $self->{'level'} && $self->{'level'} >= $Log::Abstraction::DEBUG ? : |
| 1580 | 100 | T | F | if (scalar @_ > 0) |
| 1697 | 100 | T | F | if ($self->{'_syslog_opened'}) |