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