NAME

Net::HTTP::Spore::Response - Portable HTTP Response object for SPORE response

VERSION

version 0.09

SYNOPSIS

    use Net:HTTP::Spore::Response;
    my $response = Net::HTTP::Spore::Response->new(
        200, ['Content-Type', 'application/json'], '{"foo":1}';
    );
    $response->request($request);

DESCRIPTION

Net::HTTP::Spore::Response create a HTTP response

METHODS

new

    my $res = Net::HTTP::Spore::Response->new;
    my $res = Net::HTTP::Spore::Response->new($status);
    my $res = Net::HTTP::Spore::Response->new($status, $headers);
    my $res = Net::HTTP::Spore::Response->new($status, $headers, $body);
    

Creates a new Net::HTTP::Spore::Response object.

code

status

    $res->status(200);
    my $status = $res->status;
    

Gets or sets the HTTP status of the response

env

   $res->env($env);
   my $env = $res->env;
    

Gets or sets the environment for the response. Shortcut to "$res->request->env"

content

body

    $res->body($body);
    my $body = $res->body;
    

Gets or sets the body for the response

raw_body

    my $raw_body = $res->raw_body
    

The raw_body value is the same as body when the body is sets for the first time.

content_type

    $res->content_type('application/json');
    my $ct = $res->content_type;
    

Gets or sets the content type of the response body

content_length

    $res->content_length(length($body));
    my $cl = $res->content_length;
    

Gets or sets the content type of the response body

location

    $res->location('http://example.com');
    my $location = $res->location;
    

Gets or sets the location header for the response

request

    $res->request($request);
    $request = $res->request;
    

Gets or sets the HTTP request that created the current HTTP response.

headers

    $headers = $res->headers;
    $res->headers(['Content-Type' => 'application/json']);
    

Gets or sets HTTP response headers.

header

    my $cl = $res->header('Content-Length');
    $res->header('Content-Type' => 'application/json');
    

Shortcut for "$res->headers->header".

finalise

    my $res = Net::HTTP::Response->new($status, $headers, $body);
    say "http status is ".$res->[0];
    

Return an arrayref:

AUTHORS

• Franck Cuny <franck.cuny@gmail.com>
• Ash Berlin <ash@cpan.org>
• Ahmad Fatoum <athreef@cpan.org>

COPYRIGHT AND LICENSE

This software is copyright (c) 2012 by Linkfluence.

This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself.