view release on metacpan or  search on metacpan

lib/ArangoDB2/HTTP/LWP.pm  view on Meta::CPAN

    # we do not want to hold this reference if the
    # parent goes out of scope
    weaken $arango;
    # create new instance
    my $self = {
        arango => $arango,
    };
    bless($self, $class);

    $self->{lwp} = LWP::UserAgent->new(
        keep_alive => 1
    );

    # set authentication is username is specified
    if ($self->arango->username) {
        $self->lwp->default_headers->authorization_basic(
            $self->arango->username,
            $self->arango->password,
        );
    }