module-setup + github

以下のリンクを参考に初shipitできました。

Module::Setup + GitHub flavor - LAPISLAZULI HILL#Hatena

ちょっとだけはまったのが、同じくLWPのところで、LWP::Protocol::https が足りていませんでした。

#!perl
use LWP;
use Data::Dumper;

sub _system {
  my ($cmd) = @_;
  my $res = `$cmd`;
  chomp $res;
  return $res;
}

my %args = (
  login => _system("git config --get github.user"),
  token => _system("git config --get github.token"),
  name => _system("git config --get github.user"),
  description => 'test-repos',
  homepage => '',
);
print Dumper \%args;

my $ua = LWP::UserAgent->new(
  cookie_jar => +{},
);
my $res = $ua->post(
  'https://github.com/api/v2/json/repos/create' => \%args
);
print $res->status_line . "\n";

こんなことを書いてテストするとエラー内容がわかりますが、成功しちゃうとreposができちゃいますので後で削除してくださいね。