Branch Coverage

blib/lib/Business/EDI/Composite.pm
Criterion Covered Total %
branch 13 38 34.2


line true false branch
1359 0 0 unless ($chunk)
1360 0 0 if $debug
1368 0 0 unless ($key)
1378 0 0 unless (ref $self)
1381 0 0 @_ ? :
0 0 unless my $chunk = $self->chunk(@_ ? shift() : $self->ccode)
1386 0 4 if @_
1391 0 0 if @_
1396 0 4 if @_
1401 0 0 if @_
1406 0 4 if @_
1426 0 1910 unless ($body)
1430 0 1910 unless (ref $body eq 'HASH')
1437 0 1910 unless (scalar @keys == 1)
1442 0 1910 unless ($chunk = $$guts{$key})
1447 33 1877 if (ref $value eq 'ARRAY')
1448 33 0 if (scalar @$value == 1) { }
1449 0 33 if $debug
1463 33 1877 if $repeat