BEGIN {
$Dist::Zilla::App::Command::provision::VERSION = '0.1';
}
-# ABSTRACT: release your dist to the CPAN
+# ABSTRACT: provision a new Oyster VM
use Dist::Zilla::App -command;
use Moose;
use Config::Any;
use Hash::Merge 'merge';
+Hash::Merge::set_behavior( 'RIGHT_PRECEDENT' );
+use Oyster::Provision;
sub abstract { 'provision a new Oyster VM' }
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} || 'Oyster::Provision::Rackspace';
+ warn Dumper(\@hashes);
+
+ my %hash = @hashes > 1 ? %{ merge( @hashes ) } : %{ $hashes[0] };
+
+ my $type = delete $hash{type} || 'Oyster::Provision::Rackspace';
+ $hash{provision_backend} = $type =~/^Oyster::Provision::/ ? $type : "Oyster::Provision::$type";
$hash{pub_ssh} ||= "$ENV{HOME}/.ssh/id_rsa.pub";
$hash{size} ||= 1; # id 1 - ram 256 MiB - disk 10 GiB
$hash{image} ||= 69; # id 69 - Ubuntu 10.10 (meerkat)
- use Oyster::Provision;
+ use Data::Dumper; warn "Config hash: ", Dumper(\%hash);
+
my $server = Oyster::Provision->new(
name => $name,
config => \%hash,