Branch Coverage

blib/lib/PBS/Logs/Acct.pm
Criterion Covered Total %
branch 55 70 78.5


line true false branch
143 0 16 if $SUPER::debug or $$self{'-debug'}
161 0 482 if $SUPER::debug or $$self{'-debug'}
166 240 320 if (defined $$self{'-records'}) { }
168 112 128 if exists $$self{'-records'}{$$a[$keys{'record_type'}]}
174 0 482 unless defined wantarray
175 70 5 defined $a ? :
75 407 if wantarray
246 0 166 if $SUPER::debug or $$self{'-debug'}
251 20 146 unless (defined $a)
252 0 20 if wantarray
259 0 146 unless defined wantarray
260 0 0 defined $h ? :
0 146 if wantarray
284 0 39 if $SUPER::debug or $$self{'-debug'}
288 7 32 if (not defined $_[0]) { }
6 26 elsif (ref $_[0] eq 'ARRAY') { }
289 4 3 if defined $$self{'-records'}
297 4 28 if (not scalar @f) { }
341 1 2 if (ref $self eq 'PBS::Logs::Acct') { }
342 0 1 if $SUPER::debug or $$self{'-debug'}
347 0 2 if $SUPER::debug
360 9 75 if (defined $quote and /(.*)$quote$/) { }
6 69 elsif (defined $quote and /^$/) { }
0 69 elsif (defined $quote) { }
3 66 elsif (/^([^=]+)=(['"])(.*)\2$/) { }
9 57 elsif (/^([^=]+)=(['"])(.*)$/) { }
386 30 39 if ($k =~ /\./) { }
388 6 24 unless exists $$h{$kk}
415 6 3 if (ref $self eq 'HASH') { }
418 0 6 if $SUPER::debug
421 0 3 if $SUPER::debug or $$self{'-debug'}
426 3 6 unless defined $level
431 6 69 if (ref $$h{$k} eq 'HASH') { }
433 2 4 if (defined $self) { }
445 6 3 $level ? :