| erecipes/perl/lib/CGI/Ex/Recipes/Cache.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 8 | 16 | 50.0 |
| line | true | false | branch |
|---|---|---|---|
| 15 | 0 | 1 | unless $$args{'dbh'} |
| 22 | 0 | 0 | if exists $$self{'cache_hash'}{$key} |
| 29 | 0 | 3 | if (exists $$self{'cache_hash'}{$key}) |
| 36 | 0 | 2 | if ($$self{'cache_hash'}{$key}{'expires'} < time) |
| 44 | 0 | 2 | unless ($_[2]) |
| 48 | 1 | 1 | $_[3] ? : |
| 55 | 1 | 0 | if $_[0]{'dbh'}->do('DELETE FROM `cache`') |
| 61 | 1 | 0 | ref $_[2] ? : |