X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FOyster%2FDeploy%2FGit.pm;fp=lib%2FOyster%2FDeploy%2FGit.pm;h=37ff0a816462ab0ba292fa0fe07d28c50ecd0e07;hb=40056462c18e3f9fde327de7e8d7464e737127aa;hp=0000000000000000000000000000000000000000;hpb=1d534f1793dc8153fe522a04efde6f58ca3296b9;p=p5sagit%2FOyster.git

diff --git a/lib/Oyster/Deploy/Git.pm b/lib/Oyster/Deploy/Git.pm
new file mode 100644
index 0000000..37ff0a8
--- /dev/null
+++ b/lib/Oyster/Deploy/Git.pm
@@ -0,0 +1,24 @@
+package Oyster::Deploy::Git;
+
+use Moose;
+use Git::Wrapper;
+use Error::Simple;
+
+use Data::Dumper;
+
+sub create {
+  my $self = shift;
+  my $location = shift;
+  
+  if( -f $location || -d $location ) {
+    Error::Simple->throw("$location already exists");
+  }
+  
+  mkdir($location);
+  my $git = Git::Wrapper->new($location);
+  
+  return 1;
+}
+
+
+1;
\ No newline at end of file