The Perl Toolchain Summit 2025 Needs You: You can help 🙏 Learn more

ZARABOZO / Perlmazing-2.0016 / lib / Perlmazing / Perlmazing / unescape_uri.pm 

            

              
1
2
3
4
5
6
7
8
9
10
11
12

              
use Perlmazing;
use URI::Escape;
our @ISA = qw(Perlmazing::Listable);
sub main {
        if (defined $_[0]) {
                $_[0] =~ s/\+/%20/g;
                $_[0] = uri_unescape($_[0]);
        }
}
1;