my $p = bless {}, Point;
$p->init;
$p->x(1.5);
$p->y(1.5);