| lib/Sub/Contract/Cache.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 7 | 12 | 58.3 |
| line | true | false | branch |
|---|---|---|---|
| 28 | 0 | 8 | unless my $size = delete $args{'size'} |
| 29 | 0 | 8 | unless my $namespace = delete $args{'namespace'} |
| 31 | 0 | 8 | if %args |
| 32 | 0 | 8 | unless defined $size and $size =~ /^\d+$/ |
| 60 | 0 | 31 | unless defined $key |
| 63 | 1 | 30 | if ($$self{'cache_size'} >= $$self{'cache_max_size'}) |