| blib/lib/HTTP/OAI/Response.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 29 | 42 | 69.0 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 204 | 14 | 27 | 0 | $elem =~ /^GetRecord|Identify|ListIdentifiers|ListMetadataFormats|ListRecords|ListSets$/ and !defined($self->verb) || $elem eq $self->verb |
| 215 | 6 | 3 | 7 | $self->version eq "2.0s" and $self->verb eq "ListRecords" |
| 246 | 14 | 6 | 7 | defined $self->get_handler and $self->version eq "2.0s" |
| 298 | 8 | 0 | 1 | $self->version eq "2.0s" and not $self->error |
| 8 | 0 | 1 | $self->version eq "2.0s" and not $self->error and not $self->content | |
| 305 | 6 | 2 | 1 | not $self->content and defined(my $verb = $self->verb) |
| line | l | !l | condition |
|---|---|---|---|
| 37 | 0 | 20 | delete $self{'code'} || 200 |
| 0 | 20 | delete $self{'message'} || 'OK' | |
| 42 | 13 | 7 | $handlers || {} |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 32 | 1 | 19 | 0 | $self{'responseDate'} ||= POSIX::strftime("%Y-%m-%dT%H:%M:%S", gmtime) . "Z" |
| 33 | 0 | 0 | 0 | $self{'requestURL'} ||= CGI::self_url() |
| 121 | 1 | 0 | 0 | not defined $self->version or $self->version eq "2.0" |
| 188 | 1 | 2 | 6 | $self->verb eq "ListIdentifiers" or $self->verb eq "GetRecord" |
| 204 | 0 | 16 | 11 | !defined($self->verb) || $elem eq $self->verb |
| 246 | 7 | 0 | 36 | $elem eq "responseDate" or $elem eq "requestURL" |