7 use Memoize 'flush_cache', 'memoize';
20 print (($c1 == 100) ? "ok 3\n" : "not ok 3\n");
24 print (($c1 == 100) ? "ok 4\n" : "not ok 4\n");
28 print (($c1 == 200) ? "ok 5\n" : "not ok 5\n");
32 print (($c1 == 200) ? "ok 6\n" : "not ok 6\n");
36 print (($c1 == 300) ? "ok 7\n" : "not ok 7\n");
40 print (($c1 == 300) ? "ok 8\n" : "not ok 8\n");