Bio-Das-Lite
view release on metacpan or search on metacpan
lib/Bio/Das/Lite.pm view on Meta::CPAN
818819820821822823824825826827828829830831832833834835836837if
(
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 )