# OOP:  Demo composition, the alternative to inheritance.

sub test01
{
  use GeomPoint;
  use GeomCircle;

  my $x1 = GeomPoint->init(10,5);
  my $x2 = GeomCircle->init(GeomPoint->init(-2,13), 3.141592);

  $x2->printing;
}

test01;