File Coverage

lib/Clearcase/UCM/Pvob.pm

Criterion	Covered	Total	%
statement	12	27	44.4
branch	0	4	0.0
condition			n/a
subroutine	4	8	50.0
pod	4	4	100.0
total	20	43	46.5

=pod

=head1 NAME Pvob.pm

Object oriented interface to a UCM Pvob

=head1 VERSION

=over

=item Author

Andrew DeFaria

=item Revision

$Revision: 1.1 $

=item Created

Fri May 14 18:16:16 PDT 2010

=item Modified

$Date: 2011/11/09 01:52:39 $

=back

=head1 SYNOPSIS

Provides access to information about a Clearcase Pvob.

  my $pvob = new Clearcase::UCM::Pvob ($name);

=head1 DESCRIPTION

This module implements a UCM Pvob object

=head1 ROUTINES

The following routines are exported:

=cut

package Clearcase::UCM::Pvob;

use strict;
use warnings;

use parent 'Clearcase::Vob';

use Carp;

sub new ($) {
  my ($class, $tag) = @_;

=pod

=head2 new

Construct a new Clearcase Pvob object.

Parameters:

=for html

=over

=item name

Name of pvob

=back

=for html

Returns:

=for html

=over

=item Clearcase Pvob object

=back

=for html

=cut

  croak 'Clearcase::UCM::Pvob: Must specify pvob tag' unless $tag;

  $class = bless {
    tag        => $tag,
    ucmproject => 1,
    },
    $class;    # bless

  $class->updateVobInfo;

  return $class;
}    # new

sub tag() {
  my ($self) = @_;

=pod

=head2 tag

Returns the tag of the pvob

Parameters:

=for html

=over

=item none

=back

=for html

Returns:

=for html

=over

=item tag

=back

=for html

=cut

  return $self->{tag};
}    # tag

# Alias name to tag
sub name() {
  goto &tag;
}    # name

sub streams () {
  my ($self) = @_;

=pod

=head2 streams

Returns an array of stream objects in the pvob

Parameters:

=for html

=over

=item none

=back

=for html

Returns:

=for html

=over

=item array of stream objects in the pvob

=back

=for html

=cut

  my $cmd = "lsstream -short -invob $self->{name}";

  $Clearcase::CC->execute ($cmd);

  return if $Clearcase::CC->status;

  my @streams;

  push @streams, Clearcase::UCM::Stream->new ($_, $self->{name})
    for ($Clearcase::CC->output);

  return @streams;
}    # streams

1;

=head1 DEPENDENCIES

=head2 Modules

=over

=item L

=item L

=back

=head1 INCOMPATABILITIES

None

=head1 BUGS AND LIMITATIONS

There are no known bugs in this module.

Please report problems to Andrew DeFaria .

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2020 by [e-mail]

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