| line |
true |
false |
branch |
|
725
|
0 |
10 |
if ref $class |
|
769
|
0 |
10 |
if $ENV{'SPACETRACK_OPT'} |
|
775
|
0 |
10 |
if (defined(my $id = delete $arg{'identity'})) { } |
|
|
0 |
10 |
elsif ($ENV{'SPACETRACK_USER'}) { } |
|
779
|
0 |
0 |
unless "" ne $user and "" ne $pass |
|
789
|
0 |
10 |
if defined $ENV{'SPACETRACK_VERIFY_HOSTNAME'} |
|
791
|
2 |
8 |
if keys %arg |
|
871
|
1 |
0 |
unless ($self->{'with_name'}) |
|
874
|
0 |
1 |
if @content % 3 |
|
885
|
0 |
1 |
if "" eq $resp->content |
|
907
|
0 |
1 |
wantarray ? : |
|
|
1 |
0 |
unless ref $self |
|
912
|
0 |
0 |
$mutator{$_} == \&Astro::SpaceTrack::_mutate_spacetrack_interface ? : |
|
915
|
0 |
0 |
wantarray ? : |
|
935
|
1 |
0 |
$] >= 5.01 ? : |
|
1041
|
1 |
1 |
unless $resp->is_success |
|
1050
|
0 |
1 |
unless "json" eq $format |
|
1055
|
1 |
0 |
unless ($opt->{'json'}) |
|
1066
|
0 |
100 |
if defined $datum->{'SPADOC_CD'} and $datum->{'SPADOC_CD'} eq "ALL" |
|
1068
|
0 |
1000 |
defined $datum->{$_} ? : |
|
1076
|
1 |
0 |
unless wantarray |
|
1095
|
0 |
0 |
unless $catalogs{$name} |
|
1202
|
0 |
3 |
unless defined $name |
|
1212
|
0 |
3 |
if ref($query = $self->_celestrak_validate_query(delete $opt->{'query'}, $name, {"CATNR" => 1,"GROUP" => 1,"INTDES" => 1,"NAME" => 1,"SPECIAL" => 1}, "GROUP")) |
|
1218
|
0 |
3 |
if ref($format = $self->_celestrak_validate_format(delete $opt->{'format'})) |
|
1233
|
1 |
2 |
if $check = $self->_celestrak_response_check($resp, "celestrak", $name) |
|
1236
|
1 |
1 |
if $name eq "iridium" |
|
1403
|
0 |
1 |
if $opt->{'rms'} and $opt->{'match'} |
|
1408
|
1 |
1 |
if ($opt->{'rms'} or $opt->{'match'}) |
|
1410
|
0 |
2 |
if defined $opt->{$key} |
|
1424
|
0 |
1 |
unless not $opt->{$key} or $info->{$key} |
|
1434
|
1 |
1 |
if ($opt->{'rms'}) { } |
|
|
0 |
1 |
elsif ($opt->{'match'}) { } |
|
1444
|
1 |
0 |
unless defined $source |
|
1449
|
0 |
1 |
if ref($query = $self->_celestrak_validate_query(delete $opt->{'query'}, $name, {"CATNR" => 1,"FILE" => 1,"INTDES" => 1,"NAME" => 1,"SOURCE" => 1,"SPECIAL" => 1}, "FILE")) |
|
1455
|
0 |
1 |
if ref($format = $self->_celestrak_validate_format(delete $opt->{'format'})) |
|
1471
|
0 |
2 |
if $check = $self->_celestrak_response_check($resp, "celestrak_supplemental", $name) |
|
1486
|
0 |
4 |
defined $format ? : |
|
1487
|
0 |
4 |
unless $valid_format{$format} |
|
1491
|
0 |
4 |
if $format eq "JSON" and $self->getv("pretty") |
|
1500
|
4 |
0 |
defined $dflt ? : |
|
|
0 |
4 |
$name =~ / \A [0-9]{4}-[0-9]+ \z /msx ? : |
|
|
0 |
4 |
$name =~ / \A [0-9]+ \z /msx ? : |
|
|
0 |
4 |
defined $query ? : |
|
1504
|
0 |
4 |
unless defined $query |
|
1506
|
0 |
4 |
unless $valid->{$query} |
|
1528
|
0 |
5 |
unless ($resp->is_success) |
|
1529
|
0 |
0 |
if $resp->code == 404 |
|
1534
|
0 |
5 |
if (my $loc = $resp->header("Content-Location")) |
|
1535
|
0 |
0 |
if ($loc =~ / redirect [.] htm [?] ( \d{3} ) ; /msx) |
|
1537
|
0 |
0 |
if @args |
|
1538
|
0 |
0 |
if $1 == 404 |
|
1545
|
0 |
5 |
unless (my $type = lc $resp->header("Content-Type")) |
|
1547
|
0 |
0 |
if @args |
|
1553
|
0 |
5 |
unless $valid_type{$type} |
|
1559
|
0 |
5 |
if /^No GP data found\b/ms |
|
1562
|
1 |
4 |
if /^(?:GROUP|FILE) "[^"]+" does not exist/ms |
|
1567
|
0 |
1 |
if @args |
|
1699
|
93 |
5 |
unless defined $resp |
|
1703
|
2 |
1 |
if / $re \s+ = \s+ (.+) /imsx |
|
1763
|
0 |
1 |
unless $resp->is_success |
|
1772
|
0 |
1 |
unless "json" eq $format |
|
1782
|
0 |
100 |
if defined $datum->{'SPADOC_CD'} |
|
1785
|
0 |
1 |
if ($opt->{'json'}) { } |
|
1847
|
0 |
1 |
unless @args and defined $args[0] |
|
1849
|
0 |
1 |
if @args > 1 |
|
1863
|
1 |
0 |
unless $resp->is_success |
|
1866
|
0 |
0 |
if _spacetrack_v2_response_is_empty($resp) |
|
1922
|
1 |
0 |
unless (&Scalar::Util::openhandle($file)) |
|
1923
|
0 |
1 |
unless -e $file |
|
1925
|
0 |
1 |
unless my $fh = "IO::File"->new($file, "<") |
|
1959
|
0 |
0 |
if $text eq "" |
|
1975
|
0 |
1 |
wantarray ? : |
|
1983
|
0 |
0 |
if ($value) { } |
|
1987
|
0 |
0 |
if $value & $mask |
|
2010
|
0 |
66 |
unless defined $name |
|
2012
|
0 |
66 |
unless my $code = $accessor{$name} |
|
2044
|
0 |
1 |
if ($self->{'webcmd'}) { } |
|
2046
|
0 |
0 |
if (1 eq $cmd) |
|
2406
|
2 |
0 |
unless defined $fmt |
|
2412
|
2 |
0 |
if (not $opt->{'raw'} or $ignore_raw{$fmt}) |
|
2414
|
0 |
2 |
unless $resp->is_success |
|
2418
|
1 |
1 |
unless ("kelso" eq $fmt) |
|
2419
|
0 |
1 |
unless my $code = $self->can("_iridium_status_$fmt") |
|
2421
|
0 |
1 |
unless ($resp = &$code($self, $fmt, \%rslt))->is_success |
|
2425
|
2 |
0 |
unless ($opt->{'raw'}) |
|
2427
|
58 |
132 |
if $rslt{$body->[0]} and $body->[4] != 3 |
|
2443
|
0 |
2 |
wantarray ? : |
|
2455
|
0 |
2 |
unless $resp->is_success |
|
2461
|
62 |
0 |
if $name =~ s/ \s+ ( [[] .+? []] ) \s* \z //msx |
|
2479
|
2 |
29 |
unless $val->[1] =~ / \A iridium \b /imsx |
|
2514
|
0 |
1 |
unless $resp->is_success |
|
2518
|
2 |
29 |
if ($rslt->{$id}[1] =~ / dummy /imsx) |
|
2523
|
0 |
29 |
unless $rslt->{$id}[1] =~ / (\d+) /msx |
|
2542
|
1 |
80 |
if (/ < -+ \s+ failed \s+ (?: or \s+ retired \s+ )? -+ > /imsx) { } |
|
|
12 |
68 |
elsif (s/ \A \s* ( plane \s+ \d+ ) \s* : \s* //imsx) { } |
|
|
1 |
67 |
elsif (/ Notes: /msx) { } |
|
2556
|
141 |
29 |
unless (my $id = $oid{$num}) |
|
2563
|
29 |
0 |
if ($fail) { } |
|
2568
|
0 |
0 |
$inx > 10 ? : |
|
2572
|
0 |
0 |
if exists $exception{$num} |
|
2610
|
0 |
0 |
unless $resp->is_success |
|
2615
|
0 |
0 |
unless $body->{'LAUNCH_YEAR'} < 2017 |
|
2620
|
0 |
0 |
if $rslt->{$oid} and not $body->{'DECAY'} |
|
2625
|
0 |
0 |
defined $body->{'DECAY'} ? : |
|
2698
|
0 |
1 |
unless $resp->is_success |
|
2707
|
0 |
1 |
if "json" ne $format |
|
2717
|
0 |
34 |
if defined $datum->{'SITE_CODE'} |
|
2720
|
0 |
1 |
if ($opt->{'json'}) { } |
|
2735
|
1 |
0 |
unless wantarray |
|
2767
|
0 |
2 |
if @args |
|
2768
|
0 |
2 |
unless $self->{'username'} and $self->{'password'} |
|
2771
|
0 |
2 |
if $self->{'dump_headers'} & 1 |
|
2793
|
0 |
2 |
unless $resp->is_success |
|
2797
|
0 |
2 |
if $resp->content =~ / \b failed \b /imsx |
|
2800
|
0 |
2 |
unless $self->_record_cookie_generic(2) |
|
2803
|
0 |
2 |
if $self->{'dump_headers'} & 1 |
|
2822
|
8 |
4 |
unless $spacetrack_interface_info |
|
2825
|
4 |
0 |
if exists $spacetrack_interface_info->{'session_cookie'} |
|
2827
|
4 |
0 |
if exists $spacetrack_interface_info->{'cookie_expires'} |
|
2919
|
0 |
6 |
if defined $info->{'member'} |
|
2920
|
0 |
6 |
unless IO::Uncompress::Unzip::unzip(\$resp->content, \$content, @zip_opt) |
|
2958
|
1 |
1 |
unless $catalogs{$name} |
|
2961
|
0 |
1 |
if $name eq "spacetrack" |
|
2965
|
0 |
53 |
defined $src->{$cat}{'number'} ? : |
|
2970
|
1 |
0 |
unless wantarray |
|
3098
|
1 |
33 |
unless @args = $self->_expand_oid_list(@args) |
|
3109
|
12 |
21 |
$no_execute ? : |
|
3128
|
0 |
35 |
unless $resp->is_success or $resp->code == 418 |
|
3136
|
0 |
33 |
unless my $data = &$accumulator($self) |
|
3139
|
0 |
33 |
if ref $data |
|
3142
|
12 |
21 |
if $no_execute |
|
3172
|
5 |
33 |
if ($opt->{'start_epoch'} or $opt->{'end_epoch'}) |
|
3180
|
1 |
37 |
$opt->{'descending'} ? : |
|
3182
|
1 |
37 |
if ($opt->{'since_file'}) |
|
3187
|
0 |
38 |
if ($opt->{'status'} and $opt->{'status'} ne "onorbit") |
|
3196
|
38 |
190 |
if defined $opt->{$name} |
|
3199
|
34 |
4 |
if ("legacy" eq $rest{'format'}) |
|
3200
|
9 |
25 |
if ($self->{'with_name'}) { } |
|
3203
|
9 |
0 |
unless defined $rest{'predicates'} |
|
3210
|
2 |
30 |
$opt->{'last5'} ? : |
|
|
32 |
6 |
if $rest{'class'} eq "tle_latest" |
|
3243
|
100 |
1100 |
unless not defined $_->[0] |
|
3267
|
12 |
38 |
if ($pred eq "OBJECT_NUMBER") |
|
3269
|
0 |
12 |
unless @args = $self->_expand_oid_list(@args) |
|
3285
|
50 |
0 |
if ($opt->{'tle'} or 'legacy' eq $opt->{'format'}) { } |
|
3293
|
0 |
50 |
defined $rest_args->{'class'} ? : |
|
3307
|
31 |
19 |
unless $rslt->is_success |
|
3315
|
14 |
5 |
if ($opt->{'tle'}) { } |
|
3317
|
0 |
14 |
unless defined $opt->{'format'} |
|
3318
|
0 |
14 |
unless "ARRAY" eq ref $data |
|
3329
|
5 |
0 |
if ("legacy" eq $opt->{'format'}) |
|
3336
|
106 |
26 |
defined $datum->{$_} ? : |
|
3349
|
0 |
5 |
if wantarray and $data |
|
3375
|
0 |
50 |
unless %args |
|
3379
|
50 |
0 |
unless exists $args{'class'} |
|
3382
|
50 |
0 |
unless $args{'class'} ne "satcat" or exists $args{'CURRENT'} |
|
3384
|
0 |
50 |
unless exists $args{'format'} |
|
3386
|
50 |
0 |
unless exists $args{'predicates'} |
|
3388
|
50 |
0 |
unless exists $args{'orderby'} |
|
3803
|
0 |
1 |
if $lo > $hi |
|
3804
|
0 |
1 |
unless $lo |
|
3805
|
0 |
1 |
if ($hi - $lo >= $self->{'max_range'}) |
|
3836
|
0 |
0 |
unless @{$cmd_line;} % 2 |
|
3848
|
0 |
62 |
unless $mutator{$name} |
|
3854
|
0 |
56 |
if @args |
|
4023
|
1 |
0 |
_instance($args[0], 'Astro::SpaceTrack') ? : |
|
4032
|
0 |
1 |
if $self->{'banner'} and not $self->{'filter'} |
|
4042
|
4 |
0 |
if (@args) { } |
|
4048
|
0 |
0 |
$interactive ? : |
|
4051
|
0 |
4 |
unless defined $buffer |
|
4055
|
1 |
3 |
unless $buffer |
|
4056
|
1 |
2 |
if $buffer =~ / \A [#] /msx |
|
4069
|
0 |
4 |
$redir =~ / \A >+ \z /msx ? : |
|
|
0 |
4 |
/ \A > /msx ? : |
|
4078
|
0 |
2 |
if $redir ne "" |
|
4092
|
0 |
0 |
unless $def->{$key} |
|
4101
|
1 |
1 |
if $verb eq "exit" or $verb eq "bye" |
|
4103
|
0 |
1 |
if ($verb eq "source") |
|
4104
|
0 |
0 |
unless eval {
do {
splice @args, 0, 0, $self->_source(shift @cmdarg);
1
}
} |
|
4114
|
0 |
1 |
unless ($verb ne "new" and $verb ne "shell" and not $verb =~ / \A _ [^_] /msx) |
|
4121
|
0 |
1 |
if ($redir) { } |
|
4122
|
0 |
0 |
unless ($out = "IO::File"->new($redir)) |
|
4138
|
0 |
1 |
if ($verb eq 'get' and @cmdarg == 0) { } |
|
4142
|
0 |
0 |
defined $val ? : |
|
4148
|
0 |
1 |
unless (eval {
do {
$rslt = $self->$verb(@cmdarg);
1
}
}) |
|
4158
|
0 |
1 |
if ('ARRAY' eq ref $rslt) { } |
|
|
0 |
1 |
elsif (not ref $rslt) { } |
|
|
1 |
0 |
elsif ($rslt->is_success) { } |
|
4165
|
0 |
1 |
unless $self->content_type or not $self->{'filter'} |
|
4174
|
0 |
0 |
if $rslt->code == 418 |
|
4179
|
0 |
1 |
if $interactive and not $self->{'filter'} |
|
4188
|
0 |
1 |
if @_ > 1 |
|
4190
|
0 |
1 |
if ("Term::ReadLine::Perl" eq $rdln->ReadLine) |
|
4220
|
0 |
0 |
_instance($_[0], 'Astro::SpaceTrack') ? : |
|
4312
|
0 |
0 |
unless my $code = $unpack_query{ref $arg} |
|
4340
|
1 |
4 |
unless defined $catalog and my $info = $catalogs{'spacetrack'}[2]{$catalog} |
|
4344
|
0 |
4 |
if defined $info->{'deprecate'} |
|
4347
|
1 |
3 |
if defined $info->{'favorite'} |
|
4355
|
3 |
0 |
if $info->{'tle'} |
|
4359
|
0 |
3 |
if ($info->{'satcat'}) { } |
|
4375
|
0 |
0 |
unless $rslt->is_success |
|
4389
|
0 |
0 |
unless $rslt->is_success |
|
4399
|
2 |
1 |
unless $rslt->is_success |
|
4471
|
95 |
0 |
unless $SPACETRACK_DELAY_SECONDS |
|
4473
|
0 |
0 |
if $self->{'dump_headers'} & 4 |
|
4475
|
0 |
0 |
if (defined $spacetrack_delay_until) |
|
4477
|
0 |
0 |
if $now < $spacetrack_delay_until |
|
4515
|
48 |
47 |
if (my $resp = $self->_dump_request("args", \@args, "method", "GET", "url", $uri, "version", 2)) |
|
4525
|
1 |
46 |
unless ($self->_check_cookie_generic(2)) |
|
4527
|
0 |
1 |
unless $resp->is_success |
|
4534
|
47 |
0 |
if ($resp->is_success) |
|
4536
|
0 |
47 |
if ($self->{'pretty'} and _find_rest_arg_value(\@args, "format", "json") eq "json") |
|
4544
|
2 |
45 |
if ("Astro::SpaceTrack" ne caller) |
|
4551
|
1 |
1 |
if ('modeldef' eq $kind) { } |
|
|
1 |
0 |
elsif ('query' eq $kind and $tle_class{$class}) { } |
|
4579
|
4 |
4 |
if $args->[$inx] eq $name |
|
4672
|
0 |
0 |
if delete $opt->{'start_epoch'} |
|
4674
|
0 |
0 |
if delete $opt->{'end_epoch'} |
|
4680
|
0 |
0 |
unless open my $fh, "<", $fn |
|
4692
|
0 |
0 |
defined $datum->{'_file_of_record'} ? : |
|
4693
|
0 |
0 |
if $ff > $file |
|
4698
|
0 |
0 |
unless defined $opt->{'since_file'} |
|
4700
|
0 |
0 |
$self->getv('with_name') ? : |
|
|
0 |
0 |
delete $opt->{'json'} ? : |
|
4706
|
0 |
0 |
if ($resp->code == 404) { } |
|
4717
|
0 |
0 |
unless $resp->is_success |
|
4727
|
0 |
0 |
unless open my $fh, ">", $fn |
|
4814
|
52 |
54 |
unless defined $resp |
|
4817
|
0 |
54 |
unless defined $content and $content ne "" |
|
4822
|
1 |
53 |
if $context->{'opt'}{'file'} and $data |
|
4832
|
0 |
1 |
if (defined $context->{'file'}) { } |
|
4836
|
0 |
0 |
if defined $datum->{'FILE'} and $datum->{'FILE'} > $context->{'file'} |
|
4873
|
0 |
0 |
if (defined $context->{'data'}) { } |
|
4887
|
0 |
0 |
if (defined $context->{'data'}) { } |
|
4908
|
0 |
33 |
unless "ARRAY" eq ref $data |
|
4911
|
1 |
32 |
unless @{$data;} |
|
4914
|
1 |
31 |
if ($context->{'data'}) { } |
|
4935
|
19 |
13 |
wantarray ? : |
|
4941
|
0 |
0 |
if defined $context->{'data'} |
|
4958
|
0 |
0 |
if (defined $context->{'data'}) { } |
|
4975
|
0 |
2 |
unless defined $version |
|
4982
|
0 |
2 |
if $self->{'dump_headers'} & 8 |
|
4984
|
0 |
2 |
unless $_[4] eq $domain |
|
4986
|
0 |
2 |
unless $_[3] eq "/" |
|
4988
|
0 |
2 |
unless $_[1] eq $cookie_name |
|
4997
|
2 |
0 |
if $version == 2 and not defined $expires |
|
5001
|
2 |
0 |
if (defined $cookie) { } |
|
5003
|
0 |
2 |
if $self->{'dump_headers'} & 1 |
|
5005
|
2 |
0 |
if (exists $interface_info->{'cookie_expires'}) |
|
5007
|
0 |
2 |
if $self->{'dump_headers'} & 1 |
|
5013
|
0 |
0 |
$interface_info->{'session_cookie'} ? : |
|
5015
|
0 |
0 |
if $self->{'dump_headers'} & 1 |
|
5024
|
0 |
47 |
unless defined $version |
|
5027
|
47 |
0 |
if (exists $interface_info->{'cookie_expires'}) { } |
|
5051
|
0 |
33 |
unless defined $buffer |
|
5055
|
1 |
32 |
unless $buffer =~ / \n \z /msx |
|
5098
|
6 |
90 |
unless my $level = $deprecate{$method} |
|
5101
|
90 |
0 |
if (ref $level) |
|
5102
|
0 |
90 |
unless defined $argument |
|
5103
|
90 |
0 |
unless $level = $level->{$argument} |
|
5107
|
0 |
0 |
if $level >= 3 |
|
5109
|
0 |
0 |
if warnings::enabled("deprecated") |
|
5111
|
0 |
0 |
unless 1 == $level |
|
5113
|
0 |
0 |
if (ref $deprecate{$method}) { } |
|
5151
|
0 |
0 |
if $prefix |
|
5168
|
0 |
133 |
if ($self->{'dump_headers'} & 16) |
|
5170
|
0 |
0 |
if ($self->{'dump_headers'} & 32 and 61 < length $content) |
|
5177
|
0 |
0 |
@val > 1 ? : |
|
5179
|
0 |
0 |
if (my $rqst = $resp->request) |
|
5187
|
0 |
0 |
unless defined $message |
|
5207
|
73 |
48 |
unless $self->{'dump_headers'} & 2 |
|
5211
|
48 |
0 |
unless defined $message |
|
5215
|
0 |
48 |
unless my $json = $self->_get_json_object("pretty", 1) |
|
5219
|
192 |
0 |
unless "CODE" eq ref $args{$key} |
|
5224
|
48 |
0 |
if $self->{'dump_headers'} & 4 |
|
5237
|
22 |
61 |
unless defined $arg{'pretty'} |
|
5240
|
60 |
23 |
if $arg{'pretty'} |
|
5256
|
1 |
210 |
if (my($lo, $hi) = $arg =~ / \A \s* ( \d+ ) \s* - \s* ( \d+ ) \s* \z /msx) { } |
|
|
210 |
0 |
elsif ($arg =~ / \A \s* ( \d+ ) \s* \z /msx) { } |
|
5259
|
1 |
0 |
if ($lo, $hi) = $self->_check_range($lo, $hi) |
|
5280
|
28 |
0 |
if ('ARRAY' eq ref $lgl_opts) { } |
|
5307
|
4 |
10 |
if @parts >= 3 |
|
5309
|
9 |
1 |
if @parts >= 2 |
|
5320
|
0 |
14 |
unless my(@parts) = _parse_launch_date($date) |
|
5322
|
14 |
0 |
if @parts >= 3 |
|
5324
|
0 |
0 |
if @parts >= 2 |
|
5348
|
59 |
7 |
if $self->{'agent'} |
|
5357
|
7 |
0 |
unless $agent->cookie_jar |
|
5404
|
0 |
12 |
defined $arg{'method'} ? : |
|
5409
|
6 |
6 |
if (defined $arg{'url'}) { } |
|
|
6 |
0 |
elsif (exists $arg{'catalog'}) { } |
|
5416
|
0 |
6 |
unless defined $arg{'catalog'} and $catalogs{$method} and $info = $catalogs{$method}{$arg{'catalog'}} |
|
5419
|
0 |
6 |
unless $url = $info->{'url'} |
|
5424
|
0 |
12 |
if (my $resp = $self->_dump_request("args", {map({$_, "CODE" eq ref $arg{$_} ? "sub { ... }" : $arg{$_};} keys %arg)}, "method", "GET", "url", $url, "version", 2)) |
|
5425
|
12 |
25 |
'CODE' eq ref $arg{$_} ? : |
|
5436
|
1 |
11 |
if (defined $arg{'file'}) |
|
5437
|
1 |
0 |
if (my(@stat) = stat $arg{'file'}) |
|
5449
|
0 |
0 |
if delete $sanitary{$key} |
|
5460
|
0 |
0 |
@v == 1 ? : |
|
5465
|
0 |
12 |
if $resp = $self->_dump_request("arg", sub {
my(%sanitary) = %arg;
foreach my $key ("post_process") {
$sanitary{$key} = "CODE" if delete $sanitary{$key};
} ;
return \%sanitary;
}
, "message", "_get_from_net() request object", "method", "GET", "url", $url, "hdrs", sub {
my %rslt;
foreach my $name ($rqst->header_field_names) {
my(@v) = $rqst->header($name);
$rslt{$name} = @v == 1 ? $v[0] : \@v;
} ;
return \%rslt;
}
) |
|
5470
|
0 |
12 |
if ($resp->code == 304) { } |
|
5472
|
0 |
0 |
unless defined $arg{'file'} |
|
5475
|
0 |
0 |
unless open my $fh, "<", $arg{'file'} |
|
5481
|
0 |
0 |
if defined $file_time |
|
5487
|
12 |
0 |
if $resp->is_success and defined $arg{'post_process'} |
|
5488
|
1 |
11 |
unless $resp->is_success |
|
5491
|
1 |
10 |
if (defined $arg{'file'}) |
|
5493
|
0 |
1 |
unless open my $fh, ">", $arg{'file'} |
|
5506
|
0 |
7 |
defined $info->{'spacetrack_source'} ? : |
|
|
7 |
4 |
unless defined $arg{'spacetrack_source'} |
|
5511
|
6 |
10 |
defined $info->{$_} ? : |
|
|
17 |
16 |
defined $arg{$_} ? : |
|
5528
|
2 |
97 |
unless defined $version |
|
5567
|
0 |
1 |
unless my($id) = / \A ( [\s\d]{5} ) /msx |
|
5568
|
0 |
1 |
unless $id =~ / \A \s* \d+ \z /msx |
|
5575
|
0 |
1 |
if ($opt->{'observing_list'}) { } |
|
5577
|
0 |
0 |
/ \n \z /msx ? : |
|
5587
|
1 |
0 |
if ($resp->is_success) |
|
5589
|
0 |
1 |
unless ($self->{'_pragmata'}) |
|
5598
|
0 |
1 |
wantarray ? : |
|
5606
|
0 |
1 |
unless ref $object |
|
5607
|
0 |
1 |
unless &Scalar::Util::blessed($object) |
|
5629
|
0 |
0 |
unless $resp->code == 500 |
|
5631
|
0 |
0 |
unless (my $msg = $resp->message) =~ s/ ( [(] certificate\ verify\ failed ) [)]/$1; try setting the verify_hostname attribute false)/msx |
|
5650
|
0 |
23 |
if ($value =~ / \A --? /msx) { } |
|
5657
|
0 |
0 |
if ($_[1]) |
|
5667
|
0 |
23 |
if $value =~ / \A 0 (?: [0-7]+ | x [[:xdigit:]]+ ) \z /msx |
|
5691
|
0 |
0 |
if -e $gpg_file |
|
5701
|
0 |
0 |
if -B $fn |
|
5703
|
0 |
0 |
unless open my $fh, "<:encoding(utf-8)", $fn |
|
5714
|
20 |
0 |
unless defined $value |
|
5715
|
0 |
20 |
if ($value and my $identity = __spacetrack_identity()) |
|
5740
|
0 |
0 |
if $loaded |
|
5744
|
0 |
0 |
unless -f $fn |
|
5748
|
0 |
0 |
unless eval {
do {
require Config::Identity;
$identity = {"Config::Identity"->load($fn)};
1
}
} |
|
5755
|
0 |
0 |
unless exists $identity->{$key} |
|
5758
|
0 |
0 |
if scalar keys %{$identity;} > 2 |
|
5774
|
0 |
0 |
unless exists $spacetrack_interface_info->{$name} |
|
5777
|
0 |
0 |
if $need_logout{$name} |
|
5789
|
0 |
0 |
unless exists $spacetrack_interface_info->{$name} |
|
5808
|
0 |
2 |
unless $catalogs{'iridium_status'}{$_[2]} |
|
5819
|
0 |
0 |
if $_[2] =~ / \D /msx |
|
5831
|
0 |
2 |
unless $value |
|
5834
|
0 |
2 |
unless $value =~ / \A \d+ \z /msx and $self->{'_space_track_interface'}[$value] |
|
5837
|
0 |
2 |
if $value == 1 |
|
5868
|
0 |
2 |
unless my $info = $catalogs{$source} |
|
5871
|
1 |
1 |
if ("ARRAY" eq ref $info) |
|
5873
|
0 |
1 |
unless $info = $info->[$inx] |
|
5883
|
0 |
2 |
$info->{$catalog} ? : |
|
|
2 |
0 |
defined $catalog ? : |
|
5887
|
1 |
1 |
defined $note ? : |
|
5890
|
2 |
0 |
unless $self->{'verbose'} |
|
5915
|
20 |
89 |
unless ("ARRAY" eq ref $lgl_opts) |
|
5919
|
0 |
20 |
unless my $code = $pkg->can("_${caller}_opts") |
|
5924
|
18 |
91 |
if ('HASH' eq ref $args[0]) { } |
|
5928
|
18 |
0 |
unless ($ENV{'SPACETRACK_SKIP_OPTION_HASH_VALIDATION'}) |
|
5932
|
0 |
47 |
unless $lgl{$key} |
|
5939
|
0 |
18 |
if @bad |
|
5953
|
0 |
91 |
unless $go->getoptionsfromarray(\@args, $opt, keys %lgl) |
|
5966
|
0 |
0 |
$arg{'carp'} ? : |
|
5967
|
0 |
0 |
if (defined $arg{'name'}) |
|
5970
|
0 |
0 |
'ARRAY' eq ref $arg{'name'} ? : |
|
5972
|
0 |
0 |
unless @names |
|
5973
|
0 |
0 |
@names > 1 ? : |
|
5977
|
0 |
0 |
if (defined $arg{'legal'}) |
|
5990
|
0 |
0 |
if defined $arg{'suffix'} |
|
5992
|
0 |
0 |
unless $arg{'carp'} |
|
6009
|
0 |
14 |
if ($intl_id =~ / \A ( \d+ ) [^[:alpha:][:digit:]\s]
(?: ( \d{1,3} ) ( [[:alpha:]]* ) )? \z /msx) { } |
|
|
14 |
0 |
elsif ($intl_id =~ / \A ( \d\d ) (?: ( \d{3} ) ( [[:alpha:]]* ) )? /msx) { } |
|
6022
|
14 |
0 |
$year < 100 ? : |
|
|
0 |
14 |
$year < 57 ? : |
|
6024
|
1 |
13 |
unless $launch |
|
6027
|
4 |
9 |
if $part |
|
6040
|
0 |
14 |
unless my($year, $month, $day) = $date =~ / \A (\d+) (?:\D+ (\d+) (?: \D+ (\d+) )? )? /msx |
|
6043
|
0 |
14 |
$year < 100 ? : |
|
|
0 |
14 |
$year < 57 ? : |
|
6045
|
0 |
14 |
unless defined $month |
|
6048
|
14 |
0 |
if defined $day |
|
6078
|
50 |
35 |
'ARRAY' eq ref $args[0] ? : |
|
6084
|
50 |
35 |
$extra_options ? : |
|
6117
|
0 |
5 |
$opt->{'tle'} ? : |
|
|
5 |
80 |
defined $opt->{'tle'} ? : |
|
|
85 |
9 |
unless defined $table |
|
6121
|
0 |
2 |
if $opt->{'json'} and defined $opt->{'format'} and $opt->{'format'} ne "json" |
|
6123
|
0 |
94 |
unless $format{$table} |
|
6127
|
1 |
72 |
$opt->{'json'} ? : |
|
|
73 |
21 |
unless defined $opt->{'format'} |
|
6129
|
78 |
16 |
unless exists $opt->{'json'} |
|
6131
|
0 |
94 |
unless $format{$table}{'valid'}{$opt->{'format'}} |
|
6132
|
84 |
10 |
$opt->{'format'} eq 'legacy' ? : |
|
6143
|
68 |
0 |
unless defined $sort |
|
6146
|
0 |
0 |
unless $valid{$sort} |
|
6170
|
62 |
6 |
unless $opt->{$key} |
|
6172
|
6 |
0 |
if ($opt->{$key} =~ / \D /msx) |
|
6174
|
0 |
6 |
unless $str =~ / \A
( \d+ ) \D+ ( \d+ ) \D+ ( \d+ )
(?: \D+ ( \d+ ) (?: \D+ ( \d+ ) (?: \D+ ( \d+ ) )? )? )?
\z /msx |
|
6181
|
18 |
18 |
unless defined $_ |
|
6184
|
6 |
0 |
if ($time[5] > 1900) { } |
|
|
0 |
0 |
elsif ($time[5] < 57) { } |
|
6190
|
0 |
6 |
unless eval {
do {
$opt->{$key} = Time::Local::timegm(@time);
1
}
} |
|
6199
|
5 |
29 |
if ($found) |
|
6201
|
4 |
1 |
if ($found == 1) |
|
6206
|
0 |
5 |
unless $opt->{'start_epoch'} <= $opt->{'end_epoch'} |
|
6251
|
50 |
0 |
if (defined $opt->{'status'}) |
|
6253
|
0 |
50 |
unless defined(my $query = $status_query{$opt->{'status'}}) |
|
6255
|
47 |
3 |
if $query |
|
6261
|
12 |
38 |
if ($opt->{'exclude'} and @{$opt->{'exclude'};}) |
|
6264
|
0 |
18 |
unless $include_map{$_} |
|
6270
|
1 |
49 |
if ($opt->{'include'} and @{$opt->{'include'};}) |
|
6272
|
0 |
1 |
unless $include_map{$_} |
|
6280
|
13 |
37 |
if keys %incl |
|
6304
|
0 |
50 |
'ARRAY' eq ref $args[0] ? : |
|
6312
|
0 |
50 |
unless $legal_search_status{$opt->{'status'}} |
|
6321
|
0 |
19 |
unless $include_map{$_} |
|
6329
|
45 |
5 |
unless defined $opt->{'tle'} |
|
6363
|
0 |
89 |
unless "HASH" eq ref $rest_args |
|
6370
|
0 |
178 |
if @rslt |
|
6372
|
0 |
178 |
if defined $rest_args->{$key} |
|
6395
|
0 |
0 |
unless $start |
|
6403
|
0 |
0 |
if (my $code = $app->can("_readline_complete_command_$cmd")) |
|
6407
|
0 |
0 |
if ($text =~ / \A - /msx and my $code = $app->can("_${cmd}_opts")) |
|
6412
|
0 |
0 |
if $catalogs{$cmd} |
|
6416
|
0 |
0 |
if (1 == @files) { } |
|
|
0 |
0 |
elsif ($readline::var_CompleteAddsuffix) { } |
|
6417
|
0 |
0 |
-d $files[0] ? : |
|
6420
|
0 |
0 |
if (-l $_) { } |
|
|
0 |
0 |
elsif (-d $_) { } |
|
|
0 |
0 |
elsif (-x _) { } |
|
|
0 |
0 |
elsif (-S _ or -p _) { } |
|
6438
|
0 |
0 |
if ("ARRAY" eq ref $this_cat) |
|
6439
|
0 |
0 |
unless my $code = $app->can("_${cat}_catalog_version") |
|
6445
|
0 |
0 |
unless defined $text and $text ne "" |
|
6457
|
0 |
0 |
unless (@builtins) |
|
6462
|
0 |
0 |
if $sym =~ / \A _ /msx |
|
6464
|
0 |
0 |
if $sym =~ / [[:upper:]] /msx |
|
6466
|
0 |
0 |
if $disallow{$sym} |
|
6468
|
0 |
0 |
unless $app->can($sym) |
|
6476
|
0 |
0 |
if 1 == @rslt and $rslt[0] =~ / \W \z /msx |
|
6485
|
0 |
0 |
unless $text =~ / \A ( --? ) ( .* ) /msx |
|
6494
|
0 |
0 |
if (my $o = $_) =~ s/ ( [!=?] ) .* //msx |
|
6498
|
0 |
0 |
if $type eq "!" |
|
6527
|
0 |
0 |
unless wantarray |
|
6530
|
0 |
0 |
unless defined $fn |
|
6533
|
0 |
0 |
unless my $fh = "IO::File"->new($fn, "<") |
|
6562
|
0 |
47 |
unless @args |
|
6564
|
47 |
0 |
defined $opt->{'separator'} ? : |
|
6567
|
47 |
0 |
if (defined $range_operator) { } |
|
6569
|
151 |
62 |
if ('ARRAY' eq ref $rslt[-1]) { } |
|
6570
|
147 |
4 |
if ($arg == $rslt[-1][1] + 1) { } |
|
6573
|
4 |
0 |
if $arg > $rslt[-1][1] |
|
6577
|
11 |
51 |
if ($arg == $rslt[-1] + 1) { } |
|
6580
|
51 |
0 |
if $arg > $rslt[-1] |
|
6591
|
10 |
1 |
$_->[1] > $_->[0] + 1 ? : |
|
|
11 |
44 |
ref $_ ? : |
|
6622
|
0 |
5 |
unless defined $_ |