| blib/lib/App/MARC/List.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 12 | 14 | 85.7 |
| line | true | false | branch |
|---|---|---|---|
| 38 | 1 | 4 | if (not &getopts("h", $self->{'_opts'}) or @ARGV < 1 or $self->{'_opts'}{'h'}) |
| 53 | 2 | 2 | unless (defined $self->{'_marc_field'} and defined $self->{'_marc_subfield'}) |
| 67 | 1 | 3 | if ($App::MARC::List::EVAL_ERROR) |
| 68 | 0 | 1 | defined $previous_record ? : |
| 77 | 2 | 1 | unless (defined $record) |
| 86 | 1 | 0 | unless (exists $ret_hr->{$subfield_value}) |
| 95 | 1 | 1 | if (%{$ret_hr;}) |