Condition Coverage

File:blib/lib/Log/Abstraction.pm
Coverage:33.6%

line%coveragecondition
385100
ABdec
0X0
100
111
scalar @_ == 1 and ref $_[0] ne "HASH"
436100
ABdec
0X0
100
111
$args{'syslog'} and not $args{'script_name'}
43867
ABdec
000
011
1X1
$ENV{'SCRIPT_NAME'} || $0
444100
ABdec
000
011
1X1
$args{'file'} || $args{'array'}
445100
ABdec
0X0
100
111
&Scalar::Util::blessed($logger) and ref $logger eq __PACKAGE__
52533
ABdec
0X0
100
111
$path =~ /$RE_SAFE_PATH/ and not $path =~ /$RE_DOTDOT/
62833
ABdec
0X0
100
111
defined $format and $format eq "json"
6310
ABdec
0X0
100
111
$bclass && $bclass ne __PACKAGE__
64533
ABdec
000
011
1X1
$format || $default
65133
ABdec
0X0
100
111
$bclass && $bclass ne __PACKAGE__
66250
Adec
00
11
$ENV{$1} // ""
763100
ABdec
0X0
100
111
scalar @messages == 1 and ref $messages[0] eq "ARRAY"
77633
ABdec
000
011
1X1
&blessed($self) || $self
78450
Adec
00
11
(&CORE::GLOBAL::caller(1))[3] // ""
79450
Adec
00
11
&blessed($self) || __PACKAGE__
8300
ABdec
0X0
100
111
exists $logger->{'sendmail'} and exists $logger->{'sendmail'}{'to'}
8340
ABdec
000
011
1X1
not defined $sm->{'level'} or $Log::Abstraction::syslog_values{$level} <= $Log::Abstraction::syslog_values{$sm->{'level'}}
8420
ABdec
0X0
100
111
defined $self->{'_last_email_sent'} && $now - $self->{'_last_email_sent'} < $interval
8470
ABdec
000
011
1X1
$sm->{'host'} || $DEFAULT_SMTP_HOST
8500
ABdec
000
011
1X1
$sm->{'port'} || $DEFAULT_SMTP_PORT
8510
ABCdec
0XX0
10X0
1100
1111
$port =~ /$RE_PORT/ and $port >= $MIN_PORT and $port <= $MAX_PORT
8720
ABdec
000
011
1X1
$sm->{'from'} || $DEFAULT_FROM_ADDR
9050
ABdec
000
011
1X1
not defined $syslog->{'level'} or $Log::Abstraction::syslog_values{$level} <= $syslog->{'level'}
9100
ABdec
000
011
1X1
delete $syslog->{'facility'} || $DEFAULT_SYSLOG_FACILITY
9270
Adec
00
11
$LEVEL_TO_SYSLOG_PRIORITY{$level} // "warning"
9430
ABdec
000
011
1X1
$jd->{'socket'} || $DEFAULT_JOURNALD_SOCKET
9460
ABdec
000
011
1X1
$jd->{'identifier'} || $self->{'script_name'} || do {         require File::Basename; File::Basename::basename($0) }
9700
ABdec
000
011
1X1
$logger->{'file'} || $logger->{'array'} || $logger->{'syslog'} || exists $logger->{'sendmail'} || $logger->{'fd'} || $logger->{'journald'}
9970
ABdec
0X0
100
111
$level eq "notice" and $logger->can("info")
110025
ABCdec
0XX0
10X0
1100
1111
$params and ref $params eq "HASH" and exists $params->{'warning'}
112867
ABdec
000
011
1X1
$self->{'croak_on_error'} or not defined $self->{'logger'} || defined $self->{'array'}
33
ABdec
000
011
1X1
defined $self->{'logger'} || defined $self->{'array'}
113567
ABdec
000
011
1X1
$self->{'carp_on_warn'} or not defined $self->{'logger'} || defined $self->{'array'}
33
ABdec
000
011
1X1
defined $self->{'logger'} || defined $self->{'array'}
1274100
ABdec
0X0
100
111
$self->{'level'} && $self->{'level'} >= $Log::Abstraction::DEBUG