Term-ProgressBar-Quiet-0.31/0000755000175000017500000000000010727532705014264 5ustar acmeacmeTerm-ProgressBar-Quiet-0.31/MANIFEST0000644000175000017500000000027110727532705015415 0ustar acmeacmeCHANGES lib/Term/ProgressBar/Quiet.pm Makefile.PL MANIFEST This list of files README t/pod.t t/simple.t META.yml Module meta-data (added by MakeMaker) Term-ProgressBar-Quiet-0.31/t/0000755000175000017500000000000010727532705014527 5ustar acmeacmeTerm-ProgressBar-Quiet-0.31/t/simple.t0000644000175000017500000000060610727532646016213 0ustar acmeacme#!perl use strict; use warnings; use lib 'lib'; use Test::More tests => 1; use_ok('Term::ProgressBar::Quiet'); my @todo = ( 'x' x 10 ); my $progress = Term::ProgressBar::Quiet->new( { name => 'Todo', count => scalar(@todo), ETA => 'linear' } ); my $i = 0; foreach my $todo (@todo) { # do something with $todo $progress->update( ++$i ); } $progress->message('All done'); Term-ProgressBar-Quiet-0.31/t/pod.t0000644000175000017500000000021410727531214015465 0ustar acmeacme#!perl -T use Test::More; eval "use Test::Pod 1.14"; plan skip_all => "Test::Pod 1.14 required for testing POD" if $@; all_pod_files_ok(); Term-ProgressBar-Quiet-0.31/META.yml0000644000175000017500000000102610727532705015534 0ustar acmeacme--- #YAML:1.0 name: Term-ProgressBar-Quiet version: 0.31 abstract: ~ license: perl author: - Leon Brocard generated_by: ExtUtils::MakeMaker version 6.38 distribution_type: module requires: IO::Interactive: 0 Term::ProgressBar: 0 Test::MockObject: 0 Test::More: 0 meta-spec: url: http://module-build.sourceforge.net/META-spec-v1.3.html version: 1.3 Term-ProgressBar-Quiet-0.31/lib/0000755000175000017500000000000010727532705015032 5ustar acmeacmeTerm-ProgressBar-Quiet-0.31/lib/Term/0000755000175000017500000000000010727532705015741 5ustar acmeacmeTerm-ProgressBar-Quiet-0.31/lib/Term/ProgressBar/0000755000175000017500000000000010727532705020172 5ustar acmeacmeTerm-ProgressBar-Quiet-0.31/lib/Term/ProgressBar/Quiet.pm0000644000175000017500000000256710727532370021627 0ustar acmeacmepackage Term::ProgressBar::Quiet; use strict; use warnings; use IO::Interactive qw(is_interactive); use Term::ProgressBar; use Test::MockObject; our $VERSION = '0.31'; sub new { my $class = shift; if ( is_interactive ) { return Term::ProgressBar->new(@_); } else { my $mock = Test::MockObject->new(); $mock->set_true('update'); $mock->set_true('message'); return $mock; } } 1; __END__ =head1 NAME Term::ProgressBar::Quiet - Provide a progress meter if run interactively =head1 SYNOPSIS use Term::ProgressBar::Quiet; my @todo = ( 'x' x 10 ); my $progress = Term::ProgressBar::Quiet->new( { name => 'Todo', count => scalar(@todo), ETA => 'linear' } ); my $i = 0; foreach my $todo (@todo) { # do something with $todo $progress->update( ++$i ); } $progress->message('All done'); =head1 DESCRIPTION L is a wonderful module for showing progress bars on the terminal. This module acts very much like that module when it is run interactively. However, when it is not run interactively (for example, as a cron job) then it does not show the progress bar. =head1 AUTHOR Leon Brocard, acme@astray.com =head1 COPYRIGHT Copyright (c) 2007 Leon Brocard. All rights reserved. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. Term-ProgressBar-Quiet-0.31/CHANGES0000644000175000017500000000016210727532472015257 0ustar acmeacmeRevision history for Perl module Term::ProgressBar::Quiet: 0.31 Tue Dec 11 16:05:09 GMT 2007 - initial release Term-ProgressBar-Quiet-0.31/README0000644000175000017500000000173110727532421015141 0ustar acmeacmeNAME Term::ProgressBar::Quiet - Provide a progress meter if run interactively SYNOPSIS use Term::ProgressBar::Quiet; my @todo = ( 'x' x 10 ); my $progress = Term::ProgressBar::Quiet->new( { name => 'Todo', count => scalar(@todo), ETA => 'linear' } ); my $i = 0; foreach my $todo (@todo) { # do something with $todo $progress->update( ++$i ); } $progress->message('All done'); DESCRIPTION Term::ProgressBar is a wonderful module for showing progress bars on the terminal. This module acts very much like that module when it is run interactively. However, when it is not run interactively (for example, as a cron job) then it does not show the progress bar. AUTHOR Leon Brocard, acme@astray.com COPYRIGHT Copyright (c) 2007 Leon Brocard. All rights reserved. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. Term-ProgressBar-Quiet-0.31/Makefile.PL0000644000175000017500000000070510727527476016251 0ustar acmeacme#!perl use strict; use warnings; use ExtUtils::MakeMaker; WriteMakefile( NAME => 'Term::ProgressBar::Quiet', VERSION_FROM => 'lib/Term/ProgressBar/Quiet.pm', AUTHOR => 'Leon Brocard ', LICENSE => 'perl', PREREQ_PM => { 'Term::ProgressBar' => '0', 'IO::Interactive' => '0', 'Test::MockObject' => '0', 'Test::More' => '0', } );