| line |
true |
false |
branch |
|
41
|
2 |
0 |
ref $delimData eq 'ARRAY' ? : |
|
44
|
0 |
2 |
if ($outfile) |
|
48
|
0 |
2 |
unless defined $w |
|
49
|
2 |
0 |
$w ? : |
|
60
|
0 |
2 |
unless $s =~ /$delim/ |
|
69
|
8 |
0 |
$defaultJustification eq 'L' ? : |
|
70
|
8 |
0 |
if (uc substr($f, -1) =~ /[RL]/) |
|
72
|
4 |
4 |
if ($c eq 'L') { } |
|
|
4 |
0 |
elsif ($c eq 'R') { } |
|
77
|
8 |
0 |
if ($cropRecords) |
|
78
|
0 |
8 |
if length $records[$count] > $f |
|
100
|
1 |
0 |
ref $fixedData eq 'ARRAY' ? : |
|
105
|
0 |
1 |
if ($outfile) |
|
109
|
0 |
1 |
unless defined $w |
|
110
|
1 |
0 |
$w ? : |
|
140
|
0 |
0 |
unless $char =~ /[LR]/ |
|
149
|
0 |
0 |
unless defined $arg |
|
150
|
0 |
0 |
$arg ? : |
|
160
|
0 |
0 |
unless open F, "> $outfile" |
|
170
|
0 |
0 |
unless open F, $file |