view release on metacpan or  search on metacpan

lib/Clearcase/Views.pm  view on Meta::CPAN

=for html </blockquote>

=cut

  $self->updateViewInfo if !defined $self->{web};
  return $self->{web};
}    # web

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

  my ($dynamic, $web, $ucm, $snapshot) = (0, 0, 0, 0);

  foreach ($self->views) {
    my ($status, @lsview_out) =
      $Clearcase::CC->execute ("lsview -properties -full $_");

    next
      if $status;

    foreach (@lsview_out) {
      if (/Properties/) {
        $dynamic++
          if /dynamic/;
        $snapshot++
          if /snapshot/ and not /webview/;
        $ucm++
          if /ucmview/;
        $web++
          if /webview/;
        last;
      }    # if
    }    # foreach

    $self->{dynamic}  = $dynamic;
    $self->{web}      = $web;
    $self->{ucm}      = $ucm;
    $self->{snapshot} = $snapshot;
  }    # foreach

  return;
}    # updateViewInfo

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