| blib/lib/Log/Dispatch/Perl.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 3 | 16 | 18.7 |
| line | true | false | branch |
|---|---|---|---|
| 113 | 0 | 1 | if (my $actions = $param{'action'}) |
| 118 | 0 | 0 | if exists $NUM2LEVEL{$level} |
| 122 | 0 | 0 | unless exists $LEVEL2NUM{$level or ''} |
| 124 | 0 | 0 | unless exists $ACTION2CODE{$action} |
| 126 | 0 | 0 | unless $warn |
| 164 | 0 | 0 | unless exists $LEVEL2NUM{$level} or exists $NUM2LEVEL{$level} |
| 168 | 0 | 8 | unless defined $num |
| 172 | 8 | 0 | if substr($message, -1, 1) ne "\n" |