Yet Another CPAN Grep

Net-CloudStack ( S/SN/SNUMANO/Net-CloudStack-0.01005.tar.gz, SNUMANO, 2013; MetaCPAN )

Net-CloudStack/lib/Net/CloudStack.pm ( view source; MetaCPAN )

ha1);
use MIME::Base64;
use LWP::UserAgent;
use Encode;
use XML::Twig;
use URI::Encode;
use JSON;
use Carp;
use Data::Dumper;

subtype 'CloudStack::YN'
    => as 'Str'
    => where { $_ =~

st' => (
    is => 'rw',
    isa => 'CloudStack::YN',
    default => 'no',
    );

has 'xml_json' => (
    is => 'rw',
    isa => 'Str',
    default => 'xml',
    );

has 'url' => (
    i

f->secret_key."\n";
    print "SEND_REQUEST:".$self->send_request."\n";
    print "XML_JSON:".$self->xml_json."\n";
}


### SUB ROUTINE ###

### COMMAND ###
sub proc{
    my ($self, $cmd, $o