| 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'} |