CPAN::Groonga

package SMS::Send::Fr::OVH;

use strict;
use warnings;
use LWP::Simple qw(get);
use JSON        qw(from_json);
use Carp;

our $VERSION = '0.01';
use base 'SMS::Send::Driver';

use constant URL => 'htt

/http2sms.cgi?&account=%s&login=%s&password=%s&from=%s&to=%s&message="%s"&contentType=application/json';

=head1 NAME

SMS::Send::Fr::OVH - Perl driver for SMS::Send library.

=head1 SYNOPSIS

  use S

uments, $self->{ $arg };
    }

    #my $url = sprintf(URL, @arguments);
    #my $response = from_json(get($url));

    #unless ($response->{status} == 100) {
    #    Carp::croak($response->{message}