AnyEvent::HTTP::ScopedClient - AnyEvent based <https://github.com/technoweenie/node-scoped-http-client>

Author

       Hyungsuk Hong <hshong@perl.kr>

Copyright And License

       This software is copyright (c) 2012 by Hyungsuk Hong.

       This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5
       programming language system itself.

perl v5.34.0                                       2022-06-05                  AnyEvent::HTTP::ScopedClient(3pm)

Description

       AnyEvent::HTTP wrapper

Name

       AnyEvent::HTTP::ScopedClient - AnyEvent based <https://github.com/technoweenie/node-scoped-http-client>

Synopsis

           my $client = AnyEvent::HTTP::ScopedClient->new('http://example.com');
           $client->request('GET', sub {
               my ($body, $hdr) = @_;    # $body is undef if error occured
               return if ( !$body || $hdr->{Status} !~ /^2/ );
               # do something;
           });

           # shorcut for GET
           $client->get(sub {
               my ($body, $hdr) = @_;
               # ...
           });

           # Content-Type: application/x-www-form-urlencoded
           $client->post(
               { foo => 1, bar => 2 },    # note this.
               sub {
                   my ($body, $hdr) = @_;
                   # ...
               }
           );

           # application/x-www-form-urlencoded post request
           $client->post(
               "foo=1&bar=2"    # and note this.
               sub {
                   my ($body, $hdr) = @_;
                   # ...
               }
           );

           # Content-Type: application/json
           use JSON::XS;
           $client->header('Content-Type', 'application/json')
               ->post(
                   encode_json({ foo => 1 }),
                   sub {
                       my ($body, $hdr) = @_;
                       # ...
                   }
               );

           $client->header('Accept', 'application/json')
               ->query({ key => 'value' })
               ->query('key', 'value')
               ->get(
                   sub {
                       my ($body, $hdr) = @_;
                       # ...
                   }
               );

           # headers at once
           $client->header({
               Accept        => '*/*',
               Authorization => 'Basic abcd'
           })->get(
               sub {
                   my ($body, $hdr) = @_;
                   # ...
               }
           );