view release on metacpan or  search on metacpan

lib/App/cpm/HTTP.pm  view on Meta::CPAN

        $backend = $try, last;
    }
    die "Couldn't find HTTP Clients that support https" if !$backend;

    my $http = $backend->new(
        agent => $agent,
        timeout => 60,
        verify_SSL => 1,
        %args,
    );
    my $keep_alive = exists $args{keep_alive} ? $args{keep_alive} : 1;
    if ($keep_alive and $backend =~ /LWP$/) {
        $http->{ua}->conn_cache({ total_capacity => 3 });
    }

    $wantarray ? ($http, "$tool $desc") : $http;
}

1;