| 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 |