view release on metacpan or  search on metacpan

lib/Tie/Hash/Cache/MRU.pm  view on Meta::CPAN

sub TIME(){2}
sub SIZE(){3};
sub LIFE(){4};
sub HASH(){5};
# FETCH, STORE, EXISTS, DELETE, FIRSTKEY, NEXTKEY, CLEAR. DESTROY
sub S(){6};
sub F(){7};
sub D(){8};
sub E(){9};
sub C(){10};
sub FK(){11};
sub NK(){12};
sub DE(){13};

sub TIEHASH {

	my $pack = shift;
	my %arg = @_;

	no warnings;
	my @obj = ( {}, {}, {},
	 @arg{qw/SIZE LIFE HASH
	STORE FETCH DELETE EXISTS CLEAR FIRSTKEY NEXTKEY DESTROY/});

t/Tie-Hash-Cache-MRU.t  view on Meta::CPAN

sub TIME(){2}
sub SIZE(){3};
sub LIFE(){4};
sub HASH(){5};
# FETCH, STORE, EXISTS, DELETE, FIRSTKEY, NEXTKEY, CLEAR. DESTROY
sub S(){6};
sub F(){7};
sub D(){8};
sub E(){9};
sub C(){10};
sub FK(){11};
sub NK(){12};
sub DE(){13};

ok($cache2{28} == $data{28});

print STDERR "cache2 TIME: @{[%{tied(%cache2)->[TIME]}]}\n";
print STDERR "cache2 CURRENT: @{[%{tied(%cache2)->[CURRENT]}]}\n";
print STDERR "cache2 OLD: @{[%{tied(%cache2)->[OLD]}]}\n";

$data{28} = 'hockey';
ok($cache2{28} ne $data{28});  # should have stale
print STDERR "sleeping 5\n";sleep 5;