view release on metacpan or  search on metacpan

lib/App/gh/Command/Pullreq/Show.pm  view on Meta::CPAN

    #
    #    gh help pullreq show  # this doesn't work
    #
    if( 1 || $self->{with_diff} ) {
        print "=" x 78 . "\n";
        my $ua = LWP::UserAgent->new;
        $ua->timeout(10);
        $ua->env_proxy;
        my $res = $ua->get($pull->{patch_url});
        if ($res->is_success) {
            print $res->decoded_content;
        } else {
            warn $res->message;
        }
    }
}


1;