| line |
true |
false |
branch |
|
13
|
1 |
40 |
unless $dbh->isa('DBI::db') |
|
20
|
0 |
41 |
$params{'debug'} ? : |
|
|
2 |
38 |
$params{'readonly'} ? : |
|
30
|
39 |
1 |
unless $$self{'ignore_root'} |
|
42
|
40 |
0 |
if (my $quote_char = $dbh->get_info(29)) |
|
49
|
2 |
38 |
if ($params{'tables'}) { } |
|
|
1 |
37 |
elsif ($params{'ignore_tables'}) { } |
|
85
|
32 |
7 |
unless $pkg_name->can('_ormlette_init') |
|
98
|
48 |
0 |
unless $pkg_name->can('_ormlette_init') |
|
105
|
0 |
80 |
if $$self{'debug'} |
|
106
|
2 |
14 |
if defined $_[1] |
|
|
1 |
9 |
if defined $_[1] |
|
|
1 |
13 |
if defined $_[1] |
|
|
0 |
3 |
if defined $_[1] |
|
|
0 |
5 |
if defined $_[1] |
|
|
0 |
0 |
if defined $_[1] |
|
|
0 |
1 |
if defined $_[1] |
|
|
0 |
1 |
if defined $_[1] |
|
|
0 |
0 |
if defined $_[1] |
|
|
0 |
0 |
if defined $_[1] |
|
|
1 |
1 |
unless $sth->fetch |
|
|
3 |
4 |
unless $sth->fetch |
|
|
0 |
1 |
unless $sth->fetch |
|
|
2 |
7 |
unless $sth->fetch |
|
|
1 |
2 |
unless $sth->fetch |
|
|
1 |
1 |
unless $sth->fetch |
|
|
4 |
4 |
unless $sth->fetch |
|
|
1 |
2 |
unless $sth->fetch |
|
|
3 |
16 |
unless $sth->fetch |
|
|
0 |
1 |
unless $sth->fetch |
|
|
3 |
6 |
if ref $class |
|
|
4 |
7 |
unless @_ |
|
|
1 |
1 |
if ref $class |
|
|
1 |
2 |
unless @_ |
|
|
1 |
4 |
if ref $class |
|
|
2 |
5 |
unless @_ |
|
|
0 |
0 |
if ref $class |
|
|
0 |
0 |
unless @_ |
|
|
0 |
0 |
if ref $class |
|
|
0 |
0 |
unless @_ |
|
|
0 |
0 |
if ref $class |
|
|
0 |
0 |
unless @_ |
|
|
1 |
2 |
if ref $class |
|
|
1 |
1 |
unless @_ |
|
|
0 |
0 |
if ref $class |
|
|
0 |
0 |
unless @_ |
|
|
0 |
0 |
if ref $class |
|
|
0 |
0 |
unless @_ |
|
|
0 |
0 |
if ref $class |
|
|
0 |
0 |
unless @_ |
|
|
6 |
4 |
if @_ |
|
|
1 |
2 |
if @_ |
|
|
1 |
1 |
if @_ |
|
|
0 |
3 |
if @_ |
|
|
0 |
0 |
if @_ |
|
|
0 |
0 |
if @_ |
|
|
1 |
1 |
if @_ |
|
|
4 |
0 |
if @_ |
|
|
1 |
0 |
if @_ |
|
|
0 |
0 |
if @_ |
|
|
0 |
1 |
unless @_ |
|
|
0 |
0 |
unless @_ % 2 == 0 |
|
|
3 |
2 |
unless @_ |
|
|
1 |
2 |
unless @_ % 2 == 0 |
|
|
0 |
6 |
unless @_ |
|
|
0 |
3 |
unless @_ % 2 == 0 |
|
|
2 |
1 |
unless @_ |
|
|
0 |
1 |
unless @_ % 2 == 0 |
|
|
0 |
2 |
unless @_ |
|
|
0 |
2 |
unless @_ % 2 == 0 |
|
|
0 |
0 |
unless @_ |
|
|
0 |
0 |
unless @_ % 2 == 0 |
|
|
0 |
0 |
unless @_ |
|
|
0 |
0 |
unless @_ % 2 == 0 |
|
|
0 |
3 |
unless @_ |
|
|
0 |
0 |
unless @_ % 2 == 0 |
|
|
3 |
3 |
unless @_ |
|
|
2 |
0 |
unless @_ % 2 == 0 |
|
|
1 |
2 |
unless @_ |
|
|
0 |
2 |
unless @_ % 2 == 0 |
|
|
0 |
3 |
if ref $class |
|
|
1 |
0 |
if ref $class |
|
|
0 |
2 |
if ref $class |
|
|
0 |
0 |
if ref $class |
|
|
2 |
3 |
if ref $class |
|
|
2 |
0 |
if ref $class |
|
|
1 |
0 |
if ref $class |
|
|
0 |
1 |
if ref $class |
|
|
0 |
1 |
if ref $class |
|
|
0 |
4 |
if ref $class |
|
|
1 |
2 |
if $_[0]{'_dirty'} |
|
|
0 |
0 |
if $_[0]{'_dirty'} |
|
|
0 |
0 |
if $_[0]{'_dirty'} |
|
|
0 |
0 |
if $_[0]{'_dirty'} |
|
107
|
0 |
80 |
if $@ |
|
124
|
3 |
88 |
if ($$self{'isa'} and not @{$pkg_name . '::ISA';}) |
|
170
|
48 |
0 |
if @accessor_fields |
|
226
|
13 |
37 |
if (@key == 1) { } |
|
266
|
46 |
2 |
unless $$self{'readonly'} |
|
276
|
2 |
46 |
if ($$self{'readonly'}) { } |
|
309
|
12 |
35 |
if (@key == 1) |
|
351
|
15 |
31 |
if (@key) { } |
|
395
|
47 |
1 |
unless ($pkg_name->can('new')) |
|
401
|
15 |
32 |
if (@key) |
|
402
|
0 |
15 |
$pkg_name->can('DESTROY') ? : |