File Coverage

blib/lib/Opsview/REST/QueryBuilder.pm

Criterion	Covered	Total	%
statement	16	16	100.0
branch	2	2	100.0
condition	2	2	100.0
subroutine	5	5	100.0
pod	0	2	0.0
total	25	27	92.5

package Opsview::REST::QueryBuilder;
{
  $Opsview::REST::QueryBuilder::VERSION = '0.013';
}

use Moo::Role;
use URI;
use URI::QueryParam;

requires 'base';

has uri => (
    is      => 'ro',
    default => sub { URI->new; },
    handles => [qw/ as_string /],
);

has path => (
    is  => 'ro',
);

has args => (
    is  => 'ro',
    isa => sub { die '"args" must be a hashref' unless ref $_[0] eq 'HASH' },
);

sub BUILDARGS {
    my ($class, $path, @args) = @_;

    if (@_ == 1) {
        return {};
    } else {
        return {
            path => $path,
            args => { @args },
        };
    }
}

sub BUILD {
    my $self = shift;

    $self->uri->path($self->base . ($self->path || ''));
    $self->uri->query_form($self->args);
}

1;
__END__