File Coverage

lib/Badger/Codec/HTML.pm

Criterion	Covered	Total	%
statement	25	32	78.1
branch	10	18	55.5
condition	1	3	33.3
subroutine	5	6	83.3
pod	3	3	100.0
total	44	62	70.9

#========================================================================
#
# Badger::Codec::HTML
#
# DESCRIPTION
#   Module for encoding (escaping) and decoding (unescaping) HTML
#
# AUTHOR
#   Andy Wardley  based on code extracted from
#   Lincoln Stein's CGI.pm module.
#
#========================================================================

package Badger::Codec::HTML;

use strict;
use warnings;
use Badger::Class
    version => 0.01,
    base    => 'Badger::Codec';

our $CHARSET = {
    'ISO-8859-1'   => \&fix_windows,
    'WINDOWS-1252' => \&fix_windows,
};

sub encode {
    my ($class, $html, $charset) = @_;
    my $filter;

    return undef unless defined($html);

    for ($html) {
        s/&/&/g;
        s/\"/"/g;
        s/>/>/g;
        s/
    }

    # pass resulting HTML through any corresponding filter for the
    # character set (if specified)
    if ($charset && ($filter = $CHARSET->{ $charset })) {
        $html = &$filter($html);
    }

    return $html;
}

sub decode {
    my ($class, $html) = @_;
    return undef unless defined($html);

    # Thanks to Randal Schwartz for the correct solution to this one.
    $html =~ s[ &(.*?); ] {
        local $_ = $1;
        /^amp$/i	   ? "&" :
        /^quot$/i	   ? '"' :
        /^gt$/i		   ? ">" :
        /^lt$/i		   ? "<" :
        /^#(\d+)$/	   ? chr($1) :
        /^#x([0-9a-f]+)$/i ? chr(hex($1)) :
        $_
    }gex;

    return $html;
}

sub fix_windows {
    my $html = shift;

    # work around bug in some inferior browsers
    for ($html) {
        s/'/'/g;
        s/\x8b/‹/g;
        s/\x9b/›/g;
    }
    return $html;
}

1;

__END__