package Circle;

use Fergal::MM qw( Radius Area );
# this creates
# setRadius, getRadius, Radius
# setArea, getArea, Area
#
# All are created in Circle::Accessors and Circle's @ISA
# is updated to include Circle::Accessors.
# This makes overriding easy.

# now override the Area ones
sub setArea
{
  my ($self, $area) = @_;
  $self->Radius = sqrt($area/PI);
}

sub getArea
{
  my ($self, $area) = @_;
  my $r = $self->Radius;
  return PI * $r * $r;
}