lib/Oyster/Deploy/Git.pm

   1 package Oyster::Deploy::Git;
   2
   3 use Moose;
   4 use Git::Wrapper;
   5 use Error::Simple;
   6
   7 use Data::Dumper;
   8
   9 sub create {
  10   my $self = shift;
  11   my $location = shift;
  12
  13   if( -f $location || -d $location ) {
  14     Error::Simple->throw("$location already exists");
  15   }
  16
  17   mkdir($location);
  18   my $git = Git::Wrapper->new($location);
  19
  20   return 1;
  21 }
  22
  23
  24 1;