| line |
true |
false |
branch |
|
144
|
0 |
2 |
unless defined $file_name |
|
166
|
0 |
0 |
if (@_) |
|
191
|
0 |
0 |
if (@_) |
|
216
|
0 |
0 |
if (@_) |
|
221
|
0 |
0 |
if (defined $base_url) |
|
261
|
0 |
0 |
if (@_) |
|
293
|
0 |
0 |
if (@_) |
|
327
|
0 |
0 |
if (@_) |
|
354
|
2 |
0 |
if (@_) |
|
387
|
0 |
0 |
if (@_) |
|
409
|
0 |
0 |
if (@_) |
|
433
|
0 |
0 |
if (@_) |
|
456
|
1 |
0 |
if (@_) |
|
458
|
1 |
0 |
if ($format eq 'FITS') { } |
|
|
0 |
0 |
elsif ($format eq 'FITS.gz') { } |
|
512
|
2 |
0 |
if (defined $ENV{'ESTAR_DATA'}) { } |
|
|
0 |
0 |
elsif (opendir TMP, 'File::Spec'->tmpdir) { } |
|
513
|
2 |
0 |
if (opendir DIR, 'File::Spec'->catdir($ENV{'ESTAR_DATA'})) { } |
|
545
|
0 |
2 |
unless @_ |
|
554
|
3 |
19 |
if exists $args{$key} |
|
594
|
12 |
4 |
if defined ${$$self{'OPTIONS'};}{$key} |
|
609
|
2 |
0 |
if (${$reply;}{'_rc'} eq 200) { } |
|
610
|
2 |
0 |
if (${${$reply;}{'_headers'};}{'content-type'} eq 'application/octet-stream') |
|
622
|
0 |
2 |
unless (open FH, ">$file_name") |