lib/File/DataClass/Cache.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
branch | 15 | 16 | 93.7 |
line | true | false | branch |
---|---|---|---|
64 | 74 | 1 | $key ? : |
66 | 46 | 29 | if $cached |
79 | 1 | 9 | unless $k |
81 | 1 | 8 | unless my $mtimes = $self->cache->get($self->_mtimes_key) |
87 | 1 | 23 | unless defined $key |
100 | 1 | 27 | if $key eq $self->_mtimes_key |
101 | 0 | 27 | unless $self->cache->set($key, $val) |
129 | 25 | 25 | if (defined $v) { } |