<HTML><BODY><p><br>Где-то здесь и ООП:<br><br>package OOP;<br>use base qw{ <span class="pl-en">PersonClass }</span>;<br><br>sub get_father_id { eval { shift->SUPER::get_father->get_id } // undef };<br>sub get_mother_id { eval { shift->SUPER::get_mother->get_id } // undef };<br>sub get_email_id { eval { shift->SUPER::get_email } // undef };<br>sub get_homepage_id { eval { shift->SUPER::get_homepage } // undef };<br><br>ну и так далее говнокодим...<br><br>С почтением,<br> Илья Винокуров.<br><br></p><blockquote style="border-left:1px solid #0857A6; margin:10px; padding:0 0 0 10px;">
Пятница, 16 октября 2015, 15:59 +03:00 от Михаил Шогин <mshogin@gmail.com>:<br>
<br>
<div id="">
<div class="js-helper js-readmsg-msg">
<style type="text/css"></style>
<div>
<base target="_self" href="https://e.mail.ru/">
<div id="style_14450004030000000902_BODY"><div dir="ltr"><div>Ильич, а где ООП? ;)<br><br></div>MS<br></div><div><br><div>15 октября 2015 г., 9:55 пользователь Илья Винокуров <span dir="ltr"><<a href="//e.mail.ru/compose/?mailto=mailto%3ailvin@mail.ru" target="_blank">ilvin@mail.ru</a>></span> написал:<br><blockquote style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">
<div><br>Здравствуйте, комрады!<br><br>Как-то так...<br><br>my ($father, $mother, $email, $homepage, $date_of_birth) = (<br> $person->get_father // undef,<br> $person->get_mother // undef,<br> $person->get_email // undef,<br> $person->get_homepage // undef,<br> $person->get_date_of_birth // undef<br>);<br><br>push @person_row,<br> $father && $father->get_id,<br> $mother && $mother->get_id,<br> $email,<br> $homepage,<br> $date_of_birth ? join('/', $date_of_birth->day // '', $date_of_birth->month // '', $date_of_birth->year // '') : '';<br><br><br>С почтением,<br> Илья Винокуров.<br><br><blockquote style="border-left:1px solid #0857a6;margin:10px;padding:0 0 0 10px">
Четверг, 15 октября 2015, 5:43 +03:00 от Nikolay Mishin <<a href="//e.mail.ru/compose/?mailto=mailto%3ami@ya.ru" target="_blank">mi@ya.ru</a>>:<div><div><br>
<br>
<div>
<div>
<div>
<div>Hi Moscow.PM!<br>
<br>
Существует ли какой-либо сбособ сделать более читаемым такой код?:<br>
<br>
push @person_row, (defined $person->get_father()) ? $person->get_father()->get_id() : undef; <br>
push @person_row, (defined $person->get_mother()) ? $person->get_mother()->get_id() : undef; <br>
push @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>
источник <a href="https://github.com/mishin/Ftree-cpan/blob/master/lib/Ftree/Exporters/ExcelExporter.pm#L53" target="_blank">https://github.com/mishin/Ftree-cpan/blob/master/lib/Ftree/Exporters/ExcelExporter.pm#L53</a><br>
<br>
-- <br>
С уважением<br>
Николай Мишин<br>
<br>
-- <br>
Moscow.pm mailing list<br>
<a href="https://e.mail.ru/compose?To=moscow%2dpm@pm.org" target="_blank">moscow-pm@pm.org</a> | <a href="http://moscow.pm.org" target="_blank">http://moscow.pm.org</a><br>
</div>
</div>
</div>
</div>
</div></div></blockquote>
<br></div>
<br>--<br>
Moscow.pm mailing list<br>
<a href="//e.mail.ru/compose/?mailto=mailto%3amoscow%2dpm@pm.org" target="_blank">moscow-pm@pm.org</a> | <a href="http://moscow.pm.org" rel="noreferrer" target="_blank">http://moscow.pm.org</a><br>
<br></blockquote></div><br><br clear="all"><br>-- <br><div>С уважением<br>Михаил Шогин.<br></div>
</div>
</div>
<div>-- <br>
Moscow.pm mailing list<br>
<a href="/compose?To=moscow%2dpm@pm.org">moscow-pm@pm.org</a> | <a href="http://moscow.pm.org" target="_blank">http://moscow.pm.org</a><br>
</div>
<base target="_self" href="https://e.mail.ru/">
</div>
</div>
</div>
</blockquote>
<br></BODY></HTML>