File Coverage

blib/lib/WWW/Gitea/Label.pm

Criterion	Covered	Total	%
statement	6	21	28.5
branch			n/a
condition			n/a
subroutine	2	10	20.0
pod	8	8	100.0
total	16	39	41.0

package WWW::Gitea::Label;

# ABSTRACT: Gitea label 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 name        { $_[0]->data->{name} }
sub color       { $_[0]->data->{color} }
sub description { $_[0]->data->{description} }
sub url         { $_[0]->data->{url} }


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


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


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



1;

__END__