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