синтаксис

Perl Syntax::NamedArgs

Решил вы­ло­жить в ви­де мо­ду­ля па­ру функ­ций в 20 строк, ко­то­рые дав­ным-дав­но тас­каю по всем сво­им про­ек­там и ко­то­рые силь­но упро­ща­ют на­пи­са­ние боль­ших про­ек­тов на Perl. Вот он: https://github.com/johnlepikhin/p5-Syntax-NamedArgs Функ­ции де­ла­ют про­стые ве­щи: Гаран­ти­ру­ют, что функ­цию по­зва­ли с хэш-ар­гу­мен­та­ми; Про­ве­ря­ют, что та­кие-то ар­гу­мен­ты пе­ре­да­ны; Позво­ля­ют за­дать зна­че­ние по умо­лча­нию; Валят чи­та­емую ошиб­ку, ес­ли где-то вглу­би сте­ка ока­за­лось, что ар­гу­мен­та не­хва­та­ет. В со­вокуп­нос­ти это по­зво­ля­ет пи­сать до­воль­но за­мыс­ло­ва­тые кон­ст­рук­ции с лег­кой ор­га­ни­за­ци­ей глу­бо­кой пе­ре­да­чи зна­че­ний.