view release on metacpan or  search on metacpan

lib/CCfn.pm  view on Meta::CPAN

    my $dep = CCfnX::Deployment->new_with_roles({ %$params, origin => $self }, @roles);
    return $dep;
  }
}

package CCfnX::Meta::Attribute::Trait::RefValue {
  use Moose::Role;
  Moose::Util::meta_attribute_alias('RefValue');
}

package CCfnX::Meta::Attribute::Trait::StackParameter {
  use Moose::Role;
  Moose::Util::meta_attribute_alias('StackParameter');
}

package CCfnX::Meta::Attribute::Trait::Resource {
  use Moose::Role;
  Moose::Util::meta_attribute_alias('Resource');
}

package CCfnX::Meta::Attribute::Trait::Metadata {
  use Moose::Role;
  Moose::Util::meta_attribute_alias('Metadata');
}

package CCfnX::Meta::Attribute::Trait::Condition {
  use Moose::Role;
  Moose::Util::meta_attribute_alias('Condition');
}

package CCfnX::Meta::Attribute::Trait::Output {
  use Moose::Role;
  Moose::Util::meta_attribute_alias('Output');
}

package CCfnX::Meta::Attribute::Trait::Mapping {
  use Moose::Role;
  Moose::Util::meta_attribute_alias('Mapping');
}

package CCfnX::Meta::Attribute::Trait::Transform {
  use Moose::Role;
  Moose::Util::meta_attribute_alias('Transform');
}

package CCfnX::Meta::Attribute::Trait::PostOutput {
  use Moose::Role;
  Moose::Util::meta_attribute_alias('PostOutput');
}

package CCfnX::Meta::Attribute::Trait::Attached {
  use Moose::Role;
  Moose::Util::meta_attribute_alias('Attached');
}

package CCfnX::Meta::Attribute::Trait::Attachable {
  use Moose::Role;
  use CCfnX::Deployment;
  Moose::Util::meta_attribute_alias('Attachable');
  has type => (is => 'ro', isa => 'Str', required => 1);
  has generates_params => (is => 'ro', isa => 'ArrayRef[Str]', required => 1);

  sub get_info {
    my ($self, $name, $key) = @_;
    die "Please specify a name for Attachment " . $self->name if (not defined $name);
    my $dep = CCfnX::Deployment->new_with_roles({ name => $name }, 'CCfnX::CloudFormationDeployer', 'CCfnX::PersistentDeployment');
    $dep->get_from_mongo;

    my $output;
    eval { $output = $dep->output($key) };
    
    return $output;
  }
}

1;