File Coverage

blib/lib/ArangoDB2/HTTP.pm

Criterion	Covered	Total	%
statement	11	15	73.3
branch	0	2	0.0
condition			n/a
subroutine	4	6	66.6
pod	3	3	100.0
total	18	26	69.2

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__