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;}) |