File Coverage

blib/lib/WWW/Gitea/Org.pm
Criterion Covered Total %
statement 6 22 27.2
branch n/a
condition 0 3 0.0
subroutine 2 13 15.3
pod 11 11 100.0
total 19 49 38.7


line stmt bran cond sub pod time code
1             package WWW::Gitea::Org;
2              
3             # ABSTRACT: Gitea organization entity
4              
5 3     3   18 use Moo;
  3         4  
  3         15  
6 3     3   919 use namespace::clean;
  3         4  
  3         17  
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 0 1   sub name { $_[0]->data->{name} // $_[0]->data->{username} }
24 0     0 1   sub full_name { $_[0]->data->{full_name} }
25 0     0 1   sub description { $_[0]->data->{description} }
26 0     0 1   sub avatar_url { $_[0]->data->{avatar_url} }
27 0     0 1   sub website { $_[0]->data->{website} }
28 0     0 1   sub location { $_[0]->data->{location} }
29 0     0 1   sub visibility { $_[0]->data->{visibility} }
30              
31              
32             sub refresh {
33 0     0 1   my ($self) = @_;
34 0           my $fresh = $self->_client->orgs->get($self->name);
35 0           $self->data($fresh->data);
36 0           return $self;
37             }
38              
39              
40             sub repos {
41 0     0 1   my ($self, %query) = @_;
42 0           return $self->_client->orgs->repos($self->name, %query);
43             }
44              
45              
46             sub delete {
47 0     0 1   my ($self) = @_;
48 0           return $self->_client->orgs->delete($self->name);
49             }
50              
51              
52              
53             1;
54              
55             __END__