view release on metacpan or  search on metacpan

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

  # Get all information that can be gotten using -fmt
  my $fmt .= '%[crm_record_id]p==';
  $fmt    .= '%[crm_record_type]p==';
  $fmt    .= '%[crm_state]p==';
  $fmt    .= '%[headline]p==';
  $fmt    .= '%[name_resolver_view]p==';
  $fmt    .= '%[stream]Xp==';
  $fmt    .= '%[view]p';

  if ($self->type eq 'integration') {
    $fmt = '%[contrib_acts]CXp==';
  }    # if

  $Clearcase::CC->execute (
    "lsactivity -fmt \"$fmt\" $self->{name}@" . $self->{pvob}->name);

  # Assuming this activity is an empty shell of an object that the user may
  # possibly use the create method on, return our blessings...
  return if $Clearcase::CC->status;

  # We need to make sure that fields are filled in or empty because we are using
  # undef as an indication that we have not called updateActivityInfo yet.
  my @fields = split '==', $Clearcase::CC->output;

  $self->{crm_record_id}      = $fields[0];
  $self->{crm_record_type}    = $fields[1];
  $self->{crm_state}          = $fields[2];
  $self->{headline}           = $fields[3];
  $self->{name_resolver_view} = $fields[4];
  $self->{stream}             = $fields[5];
  $self->{view}               = $fields[6];

  $self->{contrib_acts} = ();

  if ($self->type eq 'integration') {
    for (split ', ', $fields[7]) {
      push @{$self->{contrib_acts}}, Clearcase::UCM::Activity->new ($_);
    }    # for
  }    # if

  return;
}    # updateActivityInfo

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