File Coverage

blib/lib/Net/Azure/CognitiveServices/Face/PersonGroup.pm
Criterion Covered Total %
statement 24 45 53.3
branch n/a
condition n/a
subroutine 11 18 61.1
pod 8 8 100.0
total 43 71 60.5


line stmt bran cond sub pod time code
1             package Net::Azure::CognitiveServices::Face::PersonGroup;
2 29     29   203 use strict;
  29         65  
  29         869  
3 29     29   202 use warnings;
  29         65  
  29         1163  
4 29     29   233 use base 'Net::Azure::CognitiveServices::Face::Base';
  29         79  
  29         19103  
5              
6 7     7 1 68 sub path {'/face/v1.0/persongroups'};
7              
8             sub _create_request {
9 1     1   926 my ($self, $person_group_id, %param) = @_;
10 1         11 $self->build_request(PUT => [$person_group_id], undef, {%param});
11             }
12              
13             sub create {
14 0     0 1 0 my ($self, $person_group_id, %param) = @_;
15 0         0 my $req = $self->_create_request($person_group_id, %param);
16 0         0 $self->request($req);
17             }
18              
19             sub _delete_request {
20 1     1   876 my ($self, $person_group_id) = @_;
21 1         8 $self->build_request(DELETE => [$person_group_id]);
22             }
23              
24             sub delete {
25 0     0 1 0 my ($self, $person_group_id) = @_;
26 0         0 my $req = $self->_delete_request($person_group_id);
27 0         0 $self->request($req);
28             }
29              
30             sub _get_request {
31 1     1   854 my ($self, $person_group_id) = @_;
32 1         8 $self->build_request(GET => [$person_group_id]);
33             }
34              
35             sub get {
36 0     0 1 0 my ($self, $person_group_id) = @_;
37 0         0 my $req = $self->_get_request($person_group_id);
38 0         0 $self->request($req);
39             }
40              
41             sub _training_status_request {
42 1     1   867 my ($self, $person_group_id) = @_;
43 1         9 $self->build_request(GET => ["$person_group_id/training"]);
44             }
45              
46             sub training_status {
47 0     0 1 0 my ($self, $person_group_id) = @_;
48 0         0 my $req = $self->_training_status_request($person_group_id);
49 0         0 $self->request($req);
50             }
51              
52             sub _list_request {
53 1     1   902 my ($self, %param) = @_;
54 1         10 $self->build_request(GET => [undef, %param]);
55             }
56              
57             sub list {
58 0     0 1 0 my ($self, %param) = @_;
59 0         0 my $req = $self->_list_request(%param);
60 0         0 $self->request($req);
61             }
62              
63             sub _train_request {
64 1     1   994 my ($self, $person_group_id) = @_;
65 1         11 $self->build_request(POST => ["$person_group_id/train"], undef, {body => ''});
66             }
67              
68             sub train {
69 0     0 1 0 my ($self, $person_group_id) = @_;
70 0         0 my $req = $self->_train_request($person_group_id);
71 0         0 $self->request($req);
72             }
73              
74             sub _update_request {
75 1     1   1056 my ($self, $person_group_id, %param) = @_;
76 1         13 $self->build_request(PATCH => [$person_group_id], undef, {%param});
77             }
78              
79             sub update {
80 0     0 1   my ($self, $person_group_id, %param) = @_;
81 0           my $req = $self->_update_request($person_group_id, %param);
82 0           $self->request($req);
83             }
84              
85             1;
86              
87             __END__