blib/lib/CTK/Log.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
condition | 18 | 64 | 28.1 |
line | !l | l&&!r | l&&r | condition |
---|---|---|---|---|
395 | 0 | 0 | 1 | defined $file and length $file |
396 | 0 | 0 | 1 | $file and not 'File::Spec'->file_name_is_absolute($file) |
419 | 0 | 0 | 0 | $socketopts and ref $socketopts eq 'ARRAY' |
0 | 0 | 0 | $socketopts and !ref($socketopts) || ref $socketopts eq 'HASH' | |
520 | 0 | 0 | 1 | defined $ident and length $ident |
563 | 0 | 0 | 3 | $ll =~ /^[0-9]+$/ and exists $rlevels{$ll} |
0 | 0 | 0 | $ll =~ /^[a-z]+$/i and exists $levels{lc $ll} | |
564 | 0 | 0 | 3 | $ll >= 0 and $ll <= 9 |
578 | 0 | 0 | 1 | $self and $self->status |
582 | 0 | 0 | 1 | defined $self->{'fh'} and ref $self->{'fh'} |
line | l | !l | condition |
---|---|---|---|
388 | 1 | 0 | $args{'level'} // 0 |
390 | 0 | 1 | $args{'usesyslog'} || 0 |
391 | 0 | 1 | $args{'syslogopts'} // 'ndelay,pid' |
393 | 0 | 1 | $args{'facility'} || 8 |
412 | 1 | 0 | $level || 0 |
0 | 1 | $args{'separator'} // ' ' | |
0 | 1 | $args{'utf8'} // 1 | |
0 | 1 | $args{'pure'} // 0 | |
427 | 0 | 0 | $args{'ident'} || scalar caller 0 |
457 | 2 | 0 | $self->{'error'} // '' |
466 | 2 | 0 | shift() // 0 |
506 | 1 | 0 | shift() // '' |
543 | 0 | 0 | shift() // '' |
572 | 0 | 0 | shift() // 0 |
line | l | !l&&r | !l&&!r | condition |
---|---|---|---|---|
419 | 0 | 0 | 0 | !ref($socketopts) || ref $socketopts eq 'HASH' |
573 | 0 | 0 | 0 | $SYSLOG_LEVEL_MAP{$level} // $SYSLOG_LEVEL_MAP{'0'} |