Branch Coverage

blib/lib/Script/Toolbox/Util/Formatter.pm
Criterion Covered Total %
branch 75 110 68.1


line true false branch
38 6 4 defined $container->{'title'} ? :
41 9 1 if (ref $container->{'data'} eq 'ARRAY')
42 1 8 if ref $container->{'data'}[0] eq 'HASH'
43 7 2 if ref $container->{'data'}[0] eq 'ARRAY'
46 1 9 if (ref $container->{'data'} eq 'HASH')
47 1 0 if ref $container->{'data'} eq 'HASH'
51 4 6 defined $container->{'head'} ? :
90 1 0 if (ref $container->{'data'} eq 'HASH')
101 2 6 if ($k eq 'KEY')
103 0 6 unless defined $l->{$k}
162 0 1 unless defined $container->{'data'}[0]
163 0 1 if ref $container->{'data'}[0] eq 'ARRAY'
164 1 0 if (ref $container->{'data'}[0] eq 'HASH')
173 0 6 unless defined $l->{$k}
199 5 1 if (ref $cont->{'data'} eq 'ARRAY')
200 1 4 if (ref $cont->{'data'}[0] eq 'HASH')
203 4 1 if (ref $cont->{'data'}[0] eq 'ARRAY')
212 1 5 if (ref $cont->{'data'} eq 'HASH')
232 1 9 unless defined $self->{'data'}
233 0 9 if scalar @{$self->{'data'};} == 0
279 24 0 if ref $line eq 'ARRAY'
281 0 0 if (ref $line eq 'HASH')
301 16 12 if $f =~ /s$/
316 6 22 if (do { $maxColRef }->[$i] =~ /(\d+)[.](\d+)f$/)
338 9 24 if $i++ == 0
339 0 24 if ref $line eq 'HASH'
340 24 0 if ref $line eq 'ARRAY'
369 16 12 if $ot eq 's'
370 6 6 if $ot eq 'f'
371 6 0 if $ot eq 'd'
398 28 46 unless defined $old
401 38 36 if $nt eq 's' or $ot eq 's'
402 12 24 if $nt eq 'f' or $ot eq 'f'
403 24 0 if $nt eq 'd' and $ot eq 'd'
414 21 9 $nl > $ol ? :
422 0 18 $nl eq '' ? :
423 6 12 $nd eq '' ? :
424 3 15 $od eq '' ? :
425 0 18 $ol eq '' ? :
426 9 9 $nl > $ol ? :
427 3 15 $nd > $od ? :
437 8 46 $nl > $ol ? :
449 6 68 if defined $type
450 39 29 if defined $type
460 29 39 unless $field =~ /^[-]?\d+$/
469 68 6 unless $field =~ /^[-]?(\d+)[.](\d*)$/
522 0 0 if &_isGroupEnd($raw, $i, $colIdx, $pattern, $notGroupBy)
555 0 0 if &_noGroupCol($i, $colIdx, $notGroupBy)
556 0 0 if $PREV[$i] ne $CURR[$i]
567 0 0 if $idx == $sumIdx
568 0 0 unless defined $notGroupBy
570 0 0 if $col == $idx
592 0 0 if ($i == $colIdx) { }
610 0 0 if $I[1] eq '.'
655 0 0 if $O->[$i] ne $L->[$i]