diff options
Diffstat (limited to 'lib/Business/OnlinePayment/PPIPayMover/URLEncoder.pm')
| -rw-r--r-- | lib/Business/OnlinePayment/PPIPayMover/URLEncoder.pm | 14 |
1 files changed, 14 insertions, 0 deletions
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;
+}
|