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