File Coverage

blib/lib/ArangoDB2/HTTP.pm

Criterion	Covered	Total	%
statement	16	25	64.0
branch	2	10	20.0
condition			n/a
subroutine	5	6	83.3
pod	3	3	100.0
total	26	44	59.0

package ArangoDB2::HTTP;

use strict;
use warnings;

use ArangoDB2::HTTP::LWP;



# new
#
# create new ArangoDB2::HTTP instance which will always be
# one of the sub-classes of ArangoDB2::HTTP which implements
# a particular HTTP client
sub new
{
    my($self, $arango) = @_;

    # see if specific http client is set
    if (my $http_client = $arango->http_client) {
        if ($http_client eq 'lwp') {
            return ArangoDB2::HTTP::LWP->new($arango);
        }
        elsif ($http_client eq 'curl') {
            require ArangoDB2::HTTP::Curl;
            return ArangoDB2::HTTP::Curl->new($arango);
        }
    }

    # if no client was set then use curl if possible
    # and if not fall back to LWP
    my $curl = eval { require WWW::Curl::Easy };

    if ($curl) {
        require ArangoDB2::HTTP::Curl;
        return ArangoDB2::HTTP::Curl->new($arango);
    }
    else {
        # for now use lwp client
        return ArangoDB2::HTTP::LWP->new($arango);
    }
}

# arango
#
# ArangoDB2 instance
sub arango { $_[0]->{arango} }

# error
#
# get/set last error (HTTP status) code
sub error
{
    my($self, $error) = @_;

    $self->{error} = $error
        if defined $error;

    return $self->{error};
}

1;

__END__