pithub.pl

#!/usr/bin/env perl
use strict;
use warnings;
use utf8;
use lib "lib";
use Pithub;
use Data::Dumper;

my $token = $ENV{TOKEN} or die;

my $p = Pithub::Repos::Contents->new(
    user => 'shoichikaji',
    repo => 'dummy2',
    token => $token,
);

my $sha = do {
    my $r = $p->get(path => "README.md");
    $r->content->{sha};
};

my $r = $p->update(
    path => "README.md",
    data => {
        message => "from api update",
        content => "hogehoge",
        sha => $sha,
    }
);

print Dumper $r;
print Dumper $r->content;