| blib/lib/HTTP/OAI/Header.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 14 | 20 | 70.0 |
| line | true | false | branch |
|---|---|---|---|
| 14 | 2 | 13 | unless @_ |
| 15 | 0 | 13 | unless my $ds = shift() |
| 16 | 0 | 13 | if ($ds =~ /^(\d{4})(\d{2})(\d{2})$/) { } |
| 0 | 13 | elsif ($ds =~ /^(\d{4})(\d{2})(\d{2})(\d{2})(\d{2})(\d{2})$/) { } | |
| 34 | 1 | 0 | if (defined $self->status) { } |
| 52 | 51 | 0 | if (defined $text) |
| 57 | 13 | 38 | if ($elem eq 'identifier') { } |
| 13 | 25 | elsif ($elem eq 'datestamp') { } | |
| 12 | 13 | elsif ($elem eq 'setspec') { } | |
| 13 | 0 | elsif ($elem eq 'header') { } |