File Coverage

blib/lib/Mslm.pm

Criterion	Covered	Total	%
statement	17	58	29.3
branch			n/a
condition	0	14	0.0
subroutine	6	13	46.1
pod	7	7	100.0
total	30	92	32.6

package Mslm;

use 5.006;
use strict;
use warnings;
use Mslm::Common qw($default_base_url $default_user_agent $default_api_key DEFAULT_TIMEOUT);
use Mslm::EmailVerify;
use Mslm::OTP;

our $VERSION = '1.0';

sub new {
    my ( $class, $api_key, %opts ) = @_;
    my $self       = {};
    my $timeout    = $opts{timeout}    || DEFAULT_TIMEOUT;
    my $user_agent = $opts{user_agent} || $default_user_agent;
    my $base_url   = $opts{base_url}   || $default_base_url;
    my $access_key = $api_key          || $default_api_key;
    $self->{base_url}   = URI->new($base_url);
    $self->{api_key}    = $access_key;
    $self->{user_agent} = $user_agent;
    $self->{timeout} = $timeout;
    my $default_http_client = LWP::UserAgent->new;
    $default_http_client->ssl_opts( 'verify_hostname' => 0 );
    $default_http_client->default_headers(
        HTTP::Headers->new(
            Accept => 'application/json'
        )
    );
    $default_http_client->agent($user_agent);
    $default_http_client->timeout($timeout);
    $self->{http_client} = $opts{http_client} || $default_http_client;

    $self->{email_verify} = Mslm::EmailVerify->new(
        $self->{api_key},
        http_client => $self->{http_client},
        base_url    => $self->{base_url},
        user_agent  => $self->{user_agent},
        timeout     => $self->{timeout}
    );
    $self->{otp} = Mslm::OTP->new(
        $self->{api_key},
        http_client => $self->{http_client},
        base_url    => $self->{base_url},
        user_agent  => $self->{user_agent},
        timeout     => $self->{timeout}
    );

    bless $self, $class;
    return $self;
}

sub email_verify {
    my ($self) = @_;
    return $self->{email_verify};
}

sub otp {
    my ($self) = @_;
    return $self->{otp};
}

sub set_base_url {
    my ( $self, $base_url_str ) = @_;
    my $base_url = URI->new($base_url_str);
    $self->{base_url} = $base_url;
    $self->{email_verify}->set_base_url($base_url);
    $self->{otp}->set_base_url($base_url);
}

sub set_http_client {
    my ( $self, $http_client ) = @_;
    $self->{http_client} = $http_client;
    $self->{email_verify}->set_http_client($http_client);
    $self->{otp}->set_http_client($http_client);
}

sub set_user_agent {
    my ( $self, $user_agent ) = @_;
    $self->{user_agent} = $user_agent;
    $self->{email_verify}->set_user_agent($user_agent);
    $self->{otp}->set_user_agent($user_agent);
}

sub set_api_key {
    my ( $self, $api_key ) = @_;
    $self->{api_key} = $api_key;
    $self->{email_verify}->set_api_key($api_key);
    $self->{otp}->set_api_key($api_key);
}


1;
__END__