Yet Another CPAN Grep

LiquidWeb-Storm-CLI ( M/MT/MTERRY/LiquidWeb-Storm-CLI-1.03.tar.gz, MTERRY, 2015; MetaCPAN )

LiquidWeb-Storm-CLI/lib/LiquidWeb/Storm/CLI.pm ( view source; MetaCPAN )

TTP::Request;
use LWP::UserAgent;
use Data::Dumper;
use MIME::Base64; 
use Text::ASCIITable; 
use JSON;

sub new {
	my $class = shift;

	my $self = bless {
		lwhome   => "$ENV{HOME}/.lw", 
		apiconfig

uidWeb API Secret: "; 
	chomp($self->{configure}{secret} = <STDIN>);
	print "Default output type [json,perl,table]: ";  
	chomp($self->{configure}{output} = <STDIN>);

	print "Save auth credentials lo

fetchDocs;

	if (($self->{configure}{save} =~ m/y/i) ? 1 : 0) {
		$self->{configure}{output} ||= 'json'; 
		open my $session, '>', $self->{apiconfig} or die $!;
		print $session "username=$self->{conf