| line |
true |
false |
branch |
|
350
|
28 |
88 |
if exists $args{$key} |
|
353
|
2 |
27 |
if ($found == 0) { } |
|
|
1 |
26 |
elsif ($found > 1) { } |
|
354
|
0 |
2 |
if warnings::enabled() |
|
359
|
0 |
1 |
if warnings::enabled() |
|
369
|
19 |
7 |
if (exists $args{'Instrument'}) |
|
375
|
19 |
28 |
if $method eq "instrument" |
|
376
|
28 |
0 |
if ($w->can($method)) |
|
433
|
5 |
50 |
@_ && 'HASH' eq ref $_[0] ? : |
|
435
|
8 |
47 |
if (@_) { } |
|
441
|
1 |
46 |
if $opt{'format'} |
|
458
|
5 |
8 |
@_ && 'HASH' eq ref $_[0] ? : |
|
460
|
5 |
8 |
if (@_) { } |
|
469
|
3 |
5 |
if $opt{'format'} |
|
487
|
1 |
11 |
@_ && 'HASH' eq ref $_[0] ? : |
|
489
|
1 |
11 |
if (@_) { } |
|
498
|
1 |
10 |
if $opt{'format'} |
|
517
|
23 |
32 |
@_ && 'HASH' eq ref $_[0] ? : |
|
519
|
13 |
42 |
if (@_) { } |
|
546
|
19 |
64 |
if (@_) |
|
562
|
0 |
27 |
if (@_) |
|
574
|
2 |
2 |
if (@_) |
|
586
|
2 |
2 |
if (@_) |
|
610
|
0 |
19 |
unless defined $lambda |
|
613
|
1 |
18 |
if ($lambda >= 10000) { } |
|
|
0 |
18 |
elsif ($lambda >= 1000) { } |
|
|
3 |
15 |
elsif ($lambda >= 100) { } |
|
|
11 |
4 |
elsif ($lambda >= 1) { } |
|
|
4 |
0 |
elsif ($lambda >= 0.3) { } |
|
|
0 |
0 |
elsif ($lambda >= 0.01) { } |
|
|
0 |
0 |
elsif ($lambda >= 1e-05) { } |
|
664
|
1 |
26 |
@_ && 'HASH' eq ref $_[0] ? : |
|
669
|
27 |
0 |
unless (defined $unit) |
|
672
|
19 |
0 |
if ($inst and exists $NATURAL{$inst}) |
|
678
|
8 |
19 |
unless defined $unit |
|
682
|
27 |
0 |
if ($self->can($unit)) |
|
687
|
3 |
24 |
unless defined $value |
|
718
|
0 |
2 |
if $was_reversed |
|
746
|
1 |
2 |
if (defined $self->instrument and defined $comp->instrument) { } |
|
778
|
0 |
1 |
if (not defined $self->instrument && defined $comp->instrument) { } |
|
807
|
0 |
179 |
if (wantarray) { } |
|
843
|
61 |
1 |
unless exists $cache->{$key} |
|
847
|
0 |
1 |
if ($key eq 'filter') { } |
|
848
|
0 |
0 |
if $cache->{$key} eq $entries{$key} |
|
852
|
0 |
1 |
if $cache->{$key} == $entries{$key} |
|
899
|
0 |
134 |
unless @_ |
|
902
|
0 |
134 |
unless $key |
|
907
|
108 |
26 |
if exists $cache->{$key} |
|
930
|
0 |
19 |
unless defined $value |
|
938
|
19 |
0 |
if defined $internal |
|
941
|
0 |
19 |
unless defined $internal |
|
966
|
26 |
35 |
unless ($value) |
|
971
|
17 |
9 |
if $value |
|
996
|
0 |
26 |
unless defined $lambda |
|
1000
|
0 |
26 |
if ($category eq 'wavelength') { } |
|
|
2 |
24 |
elsif ($category eq 'frequency') { } |
|
|
10 |
14 |
elsif ($category eq 'wavenumber') { } |
|
|
14 |
0 |
elsif ($category eq 'filter') { } |
|
1020
|
9 |
5 |
if defined $instrument |
|
1027
|
3 |
88 |
unless exists $FILTERS{$inst} |
|
1034
|
5 |
1504 |
if (sprintf("%8e", $hash->{$key}) eq $lambda) |
|
1061
|
0 |
19 |
unless defined $value |
|
1065
|
0 |
19 |
if ($category eq 'wavelength') { } |
|
|
5 |
14 |
elsif ($category eq 'frequency') { } |
|
|
1 |
13 |
elsif ($category eq 'wavenumber') { } |
|
|
13 |
0 |
elsif ($category eq 'filter') { } |
|
1084
|
9 |
4 |
if defined $instrument |
|
1088
|
13 |
0 |
if (exists $FILTERS{$name}) |
|
1090
|
13 |
0 |
if (exists $FILTERS{$name}{$value}) |
|
1116
|
0 |
4 |
unless defined $value |
|
1122
|
4 |
33 |
if ($range >= $prefrange) |
|
1128
|
3 |
1 |
unless $unit eq "mu" and $baseunit eq "m" |
|
1149
|
0 |
1 |
unless defined $value |
|
1180
|
0 |
4 |
unless @_ |
|
1189
|
4 |
2 |
if exists $FILTERS{$key}{$list{$key}} |
|
1194
|
2 |
2 |
unless scalar keys %list == $counter |
|
1213
|
0 |
2 |
unless @_ |
|
1223
|
1 |
9 |
if ($TELESCOPE{$key}[$i] eq $list{$key}) |
|
1232
|
1 |
1 |
unless scalar keys %list == $counter |
|
1251
|
0 |
3 |
unless @_ |
|
1266
|
2 |
8 |
if (${$FILTERS{$instrument};}{$list{$key}}) |
|
1278
|
1 |
2 |
unless scalar keys %list == $counter |