line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
1
|
|
|
|
|
|
|
# Sms::Token::DA - SMS DA (destination address) token |
2
|
|
|
|
|
|
|
# Copyright (C) 2002-2015 Cosimo Streppone, cosimo@cpan.org |
3
|
|
|
|
|
|
|
# |
4
|
|
|
|
|
|
|
# This program is free software; you can redistribute it and/or modify |
5
|
|
|
|
|
|
|
# it only under the terms of Perl itself. |
6
|
|
|
|
|
|
|
# |
7
|
|
|
|
|
|
|
# This program is distributed in the hope that it will be useful, |
8
|
|
|
|
|
|
|
# but WITHOUT ANY WARRANTY; without even the implied warranty of |
9
|
|
|
|
|
|
|
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
10
|
|
|
|
|
|
|
# Perl licensing terms for details. |
11
|
|
|
|
|
|
|
|
12
|
|
|
|
|
|
|
package Sms::Token::DA; |
13
|
1
|
|
|
1
|
|
3
|
use integer; |
|
1
|
|
|
|
|
1
|
|
|
1
|
|
|
|
|
3
|
|
14
|
1
|
|
|
1
|
|
21
|
use strict; |
|
1
|
|
|
|
|
0
|
|
|
1
|
|
|
|
|
14
|
|
15
|
1
|
|
|
1
|
|
329
|
use Device::Gsm::Sms::Token::OA; |
|
1
|
|
|
|
|
2
|
|
|
1
|
|
|
|
|
24
|
|
16
|
|
|
|
|
|
|
|
17
|
|
|
|
|
|
|
@Sms::Token::DA::ISA = ('Sms::Token::OA'); |
18
|
|
|
|
|
|
|
|
19
|
|
|
|
|
|
|
1; |