view release on metacpan or  search on metacpan

lib/App/MultiModule/Tasks/HTTPClient.pm  view on Meta::CPAN

sub message {
    my $self = shift;
    my $message = shift;
    my %args = @_;
    $self->debug('message', message => $message)
        if $self->{debug} > 5;
    my $url = $message->{http_url};
    my $timeout = $message->{http_timeout} || 30;
    POE::Component::Client::HTTP->spawn(
        Alias     => $url,
        Timeout   => $timeout,
    );
    my $response_handler = sub {
        my ($request_packet, $response_packet) = @_[ARG0, ARG1];
        my $request_object  = $request_packet->[0];
        my $response_object = $response_packet->[0];

        $message->{http_content} = $response_object->content;
        $message->{http_status_line} = $response_object->status_line;
        $message->{http_code} = $response_object->code;
        $message->{http_is_success} = $response_object->is_success;