Branch Coverage

blib/lib/SQL/Translator/Producer/TT/Table.pm
Criterion Covered Total %
branch 6 26 23.0


line true false branch
179 0 1 unless my $file = $pargs->{'tt_table'}
193 0 2 unless $tt->process($file, {"translator", $Translator, "schema", $scma, "table", $tbl}, \$outtmp)
203 2 0 if $pargs->{'mk_files'}
224 0 2 if (-e $file) { }
225 0 0 if ($pargs->{'on_exists'} eq 'skip') { }
0 0 elsif ($pargs->{'on_exists'} eq 'die') { }
0 0 elsif ($pargs->{'on_exists'} eq 'replace') { }
0 0 elsif ($pargs->{'on_exists'} eq 'insert') { }
244 0 2 if (my $interactive = -t STDIN && -t STDOUT)
250 0 0 if ($dir and not -d $dir and $pargs->{'mk_file_dir'})
253 0 2 unless open FILE, ">$file"
267 0 0 unless open FILE, "<", "$file"
273 0 0 unless ($orig =~ s/^\s*?$cstart\s*?\n.*?^\s*?$cend\s*?\n/\n$cstart\n$src\n$cend\n/ms)