Bivio::XML
# Copyright (c) 2009 bivio Software, Inc. All Rights Reserved. # $Id$ package Bivio::XML; use strict; use base 'Bivio::UNIVERSAL'; my($_MAP) = { '<' => 'lt', '>' => 'gt', '"' => 'quot', "'" => 'apos', '&' => 'amp', }; my($_CHARS) = join('\\', '', sort(keys(%$_MAP))); sub escape { my(undef, $value) = @_; return '' unless defined($value); $value =~ s{([$_CHARS])}{&$_MAP->{$1};}osg; return $value; } 1;