Yet Another CPAN Grep

Consul-Simple ( D/DI/DIEDERICH/Consul-Simple-1.142430.tar.gz, DIEDERICH, 2014; MetaCPAN )

Consul-Simple/lib/Consul/Simple.pm ( view source; MetaCPAN )

arnings;
use LWP::UserAgent;
use HTTP::Response;
use HTTP::Request::Common;
use MIME::Base64;
use JSON;
use Data::Dumper;

sub new {
    my $class = shift;
    my $self = {};
    bless ($self,$class);

s = $self->_do_request(GET $url);
        my $content = $res->content;
        my $values = JSON::decode_json($content);
        @entries = @$values;
    };
    my @ret = ();
    foreach my $entry (@e

s to try to JSON decode it.  If that works,
        #return the JSON decoded value.  Otherwise, return it un-decoded
        my $value;
        eval {
            $value = JSON::decode_json($entry->{V