Не-не

no warnings qw(uninitialized); это плохо

16:57, 16 октября 2015 г., Oleg Alexeenkov :
Илья Винокуров писал(а) в своём письме Thu, 15 Oct 2015
09:55:18 +0300:


 Как-то так...


 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
 );

$person->get_father // undef
Такое выражение вообще имеет смысл?
оставить просто
$person->get_father



 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 // '') : '';

no warnings qw(uninitialized);
и не надо этих // ''

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


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

Ответить