| blib/lib/MARC/Moose/Record.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 19 | 30 | 63.3 |
| line | true | false | branch |
|---|---|---|---|
| 86 | 0 | 1 | if $length > 99999 |
| 106 | 0 | 4 | unless @fields |
| 110 | 0 | 4 | unless (ref($field) =~ /^MARC::Moose::Field/u) |
| 120 | 2 | 4 | if ($notdone and $field->tag gt $tag) |
| 126 | 2 | 2 | if $notdone |
| 142 | 10 | 3 | unless ($regex) |
| 147 | 15 | 50 | if ($field->tag =~ /$regex/u) |
| 148 | 8 | 7 | unless wantarray |
| 155 | 0 | 2 | @list ? : |
| 3 | 2 | wantarray ? : | |
| 162 | 0 | 1 | unless @_ |
| 168 | 3 | 1 | if ($tag =~ /$tag_spec/u) |
| 178 | 0 | 0 | $f ? : |
| 185 | 0 | 0 | $p ? : |
| 191 | 0 | 0 | $self->lint ? : |