| line |
true |
false |
branch |
|
58
|
0 |
0 |
unless scalar @{$$self{'changeclasses'};} |
|
63
|
0 |
0 |
if defined $_state |
|
64
|
0 |
0 |
if defined $_targetstate |
|
73
|
0 |
0 |
if $first_pos eq $last_pos |
|
77
|
0 |
0 |
$first_pos == -1 ? : |
|
83
|
0 |
0 |
if ($dir == 0) { } |
|
|
0 |
0 |
elsif ($dir == -1) { } |
|
|
0 |
0 |
elsif ($dir == 1) { } |
|
98
|
0 |
0 |
if $last_pos == -1 |
|
101
|
0 |
0 |
if (defined $_state) |
|
125
|
0 |
0 |
unless $sth->execute |
|
127
|
0 |
0 |
unless ($meta) |
|
129
|
0 |
0 |
unless $self->_query('insert into `meta` values ("NONE")') |
|
132
|
0 |
0 |
$meta ? : |
|
169
|
0 |
0 |
unless $self->_query('update `' . $$self{'db-meta-tablename'} . '` set version = "' . $state . '"') |
|
180
|
0 |
0 |
if ($action eq 'create_table') { } |
|
|
0 |
0 |
elsif ($action eq 'drop_table') { } |
|
|
0 |
0 |
elsif ($action eq 'alter_table_add_column') { } |
|
|
0 |
0 |
elsif ($action eq 'alter_table_drop_column') { } |
|
181
|
0 |
0 |
unless $self->_query('create table `' . $opts{'name'} . '` (`dummy` tinyint null)') |
|
185
|
0 |
0 |
unless $self->_query('drop table `' . $opts{'name'} . '`') |
|
189
|
0 |
0 |
unless $self->_query('alter table `' . $opts{'tablename'} . '` add column `' . $opts{'name'} . '` ' . $opts{'type'}) |
|
193
|
0 |
0 |
unless $self->_query('alter table `' . $opts{'tablename'} . '` drop column `' . $opts{'name'} . '`') |
|
212
|
0 |
0 |
if $classname eq 'NONE' |
|
213
|
0 |
0 |
if $classname eq 'HEAD' |
|
215
|
0 |
0 |
if $$self{'changeclasses'}[$p][0] eq $classname |
|
233
|
0 |
0 |
if exists $$classes{$classname} |
|
237
|
0 |
0 |
if $@ |
|
248
|
0 |
0 |
if ($class->after eq '') |
|
259
|
0 |
0 |
if ($class->after eq $$self{'changeclasses'}[-1][0]) |
|
266
|
0 |
0 |
unless $found |
|
276
|
0 |
0 |
unless (defined $$self{'dbh'} and $$self{'dbh'}->ping) |
|
286
|
0 |
0 |
unless my $dbh = 'DBI'->connect('DBI:' . $$self{'db-engine'} . ':' . $$self{'db-name'} . ':' . $$self{'db-host'}, $$self{'db-user'}, $$self{'db-password'}, {'PrintError', 0}) |
|
294
|
0 |
0 |
unless defined $dbh |
|
304
|
0 |
0 |
unless ($sth->fetch) |
|
307
|
0 |
0 |
unless $self->_query($sql) |