File Coverage

blib/lib/WWW/Gitea/Issue.pm

Criterion	Covered	Total	%
statement	27	47	57.4
branch	9	14	64.2
condition			n/a
subroutine	10	21	47.6
pod	17	17	100.0
total	63	99	63.6

package WWW::Gitea::Issue;

# ABSTRACT: Gitea issue 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 _owner {
    my ($self) = @_;
    return $self->owner if defined $self->owner;
    my $r = $self->data->{repository};
    return $r ? $r->{owner} : undef;
}

sub _repo {
    my ($self) = @_;
    return $self->repo if defined $self->repo;
    my $r = $self->data->{repository};
    return $r ? $r->{name} : undef;
}

sub id         { $_[0]->data->{id} }
sub number     { $_[0]->data->{number} }
sub title      { $_[0]->data->{title} }
sub body       { $_[0]->data->{body} }
sub state      { $_[0]->data->{state} }
sub html_url   { $_[0]->data->{html_url} }
sub created_at { $_[0]->data->{created_at} }
sub updated_at { $_[0]->data->{updated_at} }
sub comments_count { $_[0]->data->{comments} }
sub user_login { my $u = $_[0]->data->{user}; $u ? $u->{login} : undef }

sub label_names {
    my ($self) = @_;
    return [ map { $_->{name} } @{ $self->data->{labels} || [] } ];
}

sub assignee_logins {
    my ($self) = @_;
    return [ map { $_->{login} } @{ $self->data->{assignees} || [] } ];
}


sub refresh {
    my ($self) = @_;
    my $fresh = $self->_client->issues->get($self->_owner, $self->_repo, $self->number);
    $self->data($fresh->data);
    return $self;
}


sub edit {
    my ($self, %args) = @_;
    my $fresh = $self->_client->issues->edit(
        $self->_owner, $self->_repo, $self->number, %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 add_comment {
    my ($self, $body) = @_;
    return $self->_client->issues->create_comment(
        $self->_owner, $self->_repo, $self->number, $body);
}



1;

__END__