Branch Coverage

blib/lib/App/CELL/Log.pm
Criterion Covered Total %
branch 41 62 66.1


line true false branch
164 2 0 if @ARGS
229 15 3 if (defined $ARGS{'ident'}) { }
230 0 15 if ($ARGS{'ident'} eq $ident and $ident ne 'CELLtest') { }
242 8 10 if (exists $ARGS{'debug_mode'})
243 7 1 if $ARGS{'debug_mode'}
244 1 7 unless $ARGS{'debug_mode'}
249 0 18 if (exists $ARGS{'show_caller'})
250 0 0 if $ARGS{'show_caller'}
251 0 0 unless $ARGS{'show_caller'}
266 0 0 if $self->can('SUPER::DESTROY')
284 19 937 unless (grep {$_ =~ /$method/iu;} @permitted_levels)
290 937 0 if @ARGS % 2 == 0
294 2 935 if ($method_uc eq 'OK' or $method_uc eq 'NOT_OK') { }
304 824 113 if (%ARGS) { }
305 59 765 if ($ARGS{'caller'}) { }
108 657 elsif ($ARGS{'suppress_caller'}) { }
318 723 99 if ($ARGS{'cell'} and $method_lc eq 'debug' || $method_lc eq 'trace')
319 723 0 unless $ENV{'CELL_DEBUG_MODE'}
322 0 214 unless $log_any_obj
323 0 214 unless $log_any_obj
324 35 115 if not $debug_mode and $method_lc eq 'debug' || $method_lc eq 'trace'
325 0 179 unless ($msg_text)
346 59 0 if $caller
347 57 2 if $cell
348 38 21 if ($code ne $text)
351 0 59 unless $text
354 0 59 unless $log_any_obj
376 0 0 if ($level eq 'OK') { }
0 0 elsif ($level eq 'NOT_OK') { }
389 65 114 if ($file and 'File::Spec'->file_name_is_absolute($file))
393 167 12 if $show_caller and $file