| script/marcvalidate | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 9 | 16 | 56.2 |
| line | true | false | branch |
|---|---|---|---|
| 18 | 0 | 3 | unless &GetOptions("file|f=s", \my $file, "type|t=s", \(my $type = "RAW"), "schema|s=s", \my $schema_file, "help|h", sub { &HelpMessage(); } ) |
| 20 | 2 | 1 | unless defined $file |
| 22 | 0 | 3 | unless defined $file and -e $file |
| 27 | 3 | 0 | if ($type eq 'RAW') { } |
| 0 | 0 | elsif ($type eq 'XML') { } | |
| 42 | 3 | 27 | if (@error > 0) |
| 44 | 3 | 0 | if (exists $error->{'value'}) { } |
| 56 | 30 | 0 | defined $id ? : |