view release on metacpan or  search on metacpan

script/cpanurl  view on Meta::CPAN

sub req {
  my ($self, $method, $url, $body) = @_;
  
  my $lwp = $self->lwp;
  
  my $res;
  if ($lwp eq 'use' || $lwp eq 'auto' && eval { require LWP::UserAgent; LWP::UserAgent->VERSION(5.802) })
  {
    require LWP::UserAgent;
    require HTTP::Request;
    my $ua = LWP::UserAgent->new(
      parse_head => 0,
      env_proxy => 1,
      agent => "App::cpanurl/$VERSION",
      timeout => 30
    );
    my $r;
    if ($method eq 'post') {
      my $req = HTTP::Request->new('POST', $url);
      $req->header('Content-Type' => 'application/json');
      $req->content($body);
      $r = $ua->request($req);
    }
    else { $r = $ua->get($url) }
    
    $res->{success} = $r->is_success;
    $res->{status_line} = $r->status_line;
    $res->{content} = $r->content;
    $self->used_class('LWP::UserAgent');