File Coverage

lib/MKDoc/XML/Decode/XMLBase.pm

Criterion	Covered	Total	%
statement	10	10	100.0
branch			n/a
condition			n/a
subroutine	4	4	100.0
pod	0	2	0.0
total	14	16	87.5

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;