File Coverage

blib/lib/Device/Gsm/Sms/Structure.pm

Criterion	Covered	Total	%
statement	28	30	93.3
branch	4	8	50.0
condition			n/a
subroutine	8	8	100.0
pod	0	1	0.0
total	40	47	85.1

# Device::Gsm::Sms::Structure - SMS messages structure class
# Copyright (C) 2002-2015 Cosimo Streppone, [e-mail]
# Copyright (C) 2006-2015 Grzegorz Wozniak, [e-mail]
#
# This program is free software; you can redistribute it and/or modify
# it only under the terms of Perl itself.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
# Perl licensing terms for details.

package Device::Gsm::Sms;

use strict;
use integer;

use Device::Gsm::Sms;
use Device::Gsm::Sms::Token;

use Device::Gsm::Sms::Token::SCA;
use Device::Gsm::Sms::Token::PDUTYPE;
use Data::Dumper;

#
# Inspect structure of SMS
# This varies with sms type (deliver or submit)
#
sub structure {
    my $self = shift;
    my @struct;
    if ($self->type() == SMS_DELIVER) {
        if ($self->{'tokens'}->{'PDUTYPE'}->{'_UDHI'}) {
            @struct = qw/SCA PDUTYPE OA PID DCS SCTS UDH UD/;
        }
        else {

            # UD takes UDL + UD automatically
            @struct = qw/SCA PDUTYPE OA PID DCS SCTS UD/;
        }
    }
    elsif ($self->type() == SMS_SUBMIT) {
        @struct = qw/SCA PDUTYPE MR DA PID DCS VP UD/;
    }
    elsif ($self->type() == SMS_STATUS) {
        @struct = qw/SCA PDUTYPE MR DA SCTS DT ST/;
    }
    return @struct;
}

1;