| line |
true |
false |
branch |
|
54
|
0 |
0 |
if $param->{'header'} or $param->{'col_names'}
|
|
55
|
0 |
0 |
if $param->{'row_names'}
|
|
56
|
0 |
0 |
if $param->{'col_data'}
|
|
72
|
4 |
0 |
if @$row_names
|
|
73
|
4 |
0 |
if @$row_data
|
|
74
|
0 |
4 |
if @$row_data_names
|
|
103
|
0 |
0 |
unless ($name)
|
|
111
|
0 |
0 |
unless $name
|
|
117
|
0 |
15 |
unless $name
|
|
145
|
0 |
0 |
if ref $cb eq 'Regexp'
|
|
165
|
1 |
0 |
if defined $name
|
|
167
|
0 |
1 |
if $col_data and @$col_data
|
|
170
|
0 |
1 |
if (ref $assay_col eq 'CODE') { }
|
|
184
|
1 |
0 |
if $names and @$names
|
|
189
|
0 |
1 |
if (ref $data eq 'CODE') { }
|
|
|
1 |
0 |
elsif (ref $data eq 'ARRAY') { }
|
|
195
|
0 |
1 |
unless @$data == @$assay
|
|
206
|
0 |
1 |
if @$col_data and @$col_data_n and @$col_data != @$col_data_n
|
|
208
|
1 |
0 |
@$col_data > @$col_data_n ? :
|
|
227
|
0 |
22 |
unless $assay and @$assay
|
|
251
|
0 |
0 |
unless open my $fh, '>', $f
|
|
265
|
3 |
1 |
if (ref $cb eq 'CODE') { }
|
|
|
1 |
0 |
elsif (ref $cb eq 'ARRAY') { }
|
|
268
|
3 |
6 |
if &$cb($assay->[$i], $i)
|
|
280
|
5 |
0 |
if $row_names and @$row_names
|
|
281
|
5 |
0 |
if $row_data and @$row_data
|
|
302
|
8 |
6 |
unless $m{$i}
|
|
314
|
1 |
5 |
unless @$by_x == @$by_y
|
|
321
|
0 |
5 |
if @$col_data_x and @$col_data_y and @$col_data_x != @$col_data_y
|
|
344
|
3 |
16 |
if $param{'join'} eq 'inner' and not $data_x && $data_y
|
|
345
|
8 |
8 |
if ($param{'join'} eq 'left' or $param{'join'} eq 'full')
|
|
346
|
2 |
6 |
if $param{'join'} eq 'left' and not $data_x
|
|
356
|
4 |
10 |
if ($param{'join'} eq 'right' or $param{'join'} eq 'full')
|
|
357
|
1 |
3 |
if $param{'join'} eq 'right' and not $data_y
|
|
376
|
10 |
3 |
if $data_x->{'row_names'} and @{$data_x->{'row_names'};}
|
|
378
|
10 |
3 |
if $data_x->{'row_data'} and @{$data_x->{'row_data'};}
|
|
386
|
5 |
0 |
if (@$col_data_x or @$col_data_y)
|
|
421
|
0 |
3 |
unless ref $aoa eq 'ARRAY'
|
|
425
|
1 |
5 |
unless $row and ref $row eq 'ARRAY'
|
|
426
|
2 |
3 |
unless defined $rlen
|
|
427
|
1 |
4 |
unless @$row == $rlen
|
|
458
|
0 |
0 |
if (ref $o eq 'ARRAY') { }
|
|
466
|
0 |
0 |
if (ref $o eq 'ARRAY') { }
|
|
484
|
0 |
0 |
if ($names and @$names)
|
|
485
|
0 |
0 |
if $nrow > 0
|
|
489
|
0 |
0 |
if ($row_data and @$row_data)
|
|
490
|
0 |
0 |
if $nrow > 0
|
|
505
|
0 |
3 |
unless ref $aoa eq 'ARRAY'
|
|
509
|
0 |
9 |
unless $row and ref $row eq 'ARRAY'
|
|
510
|
3 |
6 |
if not defined $max_ncol or @$row > $max_ncol
|
|
512
|
0 |
3 |
unless defined $max_ncol
|
|
529
|
0 |
3 |
unless $data and ref $data eq 'ARRAY'
|
|
531
|
0 |
3 |
unless $dim
|
|
537
|
2 |
9 |
if @{$data->[$i];} == $ncol
|
|
550
|
0 |
0 |
unless $data and ref $data eq 'ARRAY'
|
|
552
|
0 |
0 |
unless $len
|
|
579
|
0 |
0 |
if defined $row
|
|
580
|
0 |
0 |
if defined $row_name
|
|
581
|
0 |
0 |
if defined $row_data
|
|
582
|
0 |
0 |
if defined $row_data_name
|
|
598
|
0 |
11 |
unless @names
|
|
599
|
11 |
0 |
if @names == 1 and ref $names[0] eq 'ARRAY'
|
|
602
|
0 |
11 |
if &any(sub {
|
|
636
|
24 |
5 |
if $row_names and @$row_names
|
|
637
|
24 |
5 |
if $row_data and @$row_data
|
|
675
|
0 |
0 |
unless %I
|
|
676
|
0 |
0 |
wantarray ? :
|
|
685
|
0 |
0 |
unless %I
|
|
686
|
0 |
0 |
wantarray ? :
|
|
693
|
0 |
0 |
if $idx < 0
|
|
740
|
0 |
0 |
if ($dir eq 'r' or $dir == 1) { }
|
|
|
0 |
0 |
elsif ($dir eq 'c' or $dir == 2) { }
|
|
|
0 |
0 |
elsif ($dir eq 'rc' or $dir eq 'cr' or $dir == 3) { }
|
|
754
|
1 |
0 |
if $self->has_col_names
|
|
757
|
1 |
0 |
if $self->has_col_data
|
|
822
|
0 |
0 |
if $seen{join $;, @$_}++
|