unit package URI::Query::FromHash:auth<zef:raku-land>:ver<0.0.1>;

my regex reserved { < [ ; / * ' ! ? : @ & = + , $ \[ \] ( ) % \\                        ]> }
my regex    other { <-[ ; / * ' ! ? : @ & = + , $ \[ \] ( ) % \\ _ . ~ A..Z a..z 0..9 - ]> }

my %escapes = BEGIN (^256).map: {
    .&chr ~~ /<[ . ~ A..Z a..z 0..9 - ]>/
        ?? Empty !! .&chr => .fmt: '%%%02X';
}

my sub escape ( $_, &class = &reserved --> Str ) {
    return '' unless .defined;
    .Str.subst( :g, /<&class>/, { .encode».&{ %escapes{$_} // .fmt: '%%%02X' }.join } )
        .trans: ' ' => '+';
}

proto hash2query ( |c --> Str ) is export {*}

multi hash2query ( Any:U $ --> '' ) { }

multi hash2query ( Any:D $input --> Str ) {
    CATCH { return '' when X::Hash::Store::OddNumber }
    my Hash() $hash = $input;

    return '' unless $hash.elems;

    my $query = join '&', $hash.pairs.sort(*.key).map: -> ( :$key, :$value ) {
        $value.List.map: { $key.&escape ~ '=' ~ .&escape }
    }

    escape $query, &other;
}



head

URI::Query::FromHash - Construct a query string from a hash


code

=begin code :lang<raku>
use URI::Query::FromHash;

say hash2query {
   foo  => 'bar',
   baz  => < qux quux >,
   utf8 => '🦋',
}
# OUTPUT:
# baz=qux&baz=quux&foo=bar&utf8=%F0%9F%A6%8B
=end code


URI::Query::FromHash aims to be a fast, light query string constructor.


Inspired by L<the Perl module of the same name|https://metacpan.org/pod/URI::Query::FromHash>
and Ruby on Rails' L<to_query|http://api.rubyonrails.org/classes/Hash.html#method-i-to_query>
hash method.


=begin code :lang<raku>
sub hash2query ( Hash() $hash --> Str )
=end code


Accepts anything that can be coerced to a Hash of query parameters and
returns a Str suitable to be used as the query parameters of a URI. Values
will be coerced to List and iterated over, with every element being coerced
to Str before processing. Every one of these elements will then be
URL-encoded and will appear in the generated string once preceded by the
corresponding URL-encoded key and an equal sign (C<=>).


Pairs in the input Hash will be processed alphabetically by key.


When this function encounters input it cannot handle, it returns the empty
string, meaning it should always be safe to use.


This library is free software; you can redistribute it and/or modify it
under the Artistic License 2.0.


root

README

React

=begin React :component<HeaderCol> :id<menu> 
=para L<Documentation|/doc/introduction>
=para L<Modules| /mods>
=para L<Examples| file:../examples/index.podlite>
=para L<Download |file:../download/index.podlite>
=para L<About|file:../about/index.podlite>
=para 🔍 K<⌘K>/K<ctrl-K>
=end React


=begin React :component<HeaderCol> :id<footer>  
=begin nested :!nested
=item1 B<Language>
    =item2 L<Get started|file:../getting-started/getting-started.podlite>
    =item2 L<Why Raku?|/doc/language/faq#Why-should-I-learn-Raku-What's-so-great-about-it>
    =item2 L<Try Raku|https://glot.io/new/raku>
    =item2 L<Raku cheat sheet|https://github.com/Raku/mu/blob/master/docs/Perl6/Cheatsheet/cheatsheet.txt>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<Raku on Exercism|https://exercism.org/tracks/raku>
    =item2 L<Wikipedia|https://en.wikipedia.org/wiki/Raku_(programming_language)>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>

=end nested
=begin nested :!nested

=item1 B<L<Documentation|/doc>>
    =item2 L<Getting started, Migration guides from other languages, & Tutorials | file:../doc/introduction.podlite>
    =item2 L<Language References|file:../doc/reference.podlite>
    =item2 L<Type Reference| file:../doc/types.podlite>
    =item2 L<Miscellaneous| file:../doc/miscellaneous.podlite>
    =item2 L<FAQs (Frequently Asked Questions)|/doc/language/faq>
    =item2 L<Community|/doc/language/community>
    =item2 L<The list of all documents|file:../doc/index.podlite>

=item1 B<Resources>
    =item2 L<The Raku Guide|https://raku.guide/>
    =item2 L<Books |https://perl6book.com/>
    =item2 L<Rosetta Code | https://www.raku.org/community/rosettacode>

=end nested
=begin nested :!nested

=item1 B<Resoures>
    =item2 L<Download | file:../download/index.podlite>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>

=item1 B<Learning>
    =item2 L<The Raku Guide|https://raku.guide/>
    =item2 L<Wikibook |https://en.wikibooks.org/wiki/Raku_Programming>
    =item2 L<Books |https://perl6book.com/>
    =item2 L<Rosetta Code | https://www.raku.org/community/rosettacode>
    =item2 L<Learn Raku in Y minutes|https://learnxinyminutes.com/docs/raku/>
    =item2 L<Golfing |https://github.com/AlexDaniel/raku-golf-cheatsheet>
=end nested
=begin nested :!nested

=item1 B<Explore>
    =item2 L<Raku Blog Aggregator|https://planet.raku.org/>
    =item2 L<Rakudo Weekly|https://rakudoweekly.blog/>
    =item2 L<The Weekly Challenge |https://perlweeklychallenge.org/>
    =item2 L<Raku Advent Calendar|https://raku-advent.blog/>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>

=end nested
=end React


=begin React :component<CookieConsent> :id<CookieConsent> :buttonCaption("Got it!")
=para
This website uses cookies for analytics.
=end React


FromHash

NAME

SYNOPSIS

DESCRIPTION

METHODS

hash2query

COPYRIGHT AND LICENSE

URI::Query::FromHash v0.0.1

Authors

License

Dependencies

Test Dependencies

Provides

Documentation