File Coverage

blib/lib/Net/Azure/CognitiveServices/Face/FaceList.pm

Criterion	Covered	Total	%
statement	25	46	54.3
branch			n/a
condition	2	6	33.3
subroutine	11	18	61.1
pod	8	8	100.0
total	46	78	58.9

package Net::Azure::CognitiveServices::Face::FaceList;
use strict;
use warnings;
use base 'Net::Azure::CognitiveServices::Face::Base';

sub path {'/face/v1.0/facelists'};

sub _create_request {
    my ($self, $face_list_id, %param) = @_;
    my $body = {
        name     => $param{name}     || "$face_list_id",
        userData => $param{userData} || "$face_list_id",
    };
    $self->build_request(PUT => [$face_list_id], undef, $body);
}

sub create {
    my ($self, $face_list_id, %param) = @_;
    my $req = $self->_create_request($face_list_id, %param);
    $self->request($req);
}

sub _add_request {
    my ($self, $face_list_id, $image_url, %param) = @_;
    $self->build_request(POST => ["$face_list_id/persistedFaces", %param], undef, {url => $image_url});
}

sub add {
    my ($self, $face_list_id, $image_url, %param) = @_;
    my $req = $self->_add_request($face_list_id, $image_url, %param);
    $self->request($req);
}

sub _delete_request {
    my ($self, $face_list_id, $remove_face_id) = @_;
    $self->build_request(DELETE => ["$face_list_id/persistedFaces/$remove_face_id"]);
}

sub delete {
    my ($self, $face_list_id, $remove_face_id) = @_;
    my $req = $self->_delete_request($face_list_id, $remove_face_id);
    $self->request($req);
}

sub _flush_request {
    my ($self, $face_list_id) = @_;
    $self->build_request(DELETE => ["$face_list_id"]);
}

sub flush {
    my ($self, $face_list_id) = @_;
    my $req = $self->_flush_request($face_list_id);
    $self->request($req);
}

sub _get_request {
    my ($self, $face_list_id) = @_;
    $self->build_request(GET => ["$face_list_id"]);
}

sub get {
    my ($self, $face_list_id) = @_;
    my $req = $self->_get_request($face_list_id);
    $self->request($req);
}

sub _list_request {
    my ($self) = @_;
    $self->build_request('GET');
}

sub list {
    my ($self) = @_;
    my $req = $self->_list_request;
    $self->request($req);
}

sub _update_request {
    my ($self, $face_list_id, %param) = @_;
    $self->build_request(PATCH => ["$face_list_id"], undef, {%param});
}

sub update {
    my ($self, $face_list_id, %param) = @_;
    my $req = $self->_update_request($face_list_id);
    $self->request($req);
}

1;

__END__