view release on metacpan or  search on metacpan

lib/CGI/PathInfo.pod  view on Meta::CPAN

 my $url_encoded_string = $path_info->url_encode($string);

=back

=over 4

=item url_decode($string);

Returns URL *decoding* of input string (%xx substitutions
are decoded to their actual values).

Example:

 my $url_decoded_string = $path_info->url_decode($string);

=back

=head1 BUGS

None known.

=head1 TODO

Extend build tests. Investigate ModPerl2 compatibility.

t/01_cgi-pathinfo.t  view on Meta::CPAN

    };
    if ($@ or (not $path_info)) {
        return 'failed instance constructor instatation'
    }

    eval {
        local $ENV{'PATH_INFO'};
        $path_info     = CGI::PathInfo->new;
        my @parms = $path_info->param;
        if (@parms > 0) {
            die ("mis-decoded undef PATH_INFO");
        }
    };
    if ($@ or (not $path_info)) {
        return "failed instance constructor instatation $@";
    }


    return '';
}

t/02_encodings.t  view on Meta::CPAN

        }
        if (0 < @failed_encoding_code_points) {
            return "failed to handle encoding " . join(' ',@failed_encoding_code_points); 
        }
    }

    my @failed_decoding_code_points = ();
    for (my $counter = 0; $counter < 256; $counter++) {
        my $encoded_char = $encoding_table[$counter];
        my $decoded_char = CGI::PathInfo->url_decode($encoded_char);
        unless (chr($counter) eq $decoded_char) {
            push (@failed_decoding_code_points, $encoded_char);
        }
    }
    unless (CGI::PathInfo->url_decode('+') eq '') {
        push (@failed_decoding_code_points, '+');
    }
    if (0 < @failed_encoding_code_points) {
        return "failed to handle decoding " . join(' ',@failed_decoding_code_points); 
    }