Yet Another CPAN Grep

perlrocks ( G/GU/GUGOD/perlrocks-0.02.tar.gz, GUGOD, 2011; MetaCPAN )

perlrocks/lib/App/perlrocks/Helpers.pm ( view source; MetaCPAN )

package App::perlrocks::Helpers;
use strict;
use warnings;
use HTTP::Tiny;
use JSON qw(from_json to_json);

use Exporter::Lite;
our @EXPORT = qw(metacpan_request);

sub metacpan_request {
    my ($pat

        {
            content => defined($data) ? to_json($data) : ''
        }
    );

    if ($response->{success}) {
        my $data = from_json($response->{content});
        return $cb ? $cb->($

data) : $data;
    }

    die "Request failed: " . to_json($response);
}


1;