| line | % | coverage | branch |
|---|
| 198 | 100 | T | F | if (scalar @_ == 1 and ref $_[0] ne 'HASH') { } |
| 100 | T | F | elsif (my $params = Params::Get::get_params(undef, \@_)) { } |
| 205 | 100 | T | F | if (exists $args{'config_file'}) |
| 207 | 100 | T | F | unless (-r $args{'config_file'}) |
| 210 | 50 | T | F | if (my $config = 'Config::Abstraction'->new('config_dirs', [''], 'config_file', $args{'config_file'}, 'env_prefix', "${class}::")) { } |
| 212 | 100 | T | F | if ($config->{$class}) |
| 217 | 100 | T | F | if ($array) |
| 225 | 100 | T | F | if (not defined $class) { } |
| 100 | T | F | elsif (&Scalar::Util::blessed($class)) { } |
| 231 | 100 | T | F | if (my $level = $args{'level'}) |
| 234 | 100 | T | F | unless (defined $Log::Abstraction::syslog_values{$level}) |
| 243 | 100 | T | F | if ($args{'syslog'} and not $args{'script_name'}) |
| 244 | 50 | T | F | unless "File::Basename"->can("basename") |
| 249 | 50 | T | F | unless defined $args{'script_name'} |
| 253 | 100 | T | F | if (defined(my $logger = $args{'logger'})) { } |
| 100 | T | F | elsif (not $args{'file'} || $args{'array'}) { } |
| 254 | 100 | T | F | if (&Scalar::Util::blessed($logger) and ref $logger eq __PACKAGE__) |
| 263 | 100 | T | F | $args{'verbose'} ? : |
| 267 | 100 | T | F | if ($level) { } |
| 268 | 100 | T | F | if (ref $level eq "ARRAY") |
| 272 | 100 | T | F | unless (defined $Log::Abstraction::syslog_values{$level}) |
| 338 | 100 | T | F | unless defined $value |
| 351 | 100 | T | F | unless (UNIVERSAL::isa((&CORE::GLOBAL::caller())[0], __PACKAGE__)) |
| 355 | 50 | T | F | unless (defined $Log::Abstraction::syslog_values{$level}) |
| 359 | 100 | T | F | if ($Log::Abstraction::syslog_values{$level} > $self->{'level'}) |
| 364 | 100 | T | F | if (scalar @messages == 1 and ref $messages[0] eq "ARRAY") |
| 377 | 100 | T | F | if ($class eq __PACKAGE__) |
| 383 | 100 | T | F | if (my $logger = $self->{'logger'}) { } |
| 100 | T | F | elsif ($self->{'array'}) { } |
| 384 | 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)) { } |
| 394 | 100 | T | F | if (my $ctx = $self->{'ctx'}) |
| 402 | 100 | T | F | if (my $file = $logger->{'file'}) |
| 404 | 100 | T | F | if ($file =~ /^([^<>|*?;!`$"\0-\037]+)$/) { } |
| 409 | 100 | T | F | if (open my $fout, ">>", $logger->{'file'}) |
| 420 | 50 | T | F | unless print $fout "$format\n" |
| 424 | 100 | T | F | if (my $array = $logger->{'array'}) |
| 427 | 50 | T | F | if (exists $logger->{'sendmail'} and exists $logger->{'sendmail'}{'to'}) |
| 429 | 100 | T | F | if (not defined $logger->{'sendmail'}{'level'} or $Log::Abstraction::syslog_values{$level} <= $Log::Abstraction::syslog_values{$logger->{'sendmail'}{'level'}}) |
| 432 | 100 | T | F | if (my $min_interval = $logger->{'sendmail'}{'min_interval'}) |
| 437 | 100 | T | F | unless ($throttled) |
| 449 | 100 | T | F | if (my $from = $logger->{'sendmail'}{'from'}) { } |
| 454 | 100 | T | F | if (my $subject = $logger->{'sendmail'}{'subject'}) |
| 468 | 100 | T | F | if ($@) |
| 476 | 100 | T | F | if (my $syslog = $logger->{'syslog'}) |
| 477 | 100 | T | F | if (not defined $syslog->{'level'} or $Log::Abstraction::syslog_values{$level} <= $syslog->{'level'}) |
| 478 | 100 | T | F | unless ($self->{'_syslog_opened'}) |
| 483 | 100 | T | F | if ($syslog->{'server'}) |
| 486 | 100 | T | F | if scalar keys %{$syslog;} |
| 496 | 100 | T | F | $level eq 'error' ? : |
| 500 | 100 | T | F | if ($@) |
| 508 | 100 | T | F | if (my $fout = $logger->{'fd'}) { } |
| 100 | T | F | elsif (not $logger->{'file'} || $logger->{'array'} || $logger->{'syslog'} || exists $logger->{'sendmail'} || $logger->{'fd'}) { } |
| 520 | 50 | T | F | unless print $fout "$format\n" |
| 526 | 100 | T | F | if (open my $fout, ">>", $logger) |
| 538 | 50 | T | F | unless print $fout "$format\n" |
| 543 | 100 | T | F | unless ($logger->can($level)) |
| 544 | 100 | T | F | if ($level eq 'notice' and $logger->can('info')) { } |
| 559 | 100 | T | F | if ($self->{'file'}) |
| 564 | 100 | T | F | if ($file =~ /^([^<>|*?;!`$"\0-\037]+)$/) { } |
| 570 | 50 | T | F | if (open my $fout, ">>", $file) |
| 575 | 100 | T | F | if (&blessed($self) eq __PACKAGE__) { } |
| 588 | 50 | T | F | unless print $fout "$format\n" |
| 592 | 100 | T | F | if (my $fout = $self->{'fd'}) |
| 597 | 100 | T | F | if (&blessed($self) eq __PACKAGE__) { } |
| 610 | 50 | T | F | unless print $fout "$format\n" |
| 625 | 100 | T | F | if ($level) |
| 626 | 100 | T | F | unless (defined $Log::Abstraction::syslog_values{$level}) |
| 646 | 100 | T | F | $self->{'level'} && $self->{'level'} >= $Log::Abstraction::DEBUG ? : |
| 759 | 100 | T | F | if scalar @_ == 0 |
| 774 | 50 | T | F | if scalar @_ == 0 |
| 777 | 50 | T | F | if $Log::Abstraction::syslog_values{$level} > $Log::Abstraction::WARNING |
| 784 | 100 | T | F | if ($@ or not $params or ref $params ne 'HASH' or not exists $params->{'warning'}) { } |
| 787 | 50 | T | F | unless length $warning |
| 790 | 100 | T | F | unless defined $warning |
| 791 | 100 | T | F | if (ref $warning eq "ARRAY") |
| 796 | 100 | T | F | if ($params and ref $params eq 'HASH' and exists $params->{'warning'}) { } |
| 798 | 50 | T | F | unless defined $warning |
| 799 | 100 | T | F | if (ref $warning eq "ARRAY") |
| 807 | 50 | T | F | unless length $warning |
| 810 | 100 | T | F | if ($self eq __PACKAGE__) |
| 812 | 100 | T | F | if ($Log::Abstraction::syslog_values{$level} <= $Log::Abstraction::ERROR) |
| 822 | 100 | T | F | if ($Log::Abstraction::syslog_values{$level} <= $Log::Abstraction::ERROR) |
| 824 | 100 | T | F | if ($self->{'croak_on_error'} or not defined $self->{'logger'} || defined $self->{'array'}) |
| 829 | 100 | T | F | if ($self->{'carp_on_warn'} or not defined $self->{'logger'} || defined $self->{'array'}) |
| 839 | 100 | T | F | if ($self->{'_syslog_opened'}) |