Branch Coverage

blib/lib/JIP/Debug.pm
Criterion Covered Total %
branch 15 18 83.3


line true false branch
116 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) { }
126 8 8 defined $label && length $label ? :
136 4 12 if defined $cb
151 0 1 if defined $cb
159 0 22 unless $HANDLE
162 0 22 unless $HANDLE->print($msg)
171 2 12 unless defined $subroutine