Condition Coverage

blib/lib/Sys/Syslog.pm
Criterion Covered Total %
condition 26 76 34.2


and 2 conditions

line l !l condition
341 0 0 carp(sprintf($diag_invalid_type, " '${sock_type}'")) and next
342 0 2 push @tmp, 'tcp', 'udp' and next

and 3 conditions

line !l l&&!r l&&r condition
313 2 0 20 @_ >= 1 and @_ <= 3
413 3 0 5 $num <= &LOG_PRIMASK() and $word ne 'kern'
453 0 0 5 not $options{'noeol'} and rindex($mask, "\n") == -1
494 5 0 0 $options{'perror'} and $current_proto ne 'native'
507 5 0 0 $failed and time - $fail_time > 60
515 0 5 0 $connected and not connection_ok()
524 0 5 0 $current_proto and $failed
5 0 0 $current_proto and $failed and $current_proto eq $failed
637 7 0 0 $transmit_ok and $current_proto
874 2 5 0 defined $current_proto and $current_proto eq 'native' || $current_proto eq 'console' || $current_proto eq 'eventlog'
889 0 0 3 defined $current_proto and $current_proto eq 'native'
0 0 0 defined $current_proto and $current_proto eq 'eventlog'
923 0 12 0 not $loaded and $verbose

or 2 conditions

line l !l condition
206 0 0 basename($0) || getlogin || getpwuid $< || 'syslog'
207 6 5 $logopt ||= ''
775 0 0 &_PATH_LOG || '/dev/log'

or 3 conditions

line l !l&&r !l&&!r condition
206 9 2 0 $ident ||= basename($0) || getlogin || getpwuid $< || 'syslog'
208 9 2 0 $Sys::Syslog::facility ||= &LOG_USER()
506 3 2 0 scalar @fallbackMethods or $syslog_send
669 0 0 0 $sock_port || eval { do { local $SIG{'__DIE__'}; getservbyname 'syslog', 'tcp' } } || eval { do { local $SIG{'__DIE__'}; getservbyname 'syslogng', 'tcp' } }
709 0 2 0 $sock_port || eval { do { local $SIG{'__DIE__'}; getservbyname 'syslog', 'udp' } }
775 0 0 0 $syslog_path ||= &_PATH_LOG || '/dev/log'
795 0 0 0 $syslog_path ||= &_PATH_LOG()
802 0 0 0 -S $syslog_path or -c _
874 5 0 0 $current_proto eq 'native' || $current_proto eq 'console' || $current_proto eq 'eventlog'