| blib/lib/Log/Dispatch/Perl.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 3 | 16 | 18.7 |
| line | true | false | branch |
|---|---|---|---|
| 115 | 0 | 1 | if (my $actions = $param{'action'}) |
| 120 | 0 | 0 | if exists $NUM2LEVEL{$level} |
| 125 | 0 | 0 | unless exists $LEVEL2NUM{$level or ''} |
| 127 | 0 | 0 | unless exists $ACTION2CODE{$action} |
| 128 | 0 | 0 | unless $warn |
| 166 | 0 | 0 | unless exists $LEVEL2NUM{$level} or exists $NUM2LEVEL{$level} |
| 170 | 0 | 8 | unless defined $num |
| 174 | 8 | 0 | if substr($message, -1, 1) ne "\n" |