CPAN::Groonga

ackage 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}

ey});
    }

    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

ms
API, as listed here: https://www.voip.ms/m/apidocs.php

Responses from VoIP.ms are provided as JSON but are decoded and
returned as pure Perl.

=head2 EXPORT

None.

=head1 HISTORY

=over 8

=item