File Coverage

blib/lib/ArangoDB2/HTTP.pm

Criterion	Covered	Total	%
statement	12	15	80.0
branch	0	2	0.0
condition			n/a
subroutine	5	6	83.3
pod	3	3	100.0
total	20	26	76.9

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 = shift;
    # for now use LWP client
    return ArangoDB2::HTTP::LWP->new(@_);
}

# 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__