Yet Another CPAN Grep

REST-Consumer ( T/TR/TRAVIS/REST-Consumer-0.07.tar.gz, TRAVIS, 2012; MetaCPAN )

REST-Consumer/lib/REST/Consumer.pm ( view source; MetaCPAN )

 for talking to restful web services

use strict;
use warnings;

use LWP::UserAgent;
use URI;
use JSON::XS;
use HTTP::Request;
use HTTP::Headers;
use File::Path qw( mkpath );
use REST::Consumer::Reque

file_path {
	my ($uri) = @_;
	my $cache_filename = $uri->host . '-' . $uri->port . $uri->path . '.json';
#	$cache_filename =~ s/\//-/g;
	my ($dir, $filename) = $cache_filename =~ /(.*)\/([^\/]*)/i;
	r

e "Couldn't open config file '$path': $!";

	my $data = <$config_fh>;
	my $decoded_data = JSON::XS::decode_json($data);
	close $config_fh;
	return $decoded_data;
}

sub write_config_to_file {
	my ($ur

REST-Consumer ( T/TR/TRAVIS/REST-Consumer-0.07.tar.gz, ARODLAND, 2012; MetaCPAN )

REST-Consumer/lib/REST/Consumer/HandlerInvocation.pm ( view source; MetaCPAN )

ader('Content-Type');
	if ($content_type && $content_type =~ m|.+/json|) {
		eval {
			$self->{parsed_response} = JSON::XS::decode_json($self->response->decoded_content() );
			$self->{response_parsea

 an error.  e.g. if content is empty or is just a string
			$self->debug(sprintf("failed to parse json response: %s\n%s\n",
				$self->{response_body},
				$@,
			));
			$self->{response_parseable} =