lib/Business/OnlinePayment/PPIPayMover/URLEncoder.pm

   1 package Business::OnlinePayment::PPIPayMover::URLEncoder;\r
   2 require Exporter;\r
   3 @ISA = qw(Exporter);\r
   4 @EXPORT = qw(Encode);\r
   5 \r
   6 1;\r
   7 \r
   8 sub Encode {\r
   9     #my $self = shift;\r
  10     my $value = shift;\r
  11 \r
  12     $value =~ s/([^a-zA-Z0-9_\-.])/uc sprintf("%%%02x",ord($1))/eg;\r
  13     return $value;\r
  14 }\r