Branch Coverage

blib/lib/DBIx/Diff/Struct.pm
Criterion Covered Total %
branch 61 112 54.4


line true false branch
51 0 32 if $$row{'TABLE_TYPE'} eq 'VIEW'
52 0 32 if $$row{'TABLE_SCHEM'} =~ /^(information_schema)$/
54 0 32 if ($driver eq 'Pg') { }
32 0 elsif ($driver eq 'SQLite') { }
55 0 0 if $$row{'TABLE_SCHEM'} =~ /^(pg_catalog)$/
57 8 24 if $$row{'TABLE_SCHEM'} =~ /^(temp)$/
58 8 16 if $$row{'TABLE_NAME'} =~ /^(sqlite_master|sqlite_temp_master)$/
61 16 0 length $$row{'TABLE_SCHEM'} ? :
88 2 18 if ($$c1{'TYPE_NAME'} ne $$c2{'TYPE_NAME'})
93 2 16 if ($$c1{'NULLABLE'} xor $$c2{'NULLABLE'})
97 0 18 if (defined $$c1{'CHAR_OCTET_LENGTH'})
98 0 0 if ($$c1{'CHAR_OCTET_LENGTH'} != $$c2{'CHAR_OCTET_LENGTH'})
103 4 14 if (defined $$c1{'DECIMAL_DIGITS'})
104 0 4 if ($$c1{'DECIMAL_DIGITS'} != $$c2{'DECIMAL_DIGITS'})
149 0 0 @$_sahv_dpath ? :
6 0 &Scalar::Util::blessed($dbh1) ? :
0 0 @$_sahv_dpath ? :
6 0 defined $dbh1 ? :
6 0 if defined $dbh1 ? 1 : ($arg_err //= (@$_sahv_dpath ? '@' . join('/', @$_sahv_dpath) . ': ' : '') . 'Required but not specified', 0)
0 6 if ($arg_err)
150 0 0 @$_sahv_dpath ? :
6 0 &Scalar::Util::blessed($dbh2) ? :
0 0 @$_sahv_dpath ? :
6 0 defined $dbh2 ? :
6 0 if defined $dbh2 ? 1 : ($arg_err //= (@$_sahv_dpath ? '@' . join('/', @$_sahv_dpath) . ': ' : '') . 'Required but not specified', 0)
0 6 if ($arg_err)
151 0 0 @$_sahv_dpath ? :
6 0 !ref($table) ? :
0 0 @$_sahv_dpath ? :
6 0 defined $table ? :
6 0 if defined $table ? 1 : ($arg_err //= (@$_sahv_dpath ? '@' . join('/', @$_sahv_dpath) . ': ' : '') . 'Required but not specified', 0)
0 6 if ($arg_err)
165 20 2 if (defined $c2) { }
167 4 16 if keys %$tres
175 20 2 if (defined $c1) { }
182 2 4 if @added
183 2 4 if @deleted
184 2 4 if keys %modified
228 0 0 @$_sahv_dpath ? :
4 0 &Scalar::Util::blessed($dbh1) ? :
0 0 @$_sahv_dpath ? :
4 0 defined $dbh1 ? :
4 0 if defined $dbh1 ? 1 : ($arg_err //= (@$_sahv_dpath ? '@' . join('/', @$_sahv_dpath) . ': ' : '') . 'Required but not specified', 0)
0 4 if ($arg_err)
229 0 0 @$_sahv_dpath ? :
4 0 &Scalar::Util::blessed($dbh2) ? :
0 0 @$_sahv_dpath ? :
4 0 defined $dbh2 ? :
4 0 if defined $dbh2 ? 1 : ($arg_err //= (@$_sahv_dpath ? '@' . join('/', @$_sahv_dpath) . ': ' : '') . 'Required but not specified', 0)
0 4 if ($arg_err)
239 6 2 if ($_ ~~ \@tables2) { }
242 2 4 if keys %$tres
248 6 2 if ($_ ~~ \@tables1) { }
255 2 2 if @added
256 2 2 if @deleted
257 2 2 if keys %modified