File Coverage

blib/lib/VoIPms.pm

Criterion	Covered	Total	%
statement	17	33	51.5
branch	0	4	0.0
condition	0	3	0.0
subroutine	6	8	75.0
pod	0	2	0.0
total	23	50	46.0

package VoIPms;

use 5.024001;
use strict;
use warnings;

use URI::Escape;
use WWW::Mechanize;
use JSON::XS;

sub new {
    my $type = shift;
    my %params = @_;
    if (!defined $params{api_username} || !defined $params{api_password}) {
        die "'new' requires your API username and password as the first and second argument";
    }
    if (!defined $params{mech}) {
        $params{mech} = WWW::Mechanize->new(autocheck => 1, cookie_jar => {}, agent => 'Mozilla/5.0 (Windows NT 6.1; WOW64; Trident/7.0; MDDRJS; rv:11.0) like Gecko');
    }
    my $self = { api_username => "$params{api_username}", api_password => "$params{api_password}", mechanize => $params{mech}, location => 'https://voip.ms/api/v1/rest.php' };
    bless $self;
}

sub response {

    my $self = shift;
    my %params = @_;

    my $get = $self->{location} .
        '?api_username=' . uri_escape($self->{api_username}) .
        '&api_password=' . uri_escape($self->{api_password});
    foreach my $key (keys(%params)) {
        $get .= '&' . $key . '=' . uri_escape($params{$key});
    }

    my $response = $self->{mechanize}->get($get)->content;

    my $json = JSON::XS->new;
    return $json->decode($response);

}

our @ISA = qw(Exporter);

our @EXPORT = qw( new response );

our $VERSION = '0.01';

1;

__END__