SVL::Command::Unshare - Stop sharing a path

SVL documentation Contained in the SVL distribution.

Index

Code Index:

NAME

Top

SVL::Command::Unshare - Stop sharing a path

SYNOPSIS

Top

  svl unshare //trunk/Acme-Colour/

OPTIONS

Top

None.

SVL documentation Contained in the SVL distribution. 
package SVL::Command::Unshare;
use strict;
use warnings;
use Path::Class;
use base qw(SVL::Command);

sub run {
  my($self, $target) = @_;
  die "No target" unless $target;
  my $share = SVL::Sharing->new(file($self->svkpath, 'svl-share'), $self->xd);
  $share->delete($target);
}

1;