view release on metacpan or  search on metacpan

Changes  view on Meta::CPAN

Revision history for Acme-ProgressBar

1.130     2022-12-31 19:38:40-05:00 America/New_York
        - update author contact info

1.129     2021-06-18 22:01:46-04:00 America/New_York
        - update author contact info
        - add perl-support section
        - happy juneteenth! (early)

1.128     2016-03-05 17:29:35-05:00 America/New_York
        - added a "see also" section to docs (thanks, Sean Zellmer)

1.127     2013-10-24 22:28:18 America/New_York
        - fix links to repo and issue tracker

1.126     2010-11-28 08:18:33 America/New_York
        - improve accuracy of timing to subsecond measurements

1.125     2009-01-16
        - packaging tweaks

1.124     2007-11-08
        - packaging tweaks

1.123     2007-10-31
        - packaging tweaks

t/00-report-prereqs.t  view on Meta::CPAN

}
else {
    $cpan_meta_error = $@;    # capture error from CPAN::Meta->load_file($source)
    $source = 'static metadata';
}

my @full_reports;
my @dep_errors;
my $req_hash = $HAS_CPAN_META ? $full_prereqs->as_string_hash : $full_prereqs;

# Add static includes into a fake section
for my $mod (@include) {
    $req_hash->{other}{modules}{$mod} = 0;
}

for my $phase ( qw(configure build test runtime develop other) ) {
    next unless $req_hash->{$phase};
    next if ($phase eq 'develop' and not $ENV{AUTHOR_TESTING});

    for my $type ( qw(requires recommends suggests conflicts modules) ) {
        next unless $req_hash->{$phase}{$type};

t/progbar.t  view on Meta::CPAN

use Test::More tests => 2;

use Acme::ProgressBar;
ok(progress { 1; },       "do-nothing progress bar");

# my $time = time;
ok(progress { sleep 1; } , "sleep(1) progress bar");
# my $taken = time - $time;
# ok($taken >= 10, "took at least ten seconds to run");
# ok($taken <= 20, "didn't run over ridiculously");