CPAN::Groonga

package CloudDeploy::CommandLine::Json {
  use MooseX::App;  
  use CloudDeploy::Utils;
  use CloudDeploy::DeploymentCollection;

  parameter deployment => (is => 'ro', isa => 'Str', required => 1);
 

rp;
  use MooseX::App;  
  use CloudDeploy::Utils;
  use CloudDeploy::DeploymentCollection;
  use JSON;
  use String::Diff;
  use Term::ANSIColor qw/:constants/;
  use Scalar::Util;

  parameter left 

file:<JSON_FILE>],
    required      => 1,
  ); 

  parameter right => (
    is            => 'rw',
    isa           => 'Str',
    documentation => q[cfn:<REGION>:<NAME>|deploy:<NAME>|file:<JSON_FILE

          => 'ro',
    isa           => 'Bool',
    documentation => 'Pretty print the changes in JSON',
    default       => 0
  );

  has _left_cfn => (
    is => 'ro',
    isa => 'Cfn',
    lazy =>

tcuts;

  use Carp;
  use Moose::Exporter;
  use Regexp::Common qw(net);
  use LWP::Simple;
  use JSON::MaybeXS;
  use Scalar::Util qw(looks_like_number);
  use CCfnX::DSL::Inheritance;

  our $ubuntu

orm' ],
    as_is => [ qw/Ref ConditionRef GetAtt UserData CfString Parameter Attribute FindImage Json
                Tag GetPolicy ELBListener TCPELBListener SGRule SGEgressRule
                GetA

gs });
      },
    );
  }

  sub metadata {
    Moose->throw_error('Usage: metadata \'name\' => {json-object}')
        if (@_ != 3);
    my ( $meta, $name, @options ) = @_;

    if (my ($att) = ($na

',
];

package CCfnX::PersistentDeployment {
  use Moose::Role;
  use Carp;
  use DateTime;
  use JSON;
  use CloudDeploy::Config;

  requires 'params';
  has mongo => (is => 'rw', default => sub { Cl

package CCfnX::CloudFormationDeployer {
	use Moose::Role;
	use Paws;
	use JSON;

	requires 'origin';
	has region  => (is => 'rw', isa => 'Str', required => 1, lazy => 1, default => sub { $_[0]->origin

StackName => $self->name,
			Capabilities => [ 'CAPABILITY_IAM' ],
			TemplateBody => $origin->as_json,
			Parameters => $parameters_for_cfn,
		);

		my $start_time = time();
		print "Polling cfn for 

rceId
				};
				my $res = $self->cfn->DescribeStackResource(%$params);
				$out->{ $att } = from_json($res->StackResourceDetail->Metadata);
			}
		}

		return $out;
	}

	sub WaitForStack {
		my $self

package CCfnX::ConsoleDeployer {
  use Moose::Role;

  after deploy => sub {
    my $self = shift;
    print $self->origin->as_json;
  }
}

1;

package CCfnX::PackerDeployer {
  use Moose::Role;
  use JSON;

  after deploy => sub {
    my $self = shift;

    my @lines = @{ $self->origin->Resource('Instance')->Properties->UserData->process_wit

              }
      ]
    };

    open (my $file, '>', 'packer.config');
    print $file encode_json($packer_def);
    close $file;

    #system 'packer','build';
  };

  before redeploy => sub {
  

uired_props});
  }
}

package CloudDeploy::AMIDB {
  use Moose;
  use Carp;
  use DateTime;
  use JSON;
  use CloudDeploy::Config;
  use Data::Dumper;
  use Carp;

  has account => (is => 'ro', isa =>