r73647 - in /branches/upstream/libcache-historical-perl/current: Changes Historical.pm MANIFEST.SKIP META.yml Makefile.PL README t/001Basic.t
gregoa at users.alioth.debian.org
gregoa at users.alioth.debian.org
Wed Apr 27 18:36:38 UTC 2011
Author: gregoa
Date: Wed Apr 27 18:36:17 2011
New Revision: 73647
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=73647
Log:
[svn-upgrade] new version libcache-historical-perl (0.05)
Modified:
branches/upstream/libcache-historical-perl/current/Changes
branches/upstream/libcache-historical-perl/current/Historical.pm
branches/upstream/libcache-historical-perl/current/MANIFEST.SKIP
branches/upstream/libcache-historical-perl/current/META.yml
branches/upstream/libcache-historical-perl/current/Makefile.PL
branches/upstream/libcache-historical-perl/current/README
branches/upstream/libcache-historical-perl/current/t/001Basic.t
Modified: branches/upstream/libcache-historical-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libcache-historical-perl/current/Changes?rev=73647&op=diff
==============================================================================
--- branches/upstream/libcache-historical-perl/current/Changes (original)
+++ branches/upstream/libcache-historical-perl/current/Changes Wed Apr 27 18:36:17 2011
@@ -1,5 +1,15 @@
######################################################################
Revision history for Perl extension Cache::Historical
+
+0.05 (2011/04/27)
+ (ms) Removed debugging leftover Data::HexDump.
+
+0.04 (2011/04/24)
+ (ms) Stringifying DateTime object in test suite to make it
+ works with is() in perl-5.10.1
+ (ms) Applied patch by Niko Tyni to correct values() sort order
+ (http://bugs.debian.org/cgi-bin/bugreport.cgi?bug=615882)
+ (ms) Fixed POD error reported by Mats Erik Andersson
0.03 2008/02/09
(ms) Using DB features for faster get_interpolated() now.
Modified: branches/upstream/libcache-historical-perl/current/Historical.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libcache-historical-perl/current/Historical.pm?rev=73647&op=diff
==============================================================================
--- branches/upstream/libcache-historical-perl/current/Historical.pm (original)
+++ branches/upstream/libcache-historical-perl/current/Historical.pm Wed Apr 27 18:36:17 2011
@@ -10,7 +10,7 @@
use DBI;
use DateTime::Format::Strptime;
-our $VERSION = "0.03";
+our $VERSION = "0.05";
###########################################
sub new {
@@ -178,7 +178,7 @@
my $values = Cache::Historical::Val::Manager->get_vals(
query => [ @key ],
- sort_by => ['upd_time DESC'],
+ sort_by => ['date'],
);
for(@$values) {
@@ -387,9 +387,11 @@
# update of a given key.
my $since = $cache->since_last_update( $key );
+=back
+
=head1 LEGALESE
-Copyright 2007-2008 by Mike Schilli, all rights reserved.
+Copyright 2007-2011 by Mike Schilli, all rights reserved.
This program is free software, you can redistribute it and/or
modify it under the same terms as Perl itself.
Modified: branches/upstream/libcache-historical-perl/current/MANIFEST.SKIP
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libcache-historical-perl/current/MANIFEST.SKIP?rev=73647&op=diff
==============================================================================
--- branches/upstream/libcache-historical-perl/current/MANIFEST.SKIP (original)
+++ branches/upstream/libcache-historical-perl/current/MANIFEST.SKIP Wed Apr 27 18:36:17 2011
@@ -1,3 +1,4 @@
+.git
blib
^Makefile$
^Makefile.old$
Modified: branches/upstream/libcache-historical-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libcache-historical-perl/current/META.yml?rev=73647&op=diff
==============================================================================
--- branches/upstream/libcache-historical-perl/current/META.yml (original)
+++ branches/upstream/libcache-historical-perl/current/META.yml Wed Apr 27 18:36:17 2011
@@ -1,18 +1,28 @@
--- #YAML:1.0
-name: Cache-Historical
-version: 0.03
-abstract: Cache historical values
-license: ~
-generated_by: ExtUtils::MakeMaker version 6.31
-distribution_type: module
-requires:
- DBD::SQLite: 1.14
- DBI: 0
- Log::Log4perl: 1
- Rose::DB: 0.735
- Rose::DB::Object::Loader: 0.764
-meta-spec:
- url: http://module-build.sourceforge.net/META-spec-v1.2.html
- version: 1.2
+name: Cache-Historical
+version: 0.05
+abstract: Cache historical values
author:
- Mike Schilli <cpan at perlmeister.com>
+license: unknown
+distribution_type: module
+configure_requires:
+ ExtUtils::MakeMaker: 0
+build_requires:
+ ExtUtils::MakeMaker: 0
+requires:
+ DBD::SQLite: 1.14
+ DBI: 0
+ Log::Log4perl: 1
+ Rose::DB: 0.735
+ Rose::DB::Object::Loader: 0.764
+resources:
+ repository: http://github.com/mschilli/cache-historical-perl
+no_index:
+ directory:
+ - t
+ - inc
+generated_by: ExtUtils::MakeMaker version 6.55_02
+meta-spec:
+ url: http://module-build.sourceforge.net/META-spec-v1.4.html
+ version: 1.4
Modified: branches/upstream/libcache-historical-perl/current/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libcache-historical-perl/current/Makefile.PL?rev=73647&op=diff
==============================================================================
--- branches/upstream/libcache-historical-perl/current/Makefile.PL (original)
+++ branches/upstream/libcache-historical-perl/current/Makefile.PL Wed Apr 27 18:36:17 2011
@@ -3,6 +3,15 @@
# 2007, Mike Schilli <cpan at perlmeister.com>
######################################################################
use ExtUtils::MakeMaker;
+
+my $meta_merge = {
+ META_MERGE => {
+ resources => {
+ repository => 'http://github.com/mschilli/cache-historical-perl',
+ },
+ }
+};
+
WriteMakefile(
'NAME' => 'Cache::Historical',
'VERSION_FROM' => 'Historical.pm', # finds $VERSION
@@ -13,6 +22,7 @@
Rose::DB::Object::Loader => 0.764,
Log::Log4perl => 1,
}, # e.g., Module::Name => 1.1
+ $ExtUtils::MakeMaker::VERSION >= 6.50 ? (%$meta_merge) : (),
($] >= 5.005 ? ## Add these new keywords supported since 5.005
(ABSTRACT_FROM => 'Historical.pm',
AUTHOR => 'Mike Schilli <cpan at perlmeister.com>') : ()),
Modified: branches/upstream/libcache-historical-perl/current/README
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libcache-historical-perl/current/README?rev=73647&op=diff
==============================================================================
--- branches/upstream/libcache-historical-perl/current/README (original)
+++ branches/upstream/libcache-historical-perl/current/README Wed Apr 27 18:36:17 2011
@@ -1,5 +1,5 @@
######################################################################
- Cache::Historical 0.03
+ Cache::Historical 0.05
######################################################################
NAME
@@ -107,10 +107,10 @@
my $since = $cache->since_last_update( $key );
LEGALESE
- Copyright 2007-2008 by Mike Schilli, all rights reserved. This
- program is free software, you can redistribute it and/or modify it
- under the same terms as Perl itself.
+ Copyright 2007-2011 by Mike Schilli, all rights reserved. This program
+ is free software, you can redistribute it and/or modify it under the
+ same terms as Perl itself.
AUTHOR
- 2007, Mike Schilli <cpan at perlmeister.com>
+ 2007, Mike Schilli <cpan at perlmeister.com>
Modified: branches/upstream/libcache-historical-perl/current/t/001Basic.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libcache-historical-perl/current/t/001Basic.t?rev=73647&op=diff
==============================================================================
--- branches/upstream/libcache-historical-perl/current/t/001Basic.t (original)
+++ branches/upstream/libcache-historical-perl/current/t/001Basic.t Wed Apr 27 18:36:17 2011
@@ -17,8 +17,9 @@
my $fmt = DateTime::Format::Strptime->new(
pattern => "%Y-%m-%d");
+$c->set( $fmt->parse_datetime("2008-01-03"), "msft", 35.37 );
$c->set( $fmt->parse_datetime("2008-01-02"), "msft", 35.22 );
-$c->set( $fmt->parse_datetime("2008-01-03"), "msft", 35.37 );
+sleep 1; # so the update time is never the same for all the rows
$c->set( $fmt->parse_datetime("2008-01-04"), "msft", 34.38 );
$c->set( $fmt->parse_datetime("2008-01-07"), "msft", 34.61 );
@@ -30,8 +31,9 @@
"get undef value" );
my($from, $to) = $c->time_range( "msft" );
-is($from, "2008-01-02T00:00:00", "time range from");
-is($to, "2008-01-07T00:00:00", "time range to");
+
+is("$from", "2008-01-02T00:00:00", "time range from");
+is("$to", "2008-01-07T00:00:00", "time range to");
# interpolated
is( $c->get_interpolated( $fmt->parse_datetime("2008-01-06"), "msft"), 34.38,
More information about the Pkg-perl-cvs-commits
mailing list