File Coverage

blib/lib/Net/SMS/ASPSMS/XML.pm

Criterion	Covered	Total	%
statement	49	50	98.0
branch	21	26	80.7
condition	5	9	55.5
subroutine	8	8	100.0
pod	0	3	0.0
total	83	96	86.4

package Net::SMS::ASPSMS::XML;

use warnings;
use strict;
use Carp;
#use Unicode::String qw(utf8);
use overload q("") => \&as_string;

our $VERSION = '1.0.2';

my @valid_tags = qw(
  Userkey AffiliateId Password Originator UsedCredits
  Recipient_PhoneNumber Recipient_TransRefNumber
  DeferredDeliveryTime LifeTime MessageData URLBinaryFile
  FlashingSMS BlinkingSMS MCC MNC
  URLBufferedMessageNotification URLDeliveryNotification
  URLNonDeliveryNotification TimeZone XSer BinaryFileDataHex
  TransRefNumber ReplaceMessage
  VCard_VName VCard_VPhoneNumber
  WAPPushDescription WAPPushURL OriginatorUnlockCode Action
);

my %valid_tags = ();
@valid_tags{map {lc($_), $_} @valid_tags} = @valid_tags;

sub new {
    my $this = shift;
    my $class = ref($this) || $this;
    my $self = {};
    bless $self, $class;
    $self->initialize(@_);
    return $self;
}

sub initialize {
    my $self = shift;
    my $arg = defined($_[0]) && ref($_[0]) eq 'HASH' ? $_[0] : {@_};
    foreach (keys %$arg) {
        if (exists $valid_tags{lc($_)}) {
            $self->{data}->{lc($_)} = $arg->{$_}
        }
    }
}

sub as_string {
    my $self = shift;
    my $encoding = shift;
    $encoding = "ISO-8859-1" if not defined $encoding;
    my $container = '';
    my $result = "\n";
    $result .= "\n";
    foreach (@valid_tags) {
        if (exists $self->{data}->{lc($_)}) {
            my ($c, $tag) = /^(.*)_(.*)/ ? ($1, $2) : ('', $_);
            my $content =  $self->{data}->{lc($_)};
            if ($c ne $container) {
                $result .= "  \n" if $container;
                $result .= "  <$c>\n" if $c;
                $container = $c;
            }
            #$content = utf8($content)->latin1;
            $content =~ s/([\x26\x3c\x3e\x80-\xff])/'&#' . ord($1) . ';'/xeg;
            $result .= "  " if $container;
            $result .= "  <$tag>" . $content . "\n";
        }
    }
    $result .= "  \n" if $container;
    $result .= "";
    return $result
}

sub AUTOLOAD {
    my $self = shift or return undef;
    (my $method = our $AUTOLOAD) =~ s{.*::}{};
    return if $method eq 'DESTROY';
    if (exists $valid_tags{lc($method)} and defined $_[0]) {
        $self->{data}->{lc($method)} = $_[0]
    } else {
        croak "unknown method $method\n"
    }
}

1;
__END__