view release on metacpan or  search on metacpan

script/generate.pl  view on Meta::CPAN

my $authors = Acme::CPANAuthors->new('AnyEvent');
my %current = %$authors;
my $current = 0+keys %$authors;

my $cb = CPANPLUS::Backend->new();

my %dist;
my %author;
my %authors;
my %changes;

for my $mod ( $cb->search( type => 'name', allow => [ qr/AnyEvent/ ], verbose => 1 ) ) {
    ( my $distname = $mod->package ) =~ s{[\d_\.-]+\.tar\.gz$}{};
    $dist{$distname}++;
    my $aut = $mod->author->cpanid;
    $author{ $aut } = $mod->author->author;
    push @{ $authors{ $aut }{$distname} }, $mod->name;
}
push @{ $authors{ 'MART' }{'Danga-Socket-AnyEvent'} },'xx';

for my $aut (keys %authors) {
	if (exists $current{$aut}) {
		$author{$aut} ||= $current{$aut};
		delete $current{$aut};
	} else {
		push @{ $changes{'+'} }, $aut;
	}
}
push @{ $changes{'-'} }, keys %current if %current;

if (%changes) {
	warn "We have new authors: @{$changes{'+'}}\n" if exists $changes{'+'};
	warn "We lost authors: @{$changes{'-'}}\n" if exists $changes{'-'};
} else {
	warn "Nothing changed";
	exit;
}

#0+%authors != 

my $file = do { open my $f, '<', lib::abs::path('.').'/AnyEvent.tt'; local $/; <$f> };

my $reg = '';
my $pod = '';
my $ver = sprintf "%0.2f", $Acme::CPANAuthors::AnyEvent::VERSION + 0.01;