From fbe3bb7a58f45c2ce7b8b7a607ee1b53ee1049ea Mon Sep 17 00:00:00 2001 From: Gabor Szabo Date: Fri, 18 May 2012 06:57:19 +0300 Subject: [PATCH] some POD cleanup , add standar prerequisites to Makefile.PL --- Changes | 1 + Makefile.PL | 19 ++++++++++++------- lib/Term/ProgressBar.pm | 36 +++++++++++++++--------------------- 3 files changed, 28 insertions(+), 28 deletions(-) diff --git a/Changes b/Changes index 0e46155..0c9a75e 100644 --- a/Changes +++ b/Changes @@ -5,6 +5,7 @@ Revision history for Perl extension Term-ProgressBar. - move content of BUGS to Changes - Remove the INSTALL and configure files, people should use the standard CPAN installation tools + - Add standard prerequisites to Makefile.PL 2.12 Wed May 16 12:47:16 2012 diff --git a/Makefile.PL b/Makefile.PL index e903731..c0bb712 100644 --- a/Makefile.PL +++ b/Makefile.PL @@ -5,13 +5,18 @@ use warnings; use ExtUtils::MakeMaker; WriteMakefile ( - NAME => 'Term-ProgressBar', + NAME => 'Term::ProgressBar', VERSION_FROM => 'lib/Term/ProgressBar.pm', - AUTHOR => 'Martyn J. Pearce ', -# ABSTRACT => 'provide a progress meter on a standard terminal', + ABSTRACT_FROM => 'lib/Term/ProgressBar.pm', + AUTHOR => 'Martyn J. Pearce', + LICENSE => 'perl', PREREQ_PM => { - 'Class::MethodMaker' => '1.02', - 'Term::ReadKey' => '2.14', + 'Class::MethodMaker' => '1.02', + 'Term::ReadKey' => '2.14', + + 'Carp' => 0, + 'Fatal' => 0, + 'POSIX' => 0, }, BUILD_REQUIRES => { 'Capture::Tiny' => '0.13', @@ -19,9 +24,9 @@ WriteMakefile ( 'Test::Exception' => '0.31', 'File::Temp' => 0, }, - META_MERGE => { + META_MERGE => { resources => { repository => 'https://github.com/szabgab/Term-ProgressBar', }, - }, + }, ); diff --git a/lib/Term/ProgressBar.pm b/lib/Term/ProgressBar.pm index a42a61a..f800aff 100644 --- a/lib/Term/ProgressBar.pm +++ b/lib/Term/ProgressBar.pm @@ -1,5 +1,3 @@ -# (X)Emacs mode: -*- cperl -*- - package Term::ProgressBar; #XXX TODO Redo original test with count=20 @@ -13,18 +11,18 @@ package Term::ProgressBar; # If name is wider than term, trim name # Don't update progress bar on new? -=head1 NAME +=head1 NAME Term::ProgressBar - provide a progress meter on a standard terminal -=head1 SYNOPSIS +=head1 SYNOPSIS use Term::ProgressBar; $progress = Term::ProgressBar->new ({count => $count}); $progress->update ($so_far); -=head1 DESCRIPTION +=head1 DESCRIPTION Term::ProgressBar provides a simple progress bar on the terminal, to let the user know that something is happening, roughly how much stuff has been done, @@ -254,7 +252,7 @@ use constant DEBUG => 0; use vars qw($PACKAGE $VERSION); $PACKAGE = 'Term-ProgressBar'; -$VERSION = '2.12'; +$VERSION = '2.13'; # ---------------------------------- # CLASS CONSTRUCTION @@ -496,7 +494,7 @@ sub init { } else { $config{bar_width} = $target; die "configured bar_width $config{bar_width} < 1" - if $config{bar_width} < 1; + if $config{bar_width} < 1; } } @@ -838,10 +836,10 @@ sub update { } } for ($self->{last_printed}) { - unless (defined and $_ eq $to_print) { - print $fh $to_print; - } - $_ = $to_print; + unless (defined and $_ eq $to_print) { + print $fh $to_print; + } + $_ = $to_print; } $next -= $self->offset; @@ -942,13 +940,9 @@ sub message { # ---------------------------------------------------------------------- -=head1 BUGS - -Z<> - =head1 REPORTING BUGS -Email the author. +via RT: L =head1 COMPATIBILITY @@ -958,22 +952,22 @@ Various other defaults are set to emulate version one (e.g., the major output character is '#', the bar width is set to 50 characters and the output filehandle is not treated as a terminal). This mode is deprecated. -=head1 AUTHOR +=head1 AUTHOR Martyn J. Pearce fluffy@cpan.org Significant contributions from Ed Avis, amongst others. +=head1 MAINTAINER + +Gabor Szabo L + =head1 COPYRIGHT Copyright (c) 2001, 2002, 2003, 2004, 2005 Martyn J. Pearce. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. -=head1 SEE ALSO - -Z<> - =cut 1; # keep require happy. -- 2.39.2