File Coverage

blib/lib/WWW/ARDB/Request.pm

Criterion	Covered	Total	%
statement	31	31	100.0
branch	1	2	50.0
condition			n/a
subroutine	12	12	100.0
pod	6	6	100.0
total	50	51	98.0

package WWW::ARDB::Request;
our $AUTHORITY = 'cpan:GETTY';

# ABSTRACT: HTTP request factory for WWW::ARDB

use Moo;
use HTTP::Request;
use URI;
use namespace::clean;

our $VERSION = '0.002';

use constant BASE_URL => 'https://ardb.app/api';


sub items {
    my ($self, %params) = @_;
    return $self->_build_request('items', %params);
}


sub item {
    my ($self, $id, %params) = @_;
    return $self->_build_request("items/$id", %params);
}


sub quests {
    my ($self, %params) = @_;
    return $self->_build_request('quests', %params);
}


sub quest {
    my ($self, $id, %params) = @_;
    return $self->_build_request("quests/$id", %params);
}


sub arc_enemies {
    my ($self, %params) = @_;
    return $self->_build_request('arc-enemies', %params);
}


sub arc_enemy {
    my ($self, $id, %params) = @_;
    return $self->_build_request("arc-enemies/$id", %params);
}


sub _build_request {
    my ($self, $endpoint, %params) = @_;

    my $uri = URI->new(BASE_URL . '/' . $endpoint);
    $uri->query_form(%params) if %params;

    return HTTP::Request->new(
        GET => $uri->as_string,
        [
            'Accept' => 'application/json',
        ],
    );
}

1;

__END__