| line | % | coverage | branch |
|---|
| 1009 | 100 | T | F | if (scalar @_ == 1 and ref $_[0] ne 'HASH') { } |
| 100 | T | F | elsif (my $params = Params::Get::get_params(undef, \@_)) { } |
| 1016 | 100 | T | F | if (exists $args{'config_file'}) |
| 1017 | 100 | T | F | unless (-r $args{'config_file'}) |
| 1020 | 50 | T | F | if (my $config = 'Config::Abstraction'->new('config_dirs', [''], 'config_file', $args{'config_file'}, 'env_prefix', "${class}::")) { } |
| 1027 | 100 | T | F | if ($config->{$class}) |
| 1033 | 100 | T | F | if ($array) |
| 1042 | 100 | T | F | if (not defined $class) { } |
| 100 | T | F | elsif (&Scalar::Util::blessed($class)) { } |
| 1050 | 100 | T | F | if (my $level = $args{'level'}) |
| 1052 | 100 | T | F | unless (defined $Log::Abstraction::syslog_values{$level}) |
| 1064 | 100 | T | F | if $clone->{'_syslog_opened'} |
| 1074 | 100 | T | F | if ($wants_syslog and not $args{'script_name'}) |
| 1078 | 50 | T | F | unless defined $args{'script_name'} |
| 1082 | 100 | T | F | if (defined(my $logger = $args{'logger'})) { } |
| 100 | T | F | elsif (not $args{'file'} || $args{'fd'} || $args{'array'}) { } |
| 1083 | 100 | T | F | if (&Scalar::Util::blessed($logger) and ref $logger eq __PACKAGE__) |
| 1095 | 100 | T | F | $args{'verbose'} ? : |
| 1102 | 100 | T | F | if ($level) { } |
| 1103 | 100 | T | F | if (ref $level eq "ARRAY") |
| 1107 | 100 | T | F | unless (defined $Log::Abstraction::syslog_values{$level}) |
| 1116 | 100 | T | F | if (defined(my $max = $args{'max_messages'})) |
| 1117 | 100 | T | F | unless ($max =~ /^\d+$/) |
| 1130 | 100 | T | F | if (ref $args{'logger'} eq "HASH") |
| 1137 | 100 | T | F | if $name =~ /^log_(?:any|dispatch)$/ |
| 1138 | 100 | T | F | if ref $value ne "HASH" |
| 1139 | 100 | T | F | if ($name =~ /^(?:file|fd|array|log_any|log_dispatch)$/ and not $value->{$name}) |
| 1143 | 100 | T | F | if (defined $sub_level and not defined _level_number($sub_level)) |
| 1146 | 100 | T | F | if (exists $value->{'format'}) |
| 1148 | 100 | T | F | if (not defined $format or ref $format or $format eq "") |
| 1154 | 100 | T | F | if (ref $args{'logger'} eq "HASH") |
| 1157 | 100 | T | F | if (exists $hash->{'sendmail'} and ref $hash->{'sendmail'} ne 'HASH' || !$hash->{'sendmail'}{'to'}) |
| 1161 | 50 | T | F | if (ref $hash->{'sendmail'} eq "HASH" and defined(my $max = $hash->{'sendmail'}{'digest_max'})) |
| 1162 | 0 | T | F | unless ($max =~ /^[1-9]\d*$/) |
| 1167 | 100 | T | F | if (ref $hash->{'journald'} eq "HASH") |
| 1169 | 100 | T | F | if lc($key) =~ /^(?:socket|identifier|level|format)$/ |
| 1170 | 100 | T | F | unless (uc($key) =~ /$RE_JOURNALD_FIELD/) |
| 1177 | 100 | T | F | unless (grep {$hash->{$_};} @HASH_BACKENDS) |
| 2695 | 100 | T | F | if ($level) |
| 2698 | 100 | T | F | unless (defined $Log::Abstraction::syslog_values{lc $level}) |
| 2783 | 100 | T | F | defined $self->{'level'} && $self->{'level'} >= $threshold ? : |
| 2882 | 0 | T | F | ref $self->{'logger'} eq 'HASH' ? : |
| 2883 | 0 | T | F | if ($sm and $self->{'_email_digest'}) |
| 3243 | 100 | T | F | if (scalar @_ > 0) |
| 3460 | 50 | T | F | if $self->{'_email_digest'} |
| 3463 | 50 | T | F | if @email_children |
| 3467 | 100 | T | F | if ($self->{'_syslog_opened'}) |
| 3473 | 100 | T | F | if $self->{'_sighup'} |