r62427 - in /branches/upstream/libtime-progress-perl/current: Changes META.yml Progress.pm test.pl

carnil-guest at users.alioth.debian.org carnil-guest at users.alioth.debian.org
Thu Sep 9 13:50:01 UTC 2010


Author: carnil-guest
Date: Thu Sep  9 13:49:25 2010
New Revision: 62427

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=62427
Log:
[svn-upgrade] new version libtime-progress-perl (1.6)

Removed:
    branches/upstream/libtime-progress-perl/current/test.pl
Modified:
    branches/upstream/libtime-progress-perl/current/Changes
    branches/upstream/libtime-progress-perl/current/META.yml
    branches/upstream/libtime-progress-perl/current/Progress.pm

Modified: branches/upstream/libtime-progress-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libtime-progress-perl/current/Changes?rev=62427&op=diff
==============================================================================
--- branches/upstream/libtime-progress-perl/current/Changes (original)
+++ branches/upstream/libtime-progress-perl/current/Changes Thu Sep  9 13:49:25 2010
@@ -1,4 +1,8 @@
 Revision history for Perl extension Time::Progress.
+
+1.6   Wed Sep  8 2010
+
+  - fixed helpers (note by Andreas Koenig)
 
 1.5   Wed Feb  6 2009
 

Modified: branches/upstream/libtime-progress-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libtime-progress-perl/current/META.yml?rev=62427&op=diff
==============================================================================
--- branches/upstream/libtime-progress-perl/current/META.yml (original)
+++ branches/upstream/libtime-progress-perl/current/META.yml Thu Sep  9 13:49:25 2010
@@ -1,6 +1,6 @@
 --- #YAML:1.0
 name:               Time-Progress
-version:            1.5
+version:            1.6
 abstract:           Elapsed and estimated finish time reporting.
 author:
     - Vladi Belperchinov-Shabanski <cade at biscom.net>
@@ -8,12 +8,14 @@
 distribution_type:  module
 configure_requires:
     ExtUtils::MakeMaker:  0
+build_requires:
+    ExtUtils::MakeMaker:  0
 requires:  {}
 no_index:
     directory:
         - t
         - inc
-generated_by:       ExtUtils::MakeMaker version 6.48
+generated_by:       ExtUtils::MakeMaker version 6.56
 meta-spec:
     url:      http://module-build.sourceforge.net/META-spec-v1.4.html
     version:  1.4

Modified: branches/upstream/libtime-progress-perl/current/Progress.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libtime-progress-perl/current/Progress.pm?rev=62427&op=diff
==============================================================================
--- branches/upstream/libtime-progress-perl/current/Progress.pm (original)
+++ branches/upstream/libtime-progress-perl/current/Progress.pm Thu Sep  9 13:49:25 2010
@@ -2,7 +2,7 @@
 use Exporter;
 our @ISA = qw( Exporter );
 our @EXPORT = qw(  );
-our $VERSION = '1.5';
+our $VERSION = '1.6';
 use strict;
 use warnings;
 use Carp;
@@ -143,16 +143,16 @@
 }
 
 sub elapsed
-{ my $self = shift; return $self->report("%l"); }
+{ my $self = shift; return $self->report("%l", at _); }
 
 sub elapsed_str
-{ my $self = shift; return $self->report("elapsed time is %L min.\n"); }
+{ my $self = shift; return $self->report("elapsed time is %L min.\n", at _); }
 
 sub estimate
-{ my $self = shift; return $self->report("%e"); }
+{ my $self = shift; return $self->report("%e", at _); }
 
 sub estimate_str
-{ my $self = shift; return $self->report("remaining time is %E min.\n"); }
+{ my $self = shift; return $self->report("remaining time is %E min.\n", at _); }
 
 1;
 
@@ -283,7 +283,7 @@
 
 =item report
 
-B<report> is the most complex method in this package! :)
+B<report> is the most complex method in this package. :)
 
 expected arguments are:
 
@@ -356,16 +356,20 @@
 
 =item elapsed
 
-=item estimated
+=item estimate
+
+helpers -- return elapsed/estimate seconds.
 
 =item elapsed_str
 
-=item estimated_str
-
-helpers -- return elapsed/estimated seconds or string in format:
+=item estimate_str
+
+helpers -- return elapsed/estimated string in format:
 
   "elapsed time is MM:SS min.\n"
   "remaining time is MM:SS min.\n"
+
+all helpers need one argument--current item.
 
 =back
 




More information about the Pkg-perl-cvs-commits mailing list