package Person;

sub init {
    ...
    $self->set_title($title)
         ->set_first_name($first)
         ->set_last_name($last);
    ...
}