File Coverage

blib/lib/Template/Plugin/XML/Escape.pm

Criterion	Covered	Total	%
statement	15	25	60.0
branch			n/a
condition	0	3	0.0
subroutine	5	7	71.4
pod	0	2	0.0
total	20	37	54.0

package Template::Plugin::XML::Escape;
# $Id$

use 5.006001;
use strict;
use warnings;
use Template::Plugin::Filter;
use base 'Template::Plugin::Filter';

our $VERSION = '0.02';

our $NAME = 'xml_escape';

sub init {
    my $self = shift;
    $self->install_filter($self->{_ARGS}->[0] || $NAME);

    return $self;
}

sub filter {
    my ($self, $text, undef, $config) = @_;
    $text =~ s/&/&/go;
    $text =~ s/
    $text =~ s/>/>/go;
    $text =~ s/'/'/go;
    $text =~ s/"/"/go;
    return $text;
}

1;
__END__