4 use Memoize 'flush_cache', 'memoize';
17 print (($c1 == 100) ? "ok 3\n" : "not ok 3\n");
21 print (($c1 == 100) ? "ok 4\n" : "not ok 4\n");
25 print (($c1 == 200) ? "ok 5\n" : "not ok 5\n");
29 print (($c1 == 200) ? "ok 6\n" : "not ok 6\n");
33 print (($c1 == 300) ? "ok 7\n" : "not ok 7\n");
37 print (($c1 == 300) ? "ok 8\n" : "not ok 8\n");