File Coverage

blib/lib/Pithub/Users/Emails.pm
Criterion Covered Total %
statement 14 14 100.0
branch 4 4 100.0
condition n/a
subroutine 5 5 100.0
pod 3 3 100.0
total 26 26 100.0


line stmt bran cond sub pod time code
1             package Pithub::Users::Emails;
2             our $AUTHORITY = 'cpan:PLU';
3             our $VERSION = '0.01041';
4              
5             # ABSTRACT: Github v3 User Emails API
6              
7 16     16   111 use Moo;
  16         30  
  16         90  
8 16     16   4763 use Carp qw( croak );
  16         54  
  16         3888  
9             extends 'Pithub::Base';
10              
11              
12             sub add {
13 5     5 1 11231 my ( $self, %args ) = @_;
14             croak 'Missing key in parameters: data (arrayref)'
15 5 100       41 unless ref $args{data} eq 'ARRAY';
16 4         32 return $self->request(
17             method => 'POST',
18             path => '/user/emails',
19             %args,
20             );
21             }
22              
23              
24             sub delete {
25 5     5 1 5424 my ( $self, %args ) = @_;
26             croak 'Missing key in parameters: data (arrayref)'
27 5 100       36 unless ref $args{data} eq 'ARRAY';
28 4         25 return $self->request(
29             method => 'DELETE',
30             path => '/user/emails',
31             %args,
32             );
33             }
34              
35              
36             sub list {
37 3     3 1 2570 my ( $self, %args ) = @_;
38 3         29 return $self->request(
39             method => 'GET',
40             path => '/user/emails',
41             %args,
42             );
43             }
44              
45             1;
46              
47             __END__