Где-то здесь и ООП:
package OOP;
use base qw{ PersonClass } ;
sub get_father_id { eval { shift->SUPER::get_father->get_id } // undef };
sub get_mother_id { eval { shift->SUPER::get_mother->get_id } // undef };
sub get_email_id { eval { shift->SUPER::get_email } // undef };
sub get_homepage_id { eval { shift->SUPER::get_homepage } // undef };
ну и так далее говнокодим...
С почтением,
Илья Винокуров.
>Пятница, 16 октября 2015, 15:59 +03:00 от Михаил Шогин <[email protected]>:
>
>Ильич, а где ООП? ;)
>
>MS
>
>15 октября 2015 г., 9:55 пользователь Илья Винокуров < [email protected] >
>написал:
>>
>>Здравствуйте, комрады!
>>
>>Как-то так...
>>
>>my ($father, $mother, $email, $homepage, $date_of_birth) = (
>> $person->get_father // undef,
>> $person->get_mother // undef,
>> $person->get_email // undef,
>> $person->get_homepage // undef,
>> $person->get_date_of_birth // undef
>>);
>>
>>push @person_row,
>> $father && $father->get_id,
>> $mother && $mother->get_id,
>> $email,
>> $homepage,
>> $date_of_birth ? join('/', $date_of_birth->day // '',
>>$date_of_birth->month // '', $date_of_birth->year // '') : '';
>>
>>
>>С почтением,
>> Илья Винокуров.
>>
>>>Четверг, 15 октября 2015, 5:43 +03: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
--
Moscow.pm mailing list
[email protected] | http://moscow.pm.org
