File Coverage

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

Criterion	Covered	Total	%
statement	21	21	100.0
branch	1	2	50.0
condition			n/a
subroutine	6	6	100.0
pod	0	2	0.0
total	28	31	90.3

package HTML::Template::Compiled::Plugin::HTML2;

# ABSTRACT: Do not escape all HTML entities

use strict;
use warnings;

use HTML::Template::Compiled;
HTML::Template::Compiled->register(__PACKAGE__);

use HTML::Entities;

our $VERSION = '0.01';

sub register{
    my ($class) = @_;
    my %plugs   = (
        escape => {
            HTML_WITHOUT_NBSP => \&escape_html,
        },
    );

   return \%plugs;
}

sub escape_html {
    my ($str) = @_;

    return $str unless defined $str;

    $str = HTML::Entities::encode_entities( $str );
    $str =~ s! ! !g;
    $str =~ s!<br />!!g;

    #$str =~ s/&/&/g;
    #$str =~ s/"/"/g;
    #$str =~ s/'/'/g;
    #$str =~ s/>/>/g;
    #$str =~ s/

    return $str;
}

1;

__END__