From d177cda5d1f99f5c163ee62861613bc02290d84f Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Tue, 4 Jul 2006 01:18:33 +0000
Subject: initial import

---
 lib/Business/OnlinePayment/PPIPayMover/URLEncoder.pm | 14 ++++++++++++++
 1 file changed, 14 insertions(+)
 create mode 100644 lib/Business/OnlinePayment/PPIPayMover/URLEncoder.pm

(limited to 'lib/Business/OnlinePayment/PPIPayMover/URLEncoder.pm')

diff --git a/lib/Business/OnlinePayment/PPIPayMover/URLEncoder.pm b/lib/Business/OnlinePayment/PPIPayMover/URLEncoder.pm
new file mode 100644
index 0000000..556b557
--- /dev/null
+++ b/lib/Business/OnlinePayment/PPIPayMover/URLEncoder.pm
@@ -0,0 +1,14 @@
+package Business::OnlinePayment::PPIPayMover::URLEncoder;
+require Exporter;
+@ISA = qw(Exporter);
+@EXPORT = qw(Encode);
+
+1;
+
+sub Encode {
+    #my $self = shift;
+    my $value = shift;
+
+    $value =~ s/([^a-zA-Z0-9_\-.])/uc sprintf("%%%02x",ord($1))/eg;
+    return $value;
+}
-- 
cgit v1.2.1