| blib/lib/Log/ger/Output/Perl.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 12 | 14 | 85.7 |
| line | true | false | branch |
|---|---|---|---|
| 18 | 0 | 1 | if keys %conf |
| 29 | 6 | 0 | if (my $act = $$action{Log::ger::Util::string_level($lvl)}) |
| 31 | 1 | 5 | if ($act eq 'warn') { } |
| 1 | 4 | elsif ($act eq 'carp') { } | |
| 1 | 3 | elsif ($act eq 'cluck') { } | |
| 1 | 2 | elsif ($act eq 'croak') { } | |
| 1 | 1 | elsif ($act eq 'confess') { } |