| line |
true |
false |
branch |
|
46
|
1 |
0 |
if (my $connect_spec = $self->config('dbh', 'connect')) { }
|
|
|
0 |
0 |
elsif (my $schema = $$self{'schema'}) { }
|
|
47
|
0 |
1 |
if (&does($connect_spec, 'ARRAY')) { }
|
|
|
1 |
0 |
elsif (&does($connect_spec, 'CODE')) { }
|
|
|
0 |
0 |
elsif (&does($connect_spec, '""')) { }
|
|
49
|
0 |
0 |
unless $dbh = 'DBI'->connect(@$connect_spec)
|
|
53
|
0 |
1 |
unless $dbh = &$connect_spec()
|
|
59
|
0 |
0 |
unless $dbh = eval $connect_spec
|
|
75
|
0 |
1 |
unless $dbh
|
|
87
|
0 |
1 |
if ($required_class and not $schema_class && $self->app->is_class_loaded($schema_class))
|
|
89
|
0 |
0 |
unless $$self{'loaded_class'} = $self->app->try_load_class($required_class)
|
|
95
|
1 |
0 |
unless ($schema_class)
|
|
98
|
1 |
0 |
unless ($self->app->is_class_loaded($schema_class))
|
|
144
|
0 |
12 |
if $descr
|
|
155
|
1 |
0 |
if (my(@other_tables) = sort(keys %$tables))
|
|
169
|
0 |
1 |
unless my $config = $self->app->config('datasources', $self->name)
|
|
175
|
0 |
1 |
if (my $struct = $$config{'structure'})
|
|
177
|
0 |
0 |
unless my $struct_config = $self->app->config('structures', $struct)
|
|
210
|
16 |
0 |
unless ref $schema
|
|
226
|
7 |
2 |
if $colgroups
|
|
243
|
0 |
2 |
if not keys %$columns and $self->dbh->{'Driver'}{'Name'} eq 'Oracle'
|
|
256
|
0 |
3 |
if @others
|
|
258
|
0 |
3 |
unless my $col = $$columns{$col_name}
|
|
271
|
0 |
0 |
unless my $db_col = delete $$columns{$col_name}
|
|
279
|
1 |
1 |
$$columns{$b}{'is_pk'} ? :
|
|
|
2 |
2 |
$$columns{$a}{'is_pk'} ? :
|
|
282
|
2 |
0 |
if (my(@other_cols) = (sort $sort_pk keys %$columns))
|
|
302
|
0 |
0 |
unless my($owner, $table) = $dbh->selectrow_array($sql, {}, $db_schema, $syn_name)
|
|
314
|
0 |
11 |
unless my $meta_table = $self->schema->metadm->db_table($table)
|