Это да, сам код может и не соответствовать этим правилам<br /><br />18:14, 15 октября 2015 г., PEF Secure <pef-secure@yandex.ru>:<br /><blockquote>On Thursday, October 15, 2015 05:43:11 Nikolay Mishin wrote:<br /><br /><blockquote> Hi Moscow.PM!<br /><br /> Существует ли какой-либо сбособ сделать более читаемым такой код?:<br /><br />     push @person_row, (defined $person->get_father()) ?<br /> $person->get_father()->get_id() : undef; push @person_row, (defined<br /> $person->get_mother()) ? $person->get_mother()->get_id() : undef; push<br /> @person_row, ($person->get_email(), $person->get_homepage());<br /><br />     my $date = "";<br />     if(defined $person->get_date_of_birth()) {<br />       my $date_of_birth = $person->get_date_of_birth();<br />       $date .= defined $date_of_birth->day ? $date_of_birth->day."/" : "";<br />       $date .= defined $date_of_birth->month ? $date_of_birth->month."/" :<br /> ""; $date .= defined $date_of_birth->year ? $date_of_birth->year : ""; }<br /><br /> источник<br /> https://github.com/mishin/Ftree-cpan/blob/master/lib/Ftree/Exporters/ExcelE<br /> xporter.pm#L53<br /></blockquote><br />Подозреваю, что работа с get_date_of_birth имеет некоторые правила, не может, <br />наверняка, присутствовать день и год, но отсутствовать месяц. <br /><br />push @person_row, map { my $m="get_$_"; $person->$m && $person->$m->get_id } <br />qw(father mother);<br />push @person_row, map { my $m="get_$_"; $person->$m } qw(email homepage);<br /><br /><br />-- <br />PEF Developer<br />-- <br />Moscow.pm mailing list<br />moscow-pm@pm.org | http://moscow.pm.org<br /></blockquote><br /><br />Sincerely, Nikolay Mishin