Linux cpanel2.daytoncreative.net 2.6.32-754.29.2.el6.x86_64 #1 SMP Tue May 12 17:39:04 UTC 2020 x86_64
Apache/2.4.43 (cPanel) OpenSSL/1.1.1g mod_bwlimited/1.4
Server IP : 70.62.220.67 & Your IP : 216.73.216.193
Domains :
Cant Read [ /etc/named.conf ]
User : michaelgreg
Terminal
Auto Root
Create File
Create Folder
Localroot Suggester
Backdoor Destroyer
Readme
/
var /
log /
perl-5.20.2 /
cpan /
Memoize /
t /
Delete
Unzip
Name
Size
Permission
Date
Action
array.t
1.41
KB
-r--r--r--
2014-12-27 11:48
array_confusion.t
771
B
-r--r--r--
2014-12-27 11:48
correctness.t
3.04
KB
-r--r--r--
2014-12-27 11:48
errors.t
1.38
KB
-r--r--r--
2014-12-27 11:48
expfile.t
1.32
KB
-r--r--r--
2014-12-27 11:48
expire.t
943
B
-r--r--r--
2014-12-27 11:48
expmod_n.t
1.1
KB
-r--r--r--
2014-12-27 11:48
expmod_t.t
2.36
KB
-r--r--r--
2014-12-27 11:48
flush.t
614
B
-r--r--r--
2014-12-27 11:48
normalize.t
1.38
KB
-r--r--r--
2014-12-27 11:48
prototype.t
570
B
-r--r--r--
2014-12-27 11:48
speed.t
2.99
KB
-r--r--r--
2014-12-27 11:48
tie.t
1.54
KB
-r--r--r--
2014-12-27 11:48
tie_gdbm.t
1.23
KB
-r--r--r--
2014-12-27 11:48
tie_ndbm.t
1.31
KB
-r--r--r--
2014-12-27 11:48
tie_sdbm.t
1.41
KB
-r--r--r--
2014-12-27 11:48
tie_storable.t
1.29
KB
-r--r--r--
2014-12-27 11:48
tiefeatures.t
1.18
KB
-r--r--r--
2014-12-27 11:48
unmemoize.t
520
B
-r--r--r--
2014-12-27 11:48
Save
Rename
#!/usr/bin/perl use lib '..'; use Memoize; use Memoize::ExpireTest; my $n = 0; print "1..17\n"; $n++; print "ok $n\n"; my %CALLS; sub id { my($arg) = @_; ++$CALLS{$arg}; $arg; } tie my %cache => 'Memoize::ExpireTest'; memoize 'id', SCALAR_CACHE => [HASH => \%cache], LIST_CACHE => 'FAULT'; $n++; print "ok $n\n"; for $i (1, 2, 3, 1, 2, 1) { $n++; unless ($i == id($i)) { print "not "; } print "ok $n\n"; } for $i (1, 2, 3) { $n++; unless ($CALLS{$i} == 1) { print "not "; } print "ok $n\n"; } Memoize::ExpireTest::expire(1); for $i (1, 2, 3) { my $v = id($i); } for $i (1, 2, 3) { $n++; unless ($CALLS{$i} == 1 + ($i == 1)) { print "not "; } print "ok $n\n"; } Memoize::ExpireTest::expire(1); Memoize::ExpireTest::expire(2); for $i (1, 2, 3) { my $v = id($i); } for $i (1, 2, 3) { $n++; unless ($CALLS{$i} == 4 - $i) { print "not "; } print "ok $n\n"; } exit 0;