Yet Another CPAN Grep

App-Difio-dotCloud ( A/AT/ATODOROV/App-Difio-dotCloud-2.02.tar.gz, ATODOROV, 2012; MetaCPAN )

App-Difio-dotCloud/lib/App/Difio/dotCloud.pm ( view source; MetaCPAN )

gs;

use JSON;
use LWP::UserAgent;

# load dotCloud environment
local $/;
open( my $fh, '<', '/home/dotcloud/environment.json' );
my $json_text   = <$fh>;
my $dotcloud_env = decode_json( $json_text );

n' => $name_ver[0], 'v' => $name_ver[1]});
}


$data->{'installed'} = [ @installed ];

my $json_data = to_json($data); # , { pretty => 1 });

my $ua = new LWP::UserAgent(('agent' => "$NAME/$VERSION"))

otb.rhcloud.com/application/register/', { json_data => $json_data});

if (! $response->is_success) {
    die $response->status_line;
}

my $content = from_json($response->decoded_content);
print "Difi