Root password given only on returned object

[p5sagit/Oyster.git] / lib / Oyster / Provision.pm

diff --git a/lib/Oyster/Provision.pm b/lib/Oyster/Provision.pm
index 3db07ee..0c1aaa6 100644 (file)
--- a/lib/Oyster/Provision.pm
+++ b/lib/Oyster/Provision.pm
@@ -2,14 +2,21 @@ package Oyster::Provision;
 
 use Moose;
 
-sub config {
-    return {provision_backend => 'Oyster::Provision::Rackspace'};
-}
+has 'name'    => ( is => 'ro', isa => 'Str', required => 1 );
+has 'size'    => ( is => 'ro', isa => 'Str', required => 1 );
+has 'image'   => ( is => 'ro', isa => 'Str', required => 1 );
+has 'pub_ssh' => ( is => 'ro', isa => 'Str', required => 1 );
+
+has 'config'  => (is => 'rw', isa => 'HashRef', required => 1 );
 
 sub BUILD {
 
     my $self = shift;
 
+    if(!exists($self->config()->{provision_backend})) {
+        $self->config()->{provision_backend} = 'Oyster::Provision::Rackspace';
+    }
+    
     my $role = $self->config()->{provision_backend};
 
     eval "use $role";