y app_id/],
);
use Carp;
use Crypt::PK::RSA;
use Crypt::JWT qw/encode_jwt/;
use Furl;
use JSON qw/decode_json/;
use Time::Moment;
sub _lazy(&) {
return GitHub::Apps::Auth::Lazy->new($_[0]);
}
u
{
croak "fail to fetch installations: ". $resp->content;
}
my $content = decode_json $resp->content;
my %ids_by_account = map { $_->{account}{login} => $_->{id} } @$content;
Authorization => 'Bearer ' . $jwt,
Accept => "application/vnd.github.machine-man-preview+json",
];
}
sub _fetch_access_token {
my $self = shift;
my $installation_id = $self->ins