| blib/lib/Smart/Comments/Log4perl.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 7 | 8 | 87.5 |
| line | true | false | branch |
|---|---|---|---|
| 91 | 6 | 16 | unless ('Log::Log4perl'->initialized) |
| 93 | 5 | 1 | if ($CONFIG_FILE) { } |
| 114 | 9 | 22 | if (@_ > 1 and exists $ADDITIONAL_SMART_COMMENT_KEYWORDS{lc $_[1]}) |
| 196 | 0 | 44 | unless exists $LOGGER_DISPATCH{$Smart::Comments::Log4perl::LOG_LEVEL} |