File Coverage

blib/lib/Mojo/Webqq/Message/XMLescape.pm

Criterion	Covered	Total	%
statement	6	12	50.0
branch	0	2	0.0
condition			n/a
subroutine	2	3	66.6
pod	0	1	0.0
total	8	18	44.4

#my %XML_ESCAPE_MAP = (
#    '&'  => '&',
#    '<'  => '<',
#    '>'  => '>',
#    '"'  => '"',
#    ''' => '\'',
#    ''' => '\'',
#    ' ' => ' ',
#    '\'  => "\\",
#);
use Encode ();
use Mojo::Util qw();
sub Mojo::Webqq::xmlescape_parse {
    my $self = shift;
    my $data = shift;
    return $data if not defined $data;
    $data=~s/ / /g;
    my $unicode_data = Mojo::Util::html_unescape(Encode::decode("utf8",$data));
    #my $newdata = Mojo::Util::html_unescape($data);
    #eval {
    #    if ($data =~ /\&/ or $newdata =~ /[><&]/) {
    #        $newdata = Encode::decode('utf8', $newdata);
    #        Encode::_utf8_off($newdata);
    #    }
    #};
    #return $newdata;
    #return $data;
    return Encode::encode("utf8",$unicode_data);
}
1;