| blib/lib/Parse/FixedLength.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 26 | 54 | 48.1 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 62 | 0 | 26 | 0 | defined $params and not UNIVERSAL::isa($params, 'HASH') |
| 70 | 0 | 0 | 1 | $all and $all =~ /^\d+$/ |
| 0 | 0 | 1 | $all and $all =~ /^\d+$/ and $all > 0 | |
| 120 | 14 | 12 | 0 | $is_hsh and @$format % 2 |
| 125 | 50 | 48 | 0 | $is_hsh and not $i % 2 |
| 211 | 1 | 7 | 0 | $dups_ok and $all_dups_ok || exists $$dups{$name} |
| line | l | !l | condition |
|---|---|---|---|
| 61 | 14 | 12 | shift() || {} |
| 104 | 1 | 21 | $$params{'href'} || {} |
| 171 | 0 | 0 | $type =~ /[AaZ]/ && $repeat || $type =~ /b/i && int $repeat / 16 - 0.01 + 1 || $type =~ /h/i && int $repeat / 2 - 0.01 + 1 || $type =~ /c/i && 1 || $type =~ /[sSnv]/ && 2 || $type =~ /[lLNV]/ && 4 || $type =~ /q/i && 8 || undef |
| 349 | 0 | 0 | $$parser{'JFIELDS'} || {} |
| 382 | 6 | 0 | $mappings ||= {} |
| 389 | 6 | 0 | $defaults ||= {} |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 17 | 0 | 21 | 0 | ref $proto || $proto |
| 47 | 0 | 27 | 0 | ref $proto || $proto |
| 211 | 1 | 0 | 6 | $all_dups_ok || exists $$dups{$name} |
| 282 | 7 | 0 | 0 | shift() || $$parser{'DATA'} |
| 326 | 1 | 0 | 21 | $Parse::FixedLength::HashAsObj::classes{$class_key} || do { no strict 'refs'; my $name = $Parse::FixedLength::HashAsObj::classes{$class_key} = 'Parse::FixedLength::HashAsObj::Href' . ++$Parse::FixedLength::HashAsObj::counter; @{"${name}::ISA";} = 'Parse::FixedLength::HashAsObj'; $name } |
| 376 | 0 | 6 | 0 | ref $proto || $proto |
| 383 | 0 | 6 | 0 | UNIVERSAL::isa($mappings, 'ARRAY') or UNIVERSAL::isa($mappings, 'HASH') |
| 394 | 6 | 13 | 0 | not ref $default or UNIVERSAL::isa($default, 'CODE') |