Too much Whitespace

[p5sagit/Oyster.git] / 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);
  $git->init();

  my ($postreceive, $postupdate);

  eval {
    $postreceive = dist_file( 'Oyster', './deploy/git/post-receive');
    $postupdate = dist_file( 'Oyster', './deploy/git/post-update');
  };
  #Beware there be deamons here
  if ($@) {
    $postreceive = './share/deploy/git/post-receive';
    $postupdate = './share/deploy/git/post-update';
  }


  copy($postreceive, ($git->dir . '/.git/hooks/')) 
    or Error::Simple->throw('Creating post commit hooks failed.');

  copy($postupdate, ($git->dir . '/.git/hooks/')) 
    or Error::Simple->throw('Creating post commit hooks failed.');

  chmod(0x755, ($git->dir . '.git/hooks/post-receive', $git->dir . '.git/hooks/post-update'));

  return 1;
}


1;