File Coverage

blib/lib/WWW/Gitea/User.pm
Criterion Covered Total %
statement 6 16 37.5
branch n/a
condition n/a
subroutine 2 9 22.2
pod 7 7 100.0
total 15 32 46.8


line stmt bran cond sub pod time code
1             package WWW::Gitea::User;
2              
3             # ABSTRACT: Gitea user entity
4              
5 3     3   16 use Moo;
  3         5  
  3         12  
6 3     3   2163 use namespace::clean;
  3         48733  
  3         22  
7              
8              
9             has _client => (
10             is => 'ro',
11             required => 1,
12             weak_ref => 1,
13             init_arg => 'client',
14             );
15              
16             has data => (
17             is => 'rw',
18             required => 1,
19             );
20              
21              
22 0     0 1   sub id { $_[0]->data->{id} }
23 0     0 1   sub login { $_[0]->data->{login} }
24 0     0 1   sub full_name { $_[0]->data->{full_name} }
25 0     0 1   sub email { $_[0]->data->{email} }
26 0     0 1   sub avatar_url { $_[0]->data->{avatar_url} }
27 0     0 1   sub is_admin { $_[0]->data->{is_admin} }
28              
29              
30             sub refresh {
31 0     0 1   my ($self) = @_;
32 0           my $fresh = $self->_client->users->get($self->login);
33 0           $self->data($fresh->data);
34 0           return $self;
35             }
36              
37              
38              
39             1;
40              
41             __END__