Condition Coverage

blib/lib/Data/SeaBASS.pm
Criterion Covered Total %
condition 132 192 68.7


and 3 conditions

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'}
1824 0 4 125 ref $value eq 'ARRAY' and wantarray
4 0 0 ref $value eq 'HASH' and wantarray
2037 72 0 0 &firstidx(sub { $_ eq $header; } , @ALL_HEADERS) < 0 and &firstidx(sub { $_ eq $header; } , @HIDDEN_HEADERS) < 0
2167 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/
2209 2383 207 0 length $v == 0 and not $k =~ /_header/
2227 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
2236 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
2309 0 24 4 $self->{'options'}{'cache'} and $self->{'max_dataidx'} >= 0
2338 21 0 0 $self->{'options'}{'fill_ancillary_data'} and &firstidx(sub { $_ eq $field; } , keys %{$$self{'ancillary'};}) >= 0
2347 2159 30 27 defined $hash->{$case_var} and !defined($missing) || $hash->{$case_var} != $missing
2534 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'
2629 0 98 0 defined $row->{$variable} and !defined($missing) || $row->{$variable} != $missing

or 2 conditions

line l !l condition
1345 14 7 $unit ||= 'unitless'
1543 14 0 $self->{'headers'}{"${slash}delimiter"} ||= 'comma'
1574 1 0 $add_missing_headers || ''
2056 130 1 $headers{"${slash}fields"} || ''
2057 130 1 $headers{"${slash}fields"} || ''
2279 93 0 shift() || ''

or 3 conditions

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'}
2014 114 17 0 $headers{"${slash}missing"} || $DEFAULT_MISSING
2020 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
2042 0 0 5 $headers{"${slash}begin_header"} or $headers{"${slash}end_header"}
2096 7 120 0 $headers{"${slash}below_detection_limit"} || $missing
2097 7 120 0 $headers{"${slash}above_detection_limit"} || $missing
2218 1190 121 1279 not $self->{'options'}{'preserve_case'} or $k =~ /fields|units/
2346 0 2216 0 $self->{'case_conversion'}{$variable} || $variable
2347 30 27 0 !defined($missing) || $hash->{$case_var} != $missing
2443 3 4 0 $self->{'delim'} or $self->guess_delim($_[0])
2629 63 35 0 !defined($missing) || $row->{$variable} != $missing