File Coverage

blib/lib/WWW/Gitea/PullRequest.pm

Criterion	Covered	Total	%
statement	20	45	44.4
branch	8	18	44.4
condition			n/a
subroutine	8	23	34.7
pod	18	18	100.0
total	54	104	51.9

package WWW::Gitea::PullRequest;

# ABSTRACT: Gitea pull request 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 _base_repo { $_[0]->data->{base} ? $_[0]->data->{base}{repo} : undef }

sub _owner {
    my ($self) = @_;
    return $self->owner if defined $self->owner;
    my $r = $self->_base_repo or return undef;
    return $r->{owner} ? $r->{owner}{login} : undef;
}

sub _repo {
    my ($self) = @_;
    return $self->repo if defined $self->repo;
    my $r = $self->_base_repo or return undef;
    return $r->{name};
}

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 merged      { $_[0]->data->{merged} }
sub mergeable   { $_[0]->data->{mergeable} }
sub html_url    { $_[0]->data->{html_url} }
sub created_at  { $_[0]->data->{created_at} }
sub updated_at  { $_[0]->data->{updated_at} }
sub user_login  { my $u = $_[0]->data->{user}; $u ? $u->{login} : undef }
sub head_branch { my $h = $_[0]->data->{head}; $h ? $h->{ref} : undef }
sub base_branch { my $b = $_[0]->data->{base}; $b ? $b->{ref} : undef }


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


sub edit {
    my ($self, %args) = @_;
    my $fresh = $self->_client->pulls->edit(
        $self->_owner, $self->_repo, $self->number, %args);
    $self->data($fresh->data);
    return $self;
}


sub merge {
    my ($self, %args) = @_;
    return $self->_client->pulls->merge(
        $self->_owner, $self->_repo, $self->number, %args);
}


sub is_merged {
    my ($self) = @_;
    return $self->_client->pulls->is_merged(
        $self->_owner, $self->_repo, $self->number);
}


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



1;

__END__