view release on metacpan or  search on metacpan

lib/Lufs/Svn.pm  view on Meta::CPAN

sub umount {
	my $self = shift;
	$self->SUPER::umount(@_);
}

sub release {
	my $self = shift;
	$self->commit($_[0]);
}

sub update {
	my $self = shift;
	$self->{svn}->update(@_);
}

sub checkout {
	my $self = shift;
	system("rm -rf $self->{config}{root}/{.svn,*}") if (length($self->{config}{root}) > 3 && -d $self->{config}{root});
	$self->{svn}->checkout($self->{config}{uri}, $self->{config}{root});
}