perl/perl-Time-Progress
SHA256
8
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Accepting request 328602 from devel:languages:perl:autoupdate

Browse Source 
automatic update

OBS-URL: https://build.opensuse.org/request/show/328602
OBS-URL: https://build.opensuse.org/package/show/devel:languages:perl/perl-Time-Progress?expand=0&rev=4
This commit is contained in:
Stephan Kulow
2015-09-02 19:09:58 +00:00
committed by Git OBS Bridge
parent 22df95d36d
commit 178a668fe1
4 changed files with 31 additions and 165 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
Time-Progress-1.9.tar.gz
View File

@@ -1,3 +0,0 @@
version https://git-lfs.github.com/spec/v1
oid sha256:4ac46ab02f419f27fee5f566010453e081f54110dea226253784071bb747d9ba
size 5700

3
Time-Progress-2.0.tar.gz Normal file
View File

@@ -0,0 +1,3 @@
version https://git-lfs.github.com/spec/v1
oid sha256:52a1b78047cc2924f823684ddbadbf4964ce8ca95fbf89444736199cbfe507ab
size 6952

6
perl-Time-Progress.changes
View File

@@ -1,3 +1,9 @@
-------------------------------------------------------------------
Wed Sep 2 09:16:21 UTC 2015 - coolo@suse.com
- updated to 2.0
see /usr/share/doc/packages/perl-Time-Progress/Changes
------------------------------------------------------------------- -------------------------------------------------------------------
Sun Aug 23 09:29:26 UTC 2015 - coolo@suse.com Sun Aug 23 09:29:26 UTC 2015 - coolo@suse.com

184
perl-Time-Progress.spec
View File

@@ -17,7 +17,7 @@
Name: perl-Time-Progress Name: perl-Time-Progress
Version: 1.9 Version: 2.0
Release: 0 Release: 0
%define cpan_name Time-Progress %define cpan_name Time-Progress
Summary: Elapsed and estimated finish time reporting Summary: Elapsed and estimated finish time reporting
@@ -34,175 +34,35 @@ BuildRequires: perl(Test::More) >= 0.88
%{perl_requires} %{perl_requires}
%description %description
Shortest time interval that can be measured is 1 second. The available This module displays progress information for long-running processes. This
methods are: can be percentage complete, time elapsed, estimated time remaining, an
ASCII progress bar, or any combination of those.
* new It is useful for code where you perform a number of steps, or iterations of
a loop, where the number of iterations is known before you start the loop.
my $p = Time::Progress->new; The typical usage of this module is:
Returns new object of Time::Progress class and starts the timer. It also * *
sets min and max values to 0 and 100, so the next *report* calls will Create an instance of 'Time::Progress', specifying min and max count
default to percents range. values.
* restart * *
At the head of the loop, you call the 'report()' method with
a format specifier and the iteration count,
and get back a string that should be displayed.
restarts the timer and clears the stop mark. optionally restart() may act If you include a carriage return character (\r) in the format string, then
also as attr() for setting attributes: the message will be over-written at each step. Putting \r at the start of
the format string, as in the SYNOPSIS, results in the cursor sitting at the
end of the message.
$p->restart( min => 1, max => 5 ); If you display to STDOUT, then remember to enable auto-flushing:
is the same as: use IO::Handle;
STDOUT->autoflush(1);
$p->attr( min => 1, max => 5 ); The shortest time interval that can be measured is 1 second.
$p->restart();
If you need to count things, you can set just 'max' attribute since 'min'
is already set to 0 when object is constructed by new():
$p->restart( max => 42 );
* stop
Sets the stop mark. This is only useful if you do some work, then finish,
then do some work that shouldn't be timed and finally report. Something
like:
$p->restart;
# do some work here...
$p->stop;
# do some post-work here
print $p->report;
# `post-work' will not be timed
Stop is useless if you want to report time as soon as work is finished
like:
$p->restart;
# do some work here...
print $p->report;
* continue
Clears the stop mark. (mostly useless, perhaps you need to *restart*?)
* attr
Sets and returns internal values for attributes. Available attributes
are:
* min
This is the min value of the items that will follow (used to calculate
estimated finish time)
* max
This is the max value of all items in the even (also used to calculate
estimated finish time)
* format
This is the default *report* format. It is used if *report* is called
without parameters.
*attr* returns array of the set attributes:
my ( $new_min, $new_max ) = $p->attr( min => 1, max => 5 );
If you want just to get values use undef:
my $old_format = $p->attr( format => undef );
This way of handling attributes is a bit heavy but saves a lot of
attribute handling functions. *attr* will complain if you pass odd number
of parameters.
* report
*report* is the most complex method in this package. :)
expected arguments are:
$p->report( format, [current_item] );
_format_ is string that will be used for the result string. Recognized
special sequences are:
* %l
elapsed seconds
* %L
elapsed time in minutes in format MM:SS
* %e
remaining seconds
* %E
remaining time in minutes in format MM:SS
* %p
percentage done in format PPP.P%
* %f
estimated finish time in format returned by *localtime()*
* %b
* %B
progress bar which looks like:
##############......................
%b takes optional width:
%40b -- 40-chars wide bar
%9b -- 9-chars wide bar
%b -- 79-chars wide bar (default)
Parameters can be ommited and then default format set with *attr* will be
used.
Sequences 'L', 'l', 'E' and 'e' can have width also:
%10e
%5l
...
Estimate time calculations can be used only if min and max values are set
(see *attr* method) and current item is passed to *report*! if you want
to use the default format but still have estimates use it like this:
$p->format( undef, 45 );
If you don't give current item (step) or didn't set proper min/max value
then all estimate sequences will have value `n/a'.
You can freely mix reports during the same event.
* elapsed
* estimate
helpers -- return elapsed/estimate seconds.
* elapsed_str
* 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.
%prep %prep
%setup -q -n %{cpan_name}-%{version} %setup -q -n %{cpan_name}-%{version}