File Coverage

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

Criterion	Covered	Total	%
statement	22	37	59.4
branch	3	6	50.0
condition			n/a
subroutine	9	14	64.2
pod	6	6	100.0
total	40	63	63.4

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

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

sub _detect_request {
    my ($self, $image_url, %param) = @_;
    my %query = (
        returnFaceId         => defined $param{returnFaceId}         ? $param{returnFaceId} : 'true',
        returnFaceLandmarks  => defined $param{returnFaceLandmarks}  ? $param{returnFaceLandmarks} : 'false',
        returnFaceAttributes => defined $param{returnFaceAttributes} ? join(',', @{$param{returnFaceAttributes}}) : '',
    );
    $self->build_request(POST => ['detect', %query], undef, {url => $image_url});
}

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

sub _find_similar_request {
    my ($self, %param) = @_;
    $self->build_request(POST => ['findsimilars'], undef, {%param});
}

sub find_similar {
    my ($self, %param) = @_;
    my $req = $self->_find_similar_request(%param);
    $self->request($req);
}

sub _group_request {
    my ($self, %param) = @_;
    $self->build_request(POST => ['group'], undef, {%param});
}

sub group {
    my ($self, %param) = @_;
    my $req = $self->_group_request(%param);
    $self->request($req);
}

sub _identify_request {
    my ($self, %param) = @_;
    $self->build_request(POST => ['identify'], undef, {%param});
}

sub identify {
    my ($self, %param) = @_;
    my $req = $self->_identify_request(%param);
    $self->request($req);
}

sub _verify_request {
    my ($self, %param) = @_;
    $self->build_request(POST => ['verify'], undef, {%param});
}

sub verify {
    my ($self, %param) = @_;
    my $req = $self->_verify_request(%param);
    $self->request($req);
}

1;

__END__