| line |
true |
false |
branch |
|
26
|
22 |
107 |
if $new_key =~ s/([a-z])([A-Z])/$1_\L$2\E/g |
|
30
|
0 |
81 |
if $tmp = delete $hashref->{'-post_sQL'} |
|
51
|
4 |
41 |
if $tmp = delete $args{$key} |
|
55
|
1 |
8 |
if (my $vp = delete $args{'view_parent'}) |
|
57
|
0 |
1 |
unless ref $args{'join_parent'} |
|
65
|
4 |
4 |
if (%singleton_args) |
|
69
|
0 |
4 |
if (my $sqla = delete $singleton_args{'sql_abstract'}) |
|
80
|
0 |
0 |
if $sqla |
|
84
|
4 |
0 |
if (my $dialect = delete $singleton_args{'sql_dialect'}) |
|
85
|
2 |
2 |
if (ref $dialect) { } |
|
119
|
2 |
0 |
if $tmp = delete $handlers{'fromDB'} |
|
120
|
2 |
0 |
if $tmp = delete $handlers{'toDB'} |
|
163
|
0 |
0 |
if $is_silent |
|
271
|
0 |
2 |
if $attribute eq "DESTROY" |
|
273
|
2 |
0 |
if ref $self and exists $self->{$attribute} |
|
281
|
0 |
4 |
if ref $class |
|
282
|
0 |
4 |
unless defined $toggle |
|
285
|
2 |
2 |
if ($toggle) { } |
|
388
|
57 |
13 |
if ($_[0] and not ref $_[0] and $_[0] =~ /^-/) { } |
|
394
|
8 |
5 |
unless not @_ or &reftype($_[0]) eq "HASH" |
|
395
|
12 |
1 |
unless not @_ or &reftype($_[0]) eq "ARRAY" |
|
396
|
2 |
11 |
unless not @_ or &reftype($_[0]) eq "HASH" |
|
397
|
0 |
13 |
if @_ |
|
404
|
2 |
68 |
if (my $distinct = delete $args{'-distinct'}) |
|
405
|
1 |
1 |
unless ref $distinct |
|
412
|
11 |
59 |
if $args{'-result_as'} |