package HTML::Escape;
use strict;
use warnings;
use 5.008005;
our $VERSION = '1.10';
use parent qw/Exporter/;

my $use_xs = 0;
if(!exists $INC{'HTML/Escape/'}) {
    my $pp = $ENV{PERL_ONLY};
    if (!$pp) {
        eval {
            require XSLoader;
            XSLoader::load(__PACKAGE__, $VERSION);
            $use_xs = 1;
    if (!__PACKAGE__->can('escape_html')) {
        ## no critic.
        require 'HTML/Escape/' # not to create the namespace
sub USE_XS () { $use_xs }

our @EXPORT = qw/escape_html/;


=encoding utf8

=head1 NAME

HTML::Escape - Extremely fast HTML escaping


    use HTML::Escape qw/escape_html/;



This modules provides a function which escapes HTML's special characters. It
performs a similar function to PHP's htmlspecialchars.

This module uses XS for better performance, but it also provides a pure perl

=head1 FAQ

=over 4

=item Is there also an unescape_html?

No. Unescaping HTML requires a lot of code, and we don't want to do it.
Please use L<HTML::Entities> for it.



                     Rate HTML::Entities   HTML::Escape
    HTML::Entities 14.0/s             --           -91%
    HTML::Escape    150/s           975%             --

=head1 AUTHOR

Goro Fuji

Tokuhiro Matsuno E<lt>tokuhirom AAJKLFJEF@ GMAIL COME<gt>

=head1 SEE ALSO

L<Text::Xslate>, L<HTML::Entities>

=head1 LICENSE

Copyright (C) Tokuhiro Matsuno

This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.