+sub viewPrivateStorage() {
+ my ($self) = @_;
+
+=pod
+
+=head1 viewPrivateStorage
+
+Returns the view private storage size for this view.
+
+Parameters:
+
+=for html <blockquote>
+
+=over
+
+=item none
+
+=back
+
+=for html </blockquote>
+
+Returns:
+
+=for html <blockquote>
+
+=over
+
+=item view private storage
+
+=back
+
+=for html </blockquote>
+
+=cut
+
+ $self->updateViewSpace unless ($self->{viewPrivateStorage});
+
+ return $self->{viewPrivateStorage};
+} # viewPrivateStorage
+
+sub viewPrivateStoragePct() {
+ my ($self) = @_;
+
+=pod
+
+=head1 viewPrivateStoragePct
+
+Returns the view private storage percent for this view.
+
+Parameters:
+
+=for html <blockquote>
+
+=over
+
+=item none
+
+=back
+
+=for html </blockquote>
+
+Returns:
+
+=for html <blockquote>
+
+=over
+
+=item view private storage
+
+=back
+
+=for html </blockquote>
+
+=cut
+
+ $self->updateViewSpace unless ($self->{viewPrivateStoragePct});
+
+ return $self->{viewPrivateStoragePct};
+} # viewPrivateStoragePct
+
+sub viewDatabase() {
+ my ($self) = @_;
+
+=pod
+
+=head1 viewDatabase
+
+Returns the view database size for this view.
+
+Parameters:
+
+=for html <blockquote>
+
+=over
+
+=item none
+
+=back
+
+=for html </blockquote>
+
+Returns:
+
+=for html <blockquote>
+
+=over
+
+=item view database size
+
+=back
+
+=for html </blockquote>
+
+=cut
+
+ $self->updateViewSpace unless ($self->{viewDatabase});
+
+ return $self->{viewDatabase};
+} # viewDatabase
+
+sub viewDatabasePct() {
+ my ($self) = @_;
+
+=pod
+
+=head1 viewDatabasePct
+
+Returns the view database percent for this view.
+
+Parameters:
+
+=for html <blockquote>
+
+=over
+
+=item none
+
+=back
+
+=for html </blockquote>
+
+Returns:
+
+=for html <blockquote>
+
+=over
+
+=item view database percent
+
+=back
+
+=for html </blockquote>
+
+=cut
+
+ $self->updateViewSpace unless ($self->{viewDatabasePct});
+
+ return $self->{viewDatabasePct};
+} # viewDatabasePct
+
+sub viewAdmin() {
+ my ($self) = @_;
+
+=pod
+
+=head1 viewAdmin
+
+Returns the view admin size for this view.
+
+Parameters:
+
+=for html <blockquote>
+
+=over
+
+=item none
+
+=back
+
+=for html </blockquote>
+
+Returns:
+
+=for html <blockquote>
+
+=over
+
+=item view admin size
+
+=back
+
+=for html </blockquote>
+
+=cut
+
+ $self->updateViewSpace unless ($self->{viewAdmin});
+
+ return $self->{viewAdmin};
+} # viewAdmin
+
+sub viewAdminPct() {
+ my ($self) = @_;
+
+=pod
+
+=head1 viewAdminPct
+
+Returns the view admin percent for this view.
+
+Parameters:
+
+=for html <blockquote>
+
+=over
+
+=item none
+
+=back
+
+=for html </blockquote>
+
+Returns:
+
+=for html <blockquote>
+
+=over
+
+=item view admin percent
+
+=back
+
+=for html </blockquote>
+
+=cut
+
+ $self->updateViewSpace unless ($self->{viewAdminPct});
+
+ return $self->{viewAdminPct};
+} # viewAdminPct
+
+sub viewSpace() {
+ my ($self) = @_;
+
+=pod
+
+=head1 viewSpace
+
+Returns the view total size for this view.
+
+Parameters:
+
+=for html <blockquote>
+
+=over
+
+=item none
+
+=back
+
+=for html </blockquote>
+
+Returns:
+
+=for html <blockquote>
+
+=over
+
+=item view space
+
+=back
+
+=for html </blockquote>
+
+=cut
+
+ $self->updateViewSpace unless ($self->{viewSpace});
+
+ return $self->{viewSpace};
+} # viewSpace
+
+sub viewSpacePct() {
+ my ($self) = @_;
+
+=pod
+
+=head1 viewSpacePct
+
+Returns the view database percent for this view.
+
+Parameters:
+
+=for html <blockquote>
+
+=over
+
+=item none
+
+=back
+
+=for html </blockquote>
+
+Returns:
+
+=for html <blockquote>
+
+=over
+
+=item view space percent
+
+=back
+
+=for html </blockquote>
+
+=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
+