File Coverage

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

Criterion	Covered	Total	%
statement	32	32	100.0
branch	2	4	50.0
condition	1	3	33.3
subroutine	10	10	100.0
pod	2	2	100.0
total	47	51	92.1

package Net::Azure::CognitiveServices::Face;
use 5.008001;
use strict;
use warnings;
use Net::Azure::CognitiveServices::Face::Face;
use Net::Azure::CognitiveServices::Face::FaceList;
use Net::Azure::CognitiveServices::Face::Person;
use Net::Azure::CognitiveServices::Face::PersonGroup;

our $VERSION  = "0.02";
our $AUTOLOAD;
our $INSTANCES = {};
our $ACCESS_KEY;
our $ENDPOINT = 'https://westus.api.cognitive.microsoft.com';

sub access_key {
    my ($class, $key) = @_;
    if ($key) {
        $ACCESS_KEY = $key;
    }
    return $ACCESS_KEY;
}

sub endpoint {
    my ($class, $url) = @_;
    if ($url) {
        $ENDPOINT = $url;
    }
    return $ENDPOINT;
}

sub AUTOLOAD {
    my $class = shift;
    my $subclass = $AUTOLOAD;
    $INSTANCES->{$subclass} ||= $subclass->new(access_key => $ACCESS_KEY, endpoint => $ENDPOINT);
    $INSTANCES->{$subclass};
}

1;
__END__