File Coverage

lib/Clearcase/UCM/Baseline.pm

Criterion	Covered	Total	%
statement	9	53	16.9
branch	0	20	0.0
condition	0	25	0.0
subroutine	3	11	27.2
pod	7	7	100.0
total	19	116	16.3

=pod

=head1 NAME Baseline.pm

Object oriented interface to UCM Streams

=head1 VERSION

=over

=item Author

Andrew DeFaria

=item Revision

$Revision: 1.4 $

=item Created

Fri May 14 18:16:16 PDT 2010

=item Modified

$Date: 2011/11/15 01:59:07 $

=back

=head1 SYNOPSIS

Provides access to information about Clearcase Elements.

  my $stream= new Clearcase::UCM::Stream ($name, $pvob);

=head1 DESCRIPTION

This module implements a UCM Stream object

=head1 ROUTINES

The following routines are exported:

=cut

package Clearcase::UCM::Baseline;

use strict;
use warnings;

use Carp;

sub _processOpts(%) {
  my ($self, %opts) = @_;

  my $opts;

  for (keys %opts) {
    if ($_ eq 'cq' or $_ eq 'cqe' or $_ eq 'force' or $_ eq 'nc') {
      $opts .= "-$_ ";
    } elsif ($_ eq 'c' or $_ eq 'cfile') {
      $opts .= "-$_ $opts{$_}";
    }    # if
  }    # for

  return $opts;
}    # _processOpts

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

=pod

=head2 new

Construct a new Clearcase Stream object.

Parameters:

=for html

=over

=item stream name

Name of stream

=back

=for html

Returns:

=for html

=over

=item Clearcase Stream object

=back

=for html

=cut

  $class = bless {
    name => $baseline,
    pvob => $pvob,
    },
    $class;    # bless

  return $class;
}    # new

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

=pod

=head2 name

Returns the name of the stream

Parameters:

=for html

=over

=item none

=back

=for html

Returns:

=for html

=over

=item stream's name

=back

=for html

=cut

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

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

=pod

=head2 pvob

Returns the pvob of the stream

Parameters:

=for html

=over

=item none

=back

=for html

Returns:

=for html

=over

=item stream's pvob

=back

=for html

=cut

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

sub create($;$$$) {
  my ($self, $view, $comment, $opts) = @_;

=pod

=head2 create

Creates a new UCM Baseline Object

Parameters:

=for html

=over

=item opts

Options: Additional options to use

=back

=for html

Returns:

=for html

=over

=item $status

Status from cleartool

=item @output

Ouput from cleartool

=back

=for html

=cut

  $opts ||= '';

  $comment = Clearcase::setComment $comment;

  return $Clearcase::CC->execute (
    "mkbl $comment $opts -view " . $view->tag . ' ' . $self->{name});
}    # create

sub remove($) {
  my ($self, $opts) = @_;

=pod

=head2 remove

Removes UCM Baseline

Parameters:

=for html

=over

=item none

=item %opts

Options: Additional options to use (e.g. -c, -force, etc.)

=back

=for html

Returns:

=for html

=over

=item nothing

Remember to check status method for error, and/or output method for output.

=back

=for html

=cut

  $opts ||= '';

  return $Clearcase::CC->execute (
    "rmbl $opts -force " . $self->{name} . '@' . $self->{pvob}->name);
}    # remove

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

=pod

=head2 attributes

Returns a hash of the attributes associated with a baseline

Parameters:

=for html

=over

=item none

=back

=for html

Returns:

=for html

=over

=item %attributes

Hash of attributes for this baseline

=back

=for html

=cut

  return $self->Clearcase::attributes ('baseline',
    "$self->{name}\@" . $self->{pvob}->name);
}    # attributes

sub diff($;$$) {
  my ($self, $type, $baseline, %opts) = @_;

=pod

=head2 diff

Returns a hash of information regarding the difference between two baselines or
a baseline and the stream (AKA "top of stream").

Parameters:

=for html

=over

=item [activities|versions|baselines]

Must specify one of [activities|versions|baselines]. Information will be
returned based on this parameter.

=item $baseline or $stream

Specify the baseline or stream to compare to. If not specified a -predeccsor
diffbl will be done. If a stream use "stream:" otherwise use
"baseline:" or simply "".

=item %opts

Additional options.

=back

=for html

Returns:

=for html

=over

=item %info

Depending on whether activites, versions or baselines were specified, the
returned hash will be constructed with the key being the activity, version
string or baseline name as the key with additional information specified as the
value.

=back

=for html

=cut

  unless ($type =~ /^activities$/i
    or $type =~ /^versions$/i
    or $type =~ /^baselines$/i)
  {
    croak "Type must be one of activities, versions or baselines in "
      . "Clearcase::UCM::Baseline::diff - not $type";
  }    # unless

  my $myBaseline = "$self->{name}\@$self->{pvob}";

  my $cmd = "diffbl -$type";

  if ($baseline) {
    if ($baseline =~ /(\S+):/) {
      unless ($1 eq 'baseline' or $1 eq 'stream') {
        croak "Baseline should be baseline: or stream: or "
          . "just ";
      }    # unless
    }    # if

    $baseline .= "\@$self->{pvob}" unless $baseline =~ /\@/;

    $cmd .= " $myBaseline $baseline";
  } else {
    $cmd .= " -predeccsor";
  }    # if

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

  return if $Clearcase::CC->status;

  my @output = $Clearcase::CC->output;

  my %info;

  for (@output) {
    next unless /^(\>\>|\<\<)/;

    if (/(\>\>|\<\<)\s+(\S+)\@/) {
      $info{$2} = Clearcase::UCM::Activity->new ($2, $self->{pvob});
    }    # if
  }    # for

  return %info;
}    # diff

1;

=head1 DEPENDENCIES

=head2 Modules

=over

=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