blib/lib/DBIx/Simple/Inject.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
condition | 0 | 3 | 0.0 |
line | l | !l&&r | !l&&!r | condition |
---|---|---|---|---|
18 | 0 | 0 | 0 | $$dbh{'private_dbixsimple_object'} ||= do { my $dbis = 'DBIx::Simple'->connect($dbh); weaken($$dbis{'dbh'}); foreach my $k (keys %{{} unless $$dbh{'private_dbixsimple'};}) { my $v = $$dbh{'private_dbixsimple'}{$k}; $dbis->$k = ref $v eq 'CODE' ? &$v($dbh) : ($k eq 'abstract' ? _abstract($$dbis{'dbh'}, $v) : $v); }; $dbis } |