File Coverage

blib/lib/WebService/Chroma/Tenant.pm

Criterion	Covered	Total	%
statement	12	12	100.0
branch			n/a
condition			n/a
subroutine	4	4	100.0
pod			n/a
total	16	16	100.0

package WebService::Chroma::Tenant;

use Moo;

use MooX::ValidateSubs;
use WebService::Chroma::DB;
use Types::Standard qw/Str ArrayRef HashRef/;

validate_subs (
	create_database => {
		params => {
			name => [Str]
		}
	},
	get_database => {
		params => {
			name => [Str]
		}
	}
);

has ua => (
	is => 'ro',
	required => 1,
);

has name => (
	is => 'ro',
	required => 1,
);

sub create_database {
	my ($self, %data) = @_;

	$self->ua->post(
		url => sprintf("/api/v2/tenants/%s/databases", $self->name),
		data => \%data
	);

	return $self->get_database(%data);
}

sub get_database {
	my ($self, %data) = @_;

	my $db = $self->ua->get(
		url => sprintf("/api/v2/tenants/%s/databases/%s", $self->name, $data{name}),
	);

	return WebService::Chroma::DB->new(
		ua => $self->ua,
		tenant => $self->name,
		%{$db}
	);
}

1;

__END__