line |
true |
false |
branch |
23
|
3 |
0 |
unless delete $params{'abstract'} |
29
|
0 |
3 |
if %params |
32
|
0 |
3 |
unless ref $self->{'schema'} eq 'DBIx::Lite::Schema' |
41
|
2 |
0 |
ref $class ? : |
45
|
0 |
2 |
unless $self->dbh(1) |
53
|
0 |
31 |
if (ref $_[0] eq 'DBIx::Lite::Schema') |
62
|
0 |
24 |
unless my $table_name = shift() |
78
|
63 |
0 |
$self->{'connector'} ? : |
|
0 |
63 |
$self->{'dbh'} ? : |
79
|
0 |
0 |
$dont_die ? : |
|
63 |
0 |
$dbh ? : |
88
|
23 |
0 |
if ($self->{'connector'}) { } |
100
|
0 |
0 |
if ($self->{'connector'}) { } |
105
|
0 |
0 |
if (my $err = $@) |
125
|
0 |
0 |
if ($driver_name eq 'mysql') { } |
|
0 |
0 |
elsif ($driver_name eq 'SQLite') { } |
|
0 |
0 |
elsif ($driver_name eq 'Pg') { } |