[Moscow.pm] refactoring

[Nikolay Mishin]

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

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