quick metacpan cli interface

mcpan.pl

#!/usr/bin/env perl

=usage

    mcpan moosex

=cut

use 5.20.0;

use warnings;

use Web::Query;
use Text::ASCIITable;

my $url = 'https://metacpan.org/search?search_type=modules&size=200&q='.shift;

my $doc = wq($url);

my $table = Text::ASCIITable->new({ utf8 => 0 });
$table->setCols(qw/ module description distribution author /);

$doc->find('big strong')->each(sub{
    my $author = $_->parent->parent->find('.author')->text;
    my $distro = ( split '/', $_->parent->parent->find('.author')->next->attr('href') )[-1];
    my @row = split '-', $_->text, 2;
    push @row, '' unless @row == 2;
    push @row, $distro, $author;
    $table->addRow( @row );
});

print $table;