| blib/lib/Text/RecordParser.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 29 | 37 | 78.3 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 165 | 21 | 34 | 3 | defined $_[0] && UNIVERSAL::isa($_[0], 'HASH') |
| 231 | 41 | 0 | 1 | ref $_[0] eq 'ARRAY' and not @{$_[0];} |
| 346 | 0 | 4 | 2 | not ref $arg and @_ |
| 442 | 81 | 6 | 4 | $comment and $line =~ /$comment/ |
| 571 | 2 | 1 | 1 | defined $_[0] && ref $_[0] eq 'HASH' |
| 903 | 1 | 0 | 40 | -f _ and -r _ |
| line | l | !l | condition |
|---|---|---|---|
| 607 | 3 | 0 | shift @_ || (return croak('No key field')) |
| 752 | 24 | 104 | $$self{'field_computes'} || {} |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 785 | 9 | 0 | 79 | $$self{'field_filter'} || $EMPTY_STR |
| 882 | 89 | 15 | 0 | $$self{'field_separator'} || $COMMA |
| 926 | 101 | 2 | 54 | $$self{'filename'} || $EMPTY_STR |
| 995 | 7 | 0 | 35 | $$self{'header_filter'} || $EMPTY_STR |
| 1030 | 11 | 90 | 0 | $$self{'record_separator'} || $NEW_LINE |