use Dist::Zilla::App -command;
use Moose;
use Config::Any;
+use Hash::Merge 'merge';
sub abstract { 'provision a new Oyster VM' }
or die "No name provided!";
my @config_files = ( './oyster.conf' ); # TODO make configurable
- my $cfg = Config::Any->load_files({ files => \@config_files });
+ my $cfg = Config::Any->load_files({ files => \@config_files, use_ext => 0 });
($cfg) = values %{ $cfg->[0] }; # FIX with ::JFDI or similar
my $Provision = $cfg->{Provision} or die "No <Provision> section";
- my $target = $Provision->{$name} or die "No section for <Provision> <$name>";
- my $type = $target->{type} || 'EC2';
+ my @hashes = grep $_, $Provision->{Default}, $Provision->{$name}
+ or die "No section for <Provision> <$name>, and no <default>";
+
+ my %hash = @hashes > 1 ? %{ merge( @hashes ) } : $hashes[0];
+
+ $hash{provision_backend} = delete $hash{type} || 'Rackspace';
+ $hash{pub_ssh} ||= "$ENV{HOME}/.ssh/id_rsa.pub";
+ $hash{size} ||= 128;
+ $hash{image} ||= 'meerkat'; # TODO, should this be determined on backend?
use Oyster::Provision;
my $server = Oyster::Provision->new(
name => $name,
- size => '256',
- image => 'Meerkat',
- pub_ssh => "$ENV{HOME}/.ssh/id_rsa.pub",
- provision_backend => $type,
+ %hash,
);
$server->create;
print "Instance $name created! ($server)\n";