File Coverage

blib/lib/WWW/Gitea/Milestone.pm

Criterion	Covered	Total	%
statement	6	27	22.2
branch			n/a
condition			n/a
subroutine	2	14	14.2
pod	12	12	100.0
total	20	53	37.7

package WWW::Gitea::Milestone;

# ABSTRACT: Gitea milestone 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 title         { $_[0]->data->{title} }
sub description   { $_[0]->data->{description} }
sub state         { $_[0]->data->{state} }
sub due_on        { $_[0]->data->{due_on} }
sub open_issues   { $_[0]->data->{open_issues} }
sub closed_issues { $_[0]->data->{closed_issues} }


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


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


sub close {
    my ($self) = @_;
    return $self->edit(state => 'closed');
}


sub reopen {
    my ($self) = @_;
    return $self->edit(state => 'open');
}


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



1;

__END__