Branch Coverage

blib/lib/Data/Secs2.pm
Criterion Covered Total %
branch 1 338 0.3


line true false branch
39 0 1 if ref $class
82 0 0 if UNIVERSAL::isa($_[0], 'Data::Secs2')
86 0 0 unless $Data::Secs2::default_options
90 0 0 unless $class
93 0 0 $class ne $reftype ? :
100 0 0 if ($reftype eq 'HASH') { }
0 0 elsif ($reftype eq 'ARRAY') { }
0 0 elsif ($reftype eq 'SCALAR') { }
0 0 elsif ($reftype eq 'REF') { }
0 0 elsif ($reftype eq 'CODE') { }
0 0 elsif ($reftype eq 'GLOB') { }
130 0 0 if ($$options{'warnings'}) { }
0 0 elsif ($$options{'die'}) { }
145 0 0 unless $Data::Secs2::default_options
146 0 0 UNIVERSAL::isa($_[0], 'Data::Secs2') ? :
147 0 0 ref $self ? :
189 0 0 unless $Data::Secs2::default_options
190 0 0 UNIVERSAL::isa($_[0], 'Data::Secs2') ? :
191 0 0 ref $self ? :
225 0 0 ref $$var[$i] ? :
226 0 0 if ($dups{$ref_dup})
235 0 0 if (ref $$var[$i] eq 'ARRAY')
242 0 0 if (ref $_ and ref $_ ne 'ARRAY')
246 0 0 unless (defined $_ and $_ =~ /\s*\S+\s*/)
251 0 0 if ($is_numeric)
253 0 0 if (@num != 0 and @$str == 0)
268 0 0 if ($ref) { }
285 0 0 if ($ref eq 'ARRAY')
316 0 0 if (defined $$var[$i]) { }
322 0 0 if (@num == 1 and @$str == 0) { }
345 0 0 unless @vars
441 0 0 if UNIVERSAL::isa($_[0], 'Data::Secs2')
445 0 0 unless $Data::Secs2::default_options
453 0 0 if defined $$options{'obj_format_code'}
454 0 0 if ($$options{$obj_format_code})
455 0 0 if (not $$options{'add_obj_format_code'} and $secs_format_element[0] == 165 and $secs_format_element[1] == 1 and $secs_format_element[2] == 80 || $secs_format_element[2] == 83) { }
475 0 0 unless ($format)
488 0 0 if ($length_size == 0)
489 0 0 if ($$options{'scalar'} and $format ne 'L') { }
490 0 0 $format =~ /(\d)$/ ? :
491 0 0 if ($format =~ /[SUF]\d/ or $format eq 'T') { }
495 0 0 unless (ref $number eq 'ARRAY')
499 0 0 if (@$number != 1)
522 0 0 unless (ref $length_num eq 'ARRAY')
530 0 0 if ($format eq 'L') { }
0 0 elsif ($length_num) { }
534 0 0 if ($format =~ /[SUF]\d/ or $format eq 'T') { }
537 0 0 unless (ref $number eq 'ARRAY')
557 0 0 if ($$options{'warnings'}) { }
0 0 elsif ($$options{'die'}) { }
577 0 0 if UNIVERSAL::isa($_[0], 'Data::Secs2')
584 0 0 unless $Data::Secs2::default_options
604 0 0 unless ($head eq 'U1' and ref $body eq 'ARRAY' and @$body == 1 and $$body[0] eq '80')
614 0 0 if ($head eq 'L') { }
0 0 elsif ($head =~ /^[AJBFNSTU]/) { }
616 0 0 if ($body == 0) { }
621 0 0 if ('A' ne $$secs_obj[$i++])
626 0 0 if ('A' ne $$secs_obj[$i++])
631 0 0 unless ($i < @{$secs_obj;})
635 0 0 if ($class eq '' and $type eq 'Index') { }
637 0 0 unless ($head =~ /^[UN]/)
642 0 0 if (ref $body eq 'ARRAY')
643 0 0 unless (@$body == 1)
683 0 0 unless $count == 0
695 0 0 if ($$options{'warnings'}) { }
0 0 elsif ($$options{'die'}) { }
710 0 0 if UNIVERSAL::isa($_[0], 'Data::Secs2')
715 0 0 unless $Data::Secs2::default_options
727 0 0 if ($reftype eq 'HASH') { }
0 0 elsif ($reftype eq 'ARRAY') { }
0 0 elsif ($reftype eq 'SCALAR') { }
0 0 elsif ($reftype eq 'REF') { }
0 0 elsif ($reftype eq 'CODE') { }
0 0 elsif ($reftype eq 'GLOB') { }
734 0 0 unless (@array == 1)
741 0 0 unless (@array == 1)
748 0 0 unless (@array == 1)
755 0 0 unless (@array == 8)
765 0 0 if $class
770 0 0 if ($$options{'warnings'}) { }
0 0 elsif ($$options{'die'}) { }
786 0 0 if UNIVERSAL::isa($_[0], 'Data::Secs2')
790 0 0 unless $Data::Secs2::default_options
794 0 0 unless $spaces
806 0 0 if (@level and $level[-1] <= 0)
808 0 0 $$options{'type'} eq 'ascii' ? :
810 0 0 if ($format eq 'L') { }
0 0 elsif ($format =~ /[SUF]\d/) { }
0 0 elsif ($format =~ /[AJBTN]/) { }
813 0 0 if ref $element
815 0 0 if @level
817 0 0 $$options{'type'} eq 'ascii' ? :
822 0 0 if ref $element
824 0 0 if @level
828 0 0 if ref $element
830 0 0 if @level
837 0 0 if substr($string, -1, 1) ne "\n" and $$options{'type'} =~ /asc/i
848 0 0 if substr($$element, -1, 1) ne "\n"
851 0 0 if ($$options{'warnings'}) { }
0 0 elsif ($$options{'die'}) { }
866 0 0 if UNIVERSAL::isa($_[0], 'Data::Secs2')
876 0 0 unless $Data::Secs2::default_options
880 0 0 if ($format =~ /L(\d+)/)
886 0 0 if ($$options{'type'} eq 'ascii') { }
888 0 0 if ($format eq 'L') { }
0 0 elsif ($format =~ /[SUF]\d/ or $format eq 'T' or $format eq 'N') { }
0 0 elsif ($format =~ /[AJB]/) { }
0 0 elsif (not $format =~ /[L]/) { }
892 0 0 if (ref $cells eq 'ARRAY') { }
894 0 0 if @$cells
897 0 0 if defined $cells
902 0 0 $cells =~ /\n/ ? :
0 0 if $cells
912 0 0 if ($format =~ /[SUF]\d/ or $format eq 'T' or $format eq 'N')
914 0 0 if $format eq 'N'
915 0 0 if (ref $cells eq 'ARRAY') { }
920 0 0 if ($$options{'scalar'})
924 0 0 if (defined $format) { }
932 0 0 $format eq 'L' ? :
934 0 0 unless (defined $len_format and $len_format =~ /^U/)
939 0 0 unless ($len_size < 4)
944 0 0 if $format eq 'L' or $body_bytes == 0
951 0 0 if ($$options{'warnings'}) { }
0 0 elsif ($$options{'die'}) { }
966 0 0 if UNIVERSAL::isa($_[0], 'Data::Secs2')
967 0 0 unless ref $_[0] or 1 < @_
980 0 0 if UNIVERSAL::isa($_[0], 'Data::Secs2')
984 0 0 unless $Data::Secs2::default_options
990 0 0 if defined $$options{'obj_format_code'}
991 0 0 if ($$options{'obj_format_code'})
992 0 0 unless ($$options{'add_obj_format_code'})
1012 0 0 if $ascii_secs =~ s/^\s*(\S)(\d)?//
1013 0 0 unless $byte_code
1014 0 0 unless ($format)
1019 0 0 unless $bytes_per_cell
1021 0 0 unless $bytes_per_cell
1029 0 0 if $ascii_secs =~ s/^s*\[\s*(\d+)\s*\]//s
1030 0 0 unless (defined $length)
1031 0 0 if $ascii_secs =~ s/^\s*\,\s*(\d+)//s
1034 0 0 if ($ascii_secs)
1035 0 0 if (substr($ascii_secs, 0, 2) eq '\\r\\n' or substr($ascii_secs, 0, 2) eq '\\n\\r')
1043 0 0 unless ($ascii_secs)
1047 0 0 if (defined $length) { }
1048 0 0 if ($format eq 'L') { }
0 0 elsif ($format =~ /^[JAB]$/) { }
0 0 elsif ($format =~ /^[FNSTU]$/) { }
1049 0 0 if $list_location
1061 0 0 if (0 < $length) { }
1073 0 0 if (0 < $length) { }
1076 0 0 if ($length != @nums)
1097 0 0 if ($format =~ /^[FNSTU]$/) { }
0 0 elsif ($format =~ /^[LAJB]$/) { }
1101 0 0 if (@nums == 0) { }
0 0 elsif (@nums == 1) { }
1117 0 0 if $ascii_secs =~ s/^\s*(\S)//
1118 0 0 if ($open_char eq '(') { }
0 0 elsif ($open_char eq '[') { }
0 0 elsif ($open_char eq '{') { }
0 0 elsif ($open_char eq '<') { }
1136 0 0 if ($format eq 'L') { }
1141 0 0 if $list_location
1157 0 0 unless ($ascii_secs =~ s/(.*?)\Q$close_char\E//s)
1166 0 0 if ($esc_esc and length($esc_esc) % 2) { }
1190 0 0 if ($list_close_char and $counted_list == 0)
1193 0 0 if (@open_list) { }
1209 0 0 if $counted_list or $list_close_char
1210 0 0 unless $open_lists
1220 0 0 if ($$options{'warnings'}) { }
0 0 elsif ($$options{'die'}) { }