| 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 |