File Coverage

blib/lib/WWW/Gitea/Comment.pm

Criterion	Covered	Total	%
statement	6	13	46.1
branch	0	2	0.0
condition			n/a
subroutine	2	8	25.0
pod	6	6	100.0
total	14	29	48.2

package WWW::Gitea::Comment;

# ABSTRACT: Gitea issue/pull-request comment 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 body       { $_[0]->data->{body} }
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 }



1;

__END__