File Coverage

blib/lib/HTTP/Tiny/FromHTTPRequest.pm

Criterion	Covered	Total	%
statement	37	37	100.0
branch	9	12	75.0
condition	5	6	83.3
subroutine	7	7	100.0
pod	1	1	100.0
total	59	63	93.6

package HTTP::Tiny::FromHTTPRequest;

# ABSTRACT: Perform a request based on a plain HTTP request or HTTP::Request object

use strict;
use warnings;

use parent 'HTTP::Tiny';

use Carp;
use Scalar::Util qw(blessed);
use HTTP::Request;

our $VERSION = '0.02';

sub request {
    my ($self, @params) = @_;

    local $Carp::Internal{ 'HTTP::Tiny::FromHTTPRequest' } = 1;

    (@_ >= 2 )
        or Carp::croak(q/Usage: $http->request(METHOD, URL, [HASHREF])/ . "\n");

    my @methods = qw(get head put post delete);
    if ( !ref $params[0] &&  grep{ lc $params[0] eq $_ }@methods ) {
        return $self->SUPER::request( @params );
    }

    my $request;
    if ( blessed $params[0] and $params[0]->isa('HTTP::Request') ) {
        $request = $params[0];
    }
    elsif ( ! ref $params[0] ) {
        $request = HTTP::Request->parse( $params[0] );
    }

    Carp::croak(q/Usage: $http->request(METHOD, URL, [HASHREF])/ . "\n") if !$request;

    my %options;

    # add headers
    $options{headers} = { $request->headers->flatten };
    delete $options{headers}->{Host};

    my $content = $request->content;
    if ( $content ) {
        $options{content} = $content;
    }

    return $self->SUPER::request(
        $request->method,
        $request->uri,
        \%options,
    );
};

1;

__END__