| line |
l |
!l&&r |
!l&&!r |
condition |
|
25
|
4 |
1 |
0 |
$schema->{'DBIC'} //= do {
if ($schema->{'cf_debug'}) {
print STDERR "INFO: DBSchema($schema) DBIC->connect", ", class = $schema->{'cf_DBIC'}\n";
} ;
&weaken($schema);
$schema->{'cf_DBIC'}->connect(sub {
$schema->make_connection;
}
)
} |
|
72
|
0 |
0 |
0 |
$schema->{'cf_DBH'} || lexpand($schema->{'cf_connection_spec'}) |
|
104
|
4 |
0 |
0 |
$DBIC //= (caller()) . '::DBIC' |
|
121
|
5 |
4 |
0 |
$schema->{'DBIC'} ||= $dbic |
|
232
|
0 |
4 |
0 |
$dbic ||= $self->{'DBIC'} |
|
386
|
0 |
2 |
0 |
$sth ||= $storage->dbh->prepare($sql) |