view release on metacpan or  search on metacpan

lib/CORION/Apache/Tika/Connection/LWP.pm  view on Meta::CPAN

               ? ('Content' => $content)
               : ()),
               @headers);
    my $res = $self->ua->$method( $url, %headers);
    
    my $p = deferred;
    my ( $code, $response ) = $self->process_response(
        $res->request,                      # request
        $res->code,    # code
        $res->message,    # msg
        $res->decoded_content,                        # body
        $res->headers                      # headers
    );
    $p->resolve( $code, $response );
    
    $p->promise
}

1;