Possibly fixed test

[p5sagit/Oyster.git] / .build / 0ey2IQdAX1 / lib / Oyster / Provision.pm

diff --git a/.build/0ey2IQdAX1/lib/Oyster/Provision.pm b/.build/0ey2IQdAX1/lib/Oyster/Provision.pm
new file mode 100644 (file)
index 0000000..0c1aaa6
--- /dev/null
+++ b/.build/0ey2IQdAX1/lib/Oyster/Provision.pm
@@ -0,0 +1,77 @@
+package Oyster::Provision;
+
+use Moose;
+
+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";
+    "$role"->meta->apply($self);
+}
+
+1;
+
+__END__
+
+=head1 NAME
+
+Oyster::Provision - Provision an Oyster
+
+=head1 SYNOPSIS
+
+    my $server = Oyster::Provision->new(
+        name => 'Ostrica',
+        size => '256',
+        image => 'Meerkat',
+        pub_ssh => "$ENV{HOME}/.ssh/id_rsa.pub",
+    );
+    $server->create;
+
+=head1 BACKENDS
+
+By default, the L<Oyster::Provision::Rackspace> backend
+will be used.
+
+Each backend needs to accept at least the C<name>,
+C<size>, C<image> and C<pub_ssh> parameters. The meaning
+of these parameters may differ from one backend to another.
+
+=head1 METHOS
+
+Each backend usually implements the following C<required>
+methods:
+
+=over
+
+=item create
+
+Creates a new server by given name, if such server does
+not exist.
+
+Installs the required packages for the distribution
+
+=item delete
+
+Gets rid of the server instance
+
+=item resize
+
+Hopefully scales the server
+
+=back
+
+=cut