erecipes/perl/lib/CGI/Ex/Recipes/Cache.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
condition | 7 | 14 | 50.0 |
line | l | !l | condition |
---|---|---|---|
11 | 1 | 0 | shift() || 'CGI::Ex::Recipes::Cache' |
12 | 1 | 0 | shift() || {} |
14 | 0 | 1 | $$args{'cache_hash'} ||= {} |
33 | 2 | 1 | $$self{'dbh'}->selectrow_hashref('SELECT * FROM cache WHERE id=?', {}, $key) || (return undef) |
line | l | !l&&r | !l&&!r | condition |
---|---|---|---|---|
13 | 0 | 1 | 0 | $$args{'expires'} ||= time + 3600 |
61 | 0 | 1 | 0 | $_[3] || $_[0]{'expires'} |