TABLE OF CONTENTS

Box/SquareBox [ Classes ]

[ Top ] [ Box ] [ Classes ]

FUNCTION

A box with the property that are sides are equal.

ATTRIBUTES

SIDE_LENGTH -- the length of each side

DERIVED FROM

Box

SOURCE

package SquareBox;

use Box;
use vars ('@ISA');
@ISA = ("Box");

sub new {
    my $classname = shift;
    my $self      = $classname->SUPER::new(@_);
    $self->{SIDE}  = 1;
    return $self;
}

Box/SquareBox::side [ Methods ]

[ Top ] [ Box ] [ Methods ]

FUNCTION

Set or get the side length of the square box.

SYNOPSIS

$boxref->side(100.25); my $length = $boxref->side();

RETURN VALUE

The volume of the box

SOURCE

sub side {
    my $self = shift;
    if (@_) {
        my $length = shift;
        $self->{SIDE} = $length;
    }
    return  $self->{SIDE};
}

Box/SquareBox::volume [ Methods ]

[ Top ] [ Box ] [ Methods ]

FUNCTION

Compute the volume of a square box.

SYNOPSIS

my $volume = $boxref->volume();

RETURN VALUE

The volume of the box

SOURCE

sub volume {
    my $self = { };
    return $self{SIDE} * $self{SIDE} * $self{SIDE} ;
}