Possibly fixed test

[p5sagit/Oyster.git] / .build / spEUsgyear / lib / Oyster / Deploy / Git.pm

package Oyster::Deploy::Git;

use Moose;
use Git::Wrapper;
use Error::Simple;

use Data::Dumper;
use File::Copy;
use File::ShareDir ':ALL';

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);
  
  
  copy(dist_file( 'Oyster', './share/deploy/git/post-receive'), ($git->dir . '.git/hooks/')) 
    or Error::Simple->throw('Creating post commit hooks failed.');
  copy(dist_file( 'Oyster', './share/deploy/git/post-update'), ($git->dir . '.git/hooks/')) 
    or Error::Simple->throw('Creating post commit hooks failed.');
  
  chmod(0x755, ('./bin/git/hooks/post-receive', './bin/git/hooks/post-update'));
  
  return 1;
}


1;