| line |
true |
false |
branch |
|
60
|
0 |
0 |
if @_ |
|
62
|
0 |
0 |
if $$self{$attr} eq 'b' |
|
96
|
0 |
0 |
if @_ % 2 != 0 |
|
100
|
0 |
0 |
if defined $params{'in_delim'} |
|
102
|
0 |
0 |
if defined $params{'out_delim'} |
|
104
|
0 |
0 |
defined $params{'mode'} ? : |
|
105
|
0 |
0 |
if defined $params{'out_file'} |
|
109
|
0 |
0 |
if defined $params{'out_delim'} |
|
126
|
0 |
0 |
@_ ? : |
|
127
|
0 |
0 |
@_ ? : |
|
131
|
0 |
0 |
if ($fpath) |
|
135
|
0 |
0 |
unless open $$self{'fdesc'}, $fmode, $fpath |
|
149
|
0 |
0 |
defined $$self{'fdesc'} ? : |
|
164
|
0 |
0 |
if @_ |
|
226
|
0 |
0 |
if ($$pline{'has_delims'}) |
|
261
|
0 |
0 |
unless (defined $$pfile{'max_width'}[$lc]) |
|
263
|
0 |
0 |
unless (defined $$pfile{'max_wholes'}[$lc]) |
|
265
|
0 |
0 |
unless (defined $$pfile{'max_decimals'}[$lc]) |
|
271
|
0 |
0 |
if ($$split_ref[$lc] =~ /$int_pattern/) { } |
|
|
0 |
0 |
elsif ($$split_ref[$lc] =~ /$dec_pattern/) { } |
|
273
|
0 |
0 |
if (($col_wid = length $$split_ref[$lc]) > $$pfile{'max_width'}[$lc]) |
|
296
|
0 |
0 |
if (substr($whole_part, 0, 1) eq '+') |
|
297
|
0 |
0 |
if (($col_whole = length $whole_part) > $$pfile{'max_wholes'}[$lc]) |
|
301
|
0 |
0 |
if (($col_dec = length $decimal_part) > $$pfile{'max_decimals'}[$lc]) |
|
315
|
0 |
0 |
if ($col_wid > $$pfile{'max_width'}[$lc]) |
|
322
|
0 |
0 |
if (($col_wid = length $$split_ref[$lc]) > $$pfile{'max_width'}[$lc]) |
|
344
|
0 |
0 |
unless ($$cur_p_line{'has_delims'}) |
|
356
|
0 |
0 |
if ($$cur_p_line{'type'}[$cur_col] eq 's') { } |
|
368
|
0 |
0 |
if ($$self{'max_decimals'}[$cur_col] == 0) { } |
|
427
|
0 |
0 |
if $in_delim eq '|' |
|
430
|
0 |
0 |
if ($in_delim eq 'b' or $in_delim eq ' ') |
|
434
|
0 |
0 |
if (ref $one_line eq 'ARRAY') { } |
|
451
|
0 |
0 |
if ($one_line =~ /$in_delim/) |
|
454
|
0 |
0 |
if ($$self{'has_delims'}) { } |
|
470
|
0 |
0 |
if (substr($one_line, length($one_line) - 1) eq $in_delim) |
|
500
|
0 |
0 |
if ($$self{'split_line'}[$nfield] =~ /$int_pattern/) { } |
|
|
0 |
0 |
elsif ($$self{'split_line'}[$nfield] =~ /$dec_pattern/) { } |
|
537
|
0 |
0 |
if ($delim_char eq substr($metachars, $lc, 1)) |
|
566
|
0 |
0 |
unless $col_copy =~ /\\+$/ |
|
575
|
0 |
0 |
if $esc_count % 2 == 0 |
|
584
|
0 |
0 |
if ($lc < $#{$listref;}) |