File Coverage

blib/lib/SGML/DTDParse/Util.pm

Criterion	Covered	Total	%
statement	9	14	64.2
branch	0	2	0.0
condition			n/a
subroutine	3	4	75.0
pod	1	1	100.0
total	13	21	61.9

#
# $Id: Util.pm,v 2.2 2005/07/16 03:21:35 ehood Exp $

package SGML::DTDParse::Util;

use strict;
use vars qw($VERSION $CVS @ISA @EXPORT_OK %EXPORT_TAGS);
use Exporter;

$VERSION = do { my @r=(q$Revision: 2.2 $=~/\d+/g); sprintf "%d."."%03d"x$#r,@r };
$CVS = '$Id: Util.pm,v 2.2 2005/07/16 03:21:35 ehood Exp $ ';

@ISA = qw(Exporter);
@EXPORT_OK = qw(
    entify
);
%EXPORT_TAGS = (
    ALL => qw(
	entify
    ),
);

#############################################################################

sub entify {
    my $str = shift;
    return undef  unless defined($str);
    $str =~ s/([&<>"])/sprintf("&#x%X;",ord($1))/ge;
    $str;
}

#############################################################################
1;

__END__