Branch Coverage

blib/lib/PDLA/IO/Misc.pm
Criterion Covered Total %
branch 157 318 49.3


line true false branch
161 28 0 if (ref $_[0] ne 'ARRAY')
179 0 32 if (ref $data eq 'ARRAY') { }
195 0 55 if (ref $data eq 'ARRAY') { }
2 53 elsif (ref $databox->[0] eq 'ARRAY') { }
215 0 11 unless ref $deftype eq 'PDLA::Type'
218 11 0 ref $types eq 'ARRAY' ? :
220 1 10 if ($#cols > -1)
222 0 1 if $#cols > $ncols
226 0 1 unless ref $cols[$_] eq 'PDLA::Type'
411 0 11 if $#_ < 0
415 2 9 $is_handle ? :
416 9 2 unless $is_handle
435 9 2 if (defined $_[0])
437 1 8 if ($_[0] =~ m[^/.*/$]) { }
0 8 elsif (ref $_[0] eq 'Regexp') { }
2 6 elsif (ref $_[0] eq 'HASH') { }
443 3 8 if defined $_[-1] and ref $_[-1] eq 'HASH'
449 0 11 defined $PDLA::IO::Misc::colsep ? :
450 1 10 if $options->{'COLSEP'}
454 12 10 if ($options->{$pattern} and ref $options->{$pattern} ne 'Regexp')
455 12 0 if ($options->{$pattern} =~ m[^/.*/$]) { }
472 0 11 if $options->{'PERLCOLS'}
484 1 10 if ($options->{'LINES'} ne '')
485 1 0 if ($options->{'LINES'} =~ /^\s*([+-]?\d*)\s*:\s*([+-]?\d*)\s*$/) { }
0 0 elsif ($options->{'LINES'} =~ /^\s*([+-]?\d*)\s*:\s*([+-]?\d*)\s*:\s*([+]?\d*)\s*$/) { }
496 1 10 if defined $x and $x ne ''
497 1 10 if defined $y and $y ne ''
504 10 1 if ($index_start >= 0 and $index_end < 0) { }
1 0 elsif ($index_end >= 0 and $index_start < 0) { }
0 0 elsif ($index_end >= $index_start and $index_start >= 0) { }
0 0 elsif ($index_start > $index_end and $index_end >= 0) { }
0 0 elsif ($index_start <= $index_end) { }
538 0 11 if ($options->{'COLIDS'})
539 0 0 if $options->{'VERBOSE'}
541 0 0 if (defined($fhline = readline $fh)) { }
543 0 0 defined $usecolsep ? :
546 0 0 if $!
565 0 50 if defined $line_end and $line_num > $line_end
566 0 50 if defined $line_start and $line_num < $line_start
567 7 43 if $options->{'EXCLUDE'} and $fhline =~ /$options->{'EXCLUDE'}/
568 6 37 if $options->{'INCLUDE'} and not $fhline =~ /$options->{'INCLUDE'}/
569 0 37 unless ++$line_ctr == $line_step
573 5 32 defined $usecolsep ? :
576 1 81 $_ eq '' ? :
580 10 27 if ($index == 0)
583 3 7 if ($#explicit_cols < 0)
586 1 9 if (scalar @explicit_cols == 1 and ref $explicit_cols[0] eq 'ARRAY')
587 1 0 unless (scalar @{$explicit_cols[0];})
594 1 18 if (ref $col eq 'ARRAY') { }
595 0 1 unless scalar @$col
600 0 10 if ($implicit_pdls > 1)
604 0 19 if (ref $col eq 'ARRAY' and not scalar @$col)
614 1 18 if (ref $col eq 'ARRAY') { }
18 0 elsif (not $is_perl_col[$col]) { }
624 0 19 if (ref $col ne 'ARRAY' and defined $is_perl_col[$col])
631 0 10 if ($options->{'VERBOSE'})
643 1 18 if (ref $_ eq 'ARRAY') { }
647 0 18 $is_perl_col[$_] ? :
648 18 0 unless $is_perl_col[$_]
658 9 28 if ($pdlsize < $index)
666 5 64 if (ref $_ eq 'ARRAY') { }
677 10 27 if ($index >= $nextburpindex)
683 0 37 if defined $line_end and $line_num == $line_end
688 9 2 unless $is_handle
693 26 3 if defined $_ and scalar @{$_->[1];}
698 1 10 if ($index == -1)
699 0 1 if $options->{'VERBOSE'}
700 0 1 if (wantarray) { }
702 0 0 if ($is_perl_col[$_]) { }
718 9 0 if ($line_rev == 0 and $index_start >= 0 and $index_end >= -1)
721 17 0 unless ref $_ eq 'ARRAY'
723 0 9 if ($options->{'VERBOSE'})
724 0 0 if (ref $ret[0] eq 'ARRAY') { }
730 8 1 wantarray ? :
738 1 0 if ($line_rev)
739 0 1 if (defined $line_start and defined $line_end) { }
1 0 elsif (defined $line_start) { }
749 1 0 if $index_start < 0
750 0 1 if $index_end < 0
755 1 0 if ($line_rev) { }
764 0 2 if (ref $col eq 'ARRAY') { }
769 2 0 unless $is_perl_col[$col]
775 0 2 if ($is_perl_col[$_])
783 0 1 if ($options->{'VERBOSE'})
786 0 0 if $done
787 0 0 if $is_perl_col[$col]
792 0 0 if $done
800 0 2 if ref $col eq 'ARRAY'
801 0 2 if $col->ndims == 2
804 1 0 wantarray ? :
882 0 4 if @_ < 1
885 0 4 defined $PDLA::IO::Misc::colsep ? :
890 2 2 if (ref $_[-1] eq 'HASH')
893 0 2 if ($key =~ /^H/i) { }
0 2 elsif ($key =~ /^COLSEP/i) { }
2 0 elsif ($key =~ /^FORMAT/i) { }
901 3 1 if (ref \$_[0] eq 'SCALAR' or $format_string)
902 2 1 if ref \$_[0] eq 'SCALAR'
913 4 0 if ($is_handle) { }
917 0 0 if (ref \$file eq 'SCALAR') { }
919 0 0 unless ($is_handle)
920 0 0 unless $file =~ /^\|/ or $file =~ /^\>/
921 0 0 unless open $fh, $file
933 0 4 ref $p[0] eq 'ARRAY' ? :
936 0 8 if (ref $_ eq 'ARRAY') { }
937 0 0 if scalar @{$_;} != $n
940 0 8 if $_->dim(0) != $n or $_->getndims > 2
941 0 8 if ($_->getndims == 2) { }
948 0 4 if (defined $header)
949 0 0 unless $header =~ /\n$/
955 12 4 if ($format_string) { }
960 12 12 if (@d == $step)
962 0 12 unless $pdone == $pcnt
966 0 12 if (@d and not $i)
968 0 0 if ($#dogp > 0) { }
983 4 4 $pdone == $pcnt ? :
988 0 4 if $file_opened
1020 0 0 if (ref \$_[0] eq 'SCALAR')
1027 0 0 ref $p[0] eq 'ARRAY' ? :
1029 0 0 if (ref $_ eq 'ARRAY') { }
1030 0 0 if scalar @{$_;} != $n
1032 0 0 if $_->nelem != $n or $_->getndims != 1
1038 0 0 if ($format_string) { }
1042 0 0 if (@d == $step)
1047 0 0 if (@d and not $i)
1049 0 0 if ($#p > 0) { }
1066 0 0 wantarray ? :
1117 0 1 if $#_ > 2
1124 1 0 $is_handle ? :
1125 0 1 unless $is_handle
1127 0 1 if (ref $pattern ne 'CODE')
1148 0 1 if ($undef_is_bad and not $PDLA::Bad::Status)
1153 0 1 unless ref $options->{'DEFTYPE'} eq 'PDLA::Type'
1157 0 5 unless @v = &$pattern
1160 1 4 if ($m == 0) { }
1170 0 4 if $nret != $#v
1172 1 4 if ($n < $m)
1182 0 10 if ($v[$_] eq '') { }
1184 0 0 if ($undef_is_bad) { }
1197 0 1 unless $is_handle
1199 1 0 wantarray ? :
1230 0 0 if $#_ != 0
1232 0 0 unless $PDLA::IO::Misc::dsa_loaded++
1233 0 0 if $@ ne ''
1241 0 0 if $status != 0
1251 0 0 if $PDLA::verbose
1258 0 0 if (wantarray)
1275 0 0 if $status != 0
1328 2 1 unless defined $num
1330 0 3 defined fileno $fi ? :
1331 3 0 unless ($is_openhandle)
1332 0 3 if not defined $file or ref $file
1334 1 2 unless $fi = 'IO::File'->new("<$file")
1337 2 0 unless $is_openhandle
1372 0 0 unless ref $reader eq 'CODE'
1379 0 0 if $PDLA::verbose
1382 0 0 if ($k == 0) { }
1383 0 0 if $PDLA::verbose
1387 0 0 if $im->getdim(0) != $nx or $im->getdim(1) != $ny