projects
/
clearscm.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Moved user log files to /var/local/log
[clearscm.git]
/
lib
/
Clearcase
/
UCM
/
Pvob.pm
diff --git
a/lib/Clearcase/UCM/Pvob.pm
b/lib/Clearcase/UCM/Pvob.pm
index
00fe5e1
..
86629c1
100644
(file)
--- a/
lib/Clearcase/UCM/Pvob.pm
+++ b/
lib/Clearcase/UCM/Pvob.pm
@@
-47,11
+47,12
@@
package Clearcase::UCM::Pvob;
use strict;
use warnings;
use strict;
use warnings;
-use Clearcase;
-use Clearcase::UCM::Stream;
+use parent 'Clearcase::Vob';
+
+use Carp;
sub new ($) {
sub new ($) {
- my ($class, $
name
) = @_;
+ my ($class, $
tag
) = @_;
=pod
=pod
@@
-65,7
+66,7
@@
Parameters:
=over
=over
-=item
pvob
name
+=item name
Name of pvob
Name of pvob
@@
-87,21
+88,26
@@
Returns:
=cut
=cut
- my $self = bless {
- name => $name,
+ croak 'Clearcase::UCM::Pvob: Must specify pvob tag' unless $tag;
+
+ $class = bless {
+ tag => $tag,
+ ucmproject => 1,
}, $class; # bless
}, $class; # bless
- return $self;
+ $class->updateVobInfo;
+
+ return $class;
} # new
} # new
-sub
name
() {
+sub
tag
() {
my ($self) = @_;
=pod
my ($self) = @_;
=pod
-=head2
name
+=head2
tag
-Returns the
name
of the pvob
+Returns the
tag
of the pvob
Parameters:
Parameters:
@@
-121,7
+127,7
@@
Returns:
=over
=over
-=item
pvob's name
+=item
tag
=back
=back
@@
-129,7
+135,12
@@
Returns:
=cut
=cut
- return $self->{name};
+ return $self->{tag};
+} # tag
+
+# Alias name to tag
+sub name() {
+ goto &tag;
} # name
sub streams () {
} # name
sub streams () {
@@
-176,7
+187,7
@@
Returns:
my @streams;
push @streams, Clearcase::UCM::Stream->new ($_, $self->{name})
my @streams;
push @streams, Clearcase::UCM::Stream->new ($_, $self->{name})
- for
each
($Clearcase::CC->output);
+ for ($Clearcase::CC->output);
return @streams;
} # streams
return @streams;
} # streams