- 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
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',
'Test::Exception' => '0.31',
'File::Temp' => 0,
},
- META_MERGE => {
+ META_MERGE => {
resources => {
repository => 'https://github.com/szabgab/Term-ProgressBar',
},
- },
+ },
);
-# (X)Emacs mode: -*- cperl -*-
-
package Term::ProgressBar;
#XXX TODO Redo original test with count=20
# 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,
use vars qw($PACKAGE $VERSION);
$PACKAGE = 'Term-ProgressBar';
-$VERSION = '2.12';
+$VERSION = '2.13';
# ----------------------------------
# CLASS CONSTRUCTION
} else {
$config{bar_width} = $target;
die "configured bar_width $config{bar_width} < 1"
- if $config{bar_width} < 1;
+ if $config{bar_width} < 1;
}
}
}
}
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;
# ----------------------------------------------------------------------
-=head1 BUGS
-
-Z<>
-
=head1 REPORTING BUGS
-Email the author.
+via RT: L<https://rt.cpan.org/Dist/Display.html?Name=Pipe>
=head1 COMPATIBILITY
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<http://szabgab.com/>
+
=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.