The Perl and Raku Conference 2025: Greenville, South Carolina - June 27-29 Learn more
|
BEGIN {
our $VERSION = '0.03' ;
our @EXPORT_OK = qw[ url_encode
url_encode_utf8
url_decode
url_decode_utf8
url_params_each
url_params_flat
url_params_mixed
url_params_multi ] ;
our %EXPORT_TAGS = ( all => \ @EXPORT_OK );
my $use_pp = $ENV {URL_ENCODE_PP};
if (! $use_pp ) {
eval {
};
$use_pp = !!$@;
}
if ( $use_pp ) {
URL::Encode::PP-> import ( @EXPORT_OK );
}
else {
URL::Encode::XS-> import ( @EXPORT_OK );
}
*import = \ &Exporter::import ;
}
1;
|