Branch Coverage

blib/lib/Data/Table.pm
Criterion Covered Total %
branch 609 1042 58.4


line true false branch
2 0 2 if $] < 5.005
41 1 62 unless defined $type
42 0 63 unless defined $header
43 0 63 unless defined $data
44 63 0 unless defined $enforceCheck
47 0 61 if $type and scalar @$data and $#{$data;} != $#{$header;} or not $type and scalar @$data and $#{$$data[0];} != $#{$header;}
49 62 1 if ($enforceCheck and scalar @$data > 0) { }
1 0 elsif (scalar @$data == 0) { }
52 0 340 unless scalar @{$data->[$j];} == $size
67 0 295 unless $elm
69 0 295 if (defined $colHash->{$elm})
81 153 698 if exists $self->{'colHash'}{$colID}
82 687 11 if $colID =~ /^\d+$/
109 2 1652 if scalar @{$self->{'data'};} == 0
111 679 973 $self->{'type'} ? :
131 0 1 defined $arg_ref ? :
132 1 0 unless exists $arg{'reverse'}
133 0 1 $arg{'reverse'} ? :
137 77 78 if (defined $rowIdx)
138 0 77 $arg{'reverse'} ? :
139 0 77 $prevRow < 0 || $prevRow > $self->nofRow - 1 ? :
141 1 77 if $current_row < 0 or $current_row > $self->nofRow - 1
143 0 77 $arg{'reverse'} ? :
153 86 0 if defined $arg_ref and defined $arg_ref->{'delimiter'}
154 86 0 if defined $arg_ref and defined $arg_ref->{'qualifier'}
155 0 86 unless defined $s
157 0 86 if length $qualifier > 1
159 2 84 if ($s =~ /[$qualifier$delimiter\r\n]/)
168 0 357 unless defined $s
179 0 4 if defined $arg_ref and defined $arg_ref->{'OS'}
181 0 4 if (defined $arg_ref)
182 0 0 if defined $arg_ref->{'delimiter'}
183 0 0 if defined $arg_ref->{'qualifier'}
184 0 0 if defined $arg_ref->{'file'}
186 0 4 if length $delimiter > 1
187 0 4 $OS == 1 ? :
0 4 $OS == 2 ? :
188 4 0 unless defined $header
189 4 0 if $header
191 4 0 if ($self->{'data'})
192 0 4 if $self->{'type'}
198 0 4 if (defined $fileName_or_handler)
201 0 0 if ($isFileHandler) { }
204 0 0 unless open $OUT, "> $fileName_or_handler"
208 0 0 unless $isFileHandler
219 0 4 if (defined $arg_ref)
220 0 0 if defined $arg_ref->{'OS'}
221 0 0 if defined $arg_ref->{'file'}
222 0 0 if defined $arg_ref->{'transform_element'}
224 0 4 $OS == 1 ? :
0 4 $OS == 2 ? :
225 4 0 unless defined $header
226 4 0 if ($header)
227 4 0 if ($transform_element) { }
234 4 0 if ($self->{'data'})
235 0 4 if $self->{'type'}
238 29 0 if ($transform_element) { }
245 0 4 if (defined $fileName_or_handler)
248 0 0 if ($isFileHandler) { }
251 0 0 unless open $OUT, "> $fileName_or_handler"
255 0 0 unless $isFileHandler
265 5 0 unless ref $tag_tbl eq 'HASH'
266 5 0 unless ref $tag_tr eq 'HASH'
267 5 0 unless ref $tag_th eq 'HASH'
268 5 0 unless ref $tag_td eq 'HASH'
269 3 2 unless defined $portrait
271 2 3 if (defined $callback)
272 0 2 if ref $callback ne 'CODE'
280 0 368 unless $tag->{$key}
281 0 368 if ($key eq '') { }
297 1 4 if (ref $colorArrayRef_or_classHashRef eq 'HASH') { }
2 4 elsif (ref $colorArrayRef_or_classHashRef eq 'ARRAY' and scalar @$colorArrayRef_or_classHashRef == 3) { }
299 1 0 if defined $colorArrayRef_or_classHashRef->{'even'}
300 1 0 if defined $colorArrayRef_or_classHashRef->{'odd'}
301 1 0 if defined $colorArrayRef_or_classHashRef->{'header'}
309 3 2 if ($portrait) { }
312 1 2 if ($l_colorByClass) { }
313 1 0 if $CELL_CLASSES[2]
315 1 1 if $BG_COLOR[2]
319 6 8 $cb ? :
323 0 3 if $self->{'type'}
328 2 86 if ($l_colorByClass) { }
329 2 0 if $CELL_CLASSES[$i % 2]
331 9 77 if $BG_COLOR[$i % 2]
337 154 366 $s_td ? :
338 520 0 defined $data->[$i][$j] && $data->[$i][$j] ne '' ? :
345 2 0 unless $self->{'type'}
347 0 2 if ($l_colorByClass) { }
348 0 0 if $CELL_CLASSES[2]
350 1 1 if $BG_COLOR[2]
355 0 0 if (exists $old->{$k}) { }
356 0 0 if (not defined $usr->{'k'} or $usr->{'k'} eq '') { }
0 0 elsif ($k eq 'style' and index($usr->{'k'}, 'background-color:') != -1) { }
364 0 0 if $usr->{$k}
368 2 0 if defined $tag_th
375 6 6 $cb ? :
377 0 12 unless ref $td_def
380 0 516 if ($l_colorByClass) { }
381 0 0 if $CELL_CLASSES[$j % 2]
383 54 462 if $BG_COLOR[$j % 2]
387 208 308 $s_td ? :
388 516 0 defined $data->[$i][$j] && $data->[$i][$j] ne '' ? :
405 4 0 unless ref $tag_tbl eq 'HASH'
406 4 0 unless ref $tag_tr eq 'HASH'
407 4 0 unless ref $tag_th eq 'HASH'
408 4 0 unless ref $tag_td eq 'HASH'
409 2 2 unless defined $portrait
411 2 2 if (defined $callback)
412 0 2 if ref $callback ne 'CODE'
420 0 367 unless $tag->{$key}
421 0 367 if ($key eq '') { }
437 0 4 if (ref $colorArrayRef_or_classHashRef eq 'HASH') { }
2 4 elsif (ref $colorArrayRef_or_classHashRef eq 'ARRAY' and scalar @$colorArrayRef_or_classHashRef == 3) { }
439 0 0 if defined $colorArrayRef_or_classHashRef->{'even'}
440 0 0 if defined $colorArrayRef_or_classHashRef->{'odd'}
441 0 0 if defined $colorArrayRef_or_classHashRef->{'header'}
448 2 2 if ($portrait) { }
451 0 12 if ($l_colorByClass) { }
452 0 0 if $CELL_CLASSES[2]
454 6 6 if $BG_COLOR[2]
458 6 6 $cb ? :
461 2 0 if $self->{'type'}
465 0 86 if ($l_colorByClass) { }
466 0 0 if $CELL_CLASSES[$i % 2]
468 9 77 if $BG_COLOR[$i % 2]
474 0 516 unless ref $td
476 154 362 $s_td ? :
477 516 0 defined $data->[$i][$j] && $data->[$i][$j] ne '' ? :
482 2 0 unless $self->{'type'}
484 0 2 if ($l_colorByClass) { }
485 0 0 if $CELL_CLASSES[2]
487 1 1 if $BG_COLOR[2]
492 0 0 if (exists $old->{$k}) { }
493 0 0 if (not defined $usr->{'k'} or $usr->{'k'} eq '') { }
0 0 elsif ($k eq 'style' and index($usr->{'k'}, 'background-color:') != -1) { }
506 2 0 if defined $tag_th
512 6 6 $cb ? :
515 0 12 unless ref $td
518 0 516 if ($l_colorByClass) { }
519 0 0 if $CELL_CLASSES[$j % 2]
521 54 462 if $BG_COLOR[$j % 2]
525 208 308 $s_td ? :
526 516 0 defined $data->[$i][$j] && $data->[$i][$j] ne '' ? :
557 0 1 unless defined $c
558 0 1 unless $self->{'type'}
569 1 0 if $self->{'type'}
576 1 7 defined $arg_ref ? :
577 7 1 unless exists $arg{'addNewCol'}
583 1 7 if ($arg{'addNewCol'})
584 1 0 if (ref $myRowRef eq 'HASH') { }
0 0 elsif (ref $myRowRef eq 'ARRAY') { }
586 0 2 if $self->colIndex($key) >= 0
598 2 6 if (ref $myRowRef eq 'HASH') { }
6 0 elsif (ref $myRowRef eq 'ARRAY') { }
599 0 2 if ($self->isEmpty)
613 0 6 if scalar @$myRowRef != $self->nofCol
618 4 4 unless defined $rowIdx
619 0 8 unless defined $self->checkNewRow($rowIdx)
620 1 7 if $self->{'type'}
622 2 6 if ($rowIdx == 0) { }
3 3 elsif ($rowIdx == $numRow) { }
635 0 18 unless defined $self->checkOldRow($rowIdx)
636 0 18 if $self->{'type'}
645 0 4 if $self->{'type'}
662 1 11 if (not defined $colRef or ref $colRef eq '') { }
667 0 11 if @$colRef != $self->nofRow and $numCol > 0
670 7 5 unless defined $colIdx
671 0 12 unless defined $self->checkNewCol($colIdx, $colName)
672 3 9 unless $self->{'type'}
675 1 11 if ($colIdx == 0) { }
7 4 elsif ($colIdx == $numCol) { }
684 1 11 if ($colIdx == 0) { }
7 4 elsif ($colIdx == $numCol) { }
703 0 6 unless defined $c
704 2 4 unless $self->{'type'}
722 0 1 unless $self->{'type'}
735 0 48 unless defined $self->checkOldRow($rowIdx)
736 1 47 if $self->{'type'}
742 1 24 if $self->{'type'}
743 25 0 unless defined $rowIdcsRef
755 0 61 unless defined $self->checkOldRow($rowIdx)
756 0 61 if ($self->{'type'}) { }
770 0 175 unless defined $self->checkOldRow($rowIdx)
775 539 555 $self->{'type'} ? :
783 0 4 unless defined $c
784 1 3 unless $self->{'type'}
790 0 1 unless $self->{'type'}
791 0 1 unless defined $colIDsRef
804 0 5 unless defined $c
805 3 2 if (not $self->{'type'}) { }
812 0 2 unless ref $data->[$c] eq 'ARRAY'
821 0 16 unless defined $c
823 0 16 if $oldName eq $name
824 0 16 unless defined $self->checkNewCol($c, $name)
836 0 2 unless defined $c
838 0 2 unless defined $newName
839 2 0 unless ($oldName eq $newName)
840 0 2 unless defined $self->checkNewCol($c, $newName)
842 0 2 unless scalar @$newColRef == $self->nofRow
844 0 2 unless $self->{'type'}
853 0 2 unless defined $c1
855 0 2 unless defined $c2
863 0 2 unless $self->{'type'}
874 0 1 unless defined $c
875 0 1 unless $colIdx >= 0 and $colIdx < $self->nofCol
876 0 1 if $c == $colIdx
880 0 1 if defined $newColName
887 0 1077 unless (defined $rowIdx)
891 0 1077 if ($rowIdx < 0 or $rowIdx > $maxIdx)
901 0 8 unless (defined $rowIdx)
906 0 8 if ($rowIdx < 0 or $rowIdx > $maxIdx)
916 0 833 if ($c < 0)
926 0 30 unless (defined $colIdx)
930 0 30 if ($colIdx < 0 or $colIdx > $numCol)
934 0 30 if (defined $self->{'colHash'}{$colName})
938 0 30 unless ($colName =~ /\D/)
948 0 628 unless defined $c
949 0 628 unless defined $self->checkOldRow($rowIdx)
952 313 315 $self->{'type'} ? :
958 0 1 unless defined $c
959 0 1 unless defined $self->checkOldRow($rowIdx)
962 1 0 $self->{'type'} ? :
967 79 1 if ref $rowIdx eq ''
968 80 0 if ref $colID eq ''
971 0 80 unless defined $c
973 0 116 unless defined $self->checkOldRow($row)
974 116 0 if ($self->{'type'}) { }
989 12 14 $self->{'type'} ? :
990 0 26 if ($self->{'type'} and scalar @$data == 0) { }
1007 1 14 if (defined $header) { }
1010 0 1 if (scalar @$header != scalar @{$self->{'header'};}) { }
1044 0 0 unless defined $col
1047 0 0 if shift()
1048 0 0 shift() ? :
1053 0 0 if $self->{'type'}
1069 0 4 if $#cols % 3 != 2
1072 0 5 unless defined $col
1078 0 5 if ($cols[$i + 1] == 0) { }
4 1 elsif ($cols[$i + 1] == 1) { }
1 0 elsif (ref $cols[$i + 1] eq 'CODE') { }
1079 0 0 defined $_[0] ? :
0 0 defined $_[0] ? :
0 0 defined $_[1] ? :
0 0 defined $_[0] ? :
0 0 defined $_[0] ? :
0 0 defined $_[1] ? :
0 0 $cols[$i + 2] ? :
1081 21 0 defined $_[0] ? :
0 0 defined $_[0] ? :
21 0 defined $_[1] ? :
39 0 defined $_[0] ? :
0 0 defined $_[0] ? :
39 0 defined $_[1] ? :
1 3 $cols[$i + 2] ? :
1084 0 0 defined $_[0] ? :
0 0 defined $_[0] ? :
0 0 defined $_[1] ? :
1085 14 0 defined $_[0] ? :
0 0 defined $_[0] ? :
14 0 defined $_[1] ? :
0 1 $cols[$i + 2] ? :
1095 63 11 unless $res == 0
1099 3 1 if $self->{'type'}
1109 1 0 unless defined $countOnly
1111 0 1 if $self->{'type'}
1116 2 7 if ($self->{'OK'}[$i]) { }
1117 2 0 unless $countOnly
1128 2 7 if $self->{'OK'}[$_]
1129 0 1 if $countOnly
1140 2 0 unless defined $countOnly
1142 1 1 if $self->{'type'}
1152 39 47 if ($self->{'OK'}[$i]) { }
1153 39 0 unless $countOnly
1164 39 47 if $self->{'OK'}[$_]
1165 0 2 if $countOnly
1174 0 2 unless defined $s
1175 2 0 unless defined $countOnly
1178 0 2 if $self->{'type'}
1181 2 0 unless defined $caseIgn
1184 0 2 $caseIgn ? :
1191 0 83 unless defined $elm
1194 5 78 if ($elm =~ /$r/)
1198 5 0 unless $countOnly
1207 5 13 if $self->{'OK'}[$_]
1208 0 2 if $countOnly
1215 0 1 unless defined $OK
1216 0 1 unless defined $c
1218 0 1 if $self->{'type'}
1221 9 0 if ($c) { }
1222 8 1 unless $OK->[$i]
1224 0 0 if $OK->[$i]
1233 3 1 defined $arg_ref ? :
1234 1 3 unless exists $arg{'byName'}
1235 2 2 unless exists $arg{'addNewCol'}
1236 0 4 if ($self->isEmpty and not $tbl->isEmpty)
1244 1 3 if ($arg{'byName'} == 0 and $arg{'addNewCol'} == 0) { }
1245 0 1 unless $self->nofCol == $tbl->nofCol
1247 2 1 if ($arg{'addNewCol'})
1248 1 1 if ($arg{'byName'}) { }
1249 0 1 if ($self->nofCol < $tbl->nofCol) { }
1 0 elsif ($self->nofCol > $tbl->nofCol) { }
1280 2 0 if ($self->colIndex($col) < 0)
1288 1 3 if $self->{'type'}
1289 1 3 if $tbl->{'type'}
1291 2 2 if ($arg{'byName'} == 0) { }
1300 6 12 $colIndex[$j] >= 0 ? :
1310 1 1 defined $arg_ref ? :
1311 1 1 unless exists $arg{'renameCol'}
1312 0 2 unless $self->isEmpty or $self->nofRow == $tbl->nofRow
1319 6 1 if (exists $h{$s})
1320 0 6 unless $arg{'renameCol'}
1329 2 0 unless $self->{'type'}
1330 2 0 unless $tbl->{'type'}
1349 1 6 if defined $arg_ref->{'useRowMask'}
1351 5 1 defined $rowIdcsRef ? :
6 1 unless $useRowMask
1352 3 4 defined $colIDsRef ? :
1360 1 6 if ($useRowMask)
1364 2 7 if $OK[$i]
1367 0 7 if ($self->{'type'}) { }
1371 0 0 unless defined $self->checkOldRow($rowIdcs[$j])
1378 0 30 unless defined $self->checkOldRow($rowIdcs[$i])
1391 0 1 unless defined $colIDsRef
1392 1 0 unless defined $arg_ref
1399 0 3 unless defined $idx
1405 1 0 if ($arg_ref->{'keepRest'})
1407 3 3 unless (exists $inNew{$i})
1414 1 0 if ($self->{'type'}) { }
1459 0 216 unless defined $qualifier
1461 2 214 unless $qualifier
1465 197 0 if scalar @S % 2 == 0
1472 6 11 unless defined $includeHeader
1474 6 11 if defined $arg_ref and defined $arg_ref->{'OS'}
1477 8 9 if (defined $arg_ref)
1478 8 0 if defined $arg_ref->{'delimiter'}
1479 1 7 if defined $arg_ref->{'qualifier'}
1480 1 7 if defined $arg_ref->{'skip_lines'} and $arg_ref->{'skip_lines'} > 0
1481 1 7 if defined $arg_ref->{'skip_pattern'}
1482 0 8 if defined $arg_ref->{'encoding'}
1486 0 17 if (defined $header and ref $header eq 'ARRAY')
1493 2 14 $OS == 1 ? :
1 16 $OS == 2 ? :
1503 1 16 if (defined $skip_pattern)
1505 17 0 if (substr($s, -$n_endl, $n_endl) eq $newRowDelimiter)
1507 0 17 unless ($s)
1509 0 0 unless $givenHeader
1514 0 17 if ($s =~ /$delimiter$/) { }
1524 17 0 unless ($givenHeader)
1525 16 1 if ($includeHeader) { }
1531 1 16 unless $includeHeader
1535 0 171 if defined $skip_pattern and $s =~ /$skip_pattern/
1536 170 1 if (substr($s, -$n_endl, $n_endl) eq $newRowDelimiter)
1539 0 171 unless $size == scalar @$one
1557 17 220 unless defined $size
1559 237 0 if defined $arg_ref and defined $arg_ref->{'delimiter'}
1560 188 49 if defined $arg_ref and defined $arg_ref->{'qualifier'}
1561 0 237 if length $delimiter > 1
1562 0 237 if length $qualifier > 1
1564 227 10 if (-1 == index($s, $qualifier))
1565 57 170 if ($size == 0)
1578 9 663 if ($ch eq $delimiter2 and $q % 2) { }
78 585 elsif ($ch eq $qualifier2) { }
1591 9 1 if ($size == 0)
1597 9 0 $1 eq '\\c' ? :
1610 0 164 unless defined $one->[$i]
1611 0 164 if ($one->[$i] eq '\\N') { }
1628 1 4 if defined $arg_ref and defined $arg_ref->{'OS'}
1631 0 1 if defined $arg_ref and defined $arg_ref->{'skip_lines'} and $arg_ref->{'skip_lines'} > 0
1632 0 5 if defined $arg_ref->{'skip_pattern'}
1633 1 4 if defined $arg_ref->{'transform_element'}
1634 0 5 if defined $arg_ref->{'encoding'}
1639 3 2 unless defined $includeHeader
1640 0 5 unless defined $OS
1644 0 5 if (defined $header and ref $header eq 'ARRAY')
1651 0 5 $OS == 1 ? :
0 5 $OS == 2 ? :
1659 0 5 if (defined $skip_pattern)
1660 5 0 if (substr($s, -$n_endl, $n_endl) eq $newRowDelimiter)
1662 0 5 unless ($s)
1663 0 0 unless $givenHeader
1669 0 5 if ($s =~ /\t$/) { }
1679 5 0 unless ($givenHeader)
1680 5 0 if ($includeHeader) { }
1681 4 1 if ($transform_element) { }
1690 0 5 unless ($includeHeader)
1691 0 0 if $transform_element
1697 0 31 if defined $skip_pattern and $s =~ /$skip_pattern/
1698 31 0 if (substr($s, -$n_endl, $n_endl) eq $newRowDelimiter)
1700 29 2 if $transform_element
1709 0 31 unless $size == scalar @one
1725 0 0 if (ref $sql eq 'DBI::st') { }
1728 0 0 unless $sth = $dbh->prepare($sql)
1730 0 0 unless defined $vars
1732 0 0 unless ($sth->{'Executed'})
1733 0 0 unless $sth->execute(@$vars)
1738 0 0 if ($sth->{'NUM_OF_FIELDS'}) { }
1752 1 4 if exists $arg_ref->{'renameCol'}
1753 0 5 if exists $arg_ref->{'matchNULL'}
1754 0 5 if exists $arg_ref->{'NULLasEmpty'}
1757 0 5 if (not defined $cols2 and $n1 > 0)
1764 0 5 unless $n1 == $n2
1765 0 5 unless $n1
1770 0 9 unless defined $cols1->[$i]
1772 0 9 unless defined $cols2->[$i]
1778 21 9 unless (defined $cols3[$i])
1784 0 5 if $self->{'type'}
1785 0 5 if $tbl->{'type'}
1794 0 0 if $_ eq '\\N'
0 37 if $arg{'NULLasEmpty'}
1796 0 37 if (defined $H{$key}) { }
1808 0 0 $arg{'matchNULL'} ? :
0 0 $arg{'NULLasEmpty'} ? :
0 57 if $_ eq '\\N'
1814 25 8 if (defined $H{$key}) { }
1831 5 0 if ($#cols4 >= 0)
1836 4 4 if $nr1 == 0 and $type == 0 || $type == 1
1837 6 6 if $nr2 == 0 and $type == 0 || $type == 2
1838 6 0 if ($nr2 == 0 and $type == 1 || $type == 3)
1844 4 0 if ($nr1 == 0 and $type == 2 || $type == 3)
1850 4 0 if ($#cols4 >= 0) { }
1865 1 4 if ($arg{'renameCol'})
1884 0 1 unless defined $keyCols and ref $keyCols eq 'ARRAY'
1889 0 1 if defined $arg_ref and defined $arg_ref->{'variableColName'}
1890 0 1 if defined $arg_ref and defined $arg_ref->{'valueColName'}
1891 0 1 if defined $arg_ref and defined $arg_ref->{'skip_NULL'}
1892 0 1 if defined $arg_ref and defined $arg_ref->{'skip_empty'}
1897 0 2 unless defined $x_idx
1903 1 0 unless (defined $variableCols)
1906 2 2 if $X{$x}
1910 0 1 unless (scalar @$variableCols)
1915 0 2 unless defined $y_idx
1932 0 8 if not defined $row->[$y] and $skip_NULL
1933 0 8 if $row->[$y] eq '' and $skip_empty
1946 1 2 unless defined $colsToGroupBy
1957 0 1 if defined $colToSplit and $grpBy{$colToSplit}
1958 1 2 if defined $colToSplit
1966 0 1 unless defined $colsToGroupBy
1967 0 1 unless defined $colsToGroupBy and ref $colsToGroupBy eq 'ARRAY'
1968 0 1 unless ref $funToApply eq 'CODE'
1969 0 1 unless (scalar @$colsToGroupBy)
1977 0 1 unless defined $x_idx
1999 1 4 unless defined $keepRestCols
2000 0 5 unless defined $colsToGroupBy
2001 0 5 unless defined $colsToGroupBy and ref $colsToGroupBy eq 'ARRAY'
2006 0 5 unless defined $x_idx
2012 5 0 if (defined $colsToCalculate)
2015 0 7 unless defined $y_idx
2020 5 0 if (scalar @Y)
2021 0 5 unless scalar @Y == scalar @$funsToApply and scalar @Y == scalar @$newColNames
2030 5 15 if ($grpBy{$i} or $keepRestCols and not defined $Y{$i})
2036 5 0 if (defined $newColNames)
2051 23 15 if (@X)
2059 38 0 if (scalar @Y)
2062 0 52 if defined $Y{$y}
2064 35 17 if (defined $val{$y}{$myKey}) { }
2071 26 12 if defined $X{$myKey}
2076 12 0 if scalar @row < $cnt
2081 5 0 if (scalar @Y)
2085 17 0 if (ref $funsToApply->[$i] eq 'CODE') { }
2100 4 0 unless defined $keepRestCols
2101 0 4 unless defined $colToSplitIsStringOrNumeric
2102 0 4 unless defined $colsToGroupBy
2104 2 2 if defined $colToSplit
2105 2 2 defined $y ? :
2106 0 4 if not defined $y and defined $colToSplit
2108 4 0 if defined $colToFill
2109 4 0 defined $z ? :
2110 0 4 if not defined $z and defined $colToFill
2113 4 0 if (defined $colsToGroupBy)
2116 0 3 unless defined $x_idx
2122 2 2 if (defined $colToSplit) { }
2126 0 8 unless defined $val
2134 0 4 if ($colToSplitIsStringOrNumeric == 0)
2136 0 0 if ($y =~ /\D/)
2142 4 0 if ($colToSplitIsStringOrNumeric) { }
2152 4 0 if (not $keepRestCols) { }
2158 0 0 if defined $y and $i == $y or defined $z and $i == $z
2174 6 0 $colToSplitIsStringOrNumeric ? :
2186 10 1 if (scalar @X)
2193 7 4 unless (defined $X{$myKey})
2203 8 3 defined $y ? :
2204 0 11 unless defined $val
2205 7 4 if (not defined $X{$myKey}) { }
2206 7 0 defined $z ? :
2208 4 0 defined $z ? :
2211 7 4 unless (defined $X{$myKey})
2226 7 0 if defined $arg_ref and exists $arg_ref->{'qualifier'}
2227 7 0 if defined $arg_ref and exists $arg_ref->{'encoding'}
2236 2 7 if ($s =~ /\r\n$/) { }
5 2 elsif ($s =~ /\n$/) { }
2 0 elsif ($s =~ /\r/) { }
2272 3 35 if ($isFileHandler) { }
2275 0 35 unless open $SRC, $name_or_handler
2278 0 38 if not $^V or $^V lt v5.8.1
2279 36 2 if ($encoding) { }
2280 36 0 if $encoding =~ /^utf-?8$/i
2290 0 7 unless defined $os
2291 0 7 unless defined $numLines
2296 7 0 if defined $arg_ref and exists $arg_ref->{'encoding'}
2306 7 7 if $numLines > 0 and $cnt >= $numLines
2314 0 7 unless defined $delimiter
2315 0 7 if not defined $s or $s eq '' or $s =~ /$delimiter$/
2319 0 20 unless $name
2321 1 19 if $name =~ /^[-+]?[0-9]*\.?[0-9]+([eE][-+]?[0-9]+)?$/ and not $allowNumericHeader
2323 19 0 unless $name =~ /^[-+]?[0-9]*\.?[0-9]+([eE][-+]?[0-9]+)?$/
2333 0 7 unless @$s_line
2337 42 0 if (defined $line) { }
2341 21 21 if ($colFound < 0) { }
0 21 elsif ($colFound != scalar @$header) { }
2349 0 21 if $colFound < 0
2350 8 13 if ($colFound > $numCol)
2354 0 7 $i < 0 ? :
2368 1 6 if (defined $arg_ref)
2369 0 1 if defined $arg_ref->{'linesChecked'}
2374 0 1 if defined $arg_ref->{'qualifier'}
2379 0 7 if $format and uc $format eq 'TSV'
2380 7 0 unless (defined $os)
2385 0 7 unless scalar @S
2386 7 0 unless (defined $delimiter)
2390 7 0 unless (defined $hasHeader)
2396 1 6 if ($delimiter eq "\t") { }