File Coverage

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

Criterion	Covered	Total	%
statement	32	143	22.3
branch	7	136	5.1
condition	0	8	0.0
subroutine	9	27	33.3
pod	17	17	100.0
total	65	331	19.6

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 WWW::Gitea::Attachment;
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' },
            'issues.list_attachments'          => { method => 'GET',    path => '/repos/{owner}/{repo}/issues/{index}/assets' },
            'issues.create_attachment'         => { method => 'POST',   path => '/repos/{owner}/{repo}/issues/{index}/assets' },
            'issues.get_attachment'            => { method => 'GET',    path => '/repos/{owner}/{repo}/issues/{index}/assets/{attachment_id}' },
            'issues.edit_attachment'           => { method => 'PATCH',  path => '/repos/{owner}/{repo}/issues/{index}/assets/{attachment_id}' },
            'issues.delete_attachment'         => { method => 'DELETE', path => '/repos/{owner}/{repo}/issues/{index}/assets/{attachment_id}' },
            'issues.list_comment_attachments'  => { method => 'GET',    path => '/repos/{owner}/{repo}/issues/comments/{id}/assets' },
            'issues.create_comment_attachment' => { method => 'POST',   path => '/repos/{owner}/{repo}/issues/comments/{id}/assets' },
            'issues.get_comment_attachment'    => { method => 'GET',    path => '/repos/{owner}/{repo}/issues/comments/{id}/assets/{attachment_id}' },
            'issues.edit_comment_attachment'   => { method => 'PATCH',  path => '/repos/{owner}/{repo}/issues/comments/{id}/assets/{attachment_id}' },
            'issues.delete_comment_attachment' => { method => 'DELETE', path => '/repos/{owner}/{repo}/issues/comments/{id}/assets/{attachment_id}' },
        };
    },
);


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, %query) = @_;
    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 }, query => \%query);
    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);
}


sub _wrap_attachment {
    my ($self, $data) = @_;
    return WWW::Gitea::Attachment->new(client => $self->client, data => $data);
}

sub _build_upload {
    my ($self, %args) = @_;
    croak 'file or content required'
        unless defined $args{file} || defined $args{content};
    return defined $args{file}
        ? { field => 'attachment', file => $args{file},
            (defined $args{filename} ? (filename => $args{filename}) : ()) }
        : { field => 'attachment', content => $args{content},
            filename => ($args{filename} // $args{name} // 'attachment') };
}

# --- issue attachments ----------------------------------------------------

sub attachments {
    my ($self, $owner, $repo, $index, %query) = @_;
    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_attachments',
        path => { owner => $owner, repo => $repo, index => $index },
        query => \%query);
    return [ map { $self->_wrap_attachment($_) } @{ $data || [] } ];
}


sub create_attachment {
    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 $upload = $self->_build_upload(%args);
    my %query = defined $args{name} ? (name => $args{name}) : ();
    my $data = $self->call_operation('issues.create_attachment',
        path => { owner => $owner, repo => $repo, index => $index },
        (%query ? (query => \%query) : ()),
        upload => $upload);
    return $self->_wrap_attachment($data);
}


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


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


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


# --- comment attachments --------------------------------------------------

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


sub create_comment_attachment {
    my ($self, $owner, $repo, $comment_id, %args) = @_;
    croak 'owner required'      unless defined $owner;
    croak 'repo required'       unless defined $repo;
    croak 'comment_id required' unless defined $comment_id;
    my $upload = $self->_build_upload(%args);
    my %query = defined $args{name} ? (name => $args{name}) : ();
    my $data = $self->call_operation('issues.create_comment_attachment',
        path => { owner => $owner, repo => $repo, id => $comment_id },
        (%query ? (query => \%query) : ()),
        upload => $upload);
    return $self->_wrap_attachment($data);
}


sub get_comment_attachment {
    my ($self, $owner, $repo, $comment_id, $attachment_id) = @_;
    croak 'owner required'         unless defined $owner;
    croak 'repo required'          unless defined $repo;
    croak 'comment_id required'    unless defined $comment_id;
    croak 'attachment_id required' unless defined $attachment_id;
    my $data = $self->call_operation('issues.get_comment_attachment',
        path => { owner => $owner, repo => $repo, id => $comment_id,
            attachment_id => $attachment_id });
    return $self->_wrap_attachment($data);
}


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


sub delete_comment_attachment {
    my ($self, $owner, $repo, $comment_id, $attachment_id) = @_;
    croak 'owner required'         unless defined $owner;
    croak 'repo required'          unless defined $repo;
    croak 'comment_id required'    unless defined $comment_id;
    croak 'attachment_id required' unless defined $attachment_id;
    return $self->call_operation('issues.delete_comment_attachment',
        path => { owner => $owner, repo => $repo, id => $comment_id,
            attachment_id => $attachment_id });
}



1;

__END__