unit class HTTP::Request::Common;

use URI;
use URI::Escape;
use HTTP::Request:auth<github:sergot>;
use HTTP::MediaType;
use MIME::Base64;
use HTTP::Header;

constant $CRLF = "\x0d\x0a";
my $HRC_DEBUG = %*ENV<HRC_DEBUG>.Bool;

# TODO: multipart/form-data
multi sub POST(URI $uri, %form, *%headers) is export {
    samewith($uri, content => %form, |%headers);
}

multi sub POST(Str $uri, %form, *%headers) is export {
    samewith(URI.new($uri), content => %form, |%headers)
}

multi sub POST(URI $uri, Array :$content, *%headers) is export {
    my $request  = get-request('POST', $uri, |%headers);
    $request.add-form-data($content);
    return $request;
}

multi sub POST(Str $uri, :$content, *%headers) is export {
    samewith(URI.new($uri), :$content, |%headers)
}

multi sub POST(URI $uri, Hash :$content, *%headers) is export {
    samewith($uri, content => $content.Array, |%headers);
}

multi sub POST(URI $uri, Str :$content, *%headers) is export {
    send-text-content('POST', $uri, :$content, |%headers);
}

my sub get-request(Str $meth, URI $uri, Bool :$bin, *%headers) returns HTTP::Request {
    my $request  = HTTP::Request.new(|($meth.uc => $uri), :$bin);
    $request.header.field(|%headers);
    $request;
}

my sub send-text-content(Str $meth, URI $uri, :$content, *%headers is copy ) returns HTTP::Request {
    my $request = get-request($meth, $uri, |%headers);

    if $content.defined {
        $request.add-content: $content;
    }
    $request;
}


my sub send-binary-content(Str $meth, URI $uri, Blob :$content, *%headers is copy) {
    %headers<Content-Length> = $content.elems;
    if ! ( %headers<Content-Type>:exists or %headers<content-type>:exists ) {
        %headers<Content-Type> = 'application/octet-stream';
    }
    my $request = get-request($meth, $uri, |%headers, :bin);
    $request.content = $content;
    $request;
}

multi sub POST(Str $uri, Blob :$content, *%headers ) is export {
    samewith(URI.new($uri), :$content, |%headers);
}

multi sub POST(URI $uri, Blob :$content, *%headers ) is export {
    send-binary-content('POST', $uri, :$content, |%headers);
}


multi sub GET(URI $uri, *%headers) is export {
    get-request('GET', $uri, |%headers);
}

multi sub GET(Str $uri, *%headers) is export {
    samewith(URI.new($uri), |%headers)
}

multi sub HEAD(URI $uri, *%headers) is export {
    get-request('HEAD', $uri, |%headers);
}

multi sub HEAD(Str $uri, *%headers) is export {
    samewith(URI.new($uri), |%headers)
}

multi sub DELETE(URI $uri, *%headers) is export {
    get-request('DELETE', $uri, |%headers);
}

multi sub DELETE(Str $uri, *%headers) is export {
    samewith(URI.new($uri), |%headers)
}

multi sub PUT(URI $uri, Str :$content, *%headers) is export {
    send-text-content('PUT', $uri, :$content, |%headers);
}

multi sub PUT(Str $uri, Str :$content, *%headers) is export {
    PUT(URI.new($uri), :$content, |%headers)
}

multi sub PUT(Str $uri, Blob :$content, *%headers) is export {
    samewith(URI.new($uri), :$content, |%headers);
}

multi sub PUT(URI $uri, Blob :$content, *%headers ) is export {
    send-binary-content('PUT', $uri, :$content, |%headers);
}

multi sub PATCH(URI $uri, :$content, *%headers) is export {
    send-text-content('PATCH', $uri, :$content, |%headers);
}

multi sub PATCH(Str $uri, :$content, *%headers) is export {
    samewith(URI.new($uri), :$content, |%headers)
}




head

HTTP::Request::Common - Construct common HTTP::Request objects


my $ua = HTTP::UserAgent.new();
my $res = $ua.request(GET 'http://google.com/');


This module provide functions that return newly created "HTTP::Request"
objects. These functions are usually more convenient to use than the
standard "HTTP::Request" constructor for the most common requests. The
following functions are provided:


The GET() function returns an C<HTTP::Request> object initialized with
the "GET" method and the specified URL.


Like GET() but the method in the request is "HEAD".


item

Like GET() but the method in the request is "DELETE".


C<PUT $url, Header => Value,..., content => $content>


Like GET() but the method in the request is "PUT".


C<PATCH $url, Header => Value,..., content => $content>


Like GET() but the method in the request is "PATCH".


C<POST $url, %form, Header => Value,...>


C<POST $url, Header => Value,..., content => $form_ref>


C<POST $url, Header => Value,..., content => $content>


root

Response

Request

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


Common

NAME

SYNOPSIS

DESCRIPTION

`GET $url, Header =` Value...>

`HEAD $url`

`HEAD $url, Header =` Value,...>

`PUT $url`

`PUT $url, Header =` Value,...>

`PUT $url, Header =` Value,..., content => $content>

`PATCH $url`

`PATCH $url, Header =` Value,...>

`PATCH $url, Header =` Value,..., content => $content>

`POST $url`

`POST $url, Header =` Value,...>

`POST $url, %form, Header =` Value,...>

`POST $url, Header =` Value,..., content => $form_ref>

`POST $url, Header =` Value,..., content => $content>

NAME

SYNOPSIS

DESCRIPTION

GET $url, Header = Value...>

HEAD $url

HEAD $url, Header = Value,...>

PUT $url

PUT $url, Header = Value,...>

PUT $url, Header = Value,..., content => $content>

PATCH $url

PATCH $url, Header = Value,...>

PATCH $url, Header = Value,..., content => $content>

POST $url

POST $url, Header = Value,...>

POST $url, %form, Header = Value,...>

POST $url, Header = Value,..., content => $form_ref>

POST $url, Header = Value,..., content => $content>