view release on metacpan or  search on metacpan

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

    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:<baseline> or stream:<stream> or "
          . "just <baseline>";
      }    # 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<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