| blib/lib/Parse/Binary/FixedFormat.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 0 | 26 | 0.0 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 77 | 0 | 0 | 0 | $lazy and $i == $#{$$self{'Names'};} |
| 82 | 0 | 0 | 0 | @flds and length $flds[0] |
| 121 | 0 | 0 | 0 | $valid_sub and not $done |
| 0 | 0 | 0 | $valid_sub and not $done and not $_[0]->valid_unformat(\@content, \$chunk, $done) |
| line | l | !l | condition |
|---|---|---|---|
| 30 | 0 | 0 | $$self{'Format'} ||= [] |
| 33 | 0 | 0 | $$self{'Format'} ||= [] |
| 70 | 0 | 0 | $group ||= 1 |
| 81 | 0 | 0 | $$rec{$name} ||= [] |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 41 | 0 | 0 | 0 | $$self{'_format'} ||= do { my $format = join('', @{$$self{'Format'};}); $_format_cache{$format} ||= do { $format =~ s/\((.*?)\)\*$/a*/ if $lazy; $format =~ s/\((.*?)\)(?:(\d+)|(\*))/$1 x ($3 ? 1 : $2);/eg if $] < 5.008; $format } } |
| 43 | 0 | 0 | 0 | $_format_cache{$format} ||= do { $format =~ s/\((.*?)\)\*$/a*/ if $lazy; $format =~ s/\((.*?)\)(?:(\d+)|(\*))/$1 x ($3 ? 1 : $2);/eg if $] < 5.008; $format } |