Select Code to Download

sub set_area { 
    my $self = shift; 
...
    die "Area must be non-negative." unless $area >= 0;
    # ... 
}