Re: cpanr - view cpan ratings from the command line ( ojo::g )

Hi,

use Mojo::DOM and WWW::Mechanize?

...
use ojo;
# use Mojo::DOM;
# use WWW::Mechanize;
...
#     my $mech = WWW::Mechanize->new();
#     $mech->get($ratingsURL);
#
#     my $dom = Mojo::DOM->new($mech->content());
    my $dom = g( $ratingsURL )->dom;
[download]

https://metacpan.org/pod/ojo#g

update: it didn't work for ojo, so to make that work, fetch the distribution name instead of guessing it

#     $module =~ s/::/-/g;
    $module = g('http://api.metacpan.org/v0/module/'.$module)->json->{
+distribution};
[download]

ref https://github.com/metacpan/metacpan-api/blob/master/docs/API-docs.md, https://metacpan.org/pod/Mojo::Message#json

Comment on Re: cpanr - view cpan ratings from the command line ( ojo::g ) Select or Download Code

Replies are listed 'Best First'.
Re^2: cpanr - view cpan ratings from the command line ( ojo::g ) by marto (Cardinal) on Oct 06, 2016 at 09:22 UTC
Fantastic feedback, thanks. I was unaware of ojo. I'll definitely look at using this going forward.	[reply]
Re^3: cpanr - view cpan ratings from the command line ( ojo::g ) by Your Mother (Archbishop) on Oct 06, 2016 at 23:04 UTC
You probably realized already but it’s to facilitate one-liners. And it actually led me to find what I believe to be a bug in the text handing of Mojo. In my view, `all_text` and `text` should find the `alt` info in images. In this case it would have shown the star ratings which would have been a nice DWIW. :P `perl -Mojo -E 'say $_->all_text, $/ for g("http://cpanratings.perl.org +/dist/" . +shift=~s/::/-/r)->dom->find(".review")->each' CGI perl -Mojo -E 'say $_->all_text, $/ for g("http://cpanratings.perl.org +/dist/" . +shift=~s/::/-/r)->dom->find(".review")->each' Mojolicious` [download]	[reply] [d/l] [select]