File Coverage

blib/lib/Pithub/Issues/Milestones.pm
Criterion Covered Total %
statement 26 26 100.0
branch 10 10 100.0
condition n/a
subroutine 7 7 100.0
pod 5 5 100.0
total 48 48 100.0


line stmt bran cond sub pod time code
1             package Pithub::Issues::Milestones;
2             our $AUTHORITY = 'cpan:PLU';
3             our $VERSION = '0.01040';
4             # ABSTRACT: Github v3 Issue Milestones API
5              
6 17     17   105 use Moo;
  17         35  
  17         84  
7 17     17   4601 use Carp qw( croak );
  17         31  
  17         7276  
8             extends 'Pithub::Base';
9              
10              
11             sub create {
12 5     5 1 8642 my ( $self, %args ) = @_;
13 5 100       39 croak 'Missing key in parameters: data (hashref)' unless ref $args{data} eq 'HASH';
14 3         21 $self->_validate_user_repo_args( \%args );
15             return $self->request(
16             method => 'POST',
17 3         31 path => sprintf( '/repos/%s/%s/milestones', delete $args{user}, delete $args{repo} ),
18             %args,
19             );
20             }
21              
22              
23             sub delete {
24 4     4 1 3323 my ( $self, %args ) = @_;
25 4 100       40 croak 'Missing key in parameters: milestone_id' unless $args{milestone_id};
26 3         14 $self->_validate_user_repo_args( \%args );
27             return $self->request(
28             method => 'DELETE',
29 3         34 path => sprintf( '/repos/%s/%s/milestones/%s', delete $args{user}, delete $args{repo}, delete $args{milestone_id} ),
30             %args,
31             );
32             }
33              
34              
35             sub get {
36 3     3 1 2162 my ( $self, %args ) = @_;
37 3 100       26 croak 'Missing key in parameters: milestone_id' unless $args{milestone_id};
38 2         11 $self->_validate_user_repo_args( \%args );
39             return $self->request(
40             method => 'GET',
41 2         22 path => sprintf( '/repos/%s/%s/milestones/%s', delete $args{user}, delete $args{repo}, delete $args{milestone_id} ),
42             %args
43             );
44             }
45              
46              
47             sub list {
48 2     2 1 1324 my ( $self, %args ) = @_;
49 2         11 $self->_validate_user_repo_args( \%args );
50             return $self->request(
51             method => 'GET',
52 2         24 path => sprintf( '/repos/%s/%s/milestones', delete $args{user}, delete $args{repo} ),
53             %args,
54             );
55             }
56              
57              
58             sub update {
59 5     5 1 4031 my ( $self, %args ) = @_;
60 5 100       33 croak 'Missing key in parameters: milestone_id' unless $args{milestone_id};
61 4 100       21 croak 'Missing key in parameters: data (hashref)' unless ref $args{data} eq 'HASH';
62 3         16 $self->_validate_user_repo_args( \%args );
63             return $self->request(
64             method => 'PATCH',
65 3         29 path => sprintf( '/repos/%s/%s/milestones/%s', delete $args{user}, delete $args{repo}, delete $args{milestone_id} ),
66             %args,
67             );
68             }
69              
70             1;
71              
72             __END__