3 Script to give an overview about the contents of the build_dir/
5 Status: highly experimental, not intended to be ever brought into production
7 Todo: select data, filter on data
18 CPAN
::HandleConfig
->load();
19 my $bd = $CPAN::Config
->{build_dir
};
20 opendir my $dh, $bd or die "Could not opendir $bd\: $!";
22 for my $dirent (readdir $dh) {
23 next unless $dirent =~ /\.yml$/;
24 my $yaml = CPAN
->_yaml_loadfile("$bd/$dirent")->[0]; # XXX note: uses internal function
25 my(undef, undef, $author) = split m
|/|, $yaml->{distribution
}{ID
};
26 push @history, [$yaml->{time},
28 File
::Basename
::basename
($yaml->{distribution
}{build_dir
}),
31 for my $t (sort { $a->[0] <=> $b->[0] } @history) {
32 printf "%s %-9s %s\n", scalar localtime $t->[0], $t->[1], $t->[2];