use strict;
use warnings;
-use Clearcase;
-use Clearcase::UCM::Stream;
+use parent 'Clearcase::Vob';
+
+use Carp;
sub new ($) {
- my ($class, $name) = @_;
+ my ($class, $tag) = @_;
=pod
=over
-=item pvob name
+=item name
Name of pvob
=cut
- my $self = bless {
- name => $name,
+ croak 'Clearcase::UCM::Pvob: Must specify pvob tag' unless $tag;
+
+ $class = bless {
+ tag => $tag,
+ ucmproject => 1,
}, $class; # bless
- return $self;
+ $class->updateVobInfo;
+
+ return $class;
} # new
-sub name () {
+sub tag() {
my ($self) = @_;
=pod
-=head2 name
+=head2 tag
-Returns the name of the pvob
+Returns the tag of the pvob
Parameters:
=over
-=item pvob's name
+=item tag
=back
=cut
- return $self->{name};
+ return $self->{tag};
+} # tag
+
+# Alias name to tag
+sub name() {
+ goto &tag;
} # name
sub streams () {
my @streams;
push @streams, Clearcase::UCM::Stream->new ($_, $self->{name})
- foreach ($Clearcase::CC->output);
+ for ($Clearcase::CC->output);
return @streams;
} # streams
=head2 ClearSCM Perl Modules
-=for html <p><a href="/php/cvs_man.php?file=lib/Clearcase.pm">Clearcase</a></p>
+=for html <p><a href="/php/scm_man.php?file=lib/Clearcase.pm">Clearcase</a></p>
-=for html <p><a href="/php/cvs_man.php?file=lib/Clearcase/UCM/Baseline.pm">Clearcase::UCM::Baseline</a></p>
+=for html <p><a href="/php/scm_man.php?file=lib/Clearcase/UCM/Baseline.pm">Clearcase::UCM::Baseline</a></p>
=head1 INCOMPATABILITIES