lib/Business/OnlinePayment/PPIPayMover/URLEncoder.pm


1
2
3
4
5
6
7
8
9
10
11
12
13
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;
}