| blib/lib/HTML/Mason/Cache/BaseCache.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 16 | 20 | 80.0 |
| line | true | false | branch |
|---|---|---|---|
| 16 | 0 | 66 | unless defined $key |
| 19 | 0 | 10 | unless ($param =~ /^(busy_lock|expire_if)$/) |
| 26 | 6 | 60 | if (my $sub = $params{'expire_if'}) |
| 30 | 21 | 45 | unless my $object = $self->get_object($key) |
| 33 | 13 | 32 | if (Cache::BaseCache::Object_Has_Expired($object)) |
| 35 | 4 | 9 | if ($params{'busy_lock'}) { } |
| 55 | 5 | 0 | if (my $obj = $self->get_object($key)) |
| 64 | 0 | 6 | unless defined $sub and ref $sub eq "CODE" |
| 66 | 5 | 1 | if (my $obj = $self->get_object($key)) { } |
| 68 | 2 | 3 | if ($retval) |