| line |
true |
false |
branch |
|
239
|
0 |
3 |
if ref $class |
|
271
|
0 |
0 |
wantarray ? : |
|
285
|
0 |
69 |
unless eval {
do {
$self->isa("Astro::SIMBAD::Client")
}
} |
|
286
|
10 |
59 |
unless ref $self |
|
289
|
0 |
69 |
unless exists $static{$name} |
|
322
|
0 |
90 |
unless $_ |
|
323
|
6 |
84 |
if (/^-+$/) { } |
|
328
|
6 |
78 |
if $val =~ s/,$// |
|
407
|
0 |
0 |
unless defined $xml_parser |
|
441
|
0 |
0 |
unless @tree > 1 |
|
444
|
0 |
0 |
unless $tag eq $tree[-1][0] |
|
454
|
0 |
0 |
if ($element->[0] eq "TABLE") |
|
457
|
0 |
0 |
unless "ARRAY" eq ref $_ |
|
458
|
0 |
0 |
if ($_->[0] eq 'FIELD') { } |
|
|
0 |
0 |
elsif ($_->[0] eq 'DATA') { } |
|
463
|
0 |
0 |
unless "ARRAY" eq ref $_ |
|
464
|
0 |
0 |
unless $_->[0] eq "TABLEDATA" |
|
466
|
0 |
0 |
unless "ARRAY" eq ref $_ |
|
467
|
0 |
0 |
unless $_->[0] eq "TR" |
|
470
|
0 |
0 |
unless "ARRAY" eq ref $_ |
|
471
|
0 |
0 |
unless $_->[0] eq "TD" |
|
486
|
0 |
0 |
defined $_ && $_ eq '~' ? : |
|
500
|
0 |
0 |
if @tree > 1 |
|
513
|
0 |
0 |
$_ ? : |
|
529
|
0 |
0 |
if ('ARRAY' eq $typ) { } |
|
|
0 |
0 |
elsif (not $typ) { } |
|
532
|
0 |
0 |
unless $val =~ /\S/ms |
|
648
|
2 |
0 |
if ($self->get("emulate_soap_queries")) |
|
661
|
0 |
0 |
unless eval {
do {
_load_module("SOAP::Lite");
1
}
} |
|
663
|
0 |
0 |
unless eval {
do {
_load_module("Astro::SIMBAD::Client::WSQueryInterfaceService");
1
}
} |
|
667
|
0 |
0 |
unless $query_args{$query} |
|
669
|
0 |
0 |
unless "Astro::SIMBAD::Client::WSQueryInterfaceService"->can($method) |
|
673
|
0 |
0 |
if (defined(my $type = $query_args{$query}{'type'})) |
|
675
|
0 |
0 |
if (defined(my $format = $query_args{$query}{'format'})) |
|
678
|
0 |
0 |
if $transform{$args[$type]} |
|
679
|
0 |
0 |
if $debug |
|
680
|
0 |
0 |
unless $args[$format] |
|
684
|
0 |
0 |
$debug ? : |
|
689
|
0 |
0 |
unless defined $rslt |
|
690
|
0 |
0 |
if &HAVE_DOUBLE_ENCODED() |
|
692
|
0 |
0 |
wantarray ? : |
|
|
0 |
0 |
if $parser |
|
786
|
0 |
3 |
unless my($rls) = $rslt->content =~ m[Release:.*? | .*?(.*?)]six
|
792
|
2 |
1 |
unless wantarray |
|
794
|
0 |
1 |
unless my($major, $minor, $date) = split(/\s+/, $rls, 4) |
|
800
|
0 |
1 |
unless ($point, my $patch) = $point =~ /^(\d+)(.*)/ |
|
802
|
0 |
1 |
unless defined $patch |
|
855
|
0 |
12 |
unless defined $arg{$key} |
|
860
|
0 |
4 |
if $debug |
|
869
|
0 |
4 |
unless my $rslt = $resp->content |
|
872
|
4 |
0 |
unless ($arg{'verbatim'}) |
|
873
|
0 |
4 |
unless $rslt =~ s/.*?::data:+\s*//ms |
|
877
|
0 |
4 |
if $debug |
|
879
|
0 |
4 |
if &HAVE_DOUBLE_ENCODED() |
|
881
|
4 |
0 |
if (my $parser = $self->_get_parser($arg{'parser'})) { } |
|
882
|
0 |
4 |
if $debug |
|
887
|
0 |
4 |
if $debug |
|
891
|
0 |
4 |
wantarray ? : |
|
893
|
0 |
0 |
if $debug |
|
923
|
0 |
2 |
unless my $rslt = $resp->content |
|
924
|
2 |
0 |
unless ($self->get("verbatim")) |
|
925
|
0 |
2 |
unless $rslt =~ s/.*?::data:+\s*//ms |
|
927
|
2 |
0 |
if (my $parser = $self->_get_parser('script')) { } |
|
931
|
0 |
2 |
wantarray ? : |
|
1001
|
0 |
15 |
unless eval {
do {
$self->isa("Astro::SIMBAD::Client")
}
} |
|
1005
|
0 |
48 |
unless exists $mutator{$name} |
|
1013
|
13 |
0 |
ref $self ? : |
|
1014
|
4 |
9 |
unless (ref $value) |
|
1015
|
4 |
0 |
$value =~ /=/ ? : |
|
1018
|
0 |
13 |
if $value->{'clear'} |
|
1022
|
0 |
22 |
if (not defined $val) { } |
|
|
10 |
12 |
elsif ($val) { } |
|
1036
|
1 |
5 |
if (my $msg = _is_scheme_valid($value)) |
|
1039
|
5 |
0 |
ref $self ? : |
|
1105
|
0 |
0 |
if @_ % 2 |
|
1113
|
0 |
0 |
unless exists $args{$key} |
|
1115
|
0 |
0 |
unless ($args{'output.format'}) |
|
1123
|
0 |
0 |
if &HAVE_DOUBLE_ENCODED() |
|
1127
|
0 |
0 |
if (my $type = $type_unmap{$args{'output.format'}}) |
|
1129
|
0 |
0 |
wantarray ? : |
|
|
0 |
0 |
if $parser |
|
1151
|
1 |
16 |
unless defined $fragment |
|
1153
|
2 |
15 |
if eval {
do {
$fragment->isa("HTTP::Request")
}
} |
|
1187
|
6 |
3 |
if ((my $delay = $last + $self->{'delay'} - &Astro::SIMBAD::Client::time()) > 0) |
|
1220
|
0 |
0 |
unless $deprecate{$type} |
|
1221
|
0 |
0 |
unless $deprecate{$type}{$name} |
|
1223
|
0 |
0 |
$deprecate{$type}{$name} > 2 ? : |
|
1224
|
0 |
0 |
if defined $repl |
|
1226
|
0 |
0 |
if $deprecate{$type}{$name} >= 3 |
|
1228
|
0 |
0 |
if warnings::enabled("deprecated") |
|
1231
|
0 |
0 |
if $deprecate{$type}{$name} == 1 |
|
1262
|
10 |
0 |
if ($parser and not ref $parser) |
|
1265
|
0 |
10 |
unless ($parser = $pkg->can($code) or not $self->get("autoload")) |
|
1269
|
0 |
10 |
unless $parser |
|
1303
|
1 |
11 |
unless $supported{$scheme} |
|
1305
|
10 |
1 |
if LWP::Protocol::implementor($scheme) |
|
1324
|
0 |
10 |
if exists $error{$module} |
|
1325
|
0 |
10 |
if exists $rslt{$module} |
|
1327
|
10 |
0 |
if $@ |
|
1363
|
4 |
9 |
unless ($pkg) |
|
1367
|
18 |
12 |
if $tried{$pkg} |
|
1369
|
0 |
12 |
if $pkg->can($code) |
|
1371
|
4 |
0 |
if not $pkg and $self->can($code) |
|
1372
|
0 |
4 |
unless defined $pkg |
|
1377
|
10 |
3 |
wantarray ? : |
|
1411
|
2 |
7 |
if (eval {
do {
$url->isa('HTTP::Request')
}
}) { } |
|
|
4 |
3 |
elsif ($self->get('post') and %$args) { } |
|
1412
|
0 |
2 |
if $debug |
|
1417
|
0 |
4 |
if ($debug) |
|
1432
|
0 |
3 |
if $debug |
|
1435
|
0 |
9 |
if $debug |
|
1438
|
9 |
0 |
if $resp->is_success |
|
1441
|
0 |
0 |
unless my $rq = $resp->request |