Condition Coverage

blib/lib/HTTP/OAI/Response.pm
Criterion Covered Total %
condition 29 42 69.0


and 3 conditions

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)

or 2 conditions

line l !l condition
37 0 20 delete $self{'code'} || 200
0 20 delete $self{'message'} || 'OK'
42 13 7 $handlers || {}

or 3 conditions

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'