| line |
true |
false |
branch |
|
68
|
12 |
9 |
if (exists $args->{'dsn'}) { }
|
|
|
8 |
1 |
elsif (exists $args->{'dbh'}) { }
|
|
70
|
1 |
11 |
if exists $args->{'dbh'}
|
|
74
|
1 |
22 |
if exists $args->{$_}
|
|
82
|
1 |
17 |
if ((my @package = split(/::/, $class, 0)) > 2)
|
|
84
|
1 |
0 |
unless $driver eq $package[-1]
|
|
108
|
8 |
1 |
defined $dsn ? :
|
|
115
|
9 |
27 |
unless defined $dir
|
|
116
|
1 |
35 |
unless defined $dir
|
|
121
|
73 |
87 |
unless /\D*([1-9][0-9]*)_up\.sql\z/
|
|
122
|
60 |
27 |
if $1 > $latest
|
|
134
|
7 |
15 |
unless defined $target
|
|
154
|
0 |
1 |
ref $_ eq 'ARRAY' ? :
|
|
160
|
0 |
0 |
ref $_ eq 'ARRAY' ? :
|
|
163
|
5 |
16 |
unless defined $version
|
|
167
|
3 |
18 |
if ($target == $version) { }
|
|
|
12 |
6 |
elsif ($target > $version) { }
|
|
180
|
16 |
2 |
if (defined $files) { }
|
|
186
|
0 |
28 |
$content =~ /\A-- *dbix_migration_delimiter: *([[:graph:]])/ ? :
|
|
192
|
25 |
36 |
unless $sql =~ /\w/
|
|
198
|
10 |
15 |
if $ver > 0 and $type eq "down"
|
|
204
|
2 |
0 |
if $target != $newver
|
|
212
|
4 |
18 |
if ($fatal_error)
|
|
214
|
3 |
1 |
if exists $self->{'_dbh'}
|
|
259
|
163 |
34 |
unless $_->basename =~ /(?:\A|\D+)${i}_$type\.sql\z/
|
|
266
|
18 |
2 |
@files && @$need == @files ? :
|