Yet Another CPAN Grep

Horris ( A/AA/AANOAA/Horris-v0.1.2.tar.gz, AANOAA, 2011; MetaCPAN )

Horris/lib/Horris/Connection/Plugin/Eval.pm ( view source; MetaCPAN )

package Horris::Connection::Plugin::Eval;
# ABSTRACT: Evaluate Plugin on Horris


use Moose;
use JSON;
use URI::Escape;
use HTTP::Request;
use LWP::UserAgent;
extends 'Horris::Connection::Plugin';
wit

=> $uri);
    my $res = $ua->request($req);
    if ($res->is_success) {
        my $scalar = JSON::from_json($res->content, { utf8  => 1 });
        return $scalar->{stderr} eq '' ? $scalar->{stdout}

Horris ( A/AA/AANOAA/Horris-v0.1.2.tar.gz, AANOAA, 2011; MetaCPAN )

Horris/lib/App/Horris/CLI/Command/me2day.pm ( view source; MetaCPAN )

package App::Horris::CLI::Command::me2day;
# ABSTRACT: me2day Watcher


use Moose;
use DBI;
use JSON;
use AnyEvent;
use File::Temp;
use LWP::Simple;
use Const::Fast;
use DateTime::Format::W3CDTF;
use

extends 'MooseX::App::Cmd::Command';

const my $URL_FORMAT => "http://me2day.net/api/get_posts/%s.json";

has database => (
    is            => 'ro',
    isa           => 'Str',
    traits        =>

             my $json_url = sprintf $URL_FORMAT, $id;
                print "Checking $json_url\n";
                my $data    = get $json_url;
                my $content = from_json($data);