Merge branch 'master' of git+ssh://github.com/adefaria/clearscm

[clearscm.git] / lib / Clearcase / UCM / Project.pm

diff --git a/lib/Clearcase/UCM/Project.pm b/lib/Clearcase/UCM/Project.pm
index 8db0f86..7b58a10 100644 (file)
--- a/lib/Clearcase/UCM/Project.pm
+++ b/lib/Clearcase/UCM/Project.pm
@@ -102,7 +102,7 @@ Returns:
     
   return $class; 
 } # new
-  
+
 sub name () {
   my ($self) = @_;
     
@@ -178,7 +178,7 @@ Returns:
 
   return $self->{pvob};
 } # pvob
-  
+
 sub create (;$) {
   my ($self, $opts) = @_;
 
@@ -270,8 +270,55 @@ Ouput from cleartool
 =cut
 
   return $Clearcase::CC->execute 
-    ('rmproject -f ' . $self->{name} . "\@" . $self->{pvob}->name);
-} # rmProject
+    ('rmproject -f ' . $self->{name} . "\@" . $self->{pvob}->tag);
+} # remove
+
+sub change($) {
+  my ($self, $opts) = @_;
+
+=pod
+
+=head2 change
+
+Changes UCM Project
+
+Parameters:
+
+=for html <blockquote>
+
+=over
+
+=item opts
+
+Options
+
+=for html </blockquote>
+
+Returns:
+
+=for html <blockquote>
+
+=over
+
+=item $status
+
+Status from cleartool
+
+=item @output
+
+Ouput from cleartool
+
+=back
+
+=for html </blockquote>
+
+=cut
+
+  $opts ||= '';
+
+  return $Clearcase::CC->execute 
+    ("chproject $opts " . $self->{name} . "\@" . $self->{pvob}->name);
+} # change
 
 sub exists() {
   my ($self) = @_;