ge App::MetaCPAN::Gtk2::Notify;
use 5.006;
use strict;
use warnings;
our $VERSION = '0.05';
use JSON;
use LWP::UserAgent;
use Gtk2::Notify;
use File::Temp ();
use File::Spec;
use File::Slurp qw(writ
HODS
=cut
my $search_url = 'http://api.metacpan.org/v0/release/_search';
my $post_data = JSON::encode_json(
{
'size' => 20,
'from' => 0,
'sort' => [ { 'date' => { 'order
ost( $search_url, Content => $post_data );
if ( $resp->is_success ) {
my $res = JSON::decode_json( $resp->content );
return map { $_->{fields} } @{ $res->{hits}{hits} };
}