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

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;
Commit	Line	Data
40056462	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;