X-Git-Url: https://defaria.com/gitweb/?a=blobdiff_plain;f=lib%2FClearcase%2FUCM%2FPvob.pm;h=86629c144d45361f41c23be976e1921eac23e9f6;hb=78af69cf92b70f02be49fe730a3587b9b182bfe7;hp=db5093a499d4bdb82271a471f988b524fe8bc095;hpb=020a4a5ea2be725b155cae3a2cadc9aba3911b9b;p=clearscm.git diff --git a/lib/Clearcase/UCM/Pvob.pm b/lib/Clearcase/UCM/Pvob.pm index db5093a..86629c1 100644 --- 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 Clearcase; -use Clearcase::UCM::Stream; +use parent 'Clearcase::Vob'; + +use Carp; sub new ($) { - my ($class, $name) = @_; + my ($class, $tag) = @_; =pod @@ -65,7 +66,7 @@ Parameters: =over -=item pvob name +=item name Name of pvob @@ -87,21 +88,26 @@ Returns: =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: @@ -121,7 +127,7 @@ Returns: =over -=item pvob's name +=item tag =back @@ -129,7 +135,12 @@ Returns: =cut - return $self->{name}; + return $self->{tag}; +} # tag + +# Alias name to tag +sub name() { + goto &tag; } # name sub streams () { @@ -176,7 +187,7 @@ Returns: my @streams; push @streams, Clearcase::UCM::Stream->new ($_, $self->{name}) - foreach ($Clearcase::CC->output); + for ($Clearcase::CC->output); return @streams; } # streams @@ -187,9 +198,9 @@ Returns: =head2 ClearSCM Perl Modules -=for html
+=for html -=for html +=for html =head1 INCOMPATABILITIES