Accepting request 328602 from devel:languages:perl:autoupdate
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
committed by
Git OBS Bridge
Git OBS Bridge
parent
22df95d36d
commit
178a668fe1
@@ -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
3
Time-Progress-2.0.tar.gz
Normal file
@@ -0,0 +1,3 @@
|
||||
version https://git-lfs.github.com/spec/v1
|
||||
oid sha256:52a1b78047cc2924f823684ddbadbf4964ce8ca95fbf89444736199cbfe507ab
|
||||
size 6952
|
||||
@@ -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
|
||||
|
||||
|
||||
@@ -17,7 +17,7 @@
|
||||
|
||||
|
||||
Name: perl-Time-Progress
|
||||
Version: 1.9
|
||||
Version: 2.0
|
||||
Release: 0
|
||||
%define cpan_name Time-Progress
|
||||
Summary: Elapsed and estimated finish time reporting
|
||||
@@ -34,175 +34,35 @@ BuildRequires: perl(Test::More) >= 0.88
|
||||
%{perl_requires}
|
||||
|
||||
%description
|
||||
Shortest time interval that can be measured is 1 second. The available
|
||||
methods are:
|
||||
This module displays progress information for long-running processes. This
|
||||
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
|
||||
default to percents range.
|
||||
* *
|
||||
Create an instance of 'Time::Progress', specifying min and max count
|
||||
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
|
||||
also as attr() for setting attributes:
|
||||
If you include a carriage return character (\r) in the format string, then
|
||||
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 );
|
||||
$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.
|
||||
The shortest time interval that can be measured is 1 second.
|
||||
|
||||
%prep
|
||||
%setup -q -n %{cpan_name}-%{version}
|
||||
|
||||
Reference in New Issue
Block a user