Branch Coverage

lib/Table/BoxFormat.pm
Criterion Covered Total %
branch 42 60 70.0


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