| line |
true |
false |
branch |
|
82
|
0 |
0 |
if $Text::TabTable::VERBOSE |
|
83
|
0 |
0 |
unless open F, $fname |
|
84
|
0 |
0 |
unless open NEWF, ">$newf" |
|
121
|
0 |
0 |
if $Text::TabTable::VERBOSE |
|
122
|
0 |
0 |
unless -f $fname and -r $fname |
|
177
|
0 |
0 |
if $Text::TabTable::VERBOSE |
|
179
|
0 |
0 |
unless open F, ">$filename" |
|
191
|
0 |
0 |
if $Text::TabTable::VERBOSE |
|
193
|
0 |
0 |
if ($?) |
|
208
|
0 |
0 |
unless $colname |
|
210
|
0 |
0 |
if (not $$table{'sorted_column'} or $$table{'sorted_column'} != $colnum) |
|
216
|
0 |
0 |
if $Text::TabTable::VERBOSE |
|
220
|
0 |
0 |
unless open OLDF, "<$$table{'filename'}" |
|
221
|
0 |
0 |
unless open NEWF, ">$newf" |
|
227
|
0 |
0 |
if ($oldval ne $f[$colnum - 1] or not defined $oldval) |
|
243
|
0 |
0 |
unless (defined wantarray) |
|
264
|
0 |
0 |
if $Text::TabTable::VERBOSE |
|
266
|
0 |
0 |
unless my $t = 'CDB_File'->new($filename, "$filename.new$$") |
|
270
|
0 |
0 |
unless open F, "< $$self{'filename'}" |
|
281
|
0 |
0 |
unless /$regex/ |
|
284
|
0 |
0 |
if $key eq '' and $didblankkey++ |
|
299
|
0 |
0 |
if $Text::TabTable::VERBOSE |
|
303
|
0 |
0 |
unless (defined $colnum) |
|
308
|
0 |
0 |
unless open CUT, "cut -f$colnum $$table{'filename'}|" |
|
329
|
0 |
0 |
if $Text::TabTable::VERBOSE |
|
339
|
0 |
0 |
unless ($colnum) |
|
351
|
0 |
0 |
if ($args{-'descending'}) |
|
355
|
0 |
0 |
if ($args{-'numeric'}) |
|
362
|
0 |
0 |
if ($?) |
|
367
|
0 |
0 |
$joinable_sort ? : |
|
374
|
0 |
0 |
unless (defined wantarray) |
|
390
|
0 |
0 |
unless ($colnum) |
|
400
|
0 |
0 |
unless open OLDF, "<$$sortedtable{'filename'}" |
|
401
|
0 |
0 |
unless open NEWF, ">$newf" |
|
408
|
0 |
0 |
if (not defined $oldval) { } |
|
|
0 |
0 |
elsif ($oldval ne $f[$colnum - 1]) { } |
|
419
|
0 |
0 |
if (defined $oldval) |
|
460
|
0 |
0 |
if (defined $name) |
|
502
|
0 |
0 |
unless ($lefttable->name and $righttable->name) |
|
507
|
0 |
0 |
unless $leftfield |
|
509
|
0 |
0 |
unless $rightfield |
|
511
|
0 |
0 |
if ($$righttable{'cdb'}{$rightcol} and $side ne 'RIGHT' and $side ne 'OUTER') |
|
512
|
0 |
0 |
if ($Text::TabTable::VERBOSE) |
|
520
|
0 |
0 |
if (not $$lefttable{'sorted_colnum'} or $$lefttable{'sorted_colnum'} ne $leftcol) |
|
523
|
0 |
0 |
if (not $$righttable{'sorted_colnum'} or $$righttable{'sorted_colnum'} ne $rightcol) |
|
527
|
0 |
0 |
if $Text::TabTable::VERBOSE |
|
543
|
0 |
0 |
if ($side eq 'LEFT') { } |
|
|
0 |
0 |
elsif ($side eq 'RIGHT') { } |
|
|
0 |
0 |
elsif ($side eq 'OUTER') { } |
|
|
0 |
0 |
elsif (defined $side and $side ne 'INNER') { } |
|
561
|
0 |
0 |
if $? |
|
589
|
0 |
0 |
unless (defined wantarray) |
|
607
|
0 |
0 |
if ($isleftjoin) |
|
611
|
0 |
0 |
unless open LEFTF, $$lefttable{'filename'} |
|
615
|
0 |
0 |
unless open NEWF, ">$newf" |
|
619
|
0 |
0 |
unless tie %right, 'CDB_File', $$righttable{'cdb'}{$rightcol} |
|
632
|
0 |
0 |
unless /$regex/ |
|
636
|
0 |
0 |
if (exists $right{$key}) { } |
|
643
|
0 |
0 |
if ($isleftjoin) |
|
678
|
0 |
0 |
unless (defined wantarray) |
|
693
|
0 |
0 |
if ($tabcount < $n - 1) |
|
722
|
0 |
0 |
if $Text::TabTable::VERBOSE |
|
733
|
0 |
0 |
if (not ref $fieldspecs and $fieldspecs eq '*' || !defined($fieldspecs)) { } |
|
746
|
0 |
0 |
if (not ref $fieldspec) { } |
|
|
0 |
0 |
elsif (@$fieldspec == 2) { } |
|
|
0 |
0 |
elsif (@$fieldspec == 3) { } |
|
749
|
0 |
0 |
unless ($colnum) |
|
759
|
0 |
0 |
unless ($colnum) |
|
776
|
0 |
0 |
unless ($colnum) |
|
805
|
0 |
0 |
if ($test_unsort ne $test_sort) |
|
816
|
0 |
0 |
if ($cut_ok and not $wheresub and $fieldspecs) { } |
|
823
|
0 |
0 |
if $Text::TabTable::VERBOSE |
|
826
|
0 |
0 |
if ($?) |
|
834
|
0 |
0 |
unless open INFILE, $$table{'filename'} |
|
835
|
0 |
0 |
unless open OUTFILE, ">$$newtable{'filename'}" |
|
842
|
0 |
0 |
if ($wheresub) |
|
844
|
0 |
0 |
unless &$wheresub($rowdata) |
|
847
|
0 |
0 |
if (not $fieldspecs) { } |
|
855
|
0 |
0 |
if (not ref $rule) { } |
|
876
|
0 |
0 |
unless (defined wantarray) |
|
892
|
0 |
0 |
unless exists $$hr_fieldloc{$fieldname} |
|
908
|
0 |
0 |
if $Text::TabTable::VERBOSE |
|
910
|
0 |
0 |
unless open INFILE, $$table{'filename'} |
|
912
|
0 |
0 |
unless $wheresub |
|
938
|
0 |
0 |
if $Text::TabTable::VERBOSE |
|
940
|
0 |
0 |
if ($args{-'unescape'}) { } |
|
950
|
0 |
0 |
unless ($$self{'dontdelete'}) |
|
970
|
0 |
0 |
if (defined $status) |
|
1014
|
0 |
0 |
if (grep(($_ eq $name), @{$$self{'names'};})) { } |
|
1071
|
0 |
0 |
if ($$self{'fields'}[$i]->has_name($fieldname)) |
|
1140
|
0 |
0 |
unless ($line) |
|
1157
|
0 |
0 |
unless $row |
|
1214
|
0 |
0 |
unless (exists $$self[0]{$name}) |