blib/lib/CTK/Log.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
condition | 26 | 70 | 37.1 |
line | !l | l&&!r | l&&r | condition |
---|---|---|---|---|
412 | 1 | 0 | 1 | defined $file and length $file |
413 | 1 | 0 | 1 | $file and not "File::Spec"->file_name_is_absolute($file) |
436 | 1 | 0 | 0 | $socketopts and ref $socketopts eq "ARRAY" |
1 | 0 | 0 | $socketopts and !ref($socketopts) || ref $socketopts eq 'HASH' | |
538 | 0 | 0 | 1 | defined $ident and length $ident |
581 | 1 | 0 | 3 | $ll =~ /^[0-9]+$/ and exists $rlevels{$ll} |
0 | 0 | 1 | $ll =~ /^[a-z]+$/i and exists $levels{lc $ll} | |
582 | 0 | 0 | 3 | $ll >= 0 and $ll <= 9 |
596 | 0 | 0 | 2 | $self and $self->status |
600 | 0 | 0 | 1 | defined $self->{'fh'} and ref $self->{'fh'} |
line | l | !l | condition |
---|---|---|---|
405 | 2 | 0 | $args{'level'} // 0 |
407 | 0 | 2 | $args{'usesyslog'} || 0 |
408 | 0 | 2 | $args{'syslogopts'} // "ndelay,pid" |
410 | 0 | 2 | $args{'facility'} || 8 |
429 | 1 | 1 | $level || 0 |
0 | 2 | $args{'separator'} // " " | |
0 | 2 | $args{'utf8'} // 1 | |
0 | 2 | $args{'pure'} // 0 | |
444 | 1 | 0 | $args{'ident'} || scalar caller 0 |
448 | 0 | 0 | $_ // "" |
474 | 2 | 0 | $self->{'error'} // "" |
483 | 2 | 0 | shift() // 0 |
524 | 1 | 0 | shift() // "" |
548 | 0 | 0 | $_ // "" |
561 | 0 | 0 | shift() // "" |
568 | 0 | 0 | $_ // "" |
590 | 0 | 0 | shift() // 0 |
line | l | !l&&r | !l&&!r | condition |
---|---|---|---|---|
436 | 0 | 0 | 0 | !ref($socketopts) || ref $socketopts eq 'HASH' |
591 | 0 | 0 | 0 | $SYSLOG_LEVEL_MAP{$level} // $SYSLOG_LEVEL_MAP{'0'} |