File Coverage

blib/lib/TX/Escape.pm

Criterion	Covered	Total	%
statement	30	30	100.0
branch	6	10	60.0
condition			n/a
subroutine	7	7	100.0
pod	0	3	0.0
total	43	50	86.0

package TX::Escape;

use 5.008008;
use strict;
use warnings;
use Exporter 'import';

our @EXPORT_OK=qw(html_esc url_esc url_unesc);
our %EXPORT_TAGS=(all=>[@EXPORT_OK]);

our $VERSION='0.01';

{
  my %h=(
	 '"' => '"',
	 '<' => '<',
	 '>' => '>',
	 '&' => '&',
	 ' ' => ' ',
	 "\n" => '',
	);
  sub html_esc ($;$) {
    my ($s, $esc_space)=@_;
    return '' unless defined $s;
    if( $esc_space ) {
      $s=~s/([<>"& \n])/$h{$1}/ge;
    } else {
      $s=~s/([<>"&])/$h{$1}/ge;
    }
    return $s;
  }
}

sub url_esc ($) {
  my $v=shift;
  return '' unless defined $v;
  $v =~ s{([^A-Za-z0-9\-_.!~*'()/])}{sprintf("%%%02X",ord($1))}eg;
  return $v;
}

sub url_unesc ($) {
  my $v=shift;
  return '' unless defined $v;
  $v =~ s/%([0-9a-f]{2})|\+/defined $1 ? pack('H2', $1) : ' '/egi;
  return $v;
}

1;
__END__