| line |
true |
false |
branch |
|
30
|
0 |
11 |
if defined $cgi and not UNIVERSAL::isa($cgi, 'CGI') |
|
48
|
0 |
11 |
if $@ |
|
49
|
0 |
11 |
unless UNIVERSAL::isa($$self{'idtype'}, 'SeeAlso::Identifier') |
|
53
|
1 |
10 |
if $params{'expires'} |
|
55
|
2 |
9 |
if ($params{'formats'}) |
|
58
|
0 |
2 |
if $name eq 'seealso' or $name eq 'debug' |
|
61
|
1 |
1 |
if (not $format) { } |
|
|
1 |
0 |
elsif (ref $format eq 'HASH') { } |
|
65
|
0 |
1 |
unless defined $$format{'type'} |
|
66
|
0 |
1 |
unless ref $$format{'filter'} eq 'CODE' or ref $$format{'method'} eq 'CODE' |
|
76
|
0 |
0 |
if ($name eq 'rdfjson') { } |
|
|
0 |
0 |
elsif ($name eq 'n3') { } |
|
|
0 |
0 |
elsif ($name eq 'csv') { } |
|
|
0 |
0 |
elsif ($name eq 'redirect') { } |
|
109
|
10 |
1 |
unless (defined $$self{'formats'}{'opensearchdescription'}) |
|
117
|
0 |
11 |
if defined $params{'logger'} |
|
127
|
7 |
13 |
if (ref $source eq 'CODE') |
|
130
|
0 |
20 |
unless defined $source and UNIVERSAL::isa($source, 'SeeAlso::Source') |
|
133
|
3 |
17 |
if (ref $identifier eq 'CODE') { } |
|
|
0 |
17 |
elsif (UNIVERSAL::isa($identifier, 'SeeAlso::Identifier::Factory')) { } |
|
|
0 |
17 |
elsif (not defined $identifier) { } |
|
142
|
7 |
13 |
unless (UNIVERSAL::isa($identifier, 'SeeAlso::Identifier')) |
|
148
|
6 |
14 |
unless defined $format |
|
149
|
0 |
20 |
unless defined $format |
|
150
|
18 |
2 |
unless defined $callback |
|
151
|
15 |
5 |
unless defined $callback |
|
154
|
0 |
20 |
if $format eq 'debug' and $$self{'debug'} == -1 |
|
155
|
0 |
20 |
if $format eq 'seealso' and $$self{'debug'} == 1 |
|
157
|
0 |
20 |
if ($format eq 'opensearchdescription') |
|
159
|
0 |
0 |
if ($http) |
|
169
|
3 |
17 |
if (not $identifier) { } |
|
|
16 |
1 |
elsif ($format eq 'seealso' or $format eq 'debug' or not $$self{'formats'}{$format} or $$self{'formats'}{$format}{'filter'}) { } |
|
180
|
2 |
14 |
if ($@) { } |
|
184
|
0 |
14 |
if (defined $response and not UNIVERSAL::isa($response, 'SeeAlso::Response')) |
|
190
|
2 |
14 |
unless defined $response |
|
192
|
1 |
15 |
if ($callback and not $callback =~ /^[a-zA-Z0-9\._\[\]]+$/) |
|
202
|
0 |
20 |
if ($$self{'logger'}) |
|
205
|
0 |
0 |
unless $$self{'logger'}->log($$self{'cgi'}, $response, $service) |
|
208
|
0 |
0 |
if $@ |
|
211
|
16 |
4 |
if ($format eq 'seealso') { } |
|
|
0 |
4 |
elsif ($format eq 'debug') { } |
|
213
|
1 |
15 |
if $$self{'expires'} |
|
231
|
0 |
0 |
if $self->errors |
|
239
|
1 |
3 |
if ($f) { } |
|
240
|
0 |
1 |
if ($$f{'filter'}) { } |
|
245
|
1 |
0 |
unless ($$f{'raw'}) |
|
260
|
23 |
4 |
if (defined $$self{'cgi'}) |
|
265
|
0 |
4 |
defined $$self{'cgi'} ? : |
|
274
|
0 |
0 |
unless defined $logger |
|
275
|
0 |
0 |
unless (UNIVERSAL::isa($logger, 'SeeAlso::Logger')) |
|
293
|
4 |
3 |
if ($response->query ne '') |
|
294
|
2 |
2 |
$response->size ? : |
|
300
|
0 |
7 |
if ($$self{'xslt'}) |
|
304
|
0 |
7 |
if ($$self{'clientbase'}) |
|
317
|
0 |
7 |
unless defined $headers |
|
320
|
4 |
3 |
if ($id ne '') { } |
|
328
|
13 |
1 |
if ($format and $name ne 'debug') |
|
330
|
6 |
7 |
if defined $$format{'docs'} |
|
344
|
7 |
4 |
if (defined $message) |
|
357
|
0 |
0 |
unless $source and UNIVERSAL::isa($source, 'SeeAlso::Source') |
|
364
|
0 |
0 |
if defined $shortName |
|
368
|
0 |
0 |
if defined $longName |
|
372
|
0 |
0 |
if defined $description |
|
375
|
0 |
0 |
if defined $descr{'BaseURL'} |
|
379
|
0 |
0 |
if defined $modified |
|
383
|
0 |
0 |
if defined $src |
|
386
|
0 |
0 |
if ($descr{'Examples'}) |
|
391
|
0 |
0 |
if (defined $response) |
|
398
|
0 |
0 |
$baseURL =~ /\?/ ? : |
|
411
|
0 |
0 |
defined $cgi ? : |
|
414
|
0 |
0 |
defined $cgi ? : |
|
418
|
0 |
0 |
if $q |
|
425
|
0 |
36 |
if ($data =~ /[\&\<\>"]/) |