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