| line |
true |
false |
branch |
|
22
|
0 |
7 |
defined $ENV{'SPACETRACK_VERIFY_HOSTNAME'} ? : |
|
58
|
0 |
1 |
unless ($rslt) |
|
71
|
0 |
1 |
unless $rslt |
|
82
|
0 |
1 |
unless ($rslt) |
|
94
|
0 |
4 |
unless ($rslt = eval {
do {
$obj->$method(@args)
}
}) |
|
99
|
0 |
4 |
unless $rslt->is_success |
|
108
|
0 |
33 |
if $skip =~ / [^0-9] /msx |
|
111
|
0 |
33 |
unless ($rslt = eval {
do {
$obj->$method(@args)
}
}) |
|
117
|
0 |
33 |
unless (&ok(scalar $rslt->is_success, $name)) |
|
126
|
0 |
0 |
unless $rslt |
|
154
|
7 |
0 |
unless eval {
do {
require Term::ReadKey;
$set_read_mode = "Term::ReadKey"->can("ReadMode");
$readkey_loaded = 1;
1
}
} |
|
165
|
0 |
0 |
'HASH' eq ref $args[0] ? : |
|
168
|
0 |
0 |
unless $readkey_loaded or not $opt->{'password'} |
|
172
|
0 |
0 |
if $opt->{'password'} |
|
174
|
0 |
0 |
if ($opt->{'password'}) |
|
176
|
0 |
0 |
if $readkey_loaded |
|
179
|
0 |
0 |
if defined $input |
|
213
|
0 |
7 |
if (defined $ENV{'ASTRO_SPACETRACK_SKIP_SITE'}) |
|
217
|
0 |
0 |
if exists $info{$site}{'url'} |
|
232
|
0 |
0 |
unless exists $info{$site}{'url'} |
|
239
|
6 |
1 |
unless my(@rslt) = grep({defined $_;} map({_site_check($_);} @sites)) |
|
246
|
0 |
7 |
if exists $skip_site{$site} |
|
247
|
0 |
7 |
unless (my $url = __site_to_check_uri($site)) |
|
256
|
0 |
7 |
if $Astro::SpaceTrack::Test::SKIP_SITES |
|
267
|
1 |
6 |
unless $rslt->is_success |
|
269
|
0 |
6 |
if ($info{$site}{'check'} and my $check = $info{$site}{'check'}->()) |
|
289
|
34 |
0 |
unless $is_server_error[$code] |
|
305
|
0 |
0 |
unless -f "Astro::SpaceTrack"->__identity_file_name |
|
315
|
0 |
0 |
if "Astro::SpaceTrack"->__identity_file_is_encrypted and $ENV{'SSH_CONNECTION'} |
|
318
|
0 |
0 |
if defined $id->{'username'} and defined $id->{'password'} |
|
329
|
0 |
0 |
unless defined $spacetrack_auth |
|
330
|
0 |
0 |
if defined $spacetrack_auth and $spacetrack_auth =~ m[ \A [:/] \z ]msx |
|
333
|
0 |
0 |
if $spacetrack_auth |
|
336
|
0 |
0 |
if $ENV{'AUTOMATED_TESTING'} |
|
338
|
0 |
0 |
if ($spacetrack_auth = __spacetrack_identity()) |
|
340
|
0 |
0 |
if $arg{'envir'} |
|
344
|
0 |
0 |
if $arg{'no_prompt'} |
|
345
|
0 |
0 |
if ($^O eq "VMS") |
|
377
|
0 |
0 |
unless (my $user = prompt("Space-Track username") and my $pass = prompt({"password", 1}, "Space-Track password")) |
|
389
|
0 |
0 |
unless $ENV{'SPACETRACK_TEST_LIVE'} |
|
390
|
0 |
0 |
if defined($skip = __spacetrack_skip("envir", 1, "no_prompt", "No Space-Track account provided")) |
|
407
|
0 |
0 |
unless "Regexp" eq ref $exception |
|
410
|
0 |
0 |
if ($rslt = eval {
do {
$obj->$method(@args)
}
}) |