File Coverage

blib/lib/Net/Trackback.pm

Criterion	Covered	Total	%
statement	12	21	57.1
branch	0	4	0.0
condition			n/a
subroutine	4	9	44.4
pod	5	5	100.0
total	21	39	53.8

# Copyright (c) 2003-2004 Timothy Appnel ([e-mail])
# http://www.timaoutloud.org/
# This code is released under the Artistic License.
package Net::Trackback;
use strict;
use base qw( Class::ErrorHandler Exporter );

use vars qw( @EXPORT_OK );
@EXPORT_OK = qw( encode_xml decode_xml );

use vars qw($VERSION);
$VERSION = 1.01;

my %Map = ('&' => '&', '"' => '"', '<' => '<', '>' => '>',
           '\'' => ''');
my %Map_Decode = reverse %Map;
$Map{'\''}=''';
my $RE = join '|', keys %Map;
my $RE_D = join '|', keys %Map_Decode;

sub encode_xml {
    return unless $_[1];
    (my $str = $_[1]) =~ s!($RE)!$Map{$1}!g;
    $str;
}

sub decode_xml {
    return unless $_[1];
    (my $str = $_[1]) =~ s!($RE_D)!$Map_Decode{$1}!g;
    $str;
}


#--- deprecated
sub is_message { ref($_[1]) eq 'Net::Trackback::Message' }
sub is_ping { ref($_[1]) eq 'Net::Trackback::Ping' }
sub is_data { ref($_[1]) eq 'Net::Trackback::Data' }

1;

__END__