r4537 - in
/packages/libcache-simple-timedexpiry-perl/branches/upstream/current: ./
inc/Module/ inc/Module/Install/ lib/Cache/Simple/ t/
ntyni-guest at users.alioth.debian.org
ntyni-guest at users.alioth.debian.org
Mon Dec 4 22:04:13 CET 2006
Author: ntyni-guest
Date: Mon Dec 4 22:04:13 2006
New Revision: 4537
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=4537
Log:
Load /tmp/tmp.BuiTS16034/libcache-simple-timedexpiry-perl-0.27 into
packages/libcache-simple-timedexpiry-perl/branches/upstream/current.
Modified:
packages/libcache-simple-timedexpiry-perl/branches/upstream/current/Changes
packages/libcache-simple-timedexpiry-perl/branches/upstream/current/META.yml
packages/libcache-simple-timedexpiry-perl/branches/upstream/current/SIGNATURE
packages/libcache-simple-timedexpiry-perl/branches/upstream/current/inc/Module/Install.pm
packages/libcache-simple-timedexpiry-perl/branches/upstream/current/inc/Module/Install/Base.pm
packages/libcache-simple-timedexpiry-perl/branches/upstream/current/inc/Module/Install/Can.pm
packages/libcache-simple-timedexpiry-perl/branches/upstream/current/inc/Module/Install/Fetch.pm
packages/libcache-simple-timedexpiry-perl/branches/upstream/current/inc/Module/Install/Makefile.pm
packages/libcache-simple-timedexpiry-perl/branches/upstream/current/inc/Module/Install/Metadata.pm
packages/libcache-simple-timedexpiry-perl/branches/upstream/current/inc/Module/Install/Win32.pm
packages/libcache-simple-timedexpiry-perl/branches/upstream/current/inc/Module/Install/WriteAll.pm
packages/libcache-simple-timedexpiry-perl/branches/upstream/current/lib/Cache/Simple/TimedExpiry.pm
packages/libcache-simple-timedexpiry-perl/branches/upstream/current/t/01basic.t
Modified: packages/libcache-simple-timedexpiry-perl/branches/upstream/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libcache-simple-timedexpiry-perl/branches/upstream/current/Changes?rev=4537&op=diff
==============================================================================
--- packages/libcache-simple-timedexpiry-perl/branches/upstream/current/Changes (original)
+++ packages/libcache-simple-timedexpiry-perl/branches/upstream/current/Changes Mon Dec 4 22:04:13 2006
@@ -1,3 +1,7 @@
+0.27 Mon Nov 20 17:06:59 EST 2006
+ - Moved an expire check to has_key
+ - Doc updates from Terrence Brannon (metaperl)
+
0.26 Thu Aug 24 18:16:08 EDT 2006
- Signature fixed on distribution
Modified: packages/libcache-simple-timedexpiry-perl/branches/upstream/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libcache-simple-timedexpiry-perl/branches/upstream/current/META.yml?rev=4537&op=diff
==============================================================================
--- packages/libcache-simple-timedexpiry-perl/branches/upstream/current/META.yml (original)
+++ packages/libcache-simple-timedexpiry-perl/branches/upstream/current/META.yml Mon Dec 4 22:04:13 2006
@@ -1,7 +1,7 @@
abstract: A lightweight cache with timed expiration
author: Robert Spier <rspier at pobox.com>, Jesse Vincent <jesse at bestpractical.com>
distribution_type: module
-generated_by: Module::Install version 0.63
+generated_by: Module::Install version 0.64
license: perl
name: Cache-Simple-TimedExpiry
no_index:
@@ -10,4 +10,4 @@
- t
requires:
perl: 5.005
-version: 0.26
+version: 0.27
Modified: packages/libcache-simple-timedexpiry-perl/branches/upstream/current/SIGNATURE
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libcache-simple-timedexpiry-perl/branches/upstream/current/SIGNATURE?rev=4537&op=diff
==============================================================================
--- packages/libcache-simple-timedexpiry-perl/branches/upstream/current/SIGNATURE (original)
+++ packages/libcache-simple-timedexpiry-perl/branches/upstream/current/SIGNATURE Mon Dec 4 22:04:13 2006
@@ -1,5 +1,5 @@
This file contains message digests of all files listed in MANIFEST,
-signed via the Module::Signature module, version 0.54.
+signed via the Module::Signature module, version 0.55.
To verify the content in this distribution, first make sure you have
Module::Signature installed, then type:
@@ -14,24 +14,24 @@
-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1
-SHA1 c078f6e4e1560ebd4bb85043c741a387a0565160 Changes
+SHA1 65976c17f6a77ff9b196ef5abf6f0b1d633138e0 Changes
SHA1 22ead3d088374505eb6fd289301809507191610e MANIFEST
-SHA1 8a330de2ee356a5ea9ea79ff816e7efe03bbc1a9 META.yml
+SHA1 9bbd7d9e4ae6a08bc7ff9a8e9d6af90893dd1bed META.yml
SHA1 1c7f2a080b159adcfacd9bea57b80751ff796eef Makefile.PL
-SHA1 017bedfcba1e0c72b36301e6ef21b8712b84d175 inc/Module/Install.pm
-SHA1 b1a70869c098ba602151631386fc510b5bfd3511 inc/Module/Install/Base.pm
-SHA1 dd7313db23119d49ae78593bfa576554fb5b0fd8 inc/Module/Install/Can.pm
-SHA1 7c3a5153a5574556d895f23e121a41e680da11c1 inc/Module/Install/Fetch.pm
-SHA1 176d68fe7c07b6ab7cfe09093078b8127bbde786 inc/Module/Install/Makefile.pm
-SHA1 8b37b38215d14f922b3d5132ce33d11d21d531ba inc/Module/Install/Metadata.pm
-SHA1 7eb44b00058c44795038d7fa4c0c77470f20a7f8 inc/Module/Install/Win32.pm
-SHA1 6d05967a5e1680b5f118315aaa6b8a1e143d79d8 inc/Module/Install/WriteAll.pm
-SHA1 ece0ec7452bd1cc5508c7b7f1ef2034c5299fe50 lib/Cache/Simple/TimedExpiry.pm
-SHA1 b43f5a5c5193c15d8aa1f428ff5a34108257e0b9 t/01basic.t
+SHA1 9b2f9d83bcf77860f53a0c07c90a4a59ad9f5df1 inc/Module/Install.pm
+SHA1 abe32855d75ab13747cf65765af9947b7a8c3057 inc/Module/Install/Base.pm
+SHA1 95b81d1e91bd634467bf633571eff4420e9c04eb inc/Module/Install/Can.pm
+SHA1 1fe98c63cf9d7271c8cb4183ba230f152df69e26 inc/Module/Install/Fetch.pm
+SHA1 2249171a2b72cd73ff2c0a06597d29f86e5df456 inc/Module/Install/Makefile.pm
+SHA1 381bb98ea3877bba49ae85e7a7ea130645fd3dbf inc/Module/Install/Metadata.pm
+SHA1 0c2118868ef82ac517eb6d9c3bd93e6eb9bbf83e inc/Module/Install/Win32.pm
+SHA1 e827d6d43771032fa3df35c0ad5e5698d0e54cda inc/Module/Install/WriteAll.pm
+SHA1 c58774eb54546f6f1fddcbdc0a35ceb27303f339 lib/Cache/Simple/TimedExpiry.pm
+SHA1 70bdf645a7c052821fbe70ee52464b2b0f172963 t/01basic.t
-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.4.3 (Darwin)
-iD8DBQFE7iU5Ei9d9xCOQEYRApJKAKC5QUCGkMAUCedkZlSAAlbs34rbRACeM0gZ
-nX/N/8M2zQao8rWYp/2numM=
-=bm1K
+iD8DBQFFYicXEi9d9xCOQEYRAvTnAJ4rtGBHjSf2pLgfRuqdWaTHLvjq2gCfUJL+
+jhfafvPM+rjgvpBmBMnYyWo=
+=Mt0J
-----END PGP SIGNATURE-----
Modified: packages/libcache-simple-timedexpiry-perl/branches/upstream/current/inc/Module/Install.pm
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libcache-simple-timedexpiry-perl/branches/upstream/current/inc/Module/Install.pm?rev=4537&op=diff
==============================================================================
--- packages/libcache-simple-timedexpiry-perl/branches/upstream/current/inc/Module/Install.pm (original)
+++ packages/libcache-simple-timedexpiry-perl/branches/upstream/current/inc/Module/Install.pm Mon Dec 4 22:04:13 2006
@@ -28,7 +28,7 @@
# This is not enforced yet, but will be some time in the next few
# releases once we can make sure it won't clash with custom
# Module::Install extensions.
- $VERSION = '0.63';
+ $VERSION = '0.64';
}
# Whether or not inc::Module::Install is actually loaded, the
Modified: packages/libcache-simple-timedexpiry-perl/branches/upstream/current/inc/Module/Install/Base.pm
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libcache-simple-timedexpiry-perl/branches/upstream/current/inc/Module/Install/Base.pm?rev=4537&op=diff
==============================================================================
--- packages/libcache-simple-timedexpiry-perl/branches/upstream/current/inc/Module/Install/Base.pm (original)
+++ packages/libcache-simple-timedexpiry-perl/branches/upstream/current/inc/Module/Install/Base.pm Mon Dec 4 22:04:13 2006
@@ -1,7 +1,7 @@
#line 1
package Module::Install::Base;
-$VERSION = '0.63';
+$VERSION = '0.64';
# Suspend handler for "redefined" warnings
BEGIN {
Modified: packages/libcache-simple-timedexpiry-perl/branches/upstream/current/inc/Module/Install/Can.pm
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libcache-simple-timedexpiry-perl/branches/upstream/current/inc/Module/Install/Can.pm?rev=4537&op=diff
==============================================================================
--- packages/libcache-simple-timedexpiry-perl/branches/upstream/current/inc/Module/Install/Can.pm (original)
+++ packages/libcache-simple-timedexpiry-perl/branches/upstream/current/inc/Module/Install/Can.pm Mon Dec 4 22:04:13 2006
@@ -11,7 +11,7 @@
use vars qw{$VERSION $ISCORE @ISA};
BEGIN {
- $VERSION = '0.63';
+ $VERSION = '0.64';
$ISCORE = 1;
@ISA = qw{Module::Install::Base};
}
Modified: packages/libcache-simple-timedexpiry-perl/branches/upstream/current/inc/Module/Install/Fetch.pm
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libcache-simple-timedexpiry-perl/branches/upstream/current/inc/Module/Install/Fetch.pm?rev=4537&op=diff
==============================================================================
--- packages/libcache-simple-timedexpiry-perl/branches/upstream/current/inc/Module/Install/Fetch.pm (original)
+++ packages/libcache-simple-timedexpiry-perl/branches/upstream/current/inc/Module/Install/Fetch.pm Mon Dec 4 22:04:13 2006
@@ -6,7 +6,7 @@
use vars qw{$VERSION $ISCORE @ISA};
BEGIN {
- $VERSION = '0.63';
+ $VERSION = '0.64';
$ISCORE = 1;
@ISA = qw{Module::Install::Base};
}
Modified: packages/libcache-simple-timedexpiry-perl/branches/upstream/current/inc/Module/Install/Makefile.pm
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libcache-simple-timedexpiry-perl/branches/upstream/current/inc/Module/Install/Makefile.pm?rev=4537&op=diff
==============================================================================
--- packages/libcache-simple-timedexpiry-perl/branches/upstream/current/inc/Module/Install/Makefile.pm (original)
+++ packages/libcache-simple-timedexpiry-perl/branches/upstream/current/inc/Module/Install/Makefile.pm Mon Dec 4 22:04:13 2006
@@ -7,7 +7,7 @@
use vars qw{$VERSION $ISCORE @ISA};
BEGIN {
- $VERSION = '0.63';
+ $VERSION = '0.64';
$ISCORE = 1;
@ISA = qw{Module::Install::Base};
}
Modified: packages/libcache-simple-timedexpiry-perl/branches/upstream/current/inc/Module/Install/Metadata.pm
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libcache-simple-timedexpiry-perl/branches/upstream/current/inc/Module/Install/Metadata.pm?rev=4537&op=diff
==============================================================================
--- packages/libcache-simple-timedexpiry-perl/branches/upstream/current/inc/Module/Install/Metadata.pm (original)
+++ packages/libcache-simple-timedexpiry-perl/branches/upstream/current/inc/Module/Install/Metadata.pm Mon Dec 4 22:04:13 2006
@@ -6,7 +6,7 @@
use vars qw{$VERSION $ISCORE @ISA};
BEGIN {
- $VERSION = '0.63';
+ $VERSION = '0.64';
$ISCORE = 1;
@ISA = qw{Module::Install::Base};
}
Modified: packages/libcache-simple-timedexpiry-perl/branches/upstream/current/inc/Module/Install/Win32.pm
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libcache-simple-timedexpiry-perl/branches/upstream/current/inc/Module/Install/Win32.pm?rev=4537&op=diff
==============================================================================
--- packages/libcache-simple-timedexpiry-perl/branches/upstream/current/inc/Module/Install/Win32.pm (original)
+++ packages/libcache-simple-timedexpiry-perl/branches/upstream/current/inc/Module/Install/Win32.pm Mon Dec 4 22:04:13 2006
@@ -6,7 +6,7 @@
use vars qw{$VERSION $ISCORE @ISA};
BEGIN {
- $VERSION = '0.63';
+ $VERSION = '0.64';
$ISCORE = 1;
@ISA = qw{Module::Install::Base};
}
Modified: packages/libcache-simple-timedexpiry-perl/branches/upstream/current/inc/Module/Install/WriteAll.pm
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libcache-simple-timedexpiry-perl/branches/upstream/current/inc/Module/Install/WriteAll.pm?rev=4537&op=diff
==============================================================================
--- packages/libcache-simple-timedexpiry-perl/branches/upstream/current/inc/Module/Install/WriteAll.pm (original)
+++ packages/libcache-simple-timedexpiry-perl/branches/upstream/current/inc/Module/Install/WriteAll.pm Mon Dec 4 22:04:13 2006
@@ -6,7 +6,7 @@
use vars qw{$VERSION $ISCORE @ISA};
BEGIN {
- $VERSION = '0.63';
+ $VERSION = '0.64';
$ISCORE = 1;
@ISA = qw{Module::Install::Base};
}
Modified: packages/libcache-simple-timedexpiry-perl/branches/upstream/current/lib/Cache/Simple/TimedExpiry.pm
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libcache-simple-timedexpiry-perl/branches/upstream/current/lib/Cache/Simple/TimedExpiry.pm?rev=4537&op=diff
==============================================================================
--- packages/libcache-simple-timedexpiry-perl/branches/upstream/current/lib/Cache/Simple/TimedExpiry.pm (original)
+++ packages/libcache-simple-timedexpiry-perl/branches/upstream/current/lib/Cache/Simple/TimedExpiry.pm Mon Dec 4 22:04:13 2006
@@ -4,7 +4,36 @@
use vars qw/$VERSION/;
-$VERSION = '0.26';
+$VERSION = '0.27';
+
+=head1 NAME
+
+Cache::Simple::TimedExpiry
+
+=head2 EXAMPLE
+
+ package main;
+
+ use strict;
+ use warnings;
+ $,=' '; $|++;
+
+ use Cache::Simple::TimedExpiry;
+ my $h = Cache::Simple::TimedExpiry->new;
+
+ $h->set( DieQuick => "No duration!", 0);
+ print $h->elements;
+ do { $h->set($_,"Value of $_", 1); sleep 2;}
+ for qw(Have a nice day you little monkey);
+
+
+ print $h->elements; $h->dump; sleep 4; print $h->elements; $h->dump;
+
+ print time;
+
+
+=cut
+
# 0 - expiration delay
# 1 - hash
@@ -47,6 +76,8 @@
sub has_key ($$) { # exists
my ($self, $key) = @_;
+ my $time = time;
+ $self->expire($time) if ($time > $self->[3]);
return 1 if defined $key && exists $self->[1]->{$key};
return 0;
}
@@ -65,9 +96,7 @@
sub fetch ($$) {
my ($self,$key) = @_;
- my $time = time;
# Only expire
- $self->expire($time) if ($time > $self->[3]);
unless ( $self->has_key($key)) {
return undef;
}
@@ -138,32 +167,6 @@
-=head1 NAME
-
-Cache::Simple::TimedExpiry
-
-=head2 EXAMPLE
-
-package main;
-use strict;
-use warnings;
-
-
-my $h = new Cache::Simple::TimedExpiry;
-
-$h->set( Forever => "Don't expire", 0);
-do { $h->set($_,"Value of $_", 1); sleep 2;} for
- qw(Have a nice day you little monkey);
-$,=' ';
-
-print $h->elements;
-$h->dump;
-sleep 4;
-print $h->elements;
-$h->dump;
-
-print time;
-
=head1 AUTHOR
Jesse Vincent <jesse at bestpractical.com>
Modified: packages/libcache-simple-timedexpiry-perl/branches/upstream/current/t/01basic.t
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libcache-simple-timedexpiry-perl/branches/upstream/current/t/01basic.t?rev=4537&op=diff
==============================================================================
--- packages/libcache-simple-timedexpiry-perl/branches/upstream/current/t/01basic.t (original)
+++ packages/libcache-simple-timedexpiry-perl/branches/upstream/current/t/01basic.t Mon Dec 4 22:04:13 2006
@@ -1,4 +1,4 @@
-use Test::More qw/no_plan/;
+use Test::More tests => 27;
use_ok('Cache::Simple::TimedExpiry');
More information about the Pkg-perl-cvs-commits
mailing list