File Coverage

blib/lib/WWW/Gitea/Repo.pm

Criterion	Covered	Total	%
statement	13	40	32.5
branch	1	2	50.0
condition			n/a
subroutine	7	24	29.1
pod	22	22	100.0
total	43	88	48.8

package WWW::Gitea::Repo;

# ABSTRACT: Gitea repository entity

use Moo;
use namespace::clean;


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

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


sub id          { $_[0]->data->{id} }
sub name        { $_[0]->data->{name} }
sub full_name   { $_[0]->data->{full_name} }
sub description { $_[0]->data->{description} }
sub private     { $_[0]->data->{private} }
sub fork        { $_[0]->data->{fork} }
sub html_url    { $_[0]->data->{html_url} }
sub clone_url   { $_[0]->data->{clone_url} }
sub ssh_url     { $_[0]->data->{ssh_url} }
sub default_branch    { $_[0]->data->{default_branch} }
sub stars_count       { $_[0]->data->{stars_count} }
sub forks_count       { $_[0]->data->{forks_count} }
sub open_issues_count { $_[0]->data->{open_issues_count} }

sub owner_login {
    my ($self) = @_;
    my $o = $self->data->{owner};
    return $o ? $o->{login} : undef;
}


sub refresh {
    my ($self) = @_;
    my $fresh = $self->_client->repos->get($self->owner_login, $self->name);
    $self->data($fresh->data);
    return $self;
}


sub delete {
    my ($self) = @_;
    return $self->_client->repos->delete($self->owner_login, $self->name);
}


sub issues {
    my ($self, %query) = @_;
    return $self->_client->issues->list($self->owner_login, $self->name, %query);
}


sub create_issue {
    my ($self, %args) = @_;
    return $self->_client->issues->create($self->owner_login, $self->name, %args);
}


sub pulls {
    my ($self, %query) = @_;
    return $self->_client->pulls->list($self->owner_login, $self->name, %query);
}


sub labels {
    my ($self) = @_;
    return $self->_client->labels->list($self->owner_login, $self->name);
}


sub milestones {
    my ($self, %query) = @_;
    return $self->_client->milestones->list($self->owner_login, $self->name, %query);
}


sub releases {
    my ($self, %query) = @_;
    return $self->_client->releases->list($self->owner_login, $self->name, %query);
}



1;

__END__