7 use Getopt::Long 2.19 qw( GetOptions );
11 GetOptions ('debug' => \$DEBUG,
12 'prefix=s' => \$prefix,
14 or die "Options parsing failed";
16 warn "Building with perl: $^X\n";
18 use constant MOD_REQS =>
20 { name => 'Class::MethodMaker',
25 { name => 'Term::ReadKey',
27 package => 'TermReadKey',
32 use constant EXEC_REQS => [ ];
36 use constant NAME => 'Term-ProgressBar';
37 use constant VERSION_FROM =>
38 File::Spec->catfile(qw( lib Term ProgressBar.pm ));
39 use constant AUTHOR => 'Martyn J. Pearce ';
40 use constant ABSTRACT => 'provide a progress meter on a standard terminal';
41 sub PREFIX { $prefix }
43 use FindBin 1.42 qw( $Bin );