Bio-Das-Lite

 view release on metacpan or  search on metacpan

lib/Bio/Das/Lite.pm  view on Meta::CPAN

818
819
820
821
822
823
824
825
826
827
828
829
830
831
832
833
834
835
836
837
if (scalar @headers) {
    $curl->setopt( CURLOPT_HTTPHEADER, \@headers );
}
 
my ($body_ref, $head_ref);
open my $fileb, q[>], \$body_ref or croak 'Error opening data handle'; ## no critic (RequireBriefOpen)
$curl->setopt( CURLOPT_WRITEDATA, $fileb );
 
open my $fileh, q[>], \$head_ref or croak 'Error opening header handle'; ## no critic (RequireBriefOpen)
$curl->setopt( CURLOPT_WRITEHEADER, $fileh );
 
# we set this so we have the ref later on
$curl->setopt( CURLOPT_PRIVATE, $i );
$curl->setopt( CURLOPT_TIMEOUT, $self->timeout || $TIMEOUT );
#$curl->setopt( CURLOPT_CONNECTTIMEOUT, $self->connection_timeout || 2 );
 
$self->_fetch_proxy_setup($curl);
 
$curlm->add_handle($curl);



( run in 0.229 second using v1.01-cache-2.11-cpan-05444aca049 )