view release on metacpan or  search on metacpan

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

=item $status

Status from cleartool

=item @output

Output from cleartool

=back

=for html </blockquote>

=cut

  return $Clearcase::CC->execute (
    'rmfolder -f ' . $self->{name} . "\@" . $self->{pvob}->tag);
}    # rmfolder

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

  my ($status, @output) = $Clearcase::CC->execute (
    "lsfolder -long $self->{name}" . '@' . $self->{pvob}->tag);

  return if $status;

  for (@output) {
    if (/owner: (.*)/) {
      $self->{owner} = $1;
    } elsif (/group: (.*)/) {
      $self->{group} = $1;
    } elsif (/title: (.*)/) {
      $self->{title} = $1;

      # TODO: Get containing folders and containing projects
    }    # if
  }    # for

  return $self;
}    # updateFolderInfo

1;

=head1 DEPENDENCIES

=head2 Modules

=over

=item L<Clearcase|Clearcase>

=item L<Clearcase::UCM::Baseline|Clearcase::UCM::Baseline>

=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