File Coverage

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

Criterion	Covered	Total	%
statement	27	93	29.0
branch	10	88	11.3
condition	5	8	62.5
subroutine	8	19	42.1
pod	11	11	100.0
total	61	219	27.8

package WWW::Gitea::API::Releases;

# ABSTRACT: Gitea repository releases API

use Moo;
use Carp qw(croak);
use WWW::Gitea::Release;
use WWW::Gitea::Attachment;
use namespace::clean;


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


has openapi_operations => (
    is      => 'lazy',
    builder => sub {
        return {
            'releases.list'        => { method => 'GET',    path => '/repos/{owner}/{repo}/releases' },
            'releases.create'      => { method => 'POST',   path => '/repos/{owner}/{repo}/releases' },
            'releases.get'         => { method => 'GET',    path => '/repos/{owner}/{repo}/releases/{id}' },
            'releases.get_by_tag'  => { method => 'GET',    path => '/repos/{owner}/{repo}/releases/tags/{tag}' },
            'releases.edit'        => { method => 'PATCH',  path => '/repos/{owner}/{repo}/releases/{id}' },
            'releases.delete'      => { method => 'DELETE', path => '/repos/{owner}/{repo}/releases/{id}' },
            'releases.list_assets'  => { method => 'GET',    path => '/repos/{owner}/{repo}/releases/{id}/assets' },
            'releases.create_asset' => { method => 'POST',   path => '/repos/{owner}/{repo}/releases/{id}/assets' },
            'releases.get_asset'    => { method => 'GET',    path => '/repos/{owner}/{repo}/releases/{id}/assets/{attachment_id}' },
            'releases.edit_asset'   => { method => 'PATCH',  path => '/repos/{owner}/{repo}/releases/{id}/assets/{attachment_id}' },
            'releases.delete_asset' => { method => 'DELETE', path => '/repos/{owner}/{repo}/releases/{id}/assets/{attachment_id}' },
        };
    },
);


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

sub _wrap {
    my ($self, $data, $owner, $repo) = @_;
    return WWW::Gitea::Release->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('releases.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 'tag_name required' unless defined $args{tag_name};
    my $data = $self->call_operation('releases.create',
        path => { owner => $owner, repo => $repo }, body => \%args);
    return $self->_wrap($data, $owner, $repo);
}


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


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


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


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


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

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


sub create_asset {
    my ($self, $owner, $repo, $id, %args) = @_;
    croak 'owner required' unless defined $owner;
    croak 'repo required'  unless defined $repo;
    croak 'id required'    unless defined $id;
    croak 'file or content required'
        unless defined $args{file} || defined $args{content};
    my %query = defined $args{name} ? (name => $args{name}) : ();
    my %upload = 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'));
    my $data = $self->call_operation('releases.create_asset',
        path => { owner => $owner, repo => $repo, id => $id },
        (%query ? (query => \%query) : ()),
        upload => \%upload);
    return $self->_wrap_asset($data);
}


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


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


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



1;

__END__