| line |
true |
false |
branch |
|
855
|
0 |
7 |
if ref $class |
|
898
|
0 |
7 |
if $ENV{'SPACETRACK_OPT'} |
|
904
|
0 |
7 |
if (defined(my $id = delete $arg{'identity'})) { } |
|
|
0 |
7 |
elsif ($ENV{'SPACETRACK_USER'}) { } |
|
908
|
0 |
0 |
unless "" ne $user and "" ne $pass |
|
918
|
0 |
7 |
if defined $ENV{'SPACETRACK_VERIFY_HOSTNAME'} |
|
920
|
2 |
5 |
if keys %arg |
|
1005
|
0 |
0 |
unless ($self->{'with_name'}) |
|
1008
|
0 |
0 |
if @content % 3 |
|
1019
|
0 |
0 |
if "" eq $resp->content |
|
1043
|
0 |
1 |
wantarray ? : |
|
|
1 |
0 |
unless ref $self |
|
1048
|
0 |
0 |
$mutator{$_} == \&Astro::SpaceTrack::_mutate_spacetrack_interface ? : |
|
1051
|
0 |
0 |
wantarray ? : |
|
1071
|
1 |
0 |
if ($] >= 5.01) { } |
|
1177
|
1 |
1 |
unless $resp->is_success |
|
1186
|
0 |
1 |
unless "json" eq $format |
|
1191
|
1 |
0 |
unless ($opt->{'json'}) |
|
1202
|
0 |
100 |
if defined $datum->{'SPADOC_CD'} and $datum->{'SPADOC_CD'} eq "ALL" |
|
1204
|
0 |
1000 |
defined $datum->{$_} ? : |
|
1212
|
1 |
0 |
unless wantarray |
|
1234
|
0 |
2 |
if $name eq "spacetrack" |
|
1331
|
0 |
2 |
unless defined $name |
|
1341
|
0 |
2 |
if ref($query = $self->_celestrak_validate_query(delete $opt->{'query'}, $name, {"CATNR" => 1,"GROUP" => 1,"INTDES" => 1,"NAME" => 1,"SPECIAL" => 1}, "GROUP")) |
|
1347
|
0 |
2 |
if ref($format = $self->_celestrak_validate_format(delete $opt->{'format'})) |
|
1362
|
1 |
1 |
if $check = $self->_celestrak_response_check($resp, "celestrak", $name) |
|
1365
|
0 |
1 |
if $name eq "iridium" |
|
1537
|
0 |
1 |
if $opt->{'rms'} and $opt->{'match'} |
|
1542
|
1 |
1 |
if ($opt->{'rms'} or $opt->{'match'}) |
|
1544
|
0 |
2 |
if defined $opt->{$key} |
|
1558
|
0 |
1 |
unless not $opt->{$key} or $info->{$key} |
|
1568
|
1 |
1 |
if ($opt->{'rms'}) { } |
|
|
0 |
1 |
elsif ($opt->{'match'}) { } |
|
1578
|
1 |
0 |
unless defined $source |
|
1583
|
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")) |
|
1589
|
0 |
1 |
if ref($format = $self->_celestrak_validate_format(delete $opt->{'format'})) |
|
1605
|
0 |
2 |
if $check = $self->_celestrak_response_check($resp, "celestrak_supplemental", $name) |
|
1620
|
0 |
3 |
defined $format ? : |
|
1621
|
0 |
3 |
unless $valid_format{$format} |
|
1625
|
0 |
3 |
if $format eq "JSON" and $self->getv("pretty") |
|
1634
|
3 |
0 |
defined $dflt ? : |
|
|
0 |
3 |
$name =~ / \A [0-9]{4}-[0-9]+ \z /msx ? : |
|
|
0 |
3 |
$name =~ / \A [0-9]+ \z /msx ? : |
|
|
0 |
3 |
defined $query ? : |
|
1638
|
0 |
3 |
unless defined $query |
|
1640
|
0 |
3 |
unless $valid->{$query} |
|
1667
|
0 |
4 |
unless ($resp->is_success) |
|
1668
|
0 |
0 |
if $resp->code == 404 |
|
1676
|
1 |
3 |
if ($content =~ / \A Invalid \s+ query: /msx) |
|
1677
|
1 |
0 |
if $content =~ / \b (?: GROUP | FILE ) =\Q$name\E \s not \s found \b /msx |
|
1686
|
0 |
3 |
if (my $loc = $resp->header("Content-Location")) |
|
1687
|
0 |
0 |
if ($loc =~ / redirect [.] htm [?] ( \d{3} ) ; /msx) |
|
1689
|
0 |
0 |
if @args |
|
1690
|
0 |
0 |
if $1 == 404 |
|
1697
|
0 |
3 |
unless (my $type = lc $resp->header("Content-Type")) |
|
1699
|
0 |
0 |
if @args |
|
1705
|
0 |
3 |
unless $valid_type{$type} |
|
1711
|
0 |
3 |
if /^No GP data found\b/ms |
|
1714
|
0 |
3 |
if /^(?:GROUP|FILE) "[^"]+" does not exist/ms |
|
1719
|
0 |
0 |
if @args |
|
1850
|
76 |
5 |
unless defined $resp |
|
1854
|
2 |
1 |
if / $re \s+ = \s+ (.+) /imsx |
|
1914
|
0 |
1 |
unless $resp->is_success |
|
1923
|
0 |
1 |
unless "json" eq $format |
|
1933
|
0 |
100 |
if defined $datum->{'SPADOC_CD'} |
|
1936
|
0 |
1 |
if ($opt->{'json'}) { } |
|
1998
|
0 |
1 |
unless @args and defined $args[0] |
|
2000
|
0 |
1 |
if @args > 1 |
|
2014
|
1 |
0 |
unless $resp->is_success |
|
2017
|
0 |
0 |
if _spacetrack_v2_response_is_empty($resp) |
|
2073
|
1 |
0 |
unless (&Scalar::Util::openhandle($file)) |
|
2074
|
0 |
1 |
unless -e $file |
|
2076
|
0 |
1 |
unless my $fh = "IO::File"->new($file, "<") |
|
2110
|
0 |
0 |
if $text eq "" |
|
2126
|
0 |
1 |
wantarray ? : |
|
2134
|
0 |
0 |
if ($value) { } |
|
2138
|
0 |
0 |
if $value & $mask |
|
2161
|
0 |
56 |
unless defined $name |
|
2163
|
0 |
56 |
unless my $code = $accessor{$name} |
|
2195
|
0 |
1 |
if ($self->{'webcmd'}) { } |
|
2197
|
0 |
0 |
if (1 eq $cmd) |
|
2567
|
0 |
0 |
unless defined $fmt |
|
2573
|
0 |
0 |
if (not $opt->{'raw'} or $ignore_raw{$fmt}) |
|
2575
|
0 |
0 |
unless $resp->is_success |
|
2579
|
0 |
0 |
unless ("kelso" eq $fmt) |
|
2580
|
0 |
0 |
unless my $code = $self->can("_iridium_status_$fmt") |
|
2582
|
0 |
0 |
unless ($resp = &$code($self, $fmt, \%rslt))->is_success |
|
2586
|
0 |
0 |
unless ($opt->{'raw'}) |
|
2588
|
0 |
0 |
if $rslt{$body->[0]} and $body->[4] != 3 |
|
2604
|
0 |
0 |
wantarray ? : |
|
2616
|
0 |
0 |
unless $resp->is_success |
|
2622
|
0 |
0 |
if $name =~ s/ \s+ ( [[] .+? []] ) \s* \z //msx |
|
2640
|
0 |
0 |
unless $val->[1] =~ / \A iridium \b /imsx |
|
2675
|
0 |
0 |
unless $resp->is_success |
|
2679
|
0 |
0 |
if ($rslt->{$id}[1] =~ / dummy /imsx) |
|
2684
|
0 |
0 |
unless $rslt->{$id}[1] =~ / (\d+) /msx |
|
2704
|
0 |
0 |
if (/ < -+ \s+ failed \s+ (?: or \s+ retired \s+ )? -+ > /imsx) { } |
|
|
0 |
0 |
elsif (s/ \A \s* ( plane \s+ \d+ ) \s* : \s* //imsx) { } |
|
|
0 |
0 |
elsif (/ Notes: /msx) { } |
|
2718
|
0 |
0 |
unless (my $id = $oid{$num}) |
|
2725
|
0 |
0 |
if ($fail) { } |
|
2730
|
0 |
0 |
$inx > 10 ? : |
|
2734
|
0 |
0 |
if exists $exception{$num} |
|
2772
|
0 |
0 |
unless $resp->is_success |
|
2777
|
0 |
0 |
unless $body->{'LAUNCH_YEAR'} < 2017 |
|
2782
|
0 |
0 |
if $rslt->{$oid} and not $body->{'DECAY'} |
|
2787
|
0 |
0 |
defined $body->{'DECAY'} ? : |
|
2860
|
0 |
1 |
unless $resp->is_success |
|
2869
|
0 |
1 |
if "json" ne $format |
|
2879
|
0 |
34 |
if defined $datum->{'SITE_CODE'} |
|
2882
|
0 |
1 |
if ($opt->{'json'}) { } |
|
2897
|
1 |
0 |
unless wantarray |
|
2929
|
0 |
2 |
if @args |
|
2930
|
0 |
2 |
unless $self->{'username'} and $self->{'password'} |
|
2933
|
0 |
2 |
if $self->{'dump_headers'} & 1 |
|
2955
|
0 |
2 |
unless $resp->is_success |
|
2959
|
0 |
2 |
if $resp->content =~ / \b failed \b /imsx |
|
2962
|
0 |
2 |
unless $self->_record_cookie_generic(2) |
|
2965
|
0 |
2 |
if $self->{'dump_headers'} & 1 |
|
2984
|
8 |
4 |
unless $spacetrack_interface_info |
|
2987
|
4 |
0 |
if exists $spacetrack_interface_info->{'session_cookie'} |
|
2989
|
4 |
0 |
if exists $spacetrack_interface_info->{'cookie_expires'} |
|
3079
|
0 |
2 |
if defined $info->{'member'} |
|
3080
|
0 |
2 |
unless IO::Uncompress::Unzip::unzip(\$resp->content, \$content, @zip_opt) |
|
3117
|
1 |
1 |
unless my $src = $self->__catalog($name) |
|
3123
|
0 |
49 |
defined $src->{$cat}{'number'} ? : |
|
3127
|
2 |
47 |
if defined $src->{$cat}{'note'} |
|
3130
|
1 |
0 |
unless wantarray |
|
3136
|
0 |
0 |
if defined $src->{$cat}{'note'} |
|
3258
|
1 |
30 |
unless @args = $self->_expand_oid_list(@args) |
|
3269
|
10 |
20 |
$no_execute ? : |
|
3288
|
0 |
32 |
unless $resp->is_success or $resp->code == 418 |
|
3296
|
0 |
30 |
unless my $data = &$accumulator($self) |
|
3299
|
0 |
30 |
if ref $data |
|
3302
|
10 |
20 |
if $no_execute |
|
3321
|
0 |
35 |
unless my $code = $self->can($method) |
|
3342
|
4 |
31 |
if ($opt->{'start_epoch'} or $opt->{'end_epoch'}) |
|
3350
|
1 |
34 |
$opt->{'descending'} ? : |
|
3352
|
1 |
34 |
if ($opt->{'since_file'}) |
|
3357
|
0 |
35 |
if ($opt->{'status'} and $opt->{'status'} ne "onorbit") |
|
3366
|
35 |
175 |
if defined $opt->{$name} |
|
3369
|
31 |
4 |
if ("legacy" eq $rest{'format'}) |
|
3370
|
9 |
22 |
if ($self->{'with_name'}) { } |
|
3373
|
9 |
0 |
unless defined $rest{'predicates'} |
|
3379
|
0 |
35 |
if $opt->{'last5'} |
|
3412
|
10 |
110 |
unless not defined $_->[0] |
|
3433
|
12 |
38 |
if ($pred eq "NORAD_CAT_ID") |
|
3435
|
0 |
12 |
unless @args = $self->_expand_oid_list(@args) |
|
3451
|
50 |
0 |
if ($opt->{'tle'} or 'legacy' eq $opt->{'format'}) { } |
|
3459
|
0 |
50 |
defined $rest_args->{'class'} ? : |
|
3473
|
31 |
19 |
unless $rslt->is_success |
|
3481
|
14 |
5 |
if ($opt->{'tle'}) { } |
|
3483
|
0 |
14 |
unless defined $opt->{'format'} |
|
3484
|
0 |
14 |
unless "ARRAY" eq ref $data |
|
3495
|
5 |
0 |
if ("legacy" eq $opt->{'format'}) |
|
3506
|
106 |
26 |
defined $datum->{$_} ? : |
|
3519
|
0 |
5 |
if wantarray and $data |
|
3544
|
0 |
50 |
unless %args |
|
3548
|
50 |
0 |
unless exists $args{'class'} |
|
3551
|
50 |
0 |
unless $args{'class'} ne "satcat" or exists $args{'CURRENT'} |
|
3553
|
0 |
50 |
unless exists $args{'format'} |
|
3555
|
50 |
0 |
unless exists $args{'predicates'} |
|
3557
|
50 |
0 |
unless exists $args{'orderby'} |
|
3970
|
0 |
1 |
if $lo > $hi |
|
3971
|
0 |
1 |
unless $lo |
|
3972
|
0 |
1 |
if ($hi - $lo >= $self->{'max_range'}) |
|
4003
|
0 |
0 |
unless @{$cmd_line;} % 2 |
|
4015
|
0 |
52 |
unless $mutator{$name} |
|
4021
|
0 |
46 |
if @args |
|
4190
|
1 |
0 |
_instance($args[0], __PACKAGE__) ? : |
|
4199
|
0 |
1 |
if $self->{'banner'} and not $self->{'filter'} |
|
4209
|
4 |
0 |
if (@args) { } |
|
4215
|
0 |
0 |
$interactive ? : |
|
4218
|
0 |
4 |
unless defined $buffer |
|
4222
|
1 |
3 |
unless $buffer |
|
4223
|
1 |
2 |
if $buffer =~ / \A [#] /msx |
|
4236
|
0 |
4 |
$redir =~ / \A >+ \z /msx ? : |
|
|
0 |
4 |
if (/ \A > /msx) { } |
|
|
0 |
4 |
elsif ($redir =~ / \A >+ \z /msx) { } |
|
4245
|
0 |
2 |
if $redir ne "" |
|
4259
|
0 |
0 |
unless $def->{$key} |
|
4268
|
1 |
1 |
if $verb eq "exit" or $verb eq "bye" |
|
4270
|
0 |
1 |
if ($verb eq "source") |
|
4271
|
0 |
0 |
unless eval {
do {
splice @args, 0, 0, $self->_source(shift @cmdarg);
1
}
} |
|
4281
|
0 |
1 |
unless ($verb ne "new" and $verb ne "shell" and not $verb =~ / \A _ [^_] /msx) |
|
4288
|
0 |
1 |
if ($redir) { } |
|
4289
|
0 |
0 |
unless ($out = "IO::File"->new($redir)) |
|
4305
|
0 |
1 |
if ($verb eq 'get' and @cmdarg == 0) { } |
|
4309
|
0 |
0 |
defined $val ? : |
|
4315
|
0 |
1 |
unless (eval {
do {
$rslt = $self->$verb(@cmdarg);
1
}
}) |
|
4325
|
0 |
1 |
if ('ARRAY' eq ref $rslt) { } |
|
|
0 |
1 |
elsif (not ref $rslt) { } |
|
|
1 |
0 |
elsif ($rslt->is_success) { } |
|
4332
|
0 |
1 |
unless $self->content_type or not $self->{'filter'} |
|
4341
|
0 |
0 |
if $rslt->code == 418 |
|
4346
|
0 |
1 |
if $interactive and not $self->{'filter'} |
|
4355
|
0 |
1 |
if @_ > 1 |
|
4357
|
0 |
1 |
if ("Term::ReadLine::Perl" eq $rdln->ReadLine) |
|
4387
|
0 |
0 |
_instance($_[0], __PACKAGE__) ? : |
|
4482
|
0 |
0 |
unless my $code = $unpack_query{ref $arg} |
|
4510
|
1 |
4 |
unless defined $catalog and my $info = $catalogs{'spacetrack'}[2]{$catalog} |
|
4514
|
0 |
4 |
if defined $info->{'deprecate'} |
|
4516
|
1 |
3 |
if (defined $info->{'favorite'}) |
|
4527
|
3 |
0 |
if $info->{'tle'} |
|
4531
|
0 |
3 |
if ($info->{'satcat'}) { } |
|
4547
|
0 |
0 |
unless $rslt->is_success |
|
4561
|
0 |
0 |
unless $rslt->is_success |
|
4571
|
2 |
1 |
unless $rslt->is_success |
|
4643
|
92 |
0 |
unless $SPACETRACK_DELAY_SECONDS |
|
4645
|
0 |
0 |
if $self->{'dump_headers'} & 4 |
|
4647
|
0 |
0 |
if (defined $spacetrack_delay_until) |
|
4649
|
0 |
0 |
if $now < $spacetrack_delay_until |
|
4687
|
46 |
46 |
if (my $resp = $self->_dump_request("args", \@args, "method", "GET", "url", $uri, "version", 2)) |
|
4697
|
1 |
45 |
unless ($self->_check_cookie_generic(2)) |
|
4699
|
0 |
1 |
unless $resp->is_success |
|
4706
|
46 |
0 |
if ($resp->is_success) |
|
4708
|
0 |
46 |
if ($self->{'pretty'} and _find_rest_arg_value(\@args, "format", "json") eq "json") |
|
4716
|
2 |
44 |
if (__PACKAGE__ ne caller) |
|
4723
|
1 |
1 |
if ('modeldef' eq $kind) { } |
|
|
1 |
0 |
elsif ('query' eq $kind and $tle_class{$class}) { } |
|
4751
|
4 |
4 |
if $args->[$inx] eq $name |
|
4844
|
0 |
0 |
if delete $opt->{'start_epoch'} |
|
4846
|
0 |
0 |
if delete $opt->{'end_epoch'} |
|
4852
|
0 |
0 |
unless open my $fh, "<", $fn |
|
4864
|
0 |
0 |
defined $datum->{'_file_of_record'} ? : |
|
4865
|
0 |
0 |
if $ff > $file |
|
4870
|
0 |
0 |
unless defined $opt->{'since_file'} |
|
4872
|
0 |
0 |
$self->getv('with_name') ? : |
|
|
0 |
0 |
delete $opt->{'json'} ? : |
|
4878
|
0 |
0 |
if ($resp->code == 404) { } |
|
4889
|
0 |
0 |
unless $resp->is_success |
|
4899
|
0 |
0 |
unless open my $fh, ">", $fn |
|
4986
|
49 |
51 |
unless defined $resp |
|
4989
|
0 |
51 |
unless defined $content and $content ne "" |
|
4994
|
1 |
50 |
if $context->{'opt'}{'file'} and $data |
|
5004
|
0 |
1 |
if (defined $context->{'file'}) { } |
|
5008
|
0 |
0 |
if defined $datum->{'FILE'} and $datum->{'FILE'} > $context->{'file'} |
|
5045
|
0 |
0 |
if (defined $context->{'data'}) { } |
|
5059
|
0 |
0 |
if (defined $context->{'data'}) { } |
|
5080
|
0 |
31 |
unless "ARRAY" eq ref $data |
|
5083
|
1 |
30 |
unless @{$data;} |
|
5086
|
1 |
29 |
if ($context->{'data'}) { } |
|
5107
|
19 |
11 |
wantarray ? : |
|
5113
|
0 |
0 |
if defined $context->{'data'} |
|
5130
|
0 |
0 |
if (defined $context->{'data'}) { } |
|
5147
|
0 |
2 |
unless defined $version |
|
5154
|
0 |
2 |
if $self->{'dump_headers'} & 8 |
|
5156
|
0 |
2 |
unless $_[4] eq $domain |
|
5158
|
0 |
2 |
unless $_[3] eq "/" |
|
5160
|
0 |
2 |
unless $_[1] eq $cookie_name |
|
5169
|
2 |
0 |
if $version == 2 and not defined $expires |
|
5173
|
2 |
0 |
if (defined $cookie) { } |
|
5175
|
0 |
2 |
if $self->{'dump_headers'} & 1 |
|
5177
|
2 |
0 |
if (exists $interface_info->{'cookie_expires'}) |
|
5179
|
0 |
2 |
if $self->{'dump_headers'} & 1 |
|
5185
|
0 |
0 |
$interface_info->{'session_cookie'} ? : |
|
5187
|
0 |
0 |
if $self->{'dump_headers'} & 1 |
|
5196
|
0 |
46 |
unless defined $version |
|
5199
|
46 |
0 |
if (exists $interface_info->{'cookie_expires'}) { } |
|
5223
|
0 |
26 |
unless defined $buffer |
|
5227
|
1 |
25 |
unless $buffer =~ / \n \z /msx |
|
5299
|
0 |
73 |
unless defined $method |
|
5301
|
0 |
73 |
unless my $level = $deprecate{$method} |
|
5304
|
73 |
0 |
if (ref $level) |
|
5305
|
0 |
73 |
unless defined $argument |
|
5306
|
73 |
0 |
unless $level = $level->{$argument} |
|
5310
|
0 |
0 |
if $level >= 3 |
|
5312
|
0 |
0 |
if warnings::enabled("deprecated") |
|
5314
|
0 |
0 |
unless 1 == $level |
|
5316
|
0 |
0 |
if (ref $deprecate{$method}) { } |
|
5354
|
0 |
0 |
if $prefix |
|
5371
|
0 |
108 |
if ($self->{'dump_headers'} & 16) |
|
5373
|
0 |
0 |
if ($self->{'dump_headers'} & 32 and 61 < length $content) |
|
5380
|
0 |
0 |
@val > 1 ? : |
|
5382
|
0 |
0 |
if (my $rqst = $resp->request) |
|
5390
|
0 |
0 |
unless defined $message |
|
5410
|
60 |
46 |
unless $self->{'dump_headers'} & 2 |
|
5414
|
46 |
0 |
unless defined $message |
|
5418
|
0 |
46 |
unless my $json = $self->_get_json_object("pretty", 1) |
|
5422
|
184 |
0 |
unless "CODE" eq ref $args{$key} |
|
5427
|
46 |
0 |
if $self->{'dump_headers'} & 4 |
|
5440
|
22 |
57 |
unless defined $arg{'pretty'} |
|
5443
|
56 |
23 |
if $arg{'pretty'} |
|
5459
|
1 |
207 |
if (my($lo, $hi) = $arg =~ / \A \s* ( \d+ ) \s* - \s* ( \d+ ) \s* \z /msx) { } |
|
|
207 |
0 |
elsif ($arg =~ / \A \s* ( \d+ ) \s* \z /msx) { } |
|
5462
|
1 |
0 |
if ($lo, $hi) = $self->_check_range($lo, $hi) |
|
5483
|
25 |
0 |
if ('ARRAY' eq ref $lgl_opts) { } |
|
5510
|
4 |
10 |
if @parts >= 3 |
|
5512
|
9 |
1 |
if @parts >= 2 |
|
5523
|
0 |
14 |
unless my(@parts) = _parse_launch_date($date) |
|
5525
|
14 |
0 |
if @parts >= 3 |
|
5527
|
0 |
0 |
if @parts >= 2 |
|
5551
|
52 |
4 |
if $self->{'agent'} |
|
5560
|
4 |
0 |
unless $agent->cookie_jar |
|
5607
|
0 |
7 |
defined $arg{'method'} ? : |
|
5612
|
4 |
3 |
if (defined $arg{'url'}) { } |
|
|
3 |
0 |
elsif (exists $arg{'catalog'}) { } |
|
5619
|
1 |
2 |
unless defined $arg{'catalog'} and $catalogs{$method} and $info = $catalogs{$method}{$arg{'catalog'}} |
|
5622
|
0 |
2 |
unless $url = $info->{'url'} |
|
5627
|
0 |
6 |
if (my $resp = $self->_dump_request("args", {map({$_, "CODE" eq ref $arg{$_} ? "sub { ... }" : $arg{$_};} keys %arg)}, "method", "GET", "url", $url, "version", 2)) |
|
5628
|
6 |
15 |
'CODE' eq ref $arg{$_} ? : |
|
5639
|
0 |
6 |
if (defined $arg{'file'}) |
|
5640
|
0 |
0 |
if (my(@stat) = stat $arg{'file'}) |
|
5652
|
0 |
0 |
if delete $sanitary{$key} |
|
5663
|
0 |
0 |
@v == 1 ? : |
|
5668
|
0 |
6 |
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;
}
) |
|
5673
|
0 |
6 |
if ($resp->code == 304) { } |
|
5675
|
0 |
0 |
unless defined $arg{'file'} |
|
5678
|
0 |
0 |
unless open my $fh, "<", $arg{'file'} |
|
5684
|
0 |
0 |
if defined $file_time |
|
5690
|
6 |
0 |
if $resp->is_success and defined $arg{'post_process'} |
|
5691
|
1 |
5 |
unless $resp->is_success |
|
5694
|
0 |
5 |
if (defined $arg{'file'}) |
|
5696
|
0 |
0 |
unless open my $fh, ">", $arg{'file'} |
|
5709
|
0 |
2 |
defined $info->{'spacetrack_source'} ? : |
|
|
2 |
3 |
unless defined $arg{'spacetrack_source'} |
|
5714
|
2 |
5 |
defined $info->{$_} ? : |
|
|
8 |
7 |
if (defined $arg{$_}) { } |
|
5731
|
2 |
94 |
unless defined $version |
|
5770
|
0 |
1 |
unless my($id) = / \A ( [\s\d]{5} ) /msx |
|
5771
|
0 |
1 |
unless $id =~ / \A \s* \d+ \z /msx |
|
5778
|
0 |
1 |
if ($opt->{'observing_list'}) { } |
|
5780
|
0 |
0 |
/ \n \z /msx ? : |
|
5790
|
1 |
0 |
if ($resp->is_success) |
|
5792
|
0 |
1 |
unless ($self->{'_pragmata'}) |
|
5801
|
0 |
1 |
wantarray ? : |
|
5809
|
0 |
1 |
unless ref $object |
|
5810
|
0 |
1 |
unless builtin::blessed($object) |
|
5832
|
0 |
0 |
unless $resp->code == 500 |
|
5834
|
0 |
0 |
unless (my $msg = $resp->message) =~ s/ ( [(] certificate\ verify\ failed ) [)]/$1; try setting the verify_hostname attribute false)/msx |
|
5854
|
0 |
22 |
if ($value =~ / \A --? /msx) { } |
|
5861
|
0 |
0 |
if ($_[1]) |
|
5871
|
0 |
22 |
if $value =~ / \A 0 (?: [0-7]+ | x [[:xdigit:]]+ ) \z /msx |
|
5895
|
0 |
0 |
if -e $gpg_file |
|
5905
|
0 |
0 |
if -B $fn |
|
5907
|
0 |
0 |
unless open my $fh, "<:encoding(utf-8)", $fn |
|
5918
|
14 |
0 |
unless defined $value |
|
5919
|
0 |
14 |
if ($value and my $identity = __spacetrack_identity()) |
|
5944
|
0 |
0 |
if $loaded |
|
5948
|
0 |
0 |
unless -f $fn |
|
5952
|
0 |
0 |
unless eval {
do {
require Config::Identity;
$identity = {"Config::Identity"->load($fn)};
1
}
} |
|
5959
|
0 |
0 |
unless exists $identity->{$key} |
|
5962
|
0 |
0 |
if scalar keys %{$identity;} > 2 |
|
5978
|
0 |
0 |
unless exists $spacetrack_interface_info->{$name} |
|
5981
|
0 |
0 |
if $need_logout{$name} |
|
5993
|
0 |
0 |
unless exists $spacetrack_interface_info->{$name} |
|
6012
|
0 |
0 |
unless $catalogs{'iridium_status'}{$_[2]} |
|
6023
|
0 |
0 |
if $_[2] =~ / \D /msx |
|
6035
|
0 |
2 |
unless $value |
|
6038
|
0 |
2 |
unless $value =~ / \A \d+ \z /msx and $self->{'_space_track_interface'}[$value] |
|
6041
|
0 |
2 |
if $value == 1 |
|
6072
|
0 |
3 |
unless my $info = $catalogs{$source} |
|
6075
|
1 |
2 |
if ("ARRAY" eq ref $info) |
|
6077
|
0 |
1 |
unless $info = $info->[$inx] |
|
6087
|
0 |
3 |
$info->{$catalog} ? : |
|
|
3 |
0 |
defined $catalog ? : |
|
6091
|
0 |
3 |
defined $note ? : |
|
6094
|
3 |
0 |
unless $self->{'verbose'} |
|
6119
|
14 |
85 |
unless ("ARRAY" eq ref $lgl_opts) |
|
6123
|
0 |
14 |
unless my $code = $pkg->can("_${caller}_opts") |
|
6128
|
18 |
81 |
if ('HASH' eq ref $args[0]) { } |
|
6132
|
18 |
0 |
unless ($ENV{'SPACETRACK_SKIP_OPTION_HASH_VALIDATION'}) |
|
6136
|
0 |
47 |
unless $lgl{$key} |
|
6143
|
0 |
18 |
if @bad |
|
6157
|
0 |
81 |
unless $go->getoptionsfromarray(\@args, $opt, keys %lgl) |
|
6170
|
0 |
0 |
$arg{'carp'} ? : |
|
6171
|
0 |
0 |
if (defined $arg{'name'}) |
|
6174
|
0 |
0 |
'ARRAY' eq ref $arg{'name'} ? : |
|
6176
|
0 |
0 |
unless @names |
|
6177
|
0 |
0 |
@names > 1 ? : |
|
6181
|
0 |
0 |
if (defined $arg{'legal'}) |
|
6194
|
0 |
0 |
if defined $arg{'suffix'} |
|
6196
|
0 |
0 |
unless $arg{'carp'} |
|
6213
|
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) { } |
|
6226
|
14 |
0 |
$year < 100 ? : |
|
|
0 |
14 |
$year < 57 ? : |
|
6228
|
1 |
13 |
unless $launch |
|
6231
|
4 |
9 |
if $part |
|
6244
|
0 |
14 |
unless my($year, $month, $day) = $date =~ / \A (\d+) (?:\D+ (\d+) (?: \D+ (\d+) )? )? /msx |
|
6247
|
0 |
14 |
$year < 100 ? : |
|
|
0 |
14 |
$year < 57 ? : |
|
6249
|
0 |
14 |
unless defined $month |
|
6252
|
14 |
0 |
if defined $day |
|
6282
|
50 |
32 |
'ARRAY' eq ref $args[0] ? : |
|
6288
|
50 |
32 |
$extra_options ? : |
|
6321
|
0 |
5 |
$opt->{'tle'} ? : |
|
|
5 |
77 |
defined $opt->{'tle'} ? : |
|
|
82 |
9 |
unless defined $table |
|
6325
|
0 |
2 |
if $opt->{'json'} and defined $opt->{'format'} and $opt->{'format'} ne "json" |
|
6327
|
0 |
91 |
unless $format{$table} |
|
6331
|
1 |
69 |
$opt->{'json'} ? : |
|
|
70 |
21 |
unless defined $opt->{'format'} |
|
6333
|
75 |
16 |
unless exists $opt->{'json'} |
|
6335
|
0 |
91 |
unless $format{$table}{'valid'}{$opt->{'format'}} |
|
6336
|
81 |
10 |
$opt->{'format'} eq 'legacy' ? : |
|
6347
|
65 |
0 |
unless defined $sort |
|
6350
|
0 |
0 |
unless $valid{$sort} |
|
6374
|
57 |
5 |
unless $opt->{$key} |
|
6376
|
5 |
0 |
if ($opt->{$key} =~ / \D /msx) |
|
6378
|
0 |
5 |
unless $str =~ / \A
( \d+ ) \D+ ( \d+ ) \D+ ( \d+ )
(?: \D+ ( \d+ ) (?: \D+ ( \d+ ) (?: \D+ ( \d+ ) )? )? )?
\z /msx |
|
6385
|
15 |
15 |
unless defined $_ |
|
6388
|
5 |
0 |
if ($time[5] > 1900) { } |
|
|
0 |
0 |
elsif ($time[5] < 57) { } |
|
6394
|
0 |
5 |
unless eval {
do {
$opt->{$key} = Time::Local::timegm(@time);
1
}
} |
|
6403
|
4 |
27 |
if ($found) |
|
6405
|
3 |
1 |
if ($found == 1) |
|
6410
|
0 |
4 |
unless $opt->{'start_epoch'} <= $opt->{'end_epoch'} |
|
6455
|
50 |
0 |
if (defined $opt->{'status'}) |
|
6457
|
0 |
50 |
unless defined(my $query = $status_query{$opt->{'status'}}) |
|
6459
|
47 |
3 |
if $query |
|
6465
|
12 |
38 |
if ($opt->{'exclude'} and @{$opt->{'exclude'};}) |
|
6468
|
0 |
18 |
unless $include_map{$_} |
|
6474
|
1 |
49 |
if ($opt->{'include'} and @{$opt->{'include'};}) |
|
6476
|
0 |
1 |
unless $include_map{$_} |
|
6484
|
13 |
37 |
if keys %incl |
|
6508
|
0 |
50 |
'ARRAY' eq ref $args[0] ? : |
|
6516
|
0 |
50 |
unless $legal_search_status{$opt->{'status'}} |
|
6525
|
0 |
19 |
unless $include_map{$_} |
|
6533
|
45 |
5 |
unless defined $opt->{'tle'} |
|
6567
|
0 |
86 |
unless "HASH" eq ref $rest_args |
|
6574
|
0 |
172 |
if @rslt |
|
6576
|
0 |
172 |
if defined $rest_args->{$key} |
|
6599
|
0 |
0 |
unless $start |
|
6607
|
0 |
0 |
if (my $code = $app->can("_readline_complete_command_$cmd")) |
|
6611
|
0 |
0 |
if ($text =~ / \A - /msx and my $code = $app->can("_${cmd}_opts")) |
|
6616
|
0 |
0 |
if $catalogs{$cmd} |
|
6620
|
0 |
0 |
if (1 == @files) { } |
|
|
0 |
0 |
elsif ($readline::var_CompleteAddsuffix) { } |
|
6621
|
0 |
0 |
-d $files[0] ? : |
|
6624
|
0 |
0 |
if (-l $_) { } |
|
|
0 |
0 |
elsif (-d $_) { } |
|
|
0 |
0 |
elsif (-x _) { } |
|
|
0 |
0 |
elsif (-S _ or -p _) { } |
|
6642
|
0 |
0 |
if ("ARRAY" eq ref $this_cat) |
|
6643
|
0 |
0 |
unless my $code = $app->can("_${cat}_catalog_version") |
|
6649
|
0 |
0 |
unless defined $text and $text ne "" |
|
6661
|
0 |
0 |
unless (@builtins) |
|
6666
|
0 |
0 |
if $sym =~ / \A _ /msx |
|
6668
|
0 |
0 |
if $sym =~ / [[:upper:]] /msx |
|
6670
|
0 |
0 |
if $disallow{$sym} |
|
6672
|
0 |
0 |
unless $app->can($sym) |
|
6680
|
0 |
0 |
if 1 == @rslt and $rslt[0] =~ / \W \z /msx |
|
6689
|
0 |
0 |
unless $text =~ / \A ( --? ) ( .* ) /msx |
|
6698
|
0 |
0 |
if (my $o = $_) =~ s/ ( [!=?] ) .* //msx |
|
6702
|
0 |
0 |
if $type eq "!" |
|
6731
|
0 |
0 |
unless wantarray |
|
6734
|
0 |
0 |
unless defined $fn |
|
6737
|
0 |
0 |
unless my $fh = "IO::File"->new($fn, "<") |
|
6766
|
0 |
44 |
unless @args |
|
6768
|
44 |
0 |
defined $opt->{'separator'} ? : |
|
6771
|
44 |
0 |
if (defined $range_operator) { } |
|
6773
|
151 |
59 |
if ('ARRAY' eq ref $rslt[-1]) { } |
|
6774
|
147 |
4 |
if ($arg == $rslt[-1][1] + 1) { } |
|
6777
|
4 |
0 |
if $arg > $rslt[-1][1] |
|
6781
|
11 |
48 |
if ($arg == $rslt[-1] + 1) { } |
|
6784
|
48 |
0 |
if $arg > $rslt[-1] |
|
6795
|
10 |
1 |
$_->[1] > $_->[0] + 1 ? : |
|
|
11 |
41 |
if (ref $_) { } |
|
6826
|
0 |
3 |
unless defined $_ |