| test/test_get.pl | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 7 | 14 | 50.0 |
| line | true | false | branch |
|---|---|---|---|
| 8 | 0 | 1 | unless my $cache_key = $ARGV[0] |
| 11 | 0 | 1 | unless my $namespace = $ARGV[1] |
| 14 | 0 | 1 | unless my $key = $ARGV[2] |
| 17 | 0 | 1 | unless my $expected_value = $ARGV[3] |
| 20 | 0 | 1 | unless my $cache = 'IPC::Cache'->new({'cache_key', $cache_key, 'namespace', $namespace}) |
| 23 | 0 | 1 | unless my $value = $cache->get($key) |
| 26 | 0 | 1 | unless $value eq $expected_value |