7 use Memoize 'memoize', 'unmemoize';
20 memoize 'reff', LIST_CACHE => 'MERGE';
27 print @a == 1 ? "ok 3\n" : "not ok 3\n";
31 print @a == 3 ? "ok 4\n" : "not ok 4\n";
34 memoize 'reff', LIST_CACHE => 'MERGE';
40 print @a == 1 ? "ok 5\n" : "not ok 5\n";
44 print @a == 3 ? "ok 6\n" : "not ok 6\n";