view release on metacpan or  search on metacpan

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

=cut

  $self->updateViewSpace unless ($self->{viewSpacePct});

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

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

  my ($status, @output) = $Clearcase::CC->execute (
    "space -region $self->{region} -view $self->{tag}");

  $self->{viewPrivateStorage}    = 0.0;
  $self->{viewPrivateStoragePct} = '0%';
  $self->{viewAdmin}             = 0.0;
  $self->{viewAdminPct}          = '0%';
  $self->{viewDatabase}          = 0.0;
  $self->{viewDatabasePct}       = '0%';
  $self->{viewSpace}             = 0.0;
  $self->{viewSpacePct}          = '0%';

  for (@output) {
    if (/\s*(\S+)\s*(\S+)\s*View private storage/) {
      $self->{viewPrivateStorage}    = $1;
      $self->{viewPrivateStoragePct} = $2;
    } elsif (/\s*(\S+)\s*(\S+)\s*View database/) {
      $self->{viewDatabase}    = $1;
      $self->{viewDatabasePct} = $2;
    } elsif (/\s*(\S+)\s*(\S+)\s*View administration/) {
      $self->{viewAdmin}    = $1;
      $self->{viewAdminPct} = $2;
    } elsif (/\s*(\S+)\s*(\S+)\s*Subtotal/) {
      $self->{viewSpace}    = $1;
      $self->{viewSpacePct} = $2;
    }    # if
  }    # for

  return;
}    # updateViewSpace

1;

=pod

=head2 DEPENDENCIES

=head2 Modules

=over

=item L<Clearcase|Clearcase>

=back

=head2 INCOMPATABILITIES

None

=head2 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