4 use Memoize 'memoize', 'unmemoize';
17 memoize 'reff', LIST_CACHE => 'MERGE';
24 print @a == 1 ? "ok 3\n" : "not ok 3\n";
28 print @a == 3 ? "ok 4\n" : "not ok 4\n";
31 memoize 'reff', LIST_CACHE => 'MERGE';
37 print @a == 1 ? "ok 5\n" : "not ok 5\n";
41 print @a == 3 ? "ok 6\n" : "not ok 6\n";