line |
true |
false |
branch |
248
|
0 |
13 |
if ($_[0]) { } |
255
|
0 |
13 |
unless $input_file |
257
|
0 |
13 |
unless ($input_file) |
263
|
0 |
13 |
unless open my $fh, $in_enc, $input_file |
302
|
0 |
10 |
if ($_[0]) |
322
|
10 |
1 |
if ($line =~ / $ruler_line_rule /ux) |
328
|
0 |
10 |
unless ($format) |
334
|
1 |
9 |
if $format eq 'mysql' |
338
|
8 |
64 |
if ($format eq 'mysql') |
348
|
0 |
276 |
if $DEBUG |
362
|
10 |
0 |
if @data |
407
|
1 |
9 |
if ($ruler_loc == 2) { } |
|
9 |
0 |
elsif ($ruler_loc == 1) { } |
414
|
8 |
1 |
if ($ruler =~ /$cross_rule/u) { } |
421
|
1 |
9 |
if ($format eq 'mysql') |
422
|
0 |
1 |
unless ($ruler =~ s/ ^ $cross_rule //msux and $ruler =~ s/ $cross_rule $ //msux) |
441
|
10 |
20 |
if ($candy eq ' ') |
445
|
10 |
20 |
if ($ruler =~ / $pat /ux) |
449
|
4 |
6 |
if $cross_candidates{$candy} eq 'unicode' |
468
|
38 |
3 |
unless $this - $last == 1 |
505
|
0 |
3 |
if ($_[0]) |
536
|
24 |
5 |
if ($line =~ /$separator_rule/msux) |
553
|
28 |
1 |
if @data |
588
|
0 |
2 |
if (scalar @_ == 2) |
594
|
0 |
2 |
unless ($output_file) |
603
|
0 |
2 |
unless open my $fh, $out_enc, $output_file |
644
|
0 |
1 |
if (scalar @_ == 2) |
649
|
0 |
1 |
unless my $csv = 'Text::CSV'->new({'binary', 1}) |
653
|
0 |
1 |
unless ($output_file) |
662
|
0 |
1 |
unless open my $fh, $out_enc, $output_file |