Не-не<br /><br />no warnings qw(uninitialized); это плохо<br /><br />16:57, 16 октября 2015 г., Oleg Alexeenkov :<br /><blockquote>Илья Винокуров  писал(а) в своём письме Thu, 15 Oct 2015 <br />09:55:18 +0300:<br /><br /><br /><blockquote> Как-то так...<br /></blockquote><br /><br /><blockquote> 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 /></blockquote><br />$person->get_father // undef<br />Такое выражение вообще имеет смысл?<br />оставить просто<br />$person->get_father<br /><br /><br /><br /><blockquote> 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 // '', <br /> $date_of_birth->month // '', $date_of_birth->year // '') : '';<br /></blockquote><br />no warnings qw(uninitialized);<br />и не надо этих // ''<br /><br />-- <br />Moscow.pm mailing list<br />moscow-pm@pm.org | http://moscow.pm.org<br /></blockquote><br /><br />Sincerely, Nikolay Mishin