File Coverage

blib/lib/WWW/Gitea/Release.pm

Criterion	Covered	Total	%
statement	6	39	15.3
branch	0	2	0.0
condition			n/a
subroutine	2	22	9.0
pod	20	20	100.0
total	28	83	33.7

package WWW::Gitea::Release;

# ABSTRACT: Gitea release entity

use Moo;
use namespace::clean;


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

has data => (
    is       => 'rw',
    required => 1,
);


has owner => ( is => 'ro' );
has repo  => ( is => 'ro' );


sub id           { $_[0]->data->{id} }
sub tag_name     { $_[0]->data->{tag_name} }
sub name         { $_[0]->data->{name} }
sub body         { $_[0]->data->{body} }
sub draft        { $_[0]->data->{draft} }
sub prerelease   { $_[0]->data->{prerelease} }
sub html_url     { $_[0]->data->{html_url} }
sub tarball_url  { $_[0]->data->{tarball_url} }
sub zipball_url  { $_[0]->data->{zipball_url} }
sub created_at   { $_[0]->data->{created_at} }
sub published_at { $_[0]->data->{published_at} }
sub author_login { my $a = $_[0]->data->{author}; $a ? $a->{login} : undef }


sub refresh {
    my ($self) = @_;
    my $fresh = $self->_client->releases->get($self->owner, $self->repo, $self->id);
    $self->data($fresh->data);
    return $self;
}


sub edit {
    my ($self, %args) = @_;
    my $fresh = $self->_client->releases->edit(
        $self->owner, $self->repo, $self->id, %args);
    $self->data($fresh->data);
    return $self;
}


sub delete {
    my ($self) = @_;
    return $self->_client->releases->delete($self->owner, $self->repo, $self->id);
}


sub assets {
    my ($self, %query) = @_;
    return $self->_client->releases->assets(
        $self->owner, $self->repo, $self->id, %query);
}


sub create_asset {
    my ($self, %args) = @_;
    return $self->_client->releases->create_asset(
        $self->owner, $self->repo, $self->id, %args);
}


sub get_asset {
    my ($self, $attachment_id) = @_;
    return $self->_client->releases->get_asset(
        $self->owner, $self->repo, $self->id, $attachment_id);
}


sub edit_asset {
    my ($self, $attachment_id, %args) = @_;
    return $self->_client->releases->edit_asset(
        $self->owner, $self->repo, $self->id, $attachment_id, %args);
}


sub delete_asset {
    my ($self, $attachment_id) = @_;
    return $self->_client->releases->delete_asset(
        $self->owner, $self->repo, $self->id, $attachment_id);
}



1;

__END__