view release on metacpan or  search on metacpan

html.pm  view on Meta::CPAN

         script       => undef,
         style        => undef,
);

use base 'CGI::Untaint::object';

sub _untaint_re { qr/(.*)/ }

sub is_valid {
    my $self = shift;
    $self->value($sanitizer->filter_html_fragment($self->value));
}

1;
__END__
# Below is stub documentation for your module. You better edit it!

=head1 NAME

CGI::Untaint::html - validate sanitized HTML