| line |
true |
false |
branch |
|
231
|
0 |
3 |
if ref $class |
|
263
|
0 |
0 |
wantarray ? : |
|
277
|
0 |
69 |
unless eval {
do {
$self->isa('Astro::SIMBAD::Client')
}
} |
|
278
|
10 |
59 |
unless ref $self |
|
281
|
0 |
69 |
unless exists $static{$name} |
|
314
|
0 |
90 |
unless $_ |
|
315
|
6 |
84 |
if (/^-+$/) { } |
|
320
|
6 |
78 |
if $val =~ s/,$// |
|
399
|
0 |
0 |
unless defined $xml_parser |
|
433
|
0 |
0 |
unless @tree > 1 |
|
436
|
0 |
0 |
unless $tag eq $tree[-1][0] |
|
446
|
0 |
0 |
if ($element->[0] eq 'TABLE') |
|
449
|
0 |
0 |
unless 'ARRAY' eq ref $_ |
|
450
|
0 |
0 |
if ($_->[0] eq 'FIELD') { } |
|
|
0 |
0 |
elsif ($_->[0] eq 'DATA') { } |
|
455
|
0 |
0 |
unless 'ARRAY' eq ref $_ |
|
456
|
0 |
0 |
unless $_->[0] eq 'TABLEDATA' |
|
458
|
0 |
0 |
unless 'ARRAY' eq ref $_ |
|
459
|
0 |
0 |
unless $_->[0] eq 'TR' |
|
462
|
0 |
0 |
unless 'ARRAY' eq ref $_ |
|
463
|
0 |
0 |
unless $_->[0] eq 'TD' |
|
478
|
0 |
0 |
defined $_ && $_ eq '~' ? : |
|
492
|
0 |
0 |
if @tree > 1 |
|
505
|
0 |
0 |
$_ ? : |
|
521
|
0 |
0 |
if ('ARRAY' eq $typ) { } |
|
|
0 |
0 |
elsif (not $typ) { } |
|
524
|
0 |
0 |
unless $val =~ /\S/ms |
|
640
|
2 |
0 |
if ($self->get('emulate_soap_queries')) |
|
653
|
0 |
0 |
unless eval {
do {
_load_module('SOAP::Lite');
1
}
} |
|
655
|
0 |
0 |
unless eval {
do {
_load_module('Astro::SIMBAD::Client::WSQueryInterfaceService');
1
}
} |
|
659
|
0 |
0 |
unless $query_args{$query} |
|
661
|
0 |
0 |
unless 'Astro::SIMBAD::Client::WSQueryInterfaceService'->can($method) |
|
665
|
0 |
0 |
if (defined(my $type = $query_args{$query}{'type'})) |
|
667
|
0 |
0 |
if (defined(my $format = $query_args{$query}{'format'})) |
|
670
|
0 |
0 |
if $transform{$args[$type]} |
|
671
|
0 |
0 |
if $debug |
|
672
|
0 |
0 |
unless $args[$format] |
|
676
|
0 |
0 |
$debug ? : |
|
681
|
0 |
0 |
unless defined $resp |
|
683
|
0 |
0 |
wantarray ? : |
|
|
0 |
0 |
if $parser |
|
777
|
0 |
3 |
unless my($rls) = $rslt->content =~ m[Release:.*? | .*?(.*?)]six
|
783
|
2 |
1 |
unless wantarray |
|
785
|
0 |
1 |
unless my($major, $minor, $date) = split(/\s+/, $rls, 4) |
|
791
|
0 |
1 |
unless ($point, my $patch) = $point =~ /^(\d+)(.*)/ |
|
793
|
0 |
1 |
unless defined $patch |
|
846
|
0 |
12 |
unless defined $arg{$key} |
|
851
|
0 |
4 |
if $debug |
|
860
|
0 |
4 |
unless my $rslt = $resp->content |
|
863
|
4 |
0 |
unless ($arg{'verbatim'}) |
|
864
|
0 |
4 |
unless $rslt =~ s/.*?::data:+\s*//ms |
|
868
|
0 |
4 |
if $debug |
|
871
|
4 |
0 |
if (my $parser = $self->_get_parser($arg{'parser'})) { } |
|
872
|
0 |
4 |
if $debug |
|
877
|
0 |
4 |
if $debug |
|
881
|
0 |
4 |
wantarray ? : |
|
883
|
0 |
0 |
if $debug |
|
913
|
0 |
2 |
unless my $rslt = $resp->content |
|
914
|
2 |
0 |
unless ($self->get('verbatim')) |
|
915
|
0 |
2 |
unless $rslt =~ s/.*?::data:+\s*//ms |
|
917
|
2 |
0 |
if (my $parser = $self->_get_parser('script')) { } |
|
921
|
0 |
2 |
wantarray ? : |
|
991
|
0 |
15 |
unless eval {
do {
$self->isa('Astro::SIMBAD::Client')
}
} |
|
995
|
0 |
48 |
unless exists $mutator{$name} |
|
1003
|
13 |
0 |
ref $self ? : |
|
1004
|
4 |
9 |
unless (ref $value) |
|
1005
|
4 |
0 |
$value =~ /=/ ? : |
|
1008
|
0 |
13 |
if $value->{'clear'} |
|
1012
|
0 |
22 |
if (not defined $val) { } |
|
|
10 |
12 |
elsif ($val) { } |
|
1026
|
1 |
5 |
if (my $msg = _is_scheme_valid($value)) |
|
1029
|
5 |
0 |
ref $self ? : |
|
1095
|
0 |
0 |
if @_ % 2 |
|
1103
|
0 |
0 |
unless exists $args{$key} |
|
1105
|
0 |
0 |
unless ($args{'output.format'}) |
|
1114
|
0 |
0 |
if (my $type = $type_unmap{$args{'output.format'}}) |
|
1116
|
0 |
0 |
wantarray ? : |
|
|
0 |
0 |
if $parser |
|
1138
|
1 |
16 |
unless defined $fragment |
|
1140
|
2 |
15 |
if eval {
do {
$fragment->isa('HTTP::Request')
}
} |
|
1174
|
6 |
3 |
if ((my $delay = $last + $self->{'delay'} - &Astro::SIMBAD::Client::time()) > 0) |
|
1207
|
0 |
0 |
unless $deprecate{$type} |
|
1208
|
0 |
0 |
unless $deprecate{$type}{$name} |
|
1210
|
0 |
0 |
$deprecate{$type}{$name} > 2 ? : |
|
1211
|
0 |
0 |
if defined $repl |
|
1213
|
0 |
0 |
if $deprecate{$type}{$name} >= 3 |
|
1215
|
0 |
0 |
if warnings::enabled('deprecated') |
|
1218
|
0 |
0 |
if $deprecate{$type}{$name} == 1 |
|
1249
|
10 |
0 |
if ($parser and not ref $parser) |
|
1252
|
0 |
10 |
unless ($parser = $pkg->can($code) or not $self->get('autoload')) |
|
1256
|
0 |
10 |
unless $parser |
|
1290
|
1 |
11 |
unless $supported{$scheme} |
|
1292
|
10 |
1 |
if LWP::Protocol::implementor($scheme) |
|
1311
|
0 |
10 |
if exists $error{$module} |
|
1312
|
0 |
10 |
if exists $rslt{$module} |
|
1314
|
10 |
0 |
if $@ |
|
1350
|
4 |
9 |
unless ($pkg) |
|
1354
|
18 |
12 |
if $tried{$pkg} |
|
1356
|
0 |
12 |
if $pkg->can($code) |
|
1358
|
4 |
0 |
if not $pkg and $self->can($code) |
|
1359
|
0 |
4 |
unless defined $pkg |
|
1364
|
10 |
3 |
wantarray ? : |
|
1398
|
2 |
7 |
if (eval {
do {
$url->isa('HTTP::Request')
}
}) { } |
|
|
4 |
3 |
elsif ($self->get('post') and %$args) { } |
|
1399
|
0 |
2 |
if $debug |
|
1404
|
0 |
4 |
if ($debug) |
|
1419
|
0 |
3 |
if $debug |
|
1422
|
0 |
9 |
if $debug |
|
1425
|
9 |
0 |
if $resp->is_success |
|
1428
|
0 |
0 |
unless my $rq = $resp->request |