| line |
!l |
l&&!r |
l&&r |
condition |
|
617
|
2504 |
77 |
2 |
$strict and not $_ =~ m[^/] |
|
630
|
0 |
1 |
0 |
$strict and not $_ =~ m[^/] |
|
856
|
73 |
283 |
73 |
$self->{'options'}{'cache'} and $self->{'dataidx'} < $self->{'max_dataidx'} |
|
1059
|
1 |
10 |
3 |
$index <= $self->{'dataidx'} and $index != INSERT_END() |
|
1106
|
3 |
2 |
0 |
not defined $index and $self->{'dataidx'} < 0 |
|
1192
|
5 |
2 |
12 |
defined $ret and defined wantarray |
|
1259
|
2 |
20 |
14 |
defined $row->{$field} and !defined($missing) || $row->{$field} != $missing |
|
1507
|
65 |
0 |
0 |
&firstidx(sub {
$_ eq $header_no_slash;
}
, @ALL_HEADERS) < 0 and &firstidx(sub {
$_ eq $header_no_slash;
}
, @HIDDEN_HEADERS) < 0 |
|
1525
|
0 |
14 |
0 |
not $write_to_h and exists $self->{'default_write_to'} |
|
1570
|
12 |
0 |
1 |
$add_missing_headers and $add_missing_headers eq '1' |
|
1580
|
1 |
0 |
5 |
$self->{'options'}{'missing_data_to_undef'} and not $self->{'options'}{'preserve_detection_limits'} |
|
1583
|
1 |
0 |
5 |
$self->{'options'}{'missing_data_to_undef'} and not $self->{'options'}{'preserve_detection_limits'} |
|
1603
|
2 |
10 |
1 |
not @{$self->{'comments'};} and $add_missing_headers |
|
1738
|
57 |
127 |
774 |
$self->{'missing_is_number'} and &looks_like_number($v) |
|
|
184 |
706 |
68 |
$self->{'missing_is_number'} and &looks_like_number($v) and $v == $self->{'missing'} |
|
|
20 |
859 |
11 |
not $self->{'options'}{'preserve_detection_limits'} and $self->{'adl_is_number'} |
|
|
859 |
2 |
9 |
not $self->{'options'}{'preserve_detection_limits'} and $self->{'adl_is_number'} and &looks_like_number($v) |
|
|
861 |
8 |
1 |
not $self->{'options'}{'preserve_detection_limits'} and $self->{'adl_is_number'} and &looks_like_number($v) and $v == $self->{'above_detection_limit'} |
|
|
20 |
858 |
11 |
not $self->{'options'}{'preserve_detection_limits'} and $self->{'bdl_is_number'} |
|
|
858 |
2 |
9 |
not $self->{'options'}{'preserve_detection_limits'} and $self->{'bdl_is_number'} and &looks_like_number($v) |
|
|
860 |
8 |
1 |
not $self->{'options'}{'preserve_detection_limits'} and $self->{'bdl_is_number'} and &looks_like_number($v) and $v == $self->{'below_detection_limit'} |
|
|
20 |
860 |
0 |
not $self->{'options'}{'preserve_detection_limits'} and $v eq $self->{'below_detection_limit'} || $v eq $self->{'above_detection_limit'} |
|
1826
|
0 |
4 |
125 |
ref $value eq 'ARRAY' and wantarray |
|
|
4 |
0 |
0 |
ref $value eq 'HASH' and wantarray |
|
2039
|
72 |
0 |
0 |
&firstidx(sub {
$_ eq $header;
}
, @ALL_HEADERS) < 0 and &firstidx(sub {
$_ eq $header;
}
, @HIDDEN_HEADERS) < 0 |
|
2169
|
1 |
124 |
2 |
$self->{'options'}{'optional_warnings'} and $headers{"${slash}optical_depth_warning"} |
|
|
125 |
1 |
1 |
$self->{'options'}{'optional_warnings'} and $headers{"${slash}optical_depth_warning"} and $headers{"${slash}optical_depth_warning"} =~ /true/ |
|
2211
|
2383 |
207 |
0 |
length $v == 0 and not $k =~ /_header/ |
|
2229
|
133 |
6 |
0 |
$strict and &firstidx(sub {
"/$_" eq $k;
}
, @ALL_HEADERS) < 0 |
|
|
139 |
0 |
0 |
$strict and &firstidx(sub {
"/$_" eq $k;
}
, @ALL_HEADERS) < 0 and &firstidx(sub {
"/$_" eq $k;
}
, @HIDDEN_HEADERS) < 0 |
|
2238
|
2371 |
80 |
0 |
$strict and &firstidx(sub {
$_ eq $k;
}
, @ALL_HEADERS) < 0 |
|
|
2451 |
0 |
0 |
$strict and &firstidx(sub {
$_ eq $k;
}
, @ALL_HEADERS) < 0 and &firstidx(sub {
$_ eq $k;
}
, @HIDDEN_HEADERS) < 0 |
|
2311
|
0 |
24 |
4 |
$self->{'options'}{'cache'} and $self->{'max_dataidx'} >= 0 |
|
2340
|
21 |
0 |
0 |
$self->{'options'}{'fill_ancillary_data'} and &firstidx(sub {
$_ eq $field;
}
, keys %{$$self{'ancillary'};}) >= 0 |
|
2350
|
2159 |
0 |
57 |
defined $v and length $v |
|
|
2159 |
30 |
27 |
defined $v and length $v and !defined($missing) || $v != $missing |
|
2537
|
150 |
0 |
12 |
defined $self->{'headers'}{"$slash$where"} and $self->{'headers'}{"$slash$where"} =~ /$regex/ |
|
|
150 |
0 |
12 |
defined $self->{'headers'}{"$slash$where"} and $self->{'headers'}{"$slash$where"} =~ /$regex/ and lc $1 ne 'na' |
|
2632
|
0 |
0 |
98 |
defined $row->{$variable} and length $row->{$variable} |
|
|
0 |
98 |
0 |
defined $row->{$variable} and length $row->{$variable} and !defined($missing) || $row->{$variable} != $missing |
| line |
l |
!l&&r |
!l&&!r |
condition |
|
1247
|
3 |
0 |
1 |
not $self->{'options'}{'fill_ancillary_data'} or &firstidx(sub {
$_ eq $field;
}
, keys %{$$self{'ancillary'};}) < 0 |
|
1259
|
18 |
14 |
2 |
!defined($missing) || $row->{$field} != $missing |
|
1526
|
0 |
0 |
0 |
$write_to_h ||= $self->{'default_write_to'} |
|
1580
|
7 |
5 |
1 |
$missing eq $adl or $self->{'options'}{'missing_data_to_undef'} and not $self->{'options'}{'preserve_detection_limits'} |
|
1583
|
7 |
5 |
1 |
$missing eq $bdl or $self->{'options'}{'missing_data_to_undef'} and not $self->{'options'}{'preserve_detection_limits'} |
|
1631
|
0 |
25 |
0 |
$HEADER_DEFAULTS{$header} || $add_missing_headers |
|
1643
|
0 |
0 |
0 |
$HEADER_DEFAULTS{$header} || $add_missing_headers |
|
1722
|
235 |
31 |
0 |
$self->{'delim'} or $self->guess_delim($line) |
|
1726
|
0 |
266 |
0 |
$field_list ||= $self->{'fields'} |
|
1738
|
0 |
0 |
860 |
$v eq $self->{'below_detection_limit'} || $v eq $self->{'above_detection_limit'} |
|
|
8 |
0 |
880 |
$v eq $self->{'missing'} or not $self->{'options'}{'preserve_detection_limits'} and $v eq $self->{'below_detection_limit'} || $v eq $self->{'above_detection_limit'} |
|
2016
|
114 |
17 |
0 |
$headers{"${slash}missing"} || $DEFAULT_MISSING |
|
2022
|
0 |
7 |
21 |
not defined $v or $v =~ m(^n/?a(?:\[.*?\])?$)i |
|
|
7 |
0 |
21 |
not defined $v or $v =~ m(^n/?a(?:\[.*?\])?$)i or lc $v eq lc $missing |
|
2044
|
0 |
0 |
5 |
$headers{"${slash}begin_header"} or $headers{"${slash}end_header"} |
|
2098
|
7 |
120 |
0 |
$headers{"${slash}below_detection_limit"} || $missing |
|
2099
|
7 |
120 |
0 |
$headers{"${slash}above_detection_limit"} || $missing |
|
2220
|
1190 |
121 |
1279 |
not $self->{'options'}{'preserve_case'} or $k =~ /fields|units/ |
|
2348
|
0 |
2216 |
0 |
$self->{'case_conversion'}{$variable} || $variable |
|
2350
|
30 |
27 |
0 |
!defined($missing) || $v != $missing |
|
2446
|
3 |
4 |
0 |
$self->{'delim'} or $self->guess_delim($_[0]) |
|
2632
|
63 |
35 |
0 |
!defined($missing) || $row->{$variable} != $missing |