some POD cleanup , add standar prerequisites to Makefile.PL

diff --git a/Changes b/Changes
index 0e46155d758fbb46160fea449bea32029ea22a8e..0c9a75efd1846250823617bdf3444a4aa5b7a2c3 100644 (file)
--- 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
        - 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
     
 
 2.12 Wed May 16 12:47:16 2012

diff --git a/Makefile.PL b/Makefile.PL
index e903731a074f118f7acb40f880ab644cf88e040f..c0bb712932762d691a1c061fc93844ce53eb8971 100644 (file)
--- a/Makefile.PL
+++ b/Makefile.PL
@@ -5,13 +5,18 @@ use warnings;
 use ExtUtils::MakeMaker;
 
 WriteMakefile (
 use ExtUtils::MakeMaker;
 
 WriteMakefile (

-  NAME         => 'Term-ProgressBar',
+  NAME         => 'Term::ProgressBar',

   VERSION_FROM => 'lib/Term/ProgressBar.pm',
   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    => { 
   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',
   },
   BUILD_REQUIRES => {
                      'Capture::Tiny' => '0.13',


@@ -19,9 +24,9 @@ WriteMakefile (
                      'Test::Exception' => '0.31',
                      'File::Temp'    => 0,
   },
                      'Test::Exception' => '0.31',
                      'File::Temp'    => 0,
   },

-    META_MERGE        => {
+  META_MERGE        => {

        resources => {
            repository  =>  'https://github.com/szabgab/Term-ProgressBar',
        },
        resources => {
            repository  =>  'https://github.com/szabgab/Term-ProgressBar',
        },

-       },
+  },

 );
 );

diff --git a/lib/Term/ProgressBar.pm b/lib/Term/ProgressBar.pm
index a42a61abf91f561b1fa7b4b63f80de07b1c5b1b1..f800aff1ef0b8b0b597e17c3a246a46092fa099d 100644 (file)
--- 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
 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?
 
 #         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
 
 
 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);
 
 
   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,
 
 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';
 
 use vars qw($PACKAGE $VERSION);
 $PACKAGE = 'Term-ProgressBar';

-$VERSION = '2.12';
+$VERSION = '2.13';

 
 # ----------------------------------
 # CLASS CONSTRUCTION
 
 # ----------------------------------
 # CLASS CONSTRUCTION


@@ -496,7 +494,7 @@ sub init {
     } else {
       $config{bar_width}  = $target;
       die "configured bar_width $config{bar_width} < 1"
     } 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}) {
       }
     }
     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;
     }
 
     $next -= $self->offset;


@@ -942,13 +940,9 @@ sub message {
 
 # ----------------------------------------------------------------------
 
 
 # ----------------------------------------------------------------------
 

-=head1 BUGS
-
-Z<>
-

 =head1 REPORTING BUGS
 
 =head1 REPORTING BUGS
 

-Email the author.
+via RT: L<https://rt.cpan.org/Dist/Display.html?Name=Pipe>

 
 =head1 COMPATIBILITY
 
 
 =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.
 
 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.
 
 
 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 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.
 =cut
 
 1; # keep require happy.