File Coverage

blib/lib/WWW/Gitea/API/Issues.pm

Criterion	Covered	Total	%
statement	16	63	25.4
branch	0	46	0.0
condition			n/a
subroutine	6	14	42.8
pod	7	7	100.0
total	29	130	22.3

package WWW::Gitea::API::Issues;

# ABSTRACT: Gitea issues API (issues and issue comments)

use Moo;
use Carp qw(croak);
use WWW::Gitea::Issue;
use WWW::Gitea::Comment;
use namespace::clean;


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


has openapi_operations => (
    is      => 'lazy',
    builder => sub {
        return {
            'issues.list'           => { method => 'GET',   path => '/repos/{owner}/{repo}/issues' },
            'issues.create'         => { method => 'POST',  path => '/repos/{owner}/{repo}/issues' },
            'issues.get'            => { method => 'GET',   path => '/repos/{owner}/{repo}/issues/{index}' },
            'issues.edit'           => { method => 'PATCH', path => '/repos/{owner}/{repo}/issues/{index}' },
            'issues.search'         => { method => 'GET',   path => '/repos/issues/search' },
            'issues.list_comments'  => { method => 'GET',   path => '/repos/{owner}/{repo}/issues/{index}/comments' },
            'issues.create_comment' => { method => 'POST',  path => '/repos/{owner}/{repo}/issues/{index}/comments' },
        };
    },
);


with 'WWW::Gitea::Role::OpenAPI';

sub _wrap {
    my ($self, $data, $owner, $repo) = @_;
    return WWW::Gitea::Issue->new(
        client => $self->client,
        data   => $data,
        (defined $owner ? (owner => $owner) : ()),
        (defined $repo  ? (repo  => $repo)  : ()),
    );
}

sub list {
    my ($self, $owner, $repo, %query) = @_;
    croak 'owner required' unless defined $owner;
    croak 'repo required'  unless defined $repo;
    my $data = $self->call_operation('issues.list',
        path => { owner => $owner, repo => $repo }, query => \%query);
    return [ map { $self->_wrap($_, $owner, $repo) } @{ $data || [] } ];
}


sub create {
    my ($self, $owner, $repo, %args) = @_;
    croak 'owner required' unless defined $owner;
    croak 'repo required'  unless defined $repo;
    croak 'title required' unless defined $args{title};
    my $data = $self->call_operation('issues.create',
        path => { owner => $owner, repo => $repo }, body => \%args);
    return $self->_wrap($data, $owner, $repo);
}


sub get {
    my ($self, $owner, $repo, $index) = @_;
    croak 'owner required' unless defined $owner;
    croak 'repo required'  unless defined $repo;
    croak 'index required' unless defined $index;
    my $data = $self->call_operation('issues.get',
        path => { owner => $owner, repo => $repo, index => $index });
    return $self->_wrap($data, $owner, $repo);
}


sub edit {
    my ($self, $owner, $repo, $index, %args) = @_;
    croak 'owner required' unless defined $owner;
    croak 'repo required'  unless defined $repo;
    croak 'index required' unless defined $index;
    my $data = $self->call_operation('issues.edit',
        path => { owner => $owner, repo => $repo, index => $index },
        body => \%args);
    return $self->_wrap($data, $owner, $repo);
}


sub search {
    my ($self, %query) = @_;
    my $data = $self->call_operation('issues.search', query => \%query);
    return [ map { $self->_wrap($_) } @{ $data || [] } ];
}


sub comments {
    my ($self, $owner, $repo, $index) = @_;
    croak 'owner required' unless defined $owner;
    croak 'repo required'  unless defined $repo;
    croak 'index required' unless defined $index;
    my $data = $self->call_operation('issues.list_comments',
        path => { owner => $owner, repo => $repo, index => $index });
    return [ map {
        WWW::Gitea::Comment->new(client => $self->client, data => $_)
    } @{ $data || [] } ];
}


sub create_comment {
    my ($self, $owner, $repo, $index, $body) = @_;
    croak 'owner required' unless defined $owner;
    croak 'repo required'  unless defined $repo;
    croak 'index required' unless defined $index;
    croak 'body required'  unless defined $body;
    my $data = $self->call_operation('issues.create_comment',
        path => { owner => $owner, repo => $repo, index => $index },
        body => { body => $body });
    return WWW::Gitea::Comment->new(client => $self->client, data => $data);
}



1;

__END__