package Point; use Object::Simple -base; has x => 1; has y => 1; package main; my $point = Point->new; print $point->x; 1;