File Coverage

blib/lib/SMS/Send/DeviceGsm.pm

Criterion	Covered	Total	%
statement	15	28	53.5
branch	0	6	0.0
condition	0	3	0.0
subroutine	5	8	62.5
pod	2	3	66.6
total	22	48	45.8

package SMS::Send::DeviceGsm;

use strict;
use warnings;
use base qw(SMS::Send::Driver);
use Device::Gsm;
use vars qw($VERSION);

$VERSION = '1.06';

sub new {
  my $package = shift;
  my %opts = @_;
  $opts{lc $_} = delete $opts{$_} for keys %opts;
  my $self = bless { }, $package;
  my $gsm = Device::Gsm->new( log => $self, ( $opts{_port} ? ( port => $opts{_port} ) : () ) );
  $self->{gsm} = $gsm;
  return $self if $gsm and $gsm->connect( ( $opts{_baudrate} ? ( baudrate => $opts{_baudrate} ) : () ) );
  return;
}

sub send_sms {
  my $self = shift;
  my %opts = @_;
  my $sent = $self->{gsm}->send_sms(
	content => $opts{text},
	recipient => $opts{to},
  );
  return $sent;
}

sub write {
  1;
}

1;
__END__