view release on metacpan or  search on metacpan

lib/CPAN/Mirror/Tiny/CLI.pm  view on Meta::CPAN

    return $? == 0;
}

sub cmd_list {
    my $self = shift;
    return unless -d $self->{base};
    my ($index, @dist);
    my $wanted = sub {
        my $name = $_;
        return if !-f $name or $name =~ /\.json$/;
        my $stat = File::stat::stat($name);
        if ($name =~ /02packages.details.txt.gz$/) {
            $index = {name => $name, mtime => $stat->mtime, size => $stat->size};
        } else {
            push @dist, {name => $name, mtime => $stat->mtime, size => $stat->size};
        }
    };
    File::Find::find({wanted => $wanted, no_chdir => 1}, $self->{base});

    my $print = sub {
        printf "%s %8d %s\n",