view release on metacpan or  search on metacpan

lib/Net/UpYun.pm  view on Meta::CPAN

    push @$headers,'Date: '.$date;

    $curl->setopt(CURLOPT_HTTPHEADER,$headers);
    $curl->setopt(CURLOPT_URL,$self->api_domain.$uri);

    # write buffer
    my ($res_body, $res_head) = ('','');
    open (my $fh_body, ">", \$res_body);
    $curl->setopt(CURLOPT_WRITEDATA,$fh_body);
    open (my $fh_head, ">", \$res_head);
    $curl->setopt(CURLOPT_WRITEHEADER,$fh_head);
    my $retcode = $curl->perform();
    if ($retcode == 0) {
        # say $res_head ."\n".$res_body;
        my $res = HTTP::Response->parse($res_head . "\r" . $res_body);
        $res->content($res_body);
        $self->_response($res);
    }
    else {
        Carp::croak("An error happened: ".$curl->strerror($retcode)." ($retcode)".$curl->errbuf."\n");
    }