| line |
true |
false |
branch |
|
117
|
46 |
74 |
if /\.(?:sql|pl|sql-\w+)$/
|
|
121
|
0 |
5 |
unless $self->ignore_ddl
|
|
125
|
19 |
34 |
if /\.(?:sql|pl)$/
|
|
126
|
19 |
0 |
unless ($files{$filename})
|
|
151
|
1 |
1 |
unless -d $dir
|
|
154
|
2 |
2 |
if /\.yml$/
|
|
166
|
18 |
1 |
unless -d $dir
|
|
169
|
1 |
2 |
if /\.pl$/
|
|
181
|
7 |
0 |
unless -d $dir
|
|
184
|
0 |
0 |
if /\.pl$/
|
|
193
|
30 |
78 |
unless -d $dirname
|
|
201
|
21 |
0 |
unless -d $dirname
|
|
221
|
16 |
2 |
unless -d $dirname
|
|
229
|
5 |
1 |
unless -d $dirname
|
|
350
|
171 |
0 |
if $txn
|
|
353
|
171 |
0 |
if $comment->{'DD'}
|
|
354
|
4 |
167 |
if $comment->{'SS'}
|
|
355
|
0 |
171 |
if $comment->{'DS'}
|
|
356
|
171 |
0 |
if $comment->{'HASH'}
|
|
357
|
0 |
171 |
if $comment->{'PERCENT'}
|
|
390
|
7 |
10 |
if $f2p{"$file"}
|
|
395
|
0 |
10 |
if length($pkgbase) + length($package) > $maxlen
|
|
420
|
0 |
17 |
if $@
|
|
422
|
0 |
17 |
unless ref $fn and ref $fn eq 'CODE'
|
|
445
|
2 |
71 |
unless $self->txn_wrap
|
|
456
|
5 |
39 |
if $self->ignore_ddl
|
|
458
|
7 |
37 |
$sql_to_run ? :
|
|
461
|
0 |
66 |
if ($self->ignore_ddl and $filename->basename =~ /^[^-]*-auto.*\.sql$/) { }
|
|
|
51 |
15 |
elsif ($filename =~ /\.sql$/) { }
|
|
|
15 |
0 |
elsif ($filename =~ /\.pl$/) { }
|
|
483
|
2 |
15 |
if ($self->ignore_ddl)
|
|
508
|
3 |
0 |
if ($filename =~ /^(.+)\.pl$/) { }
|
|
515
|
0 |
3 |
if ($@) { }
|
|
|
3 |
0 |
elsif (ref $fn eq 'CODE') { }
|
|
543
|
1 |
25 |
unless -e $prefilename
|
|
553
|
0 |
26 |
unless my $out = $t->translate($prefilename)
|
|
558
|
26 |
0 |
unless $source_schema->name
|
|
567
|
0 |
26 |
unless -e $filename
|
|
577
|
0 |
26 |
unless my $out = $t->translate($filename)
|
|
582
|
26 |
0 |
unless $dest_schema->name
|
|
609
|
2 |
44 |
ref $actual_file ? :
|
|
619
|
0 |
46 |
unless (@sql)
|
|
637
|
0 |
44 |
unless my $sql = $self->_sql_from_yaml($sqltargs, $from_file, $db)
|
|
640
|
0 |
44 |
if (-e $filename)
|
|
641
|
0 |
0 |
if ($self->force_overwrite) { }
|
|
660
|
2 |
18 |
unless -d $dirname
|
|
671
|
2 |
37 |
unless -d $dirname
|
|
680
|
0 |
2 |
unless my $source = $args->{'result_source'}
|
|
682
|
0 |
2 |
unless my $version = $args->{'version'}
|
|
761
|
1 |
23 |
if (-e $diff_file)
|
|
762
|
0 |
1 |
if ($self->force_overwrite) { }
|
|
779
|
0 |
51 |
unless $file
|
|
794
|
1 |
5 |
if ($self->ignore_ddl)
|
|
814
|
2 |
17 |
if ($self->ignore_ddl)
|
|
843
|
0 |
51 |
unless $yml
|
|
846
|
1 |
50 |
if (-e $filename)
|
|
847
|
0 |
1 |
if ($self->force_overwrite) { }
|