File Coverage

blib/lib/SMS/Send/ClickSend.pm

Criterion	Covered	Total	%
statement	16	27	59.2
branch	0	4	0.0
condition			n/a
subroutine	6	8	75.0
pod	2	2	100.0
total	24	41	58.5

package SMS::Send::ClickSend;

use strict;
use 5.008_005;
our $VERSION = '0.01';

use SMS::Send::Driver ();
use SMS::ClickSend;

use vars qw{@ISA};
BEGIN {
    @ISA = 'SMS::Send::Driver';
}

sub new {
    my $pkg = shift;
    my %p = @_;
    my $self = bless \%p, $pkg;
    $self->{_clicksend} = SMS::ClickSend->new({
        username => $p{_username},
        api_key  => $p{_api_key}
    });
    return $self;
}

sub send_sms {
    my $self = shift;
    my %p = @_;

    $p{message} = delete $p{text};
    my $sms = $self->{_clicksend}->send(\%p) or return 0;

    return 0 unless $sms->{messages}->[0]->{result} eq '0000';
    return 1;
}

1;
__END__