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 |