File Coverage

lib/MKDoc/XML/Decode/Numeric.pm

Criterion	Covered	Total	%
statement	6	14	42.8
branch	0	6	0.0
condition			n/a
subroutine	2	3	66.6
pod	0	1	0.0
total	8	24	33.3

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

sub process
{
    (@_ == 2) or warn "MKDoc::XML::Encode::process() should be called with two arguments";

    my $class = shift;

    my $stuff = shift;
    $stuff =~ s/^#// or return;

    # if hex, convert to hex
    $stuff =~ s/^\[xX]([0-9a-fA-F])+$/hex($1)/e;

    return unless ($stuff =~ /^\d+$/);
    return chr ($stuff);
}

1;

__END__