File Coverage

blib/lib/HTML/Template/ESCAPE/URL.pm

Criterion	Covered	Total	%
statement	19	19	100.0
branch	3	4	75.0
condition			n/a
subroutine	5	5	100.0
pod	0	1	0.0
total	27	29	93.1

package HTML::Template::ESCAPE::URL;
use strict;
use warnings FATAL => 'all';
use base qw(HTML::Template::ESCAPE);
use vars qw(%MAP);
our $VERSION = '2.9';

sub output {
  my $self = shift;
  $_ = shift if (@_ > 0);

  # Build a char->hex map if one isn't already available
  unless (exists($MAP{chr(1)})) {
    for (0..255) { $MAP{chr($_)} = sprintf('%%%02X', $_); }
  }

  # do the translation (RFC 2396 ^uric)
  s!([^a-zA-Z0-9_.\-])!$MAP{$1}!g;

  $_;
}

1;