view release on metacpan or  search on metacpan

t/distrolist.t  view on Meta::CPAN

my $distro_path_tmpl = 'authors/id/L/LO/LOCAL/Foo-Bar-%s.tar.gz';

my @fake_distro_uris;

my $cachedir = tempdir;

for ( '0.01', '0.02') {
    my $path = sprintf $distro_path_tmpl, $_;

    # uris
    my $uri  = $fakepan->endpoint;
    $uri->path($path);
    push @fake_distro_uris, $uri->as_string;

    # paths
    my $source = file($fakepan->dest, $path)->stringify;
    my $target = file($cachedir, file($path)->basename)->stringify;
    File::Copy::copy($source, $target) or die $!;
}

my ( $fh, $configfile ) = tempfile;