Branch Coverage

blib/lib/Labyrinth/Audit.pm
Criterion Covered Total %
branch 23 38 60.5


line true false branch
122 0 0 unless my $fh = 'IO::File'->new($file, 'w+')
149 0 4 unless $hash{'FILE'}
150 0 4 unless $hash{'USER'}
152 4 0 unless (-e $hash{'FILE'})
153 0 4 if $@ or not -w $hash{'FILE'}
156 4 0 if $hash{'LEVEL'}
157 4 0 if $hash{'CALLER'}
159 4 0 if ($hash{'CLEAR'})
162 0 4 unless $logfile
176 0 18 unless $logfile
180 18 0 if @_
185 18 0 if ($CALLER)
192 0 18 if $VERBOSE and $level <= $LOG_LEVEL_INFO
194 3 15 if $level > $LOG_LEVEL
196 1 14 if $firstpass
219 4 0 if $LOG_LEVEL >= $LOG_LEVEL_ERROR
220 3 1 if $LOG_LEVEL >= $LOG_LEVEL_WARN
221 2 2 if $LOG_LEVEL >= $LOG_LEVEL_INFO
222 1 3 if $LOG_LEVEL >= $LOG_LEVEL_DEBUG