File Coverage

blib/lib/HTML/Mason/Escapes.pm

Criterion	Covered	Total	%
statement	25	25	100.0
branch	3	6	50.0
condition			n/a
subroutine	7	7	100.0
pod	3	3	100.0
total	38	41	92.6

# Copyright (c) 1998-2005 by Jonathan Swartz. All rights reserved.
# This program is free software; you can redistribute it and/or modify it
# under the same terms as Perl itself.

#
# A library of escape subroutines to be used for substitution escaping
#

package HTML::Mason::Escapes;
$HTML::Mason::Escapes::VERSION = '1.60';
use strict;
use warnings;

use HTML::Entities ();


my %html_escape = ('&' => '&', '>'=>'>', '<'=>'<', '"'=>'"');
my $html_escape = qr/([&<>"])/;

sub basic_html_escape
{
    return unless defined ${ $_[0] };

    ${ $_[0] } =~ s/$html_escape/$html_escape{$1}/mg;
}

sub html_entities_escape
{
    return unless defined ${ $_[0] };

    HTML::Entities::encode_entities( ${ $_[0] } );
}

sub url_escape
{
    return unless defined ${ $_[0] };

    use bytes;
    ${ $_[0] } =~ s/([^a-zA-Z0-9_.-])/uc sprintf("%%%02x",ord($1))/eg;
}


1;

__END__