| line |
true |
false |
branch |
|
185
|
0 |
4 |
unless @_ |
|
192
|
1 |
3 |
unless $tel->_configure(@_) |
|
219
|
4 |
14 |
if (@_) |
|
248
|
1 |
2 |
if (@_) |
|
269
|
1 |
5 |
if @_ |
|
287
|
1 |
11 |
if @_ |
|
332
|
1 |
2 |
if @_ |
|
434
|
0 |
5 |
if @_ |
|
435
|
1 |
4 |
if defined $$self{'LIMITS'} |
|
462
|
2 |
2 |
if (exists $limits{$self->name}) { } |
|
492
|
0 |
1 |
unless exists $limits{'type'} |
|
517
|
1 |
0 |
if ($ASTRO_PAL) |
|
522
|
1 |
85 |
unless defined $ident |
|
568
|
8 |
1 |
if (scalar @_ == 1) { } |
|
574
|
2 |
6 |
if (exists $Astro::Telescope::MPC::obs_codes{$name}) { } |
|
|
6 |
0 |
elsif ($ASTRO_PAL) { } |
|
590
|
4 |
2 |
if (defined $fullname) { } |
|
619
|
0 |
1 |
unless exists $args{'Name'} and exists $args{'Long'} |
|
621
|
1 |
0 |
if (exists $args{'Lat'}) { } |
|
|
0 |
0 |
elsif (exists $args{'Parallax'}) { } |
|
|
0 |
0 |
elsif (exists $args{'GeocLat'} and exists $args{'GeocDist'}) { } |
|
623
|
0 |
1 |
if (not exists $args{'Alt'}) { } |
|
631
|
1 |
0 |
unless (exists $args{'GeocLat'} and exists $args{'GeocDist'}) |
|
635
|
1 |
0 |
unless (exists $args{'Parallax'}) |
|
642
|
0 |
0 |
unless (exists $args{'GeocLat'} and exists $args{'GeocDist'}) |
|
646
|
0 |
0 |
unless (exists $args{'Lat'} and exists $args{'Alt'}) |
|
654
|
0 |
0 |
unless (exists $args{'Lat'} and exists $args{'Alt'}) |
|
657
|
0 |
0 |
unless (exists $args{'Parallax'}) |
|
665
|
2 |
2 |
if exists $args{$key} |
|
689
|
0 |
3 |
unless defined $format |
|
692
|
0 |
3 |
if ($format =~ /^d/) { } |
|
|
3 |
0 |
elsif ($format =~ /^s/) { } |
|
723
|
0 |
5 |
unless defined $self->lat and defined $self->alt |
|
759
|
0 |
2 |
unless defined $$self{'GeocLat'} and defined $$self{'GeocDist'} |
|
768
|
0 |
2 |
if ($geoc_lat < 0) |
|
802
|
0 |
5 |
unless defined $$self{'GeocLat'} and defined $$self{'GeocDist'} |
|
831
|
0 |
2 |
unless defined $$self{'Parallax'} |