[Moscow.pm] Switch vs given

[Павел Купцов]

Либо вообще вытащить эти sub'ы в модуль и в if добавить can. :)
23 апр. 2016 г. 22:00 пользователь <moscow-pm-request на pm.org> написал:

Сообщения, предназначенные для списка
рассылки Moscow-pm, отправляйте по адресу
        moscow-pm на pm.org

Для изменения параметров подписки или
отписки используйте веб-страницу
        http://mail.pm.org/mailman/listinfo/moscow-pm
или отправьте письмо, в теле или теме
которого будет слово 'help', по адресу
        moscow-pm-request на pm.org

Адрес администратора этого списка
рассылки:
        moscow-pm-owner на pm.org

При ответе, пожалуйста, измените тему
письма на более содержательную чем "Re:
Содержание дайджеста списка рассылки
Moscow-pm..."


В этом номере:

   1. Re: Switch vs given (Nikolay Mishin)


----------------------------------------------------------------------

Message: 1
Date: Sat, 23 Apr 2016 02:19:28 +0300
From: Nikolay Mishin <mi на ya.ru>
To: Moscow.pm group <moscow-pm на pm.org>
Subject: Re: [Moscow.pm] Switch vs given
Message-ID: <4851241461367168 на web2g.yandex.ru>
Content-Type: text/plain; charset=koi8-r

Хорошая идея, но здесь еще проблема разделить пустой ключ и undef,
у меня для каждого из них разная обработка  ( например, это может быть при
разборе роутинга)

22.04.2016, 18:57, "vividsnow" <vividsnow на gmail.com>:
> возможно подойдет dispatch hash:
>
> my %h = (
>      type1 => sub { ... },
>      type2 => sub { ... },
>      ...
> );
> if (my $f = $h{$key}) { $f->() }
> else { ... } # default
>
> On 04/21/2016 03:10 PM, Nikolay Mishin wrote:
>
>>  Привет Moscow-PM
>>
>>  может я повторяюсь, но что делать
>>
>>  на
>>
>>  use Switch;
>>  perlcritic жалуется
>>  Found use of Switch. This module is deprecated by the Perl 5 Porters
(Find an alternative module) [Modules::ProhibitEvilModules]
>>
>>  а на
>>
>>  use v5.10.1;
>>  no warnings 'experimental::smartmatch';
>>  в версиях perl < 5.17 (travis тестирует все с 5.10 вот пример вывода
https://travis-ci.org/mishin/Ftree-cpan/jobs/124726293)
>>  пишет
>>  Unknown warnings category 'experimental::smartmatch'
>>
>>  и вот эта строка
>>  no if $] >= 5.017011, warnings => 'experimental::smartmatch';
>>  (
http://blogs.perl.org/users/mike_b/2013/06/a-little-nicer-way-to-use-smartmatch-on-perl-518.html
)
>>
http://www.effectiveperlprogramming.com/2013/06/experimental-features-now-warn-reaching-back-to-v5-10/
>>
>>  тоже не помогает
>>
>>  так как надо писать? if else?
> --
> Moscow.pm mailing list
> moscow-pm на pm.org | http://moscow.pm.org

--
С уважением
Николай Мишин




------------------------------

Subject: Нижний колонтитул дайджеста

_______________________________________________
Moscow-pm mailing list
Moscow-pm на pm.org
http://mail.pm.org/mailman/listinfo/moscow-pm


------------------------------

Конец Дайджест списка рассылки Moscow-pm; том 102, выпуск 17
************************************************************************************************
----------- следущая часть -----------
Вложение в формате HTML было извлечено…
URL: <http://mail.pm.org/pipermail/moscow-pm/attachments/20160425/df5fa56b/attachment.html>