File Coverage

blib/lib/Net/SMS/VoipBuster.pm

Criterion	Covered	Total	%
statement	10	12	83.3
branch			n/a
condition			n/a
subroutine	4	4	100.0
pod			n/a
total	14	16	87.5

package Net::SMS::VoipBuster;

use strict;
use warnings;
use LWP::UserAgent;
use XML::XPath;
use XML::XPath::XMLParser;
use Carp;

our $VERSION = '0.04';

sub new {
    my $class    = shift;
    my $user     = shift;
    my $password = shift;

    croak("Please insert an user.")     unless ($user);
    croak("Please insert an password.") unless ($password);

    my $self     = bless {
        'user' => $user,
        'pass' => $password
    }, $class;

    return $self;
}

sub send {
    my $self = shift;
    my $msg  = shift;
    my $to   = shift;

    croak("Please insert an message.")           unless ($msg);
    croak("Please insert number to destination") unless($to);

    my $ua = LWP::UserAgent->new;
    #$ua->timeout(10);
    #$ua->env_proxy;

    my $send_url = $ua->get("https://www.voipbuster.com/myaccount/sendsms.php?username=$self->{'user'}&password=$self->{'pass'}&from=$self->{'user'}&to=$to&text=$msg");

    my $result = $send_url->content;

    $result =~ s/^(?:\s+)(.*)(?:\s+)$/$1/gm; # Thanks Manuel Silva ;)

    my $xp = XML::XPath->new( 'xml' => $result );
    my $nodeset = $xp->find('//result');

    my $check;
    foreach my $node ($nodeset->get_nodelist) {
        $check =  XML::XPath::XMLParser::as_string($node);
        $check =~ s/<[^>]*>//gs;

        if ($check) {
            return $self->{'success'} = 1;
        } else {
            my $error = {
                'error'    => $send_url->status_line,
                'is_error' => '1',
            };
            return $self->{'error'} = $error;
        }
    }
}

sub extra {
    my $self = shift;
    my $extra = "To my Mom. Maria Luisa Mesquista (1954 - 2007)";

    return $self->{'extra'} = $extra;
}

1;
__END__