package VCfs::SVK;

use strict;
use warnings;

use base qw(VCfs::Subversion);

sub is_svk { 1 }
sub is_svn { 0 }


sub new {
  my $class = shift;

  my $self = $class->_init(@_);

  $self->{vcs}     = "svk";
  $self->{vcs_cmd} = "svk";

  return $self;
}


sub _detect {
    my $class = shift;
    my $dir = shift;

    `svk info $dir`;
    return $? == 0 ? 1 : 0;
}

1;