/usr/local/CPAN/MKDoc-XML/MKDoc/XML/Decode/XMLBase.pm

• package MKDoc::XML::Decode::XMLBase
  • process
  • module_name
• EOF

package MKDoc::XML::Decode::XMLBase;
use warnings;
use strict;

our %XML_Decode = (
    'amp'  => '&',
    'lt'   => '<',
    'gt'   => '>',
    'quot' => '"',
    'apos' => "'",
   );

sub process
{
    my $class = shift;
    my $stuff = shift;
    return $XML_Decode{$stuff};
}

sub module_name { 'xml' }

1;