| line |
true |
false |
branch |
|
45
|
25 |
0 |
$] >= 5.01 && require mro ? : |
|
61
|
111 |
0 |
if not $DBIx::QuickDB::Util::HashBase::VERSION{$into} or $DBIx::QuickDB::Util::HashBase::VERSION{$into} > $ver |
|
69
|
0 |
90 |
unless $DBIx::QuickDB::Util::HashBase::ATTR_SUBS{$_} |
|
72
|
57 |
54 |
$into->can('new') ? : |
|
77
|
646 |
113 |
if $spec->{'strip'} |
|
84
|
744 |
15 |
if $spec->{'reader'} |
|
85
|
114 |
645 |
if $spec->{'writer'} |
|
86
|
211 |
548 |
if $spec->{'read_only'} |
|
87
|
1 |
758 |
if $spec->{'dep_writer'} |
|
107
|
0 |
6 |
if (0.004 > ($DBIx::QuickDB::Util::HashBase::VERSION{$_} || 0)) { } |
|
112
|
6 |
0 |
$list ? : |
|
126
|
3 |
8 |
if (@_ == 1) { } |
|
130
|
1 |
2 |
if ($type eq 'HASH') { } |
|
134
|
0 |
2 |
unless $type eq "ARRAY" |
|
141
|
1 |
8 |
unless my $key = shift @attributes |
|
153
|
5 |
5 |
unless exists $DBIx::QuickDB::Util::HashBase::CAN_CACHE{$class} |
|
155
|
2 |
8 |
if $DBIx::QuickDB::Util::HashBase::CAN_CACHE{$class} |