initial package

OBS-URL: https://build.opensuse.org/package/show/devel:languages:perl/perl-Time-Progress?expand=0&rev=1

.gitattributes

@@ -0,0 +1,23 @@
+## Default LFS
+*.7z filter=lfs diff=lfs merge=lfs -text
+*.bsp filter=lfs diff=lfs merge=lfs -text
+*.bz2 filter=lfs diff=lfs merge=lfs -text
+*.gem filter=lfs diff=lfs merge=lfs -text
+*.gz filter=lfs diff=lfs merge=lfs -text
+*.jar filter=lfs diff=lfs merge=lfs -text
+*.lz filter=lfs diff=lfs merge=lfs -text
+*.lzma filter=lfs diff=lfs merge=lfs -text
+*.obscpio filter=lfs diff=lfs merge=lfs -text
+*.oxt filter=lfs diff=lfs merge=lfs -text
+*.pdf filter=lfs diff=lfs merge=lfs -text
+*.png filter=lfs diff=lfs merge=lfs -text
+*.rpm filter=lfs diff=lfs merge=lfs -text
+*.tbz filter=lfs diff=lfs merge=lfs -text
+*.tbz2 filter=lfs diff=lfs merge=lfs -text
+*.tgz filter=lfs diff=lfs merge=lfs -text
+*.ttf filter=lfs diff=lfs merge=lfs -text
+*.txz filter=lfs diff=lfs merge=lfs -text
+*.whl filter=lfs diff=lfs merge=lfs -text
+*.xz filter=lfs diff=lfs merge=lfs -text
+*.zip filter=lfs diff=lfs merge=lfs -text
+*.zst filter=lfs diff=lfs merge=lfs -text

.gitignore

@@ -0,0 +1 @@
+.osc

Time-Progress-1.7.tar.gz

@@ -0,0 +1,3 @@
+version https://git-lfs.github.com/spec/v1
+oid sha256:7f823cfa9e294d3c45117ad2a82ef4830deb5689be6fe84fbd72cd37103b7a43
+size 4366

perl-Time-Progress.changes

@@ -0,0 +1,6 @@
+-------------------------------------------------------------------
+Wed Oct  5 14:33:28 UTC 2011 - coolo@suse.com
+
+- initial package 1.7
+    * created by cpanspec 1.78.06
+

perl-Time-Progress.spec

@@ -0,0 +1,225 @@
+#
+# spec file for package perl-Time-Progress
+#
+# Copyright (c) 2011 SUSE LINUX Products GmbH, Nuernberg, Germany.
+#
+# All modifications and additions to the file contributed by third parties
+# remain the property of their copyright owners, unless otherwise agreed
+# upon. The license for this file, and modifications and additions to the
+# file, is the same license as for the pristine package itself (unless the
+# license for the pristine package is not an Open Source License, in which
+# case the license is the MIT License). An "Open Source License" is a
+# license that conforms to the Open Source Definition (Version 1.9)
+# published by the Open Source Initiative.
+
+# Please submit bugfixes or comments via http://bugs.opensuse.org/
+#
+
+
+
+Name:           perl-Time-Progress
+Version:        1.7
+Release:        1
+License:        CHECK(GPL+ or Artistic)
+%define cpan_name Time-Progress
+Summary:        Elapsed and estimated finish time reporting.
+Url:            http://search.cpan.org/dist/Time-Progress/
+Group:          Development/Libraries/Perl
+Source:         http://www.cpan.org/authors/id/C/CA/CADE/%{cpan_name}-%{version}.tar.gz
+BuildArch:      noarch
+BuildRoot:      %{_tmppath}/%{name}-%{version}-build
+BuildRequires:  perl
+BuildRequires:  perl-macros
+%{perl_requires}
+
+%description
+Shortest time interval that can be measured is 1 second. The available
+methods are:
+
+* new
+
+    my $p = new Time::Progress;
+
+  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.
+
+* restart
+
+  restarts the timer and clears the stop mark. optionally restart() may act
+  also as attr() for setting attributes:
+
+    $p->restart( min => 1, max => 5 );
+
+  is the same as:
+
+    $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.
+
+%prep
+%setup -q -n %{cpan_name}-%{version}
+
+%build
+%{__perl} Makefile.PL INSTALLDIRS=vendor
+%{__make} %{?_smp_mflags}
+
+%check
+%{__make} test
+
+%install
+%perl_make_install
+%perl_process_packlist
+%perl_gen_filelist
+
+%files -f %{name}.files
+%defattr(-,root,root,755)
+%doc Changes README
+
+%changelog