| line |
true |
false |
branch |
|
22
|
0 |
4 |
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 |
26 |
if $skip =~ / [^0-9] /msx |
|
111
|
0 |
26 |
unless ($rslt = eval {
do {
$obj->$method(@args)
}
}) |
|
117
|
1 |
25 |
unless (&ok(scalar $rslt->is_success, $name)) |
|
125
|
0 |
0 |
unless $rslt |
|
153
|
4 |
0 |
unless eval {
do {
require Term::ReadKey;
$set_read_mode = "Term::ReadKey"->can("ReadMode");
$readkey_loaded = 1;
1
}
} |
|
164
|
0 |
0 |
'HASH' eq ref $args[0] ? : |
|
167
|
0 |
0 |
unless $readkey_loaded or not $opt->{'password'} |
|
171
|
0 |
0 |
if $opt->{'password'} |
|
173
|
0 |
0 |
if ($opt->{'password'}) |
|
175
|
0 |
0 |
if $readkey_loaded |
|
178
|
0 |
0 |
if defined $input |
|
211
|
0 |
4 |
if (defined $ENV{'ASTRO_SPACETRACK_SKIP_SITE'}) |
|
215
|
0 |
0 |
if exists $info{$site}{'url'} |
|
234
|
0 |
0 |
unless exists $info{$site}{'url'} |
|
241
|
2 |
0 |
unless my(@rslt) = grep({defined $_;} map({_site_check($_);} @sites)) |
|
248
|
0 |
2 |
if exists $skip_site{$site} |
|
249
|
0 |
2 |
unless (my $url = __site_to_check_uri($site)) |
|
258
|
0 |
2 |
if $Astro::SpaceTrack::Test::SKIP_SITES |
|
269
|
0 |
2 |
unless $rslt->is_success |
|
271
|
0 |
2 |
if ($info{$site}{'check'} and my $check = $info{$site}{'check'}->()) |
|
291
|
27 |
0 |
unless $is_server_error[$code] |
|
307
|
0 |
0 |
unless -f "Astro::SpaceTrack"->__identity_file_name |
|
317
|
0 |
0 |
if "Astro::SpaceTrack"->__identity_file_is_encrypted and $ENV{'SSH_CONNECTION'} |
|
320
|
0 |
0 |
if defined $id->{'username'} and defined $id->{'password'} |
|
331
|
0 |
0 |
unless defined $spacetrack_auth |
|
332
|
0 |
0 |
if defined $spacetrack_auth and $spacetrack_auth =~ m[ \A [:/] \z ]msx |
|
335
|
0 |
0 |
if $spacetrack_auth |
|
338
|
0 |
0 |
if $ENV{'AUTOMATED_TESTING'} |
|
340
|
0 |
0 |
if ($spacetrack_auth = __spacetrack_identity()) |
|
342
|
0 |
0 |
if $arg{'envir'} |
|
346
|
0 |
0 |
if $arg{'no_prompt'} |
|
347
|
0 |
0 |
if ($^O eq "VMS") |
|
379
|
0 |
0 |
unless (my $user = prompt("Space-Track username") and my $pass = prompt({"password", 1}, "Space-Track password")) |
|
391
|
0 |
0 |
unless $ENV{'SPACETRACK_TEST_LIVE'} |
|
392
|
0 |
0 |
if defined($skip = __spacetrack_skip("envir", 1, "no_prompt", "No Space-Track account provided")) |
|
409
|
0 |
0 |
unless "Regexp" eq ref $exception |
|
412
|
0 |
0 |
if ($rslt = eval {
do {
$obj->$method(@args)
}
}) |