7 use Memoize qw(memoize unmemoize);
11 eval { unmemoize('f') }; # Should fail
12 print (($@ ? '' : 'not '), "ok 1\n");
18 my @ur = (&u, &u, &u);
19 print (("@ur" eq "0 0 0") ? "ok 2\n" : "not ok 2\n");
21 eval { unmemoize('u') }; # Should succeed
22 print ($@ ? "not ok 3\n" : "ok 3\n");
25 print (("@ur" eq "1 2 3") ? "ok 4\n" : "not ok 4\n");
27 eval { unmemoize('u') }; # Should fail
28 print ($@ ? "ok 5\n" : "not ok 5\n");