| blib/lib/JIP/Debug.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 15 | 18 | 83.3 |
| line | true | false | branch |
|---|---|---|---|
| 114 | 2 | 14 | if (@JIP::Debug::ARG == 2 and ref $JIP::Debug::ARG[1] eq 'CODE') { } |
| 2 | 12 | elsif (@JIP::Debug::ARG == 1 and ref $JIP::Debug::ARG[0] eq 'CODE') { } | |
| 8 | 4 | elsif (@JIP::Debug::ARG == 1) { } | |
| 124 | 8 | 8 | defined $label && length $label ? : |
| 134 | 4 | 12 | if defined $cb |
| 149 | 0 | 1 | if defined $cb |
| 157 | 0 | 22 | unless $HANDLE |
| 160 | 0 | 22 | unless $HANDLE->print($msg) |
| 169 | 2 | 12 | unless defined $subroutine |