#!/home/ben/software/install/bin/perl
use warnings;
use strict;
use MetaCPAN::Client;
use Pithub;

use constant GH_USER  => '%%%%';
use constant GH_TOKEN => '####';

my $repos = Pithub::Repos->new (
    user  => GH_USER,
    token => GH_TOKEN,
);

my $me = '!!!!!';
my $mcpan = MetaCPAN::Client->new();
my $author = $mcpan->author ($me);
my $releases = $author->releases ();
while (my $release = $releases->next ()) {
    my $abstract = $release->abstract ();
    my $url = $release->metacpan_url ();
    my $resources = $release->resources ();
    my $github = $resources->{repository}{url};
    print "$abstract\n";
    $url =~ s!$me/!!;
    $url =~ s!-[0-9\.]+!!;
    print "$url\n";
    print "$github\n";
    my $repo = $github;
    $repo =~ s!.*/!!;
    my $result = $repos->update (
	repo => $repo,
	data => {
	    description => $abstract,
	    homepage => $url,
	},
    );
}