| line |
true |
false |
branch |
|
27
|
0 |
2 |
if (defined &Params::Util::_STRING($_[-1]) and $_[-1] eq '-DEBUG') |
|
34
|
0 |
2 |
if (defined &Params::Util::_STRING($_[1])) { } |
|
|
2 |
0 |
elsif (&Params::Util::_HASH($_[1])) { } |
|
42
|
1 |
1 |
if ($params{'timeline'} and not defined $params{'create'}) |
|
45
|
2 |
0 |
$params{'create'} ? : |
|
46
|
0 |
2 |
unless (defined &Params::Util::_STRING($params{'file'}) and $params{'create'} || -f $params{'file'}) |
|
56
|
2 |
0 |
unless (defined $params{'readonly'}) |
|
57
|
2 |
0 |
$params{'create'} ? : |
|
59
|
2 |
0 |
unless (defined $params{'tables'}) |
|
62
|
2 |
0 |
unless (defined $params{'package'}) |
|
65
|
0 |
2 |
unless (&Params::Util::_CLASS($params{'package'})) |
|
69
|
0 |
1 |
unless (&Params::Util::_DRIVER($params{'timeline'}, 'ORLite::Migrate::Timeline') or $params{'timeline'} and -d $params{'timeline'} and -r $params{'timeline'}) |
|
78
|
0 |
2 |
if ($params{'readonly'}) |
|
85
|
2 |
0 |
if ($created) |
|
88
|
0 |
2 |
unless (-d $dir) |
|
90
|
0 |
0 |
if $params{'prune'} |
|
92
|
2 |
0 |
if $params{'prune'} |
|
103
|
1 |
1 |
if (&Params::Util::_DRIVER($params{'timeline'}, 'ORLite::Migrate::Timeline')) { } |
|
114
|
1 |
0 |
if (@plan) |
|
117
|
0 |
1 |
if (exists $params{'user_version'} and $destination != $params{'user_version'}) |
|
132
|
0 |
1 |
unless ($perl) |
|
140
|
0 |
3 |
if ($DEBUG) |
|
143
|
0 |
3 |
$DEBUG ? : |
|
144
|
0 |
3 |
if (not $ok or $? != 0) |
|
157
|
0 |
2 |
$DEBUG ? : |
|
175
|
0 |
3 |
unless opendir DIR, $dir |
|
176
|
0 |
3 |
unless my(@files) = readdir DIR |
|
177
|
0 |
3 |
unless closedir DIR |
|
182
|
6 |
9 |
unless /^migrate-(\d+)\.pl$/ |