Cпасибо за ответ,
класс-то вот от
https://github.com/mishin/Ftree-cpan/blob/master/lib/Ftree/Person.pm
а как переписать,есть пример, как это должно быть вменяемо
(я сам перепишу, меня бы направить)

15.10.2015, 07:16, "Anatoly Y" <[email protected]>:
> Ну вообще код читаемый :)
> А так, нужно смотреть класс который описывает объект $person. Его следует 
> переписать.
>
> 2015-10-15 8:43 GMT+06:00 Nikolay Mishin <[email protected]>:
>> Hi Moscow.PM!
>>
>> Существует ли какой-либо сбособ сделать более читаемым такой код?:
>>
>>     push @person_row, (defined $person->get_father()) ? 
>> $person->get_father()->get_id() : undef;
>>     push @person_row, (defined $person->get_mother()) ? 
>> $person->get_mother()->get_id() : undef;
>>     push @person_row, ($person->get_email(), $person->get_homepage());
>>
>>     my $date = "";
>>     if(defined $person->get_date_of_birth()) {
>>       my $date_of_birth = $person->get_date_of_birth();
>>       $date .= defined $date_of_birth->day ? $date_of_birth->day."/" : "";
>>       $date .= defined $date_of_birth->month ? $date_of_birth->month."/" : 
>> "";
>>       $date .= defined $date_of_birth->year ? $date_of_birth->year : "";
>>     }
>>
>> источник 
>> https://github.com/mishin/Ftree-cpan/blob/master/lib/Ftree/Exporters/ExcelExporter.pm#L53
>>
>> --
>> С уважением
>> Николай Мишин
>>
>> --
>> Moscow.pm mailing list
>> [email protected] | http://moscow.pm.org
>
> ,--
> Moscow.pm mailing list
> [email protected] | http://moscow.pm.org

-- 
С уважением
Николай Мишин

-- 
Moscow.pm mailing list
[email protected] | http://moscow.pm.org

Ответить