HTML::Widgets::NavMenu::EscapeHtml - provides a function to escape HTML.

HTML-Widgets-NavMenu documentation Contained in the HTML-Widgets-NavMenu distribution.

Index

Code Index:

NAME

Top

HTML::Widgets::NavMenu::EscapeHtml - provides a function to escape HTML.

SYNOPSIS

Top

    use HTML::Widgets::NavMenu::EscapeHtml;

    my $escaped_html = escape_html($html);

escape_html()

Escapes the HTML.

COPYRIGHT & LICENSE

Top

Copyright 2006 Shlomi Fish, all rights reserved.

This program is released under the following license: MIT X11.

HTML-Widgets-NavMenu documentation Contained in the HTML-Widgets-NavMenu distribution. 
package HTML::Widgets::NavMenu::EscapeHtml;

use strict;
use warnings;

use base qw(Exporter);

use vars qw(@EXPORT);


@EXPORT=(qw(escape_html));

sub escape_html
{
    my $string = shift;
    $string =~ s{&}{&}gso;
    $string =~ s{<}{&lt;}gso;
    $string =~ s{>}{&gt;}gso;
    $string =~ s{"}{&quot;}gso;
    return $string;
}


1;