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
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
|
package Cache::Ref::Random;
BEGIN {
$Cache::Ref::Random::AUTHORITY = 'cpan:NUFFIN';
}
BEGIN {
$Cache::Ref::Random::VERSION = '0.04';
}
use Moose;
use namespace::autoclean;
extends qw(Cache::Ref);
with qw(
Cache::Ref::Role::API
Cache::Ref::Role::Index
);
has size => (
isa => "Int",
is => "ro",
required => 1,
);
sub clear {
my $self = shift;
$self->_index_clear;
}
sub hit { }
sub remove {
my ( $self, @keys ) = @_;
$self->_index_delete(@keys);
return;
}
sub get {
my ( $self, @keys ) = @_;
$self->_index_get(@keys);
}
sub set {
my ( $self, $key, $value ) = @_;
unless ( defined $self->_index_get($key) ) {
if ( $self->_index_size >= $self->size ) {
$self->expire( 1 + $self->_index_size - $self->size );
}
}
$self->_index_set($key, $value);
}
sub expire {
my ( $self, $how_many ) = @_;
my @s = ( 0 .. $self->_index_size - 1);
my @slice = map { splice @s, int rand @s, 1 } 1 .. ($how_many || 1);
my @keys = ($self->_index_keys)[@slice];
$self->_index_delete(@keys);
return;
}
__PACKAGE__->meta->make_immutable;
__PACKAGE__;
=pod
=encoding utf-8
=head1 NAME
Cache::Ref::Random
=head1 AUTHOR
Yuval Kogman
=head1 COPYRIGHT AND LICENSE
This software is copyright (c) 2010 by Yuval Kogman.
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
=cut
__END__
# ex: set sw=4 et:
|
