3 #****c* Box/RectangularBox
5 # A box with the property that are sides are equal.
7 # DEPTH -- the depth of the box.
8 # HEIGHT -- the height of the box.
9 # WIDTH -- the width of the box.
14 package RectangularBox;
21 my $classname = shift;
22 my $self = $classname->SUPER::new(@_);
29 #****m* Box/RectangularBox::volume
31 # Compute the volume of the rectangular box.
33 # my $volume = $boxref->volume();
35 # The volume of the box
40 return $self->{DEPTH} * $self->{HEIGHT} * $self->{WIDTH};