1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
|
use strict; use warnings;
use Memoize qw(memoize unmemoize);
use Test::More;
sub reff {
return [1,2,3];
}
sub listf {
return (1,2,3);
}
sub f17 { return 17 }
plan tests => 7;
memoize 'reff', LIST_CACHE => 'MERGE';
memoize 'listf';
my ($s, @a);
$s = reff();
@a = reff();
is(scalar(@a), 1, "reff list context");
$s = listf();
@a = listf();
is(scalar(@a), 3, "listf list context");
unmemoize 'reff';
memoize 'reff', LIST_CACHE => 'MERGE';
unmemoize 'listf';
memoize 'listf';
@a = reff();
$s = reff();
is(scalar @a, 1, "reff list context");
@a = listf();
$s = listf();
is(scalar @a, 3, "listf list context");
memoize 'f17', SCALAR_CACHE => 'MERGE';
is(f17(), 17, "f17 first call");
is(f17(), 17, "f17 second call");
is(scalar(f17()), 17, "f17 scalar context call");
|
