| line |
true |
false |
branch |
|
23
|
4 |
0 |
unless delete $params{'abstract'} |
|
29
|
1 |
3 |
if (not $params{'connector'} and $params{'driver_name'}) |
|
33
|
0 |
4 |
if %params |
|
36
|
0 |
4 |
unless ref $self->{'schema'} eq "DBIx::Lite::Schema" |
|
45
|
2 |
0 |
ref $class ? : |
|
49
|
0 |
2 |
unless $self->dbh(1) |
|
57
|
0 |
36 |
if (ref $_[0] eq "DBIx::Lite::Schema") |
|
66
|
0 |
29 |
unless my $table_name = shift() |
|
82
|
33 |
0 |
$self->{'connector'} ? : |
|
|
0 |
33 |
$self->{'dbh'} ? : |
|
83
|
0 |
0 |
$dont_die ? : |
|
|
33 |
0 |
$dbh ? : |
|
92
|
23 |
0 |
if ($self->{'connector'}) { } |
|
104
|
0 |
0 |
if ($self->{'connector'}) { } |
|
109
|
0 |
0 |
if (my $err = $@) |
|
120
|
35 |
0 |
$self->{'connector'} ? : |
|
129
|
0 |
0 |
if ($driver_name eq 'mysql') { } |
|
|
0 |
0 |
elsif ($driver_name eq 'SQLite') { } |
|
|
0 |
0 |
elsif ($driver_name eq 'Pg') { } |