| 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'}) { } |