view release on metacpan or  search on metacpan

lib/Clearcase/UCM.pm  view on Meta::CPAN

Returns the pvob of the stream

Parameters:

=for html <blockquote>

=over

=item none

=back

=for html </blockquote>

Returns:

=for html <blockquote>

=over

=item stream's pvob

=back

=for html </blockquote>

=cut

  my @pvobs;

  my $VOBs = Clearcase::Vobs->new;

  foreach my $vobtag ($VOBs->vobs) {
    my $VOB  = Clearcase::Vob->new ("$Clearcase::VOBTAG_PREFIX$vobtag");
    my $attr = $VOB->vob_registry_attributes;

    if ($attr and $attr =~ /ucmvob/) {
      push @pvobs, $vobtag;
    }    # if
  }    # foreach

  return @pvobs;
}    # pvobs

1;

=head1 DEPENDENCIES

=head2 Modules

=over

=item L<Clearcase|Clearcase>

=back

=head1 INCOMPATABILITIES

None

=head1 BUGS AND LIMITATIONS

There are no known bugs in this module.

Please report problems to Andrew DeFaria <Andrew@DeFaria.com>.

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2020 by Andrew@DeFaria.com

This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself, either Perl version 5.38.0 or,
at your option, any later version of Perl 5 you may have available.

=cut