| line |
true |
false |
branch |
|
313
|
27 |
85 |
if exists $args{$key} |
|
316
|
2 |
26 |
if ($found == 0) { } |
|
|
1 |
25 |
elsif ($found > 1) { } |
|
317
|
0 |
2 |
if warnings::enabled() |
|
321
|
0 |
1 |
if warnings::enabled() |
|
331
|
18 |
7 |
if (exists $args{'Instrument'}) |
|
337
|
18 |
25 |
if $method eq 'instrument' |
|
338
|
25 |
0 |
if ($w->can($method)) |
|
371
|
8 |
46 |
if (@_) { } |
|
391
|
3 |
5 |
if (@_) { } |
|
417
|
1 |
10 |
if (@_) { } |
|
444
|
13 |
42 |
if (@_) { } |
|
474
|
18 |
63 |
if (@_) |
|
490
|
0 |
26 |
if (@_) |
|
515
|
0 |
19 |
unless defined $lambda |
|
518
|
1 |
18 |
if ($lambda >= 10000) { } |
|
|
0 |
18 |
elsif ($lambda < 10000 and $lambda >= 1000) { } |
|
|
3 |
15 |
elsif ($lambda < 1000 and $lambda >= 100) { } |
|
|
11 |
4 |
elsif ($lambda < 100 and $lambda >= 1) { } |
|
|
4 |
0 |
elsif ($lambda < 1 and $lambda >= 0.3) { } |
|
|
0 |
0 |
elsif ($lambda < 0.3 and $lambda >= 0.01) { } |
|
|
0 |
0 |
elsif ($lambda < 0.01 and $lambda >= 1e-05) { } |
|
|
0 |
0 |
elsif ($lambda < 1e-05) { } |
|
563
|
26 |
0 |
unless (defined $unit) |
|
566
|
18 |
8 |
if ($inst and exists $NATURAL{$inst}) |
|
572
|
8 |
18 |
unless defined $unit |
|
576
|
26 |
0 |
if ($self->can($unit)) |
|
581
|
3 |
23 |
unless defined $value |
|
612
|
0 |
2 |
if $was_reversed |
|
640
|
1 |
2 |
if (defined $self->instrument and defined $comp->instrument) { } |
|
671
|
0 |
1 |
if (not defined $self->instrument && defined $comp->instrument) { } |
|
699
|
0 |
169 |
if (wantarray) { } |
|
735
|
58 |
0 |
unless exists $$cache{$key} |
|
739
|
0 |
0 |
if ($key eq 'filter') { } |
|
740
|
0 |
0 |
if $$cache{$key} eq $entries{$key} |
|
743
|
0 |
0 |
if $$cache{$key} == $entries{$key} |
|
790
|
0 |
128 |
unless @_ |
|
793
|
0 |
128 |
unless $key |
|
798
|
103 |
25 |
if exists $$cache{$key} |
|
821
|
0 |
17 |
unless defined $value |
|
829
|
17 |
0 |
if defined $internal |
|
832
|
0 |
17 |
unless defined $internal |
|
857
|
25 |
32 |
unless ($value) |
|
863
|
16 |
9 |
if $value |
|
888
|
0 |
25 |
unless defined $lambda |
|
892
|
0 |
25 |
if ($category eq 'wavelength') { } |
|
|
2 |
23 |
elsif ($category eq 'frequency') { } |
|
|
9 |
14 |
elsif ($category eq 'wavenumber') { } |
|
|
14 |
0 |
elsif ($category eq 'filter') { } |
|
910
|
9 |
5 |
if defined $instrument |
|
917
|
3 |
88 |
unless exists $FILTERS{$inst} |
|
924
|
5 |
1503 |
if (sprintf('%8e', $$hash{$key}) eq $lambda) |
|
951
|
0 |
17 |
unless defined $value |
|
955
|
0 |
17 |
if ($category eq 'wavelength') { } |
|
|
3 |
14 |
elsif ($category eq 'frequency') { } |
|
|
1 |
13 |
elsif ($category eq 'wavenumber') { } |
|
|
13 |
0 |
elsif ($category eq 'filter') { } |
|
973
|
9 |
4 |
if defined $instrument |
|
978
|
13 |
0 |
if (exists $FILTERS{$name}) |
|
980
|
13 |
0 |
if (exists $FILTERS{$name}{$value}) |
|
1017
|
0 |
4 |
unless @_ |
|
1026
|
4 |
2 |
if exists $FILTERS{$key}{$list{$key}} |
|
1031
|
2 |
2 |
unless scalar keys %list == $counter |
|
1050
|
0 |
2 |
unless @_ |
|
1060
|
1 |
7 |
if ($TELESCOPE{$key}[$i] eq $list{$key}) |
|
1069
|
1 |
1 |
unless scalar keys %list == $counter |
|
1087
|
0 |
3 |
unless @_ |
|
1103
|
2 |
6 |
if (${$FILTERS{$instrument};}{$list{$key}}) |
|
1115
|
1 |
2 |
unless scalar keys %list == $counter |