Branch Coverage

lib/DBIx/MyDatabaseMunger.pm
Criterion Covered Total %
branch 0 308 0.0


line true false branch
179 0 0 unless $self->{'connect'}{'schema'}
183 0 0 if $self->{'connect'}{'host'}
184 0 0 if $self->{'connect'}{'port'}
206 0 0 if ($self->{'exclude_tables'})
208 0 0 if $name eq $t
211 0 0 unless $t =~ /%/
220 0 0 if $name =~ /$re/
225 0 0 unless @{$self->{'tables'};}
229 0 0 if $name eq $t
232 0 0 unless $t =~ /%/
241 0 0 if $name =~ /$re/
257 0 0 if ($self->{'exclude_views'})
259 0 0 if $name eq $v
262 0 0 unless $v =~ /%/
271 0 0 if $name =~ /$re/
276 0 0 unless @{$self->{'views'};}
280 0 0 if $name eq $v
283 0 0 unless $v =~ /%/
292 0 0 if $name =~ /$re/
344 0 0 unless my($name) = $table_sql =~ /^(.*)\.sql$/
368 0 0 unless shift(@create_sql) =~ /CREATE TABLE `(.*)`/
380 0 0 unless $table_options =~ s/ENGINE=(\S+)\s*//
391 0 0 if ($table_options =~ s/\s*COMMENT='(([^']|'')*)'//)
412 0 0 if ($line =~ /^\s*`([^`]+)`\s*(.*)/) { }
0 0 elsif ($line =~ /^\s*PRIMARY KEY \(`(.*)`\)/) { }
0 0 elsif ($line =~ /^\s*((UNIQUE )?KEY `([^`]+)`.*)/) { }
0 0 elsif ($line =~ /^\s* CONSTRAINT\s+`(.*)`\s+ FOREIGN\s+KEY\s+\(`(.*)`\)\s+ REFERENCES\s+`(.*)`\s+\(`(.*)`\)\s+(.*) /x) { }
496 0 0 if $@
499 0 0 unless $name eq $desc->{'name'}
522 0 0 if $name =~ /$archive_name_regexp/
526 0 0 if $table->{'column_definition'}{$self->{'colname'}{'revision'}}
545 0 0 unless @{$table->{'primary_key'};}
550 0 0 unless $coldef = $table->{'column_definition'}{$col}
552 0 0 unless $coldef =~ /\b(int|bigint)\b/
556 0 0 if ($table->{'col_definition'}{$col})
557 0 0 unless $coldef =~ /\b(varchar)\b/
562 0 0 unless my $col = $self->{'colname'}{$timecol}
563 0 0 unless $coldef = $table->{'column_definition'}{$col}
565 0 0 unless $coldef =~ /\b(timestamp|datetime)\b/
574 0 0 if $table->{'column_definition'}{$col}
580 0 0 unless $table->{'engine'} eq 'InnoDB'
596 0 0 unless @{$current->{'primary_key'};}
600 0 0 unless $current_pkstr eq $desired_pkstr
610 0 0 unless $cdef
623 0 0 if ($ddef =~ /$num_type/) { }
0 0 elsif ($ddef =~ /$datetime_type/) { }
0 0 elsif ($ddef =~ /$string_type/) { }
624 0 0 unless $cdef =~ /$num_type/
627 0 0 unless $cdef =~ /$datetime_type/
630 0 0 unless $cdef =~ /$string_type/
637 0 0 unless $current->{'engine'} eq $desired->{'engine'}
689 0 0 if ($def =~ /^timestamp\b/) { }
0 0 elsif (not grep({$col eq $_;} @{$archive_table{'primary_key'};})) { }
707 0 0 if $table->{'column_definition'}{$colname}
745 0 0 unless -d "$self->{'dir'}/table"
827 0 0 unless -d "$self->{'dir'}/trigger"
850 0 0 unless -d "$self->{'dir'}/trigger"
866 0 0 if $colname->{'ctime'} and $table->{'column_definition'}{$colname->{'ctime'}}
868 0 0 if $colname->{'mtime'} and $table->{'column_definition'}{$colname->{'mtime'}}
870 0 0 if $table->{'column_definition'}{$colname->{'updid'}}
880 0 0 if $colname->{'ctime'} and $table->{'column_definition'}{$colname->{'ctime'}}
882 0 0 if $colname->{'mtime'} and $table->{'column_definition'}{$colname->{'mtime'}}
884 0 0 if $table->{'column_definition'}{$colname->{'updid'}}
893 0 0 $colname->{$_} ? :
900 0 0 if ($colname->{'ctime'} and not $table->{'column_definition'}{$colname->{'ctime'}})
922 0 0 $_ eq 'stmt' ? :
0 0 $_ eq 'dbuser' ? :
0 0 $_ eq 'updid' ? :
0 0 $_ eq 'action' ? :
0 0 /^(ctime|mtime|revision)$/ ? :
935 0 0 $_ eq 'stmt' ? :
0 0 $_ eq 'dbuser' ? :
0 0 $_ eq 'updid' ? :
0 0 $_ eq 'action' ? :
0 0 /^(ctime|mtime|revision)$/ ? :
947 0 0 $_ eq 'stmt' ? :
0 0 $_ eq 'revision' ? :
0 0 $_ eq 'mtime' ? :
0 0 $_ eq 'dbuser' ? :
0 0 $_ eq 'ctime' ? :
0 0 $_ eq 'updid' ? :
0 0 $_ eq 'action' ? :
983 0 0 if $VERBOSE
1008 0 0 unless -d "$self->{'dir'}/table"
1016 0 0 if $self->__ignore_table($name)
1022 0 0 if ($self->{'remove'}{'table'})
1024 0 0 if $self->__ignore_table($name)
1027 0 0 if $db_table{$name}
1072 0 0 unless ($opt->{'no_constraints'})
1082 0 0 if ($table->{'comment'})
1105 0 0 $constraint->{'cascade_opt'} ? :
1156 0 0 if ($current->{'column_definition'}{$col}) { }
1157 0 0 unless ($current->{'column_definition'}{$col} eq $new->{'column_definition'}{$col})
1173 0 0 $i == 0 ? :
1180 0 0 if ($self->{'drop_columns'})
1182 0 0 if $new->{'column_definition'}{$col}
1195 0 0 if ($current_keydef) { }
1196 0 0 unless ($current_keydef eq $new_keydef)
1215 0 0 if (not $current->{'constraint_definition'}{$constraint} or freeze($current->{'constraint_definition'}{$constraint}) ne freeze($new->{'constraint_definition'}{$constraint}))
1220 0 0 if $current->{'constraint_definition'}{$constraint}
1225 0 0 if $new->{'constraint_definition'}{$constraint}
1248 0 0 if ($current) { }
1268 0 0 if $self->__ignore_table($name)
1273 0 0 if ($self->{'remove'}{'table'})
1276 0 0 if $self->__ignore_table($name)
1279 0 0 if grep {$name eq $_;} @tables
1315 0 0 unless -d $viewdir
1320 0 0 unless my($name) = $view_sql =~ /^(.*)\.sql$/
1366 0 0 unless -d "$self->{'dir'}/view"
1436 0 0 if $VERBOSE
1497 0 0 if ($current_sql and $current_sql ne $new_sql)
1516 0 0 if $self->__ignore_view($name)
1521 0 0 if ($self->{'remove'}{'view'})
1524 0 0 if $self->__ignore_view($name)
1527 0 0 if grep {$name eq $_;} @views
1558 0 0 unless -d "$self->{'dir'}/view"
1566 0 0 if $self->__ignore_view($name)
1572 0 0 if ($self->{'remove'}{'view'})
1574 0 0 if $self->__ignore_view($name)
1577 0 0 if $db_view{$name}
1597 0 0 unless -d $dir
1603 0 0 unless my($name, $time, $action, $table) = $file =~ /^ (.+)\.(before|after)\.(insert|update|delete)\.(.+)\.sql$ /x
1676 0 0 if $self->__ignore_table($table)
1687 0 0 if (not $current) { }
0 0 elsif ($current->{'sql'} ne $new) { }
1707 0 0 if ($self->{'remove'}{'trigger'})
1710 0 0 if $self->__ignore_table($table)
1716 0 0 if $triggers{$table}{$action}{$time}
1745 0 0 if $self->__ignore_table($table)
1778 0 0 if $self->__ignore_table($table)
1797 0 0 if ($trigger_sql)
1798 0 0 if ($self->{'init_trigger_name'}) { }
1815 0 0 if ($self->{'remove'}{'trigger'})
1819 0 0 if $found_fragments{$table}{$action}{$time}{$name}
1836 0 0 unless -d "$self->{'dir'}/procedure"
1840 0 0 unless my($name) = $sql =~ /^(.*)\.sql$/
1883 0 0 if ($current_sql) { }
1884 0 0 if ($new_sql ne $current_sql)
1936 0 0 if ($self->{'remove'}{'procedure'})
1938 0 0 if grep {$_ eq $name;} @procedures
1989 0 0 unless $sql =~ /\n$/
2013 0 0 if ($self->{'remove'}{'procedure'})
2015 0 0 if $found_procedure{$procedure}
2032 0 0 unless -d "$self->{'dir'}/procedure"
2052 0 0 unless $self->{'dbh'} and $self->{'dbh'}->ping
2070 0 0 unless $self->{'dbh'} and $self->{'dbh'}->ping
2095 0 0 unless $QUIET
2096 0 0 if $VERBOSE or $DRYRUN
2098 0 0 unless $DRYRUN
2100 0 0 if $@
2120 0 0 if (@{$self->{'tables'};}) { }
2146 0 0 if ($current_archive_table) { }
2148 0 0 if $VERBOSE
2161 0 0 if $VERBOSE