Yet Another CPAN Grep

Labyrinth-Plugin-CPAN ( B/BA/BARBIE/Labyrinth-Plugin-CPAN-3.56.tar.gz, BARBIE, 2016; MetaCPAN )

Labyrinth-Plugin-CPAN/lib/Labyrinth/Plugin/CPAN/Content.pm ( view source; MetaCPAN )

es

use base qw(Labyrinth::Plugin::Base);

use Labyrinth::Support;
use Labyrinth::Variables;

use JSON;
use WWW::Mechanize;

#--------------------------------------------------------------------------

;
    return if($@ || !$mech->success() || !$mech->content());

    my $json = $mech->content();
    my $data = decode_json($json);

    return unless($data);

    $tvars{sponsor} = {
        title =>