File Coverage

blib/lib/SMS/Send/CMTelecom.pm

Criterion	Covered	Total	%
statement	27	29	93.1
branch	6	14	42.8
condition			n/a
subroutine	7	7	100.0
pod	2	2	100.0
total	42	52	80.7

package SMS::Send::CMTelecom;

use strict;
use warnings;
use Carp;
use SMS::API::CMTelecom;

use base 'SMS::Send::Driver';

$SMS::Send::CMTelecom::VERSION = '0.04';

sub new {
    my ($class, %args) = @_;
    my $self = \%args;

    croak '_producttoken missing' if not exists $self->{_producttoken};

    $self->{_sms} = SMS::API::CMTelecom->new(
        product_token => $self->{_producttoken},
    );

    $self->{_verbose} = 0 unless exists $self->{_verbose};

    return bless $self, $class;
}

sub send_sms {
    my ($self, %args) = @_;

    # remove leading +
    ( my $recipient = $args{to} ) =~ s/^\+//;

    my $response = $self->{_sms}->send(
        message    => $args{text},
        recipients => $recipient,
        exists $args{reference} ? (reference => $args{reference}) : (),
        exists $args{_from}     ? (sender    => $args{_from})     : (),
    );

    if (defined $response) {
        warn "send_sms succeeded: ".$response->{messages}->[0]->{parts} if $args{_verbose};
        return 1;
    }
    warn "send_sms failed: ".$self->{_sms}->error_message if $args{_verbose};
    return 0;
}

1;

__END__