/usr/local/CPAN/Convert-CharMap/Convert/CharMap/CharMapML.pm

• package Convert::CharMap::CharMapML
  • in
  • out
• EOF

package Convert::CharMap::CharMapML;
use 5.006;
use strict;
use warnings;
use XML::Simple;

our $VERSION = '0.10';

sub in {
    my $class = shift;
    return XMLin( +shift, keeproot => 1 );
}

sub out {
    my $class = shift;
    return XMLout(
        +shift,
        keeproot => 1,
        xmldecl  => '<?xml version="1.0" encoding="UTF-8" ?>' . "\n"
          . '<!DOCTYPE characterMapping SYSTEM "http://www.unicode.org/unicode/reports/tr22/CharacterMapping.dtd">'
    );
}

1;