File Coverage

blib/lib/URI/Escape/JavaScript.pm

Criterion	Covered	Total	%
statement	27	27	100.0
branch			n/a
condition			n/a
subroutine	8	8	100.0
pod	2	2	100.0
total	37	37	100.0

package URI::Escape::JavaScript;

use strict;
use 5.8.1;
use warnings;
our $VERSION = '0.04';
use Encode qw(encode FB_PERLQQ);
use base qw(Exporter);
our @EXPORT    = qw(js_escape js_unescape);
our @EXPORT_OK = qw(escape unescape);

sub escape {
    my $string = shift;
    $string =~ s{([\x00-\x29\x2C\x3A-\x40\x5B-\x5E\x60\x7B-\x7F])}
                {'%' . uc(unpack('H2', $1))}eg; # XXX JavaScript compatible
    $string = encode('ascii', $string, sub { sprintf '%%u%04X', $_[0] });
    return $string;
}

sub unescape {
    my $escaped = shift;
    $escaped =~ s/%u([0-9a-f]{4})/chr(hex($1))/eig;
    $escaped =~ s/%([0-9a-f]{2})/chr(hex($1))/eig;
    return $escaped;
}

*js_escape   = \&escape;
*js_unescape = \&unescape;

1;
__END__