The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
HTTP: :Thin::UserAgent
===================

HTTP::Thin::UserAgent -- A Thin Wrapper around HTTP::Thin

use HTTP::Thin::UserAgent;

my $data = http( POST 'http://api.metacpan.org/v0/release/_search')->as_json(
    {   query  => { match_all => {} },
        size   => 5000,
        fields => ['distribution'],
        filter => {
            and => [
                {   term => {
                        'release.dependency.module' => 'MooseX::NonMoose'
                    }
                },
                { term => { 'release.maturity' => 'released' } },
                { term => { 'release.status'   => 'latest' } }
            ]
        }
    }
)->decode;

my $results = http(GET 'http://www.imdb.com/find?q=Kevin+Bacon')->scraper(
    scraper {
        process '.findResult', 'results[]' => scraper {
            process '.result_text', text => 'TEXT';
            process '.result_text > a', link => '@href';
        }
    }
)->decode;