File Coverage

blib/lib/WWW/Gitea/Role/OpenAPI.pm

Criterion	Covered	Total	%
statement	22	22	100.0
branch	9	12	75.0
condition	1	2	50.0
subroutine	6	6	100.0
pod	2	2	100.0
total	40	44	90.9

package WWW::Gitea::Role::OpenAPI;

# ABSTRACT: operationId-based dispatch against a cached operation table

use Moo::Role;
use Carp qw(croak);
use Log::Any qw($log);


requires 'client';
requires 'openapi_operations';

sub get_operation {
    my ($self, $operation_id) = @_;
    my $op = $self->openapi_operations->{$operation_id}
        or croak ref($self) . ": unknown operationId '$operation_id'";
    return $op;
}


sub _resolve_path {
    my ($self, $path, $params) = @_;
    $params ||= {};
    $path =~ s!\{([^}]+)\}!
        defined $params->{$1}
            ? $params->{$1}
            : croak "missing path parameter '$1' for $path"
    !ge;
    return $path;
}

sub call_operation {
    my ($self, $operation_id, %args) = @_;
    my $op = $self->get_operation($operation_id);
    my $path = $self->_resolve_path($op->{path}, $args{path});
    $log->debugf('Gitea op %s -> %s %s', $operation_id, $op->{method}, $path);
    return $self->client->request(
        $op->{method},
        $path,
        (defined $args{body}   ? (body   => $args{body})   : ()),
        (defined $args{query}  ? (query  => $args{query})  : ()),
        (defined $args{upload} ? (upload => $args{upload}) : ()),
        (defined $op->{content_type}
            ? (content_type => $op->{content_type}) : ()),
    );
}



1;

__END__