File Coverage

blib/lib/HTML/Template/Compiled/Plugin/XMLEscape.pm

Criterion	Covered	Total	%
statement	29	29	100.0
branch	2	4	50.0
condition			n/a
subroutine	7	7	100.0
pod	3	3	100.0
total	41	43	95.3

package HTML::Template::Compiled::Plugin::XMLEscape;
use strict;
use warnings;
use Carp qw(croak carp);
use HTML::Template::Compiled;
HTML::Template::Compiled->register(__PACKAGE__);
our $VERSION = '1.002_001'; # TRIAL VERSION

sub register {
    my ($class) = @_;
    my %plugs = (
        escape => {
            #
            XML => \&escape_xml,
            XML_ATTR => 'HTML::Template::Compiled::Plugin::XMLEscape::escape_xml_attr',
        },
    );
    return \%plugs;
}

sub escape_xml {
    defined( my $escaped = $_[0] ) or return;
    $escaped =~ s/&/&/g;
    $escaped =~ s/
    $escaped =~ s/>/>/g;
    $escaped =~ s/"/"/g;
    $escaped =~ s/'/'/g;
    return $escaped;
}

sub escape_xml_attr {
    defined( my $escaped = $_[0] ) or return;
    $escaped =~ s/&/&/g;
    $escaped =~ s/
    $escaped =~ s/>/>/g;
    $escaped =~ s/"/"/g;
    $escaped =~ s/'/'/g;
    return $escaped;
}

1;

__END__