use Switch в Perl: насколько это ужасно?

Есть же встроенный вариант:

use 5.010;

given ($foo) {
    when ($a) {}
    when ($b) {}
    when (do_with_foo($_)) {}
}

Кто что думает по этому поводу?

Использую нативный smart matching (который в свежих версиях будут выпиливать) и given-when.

Moose использовал в каталисте и dbix::class - вполне годно (хоть и считаю все это слишком сложным, тяжелым, временами глючным).

парсинг и генерация перл-кода, и что это может привести к феерическим плохо диагностируемым глюкам

Да, может и проводит, но это устовшаяся практика, это умеют готовить и хорошо получается. Глюки можно даже с AUTOLOAD поймать, в перле таких инструментов хватает.

Использую elsif в простых случаях (ЕМНИП так в книге с верблюдом и советуют вместо switch), иначе хеш с функциями:

my %h=(
  a=>sub{},
  b=>sub{}
);
$h{$foo}->();

Switch в виде отдельного модуля не нужен

Не пользуюсь и другим не советую. Да и автор модуля в секции BUGS всё описал.
А в Moose для нового синтаксиса вроде используются прямые манипуляции с optree. Типа как в Deve::Declare и Syntax::Feature::. Что более глобально и надёжно.

use 5.010;

Или

use feature qw(switch);

Но smart match в последнее время не любят (начиная с 5.18). К свичу это тем боком, что given..when использует smart match

Но smart match в последнее время не любят (начиная с 5.18).

А можно узнать причину ? :)

http://stackoverflow.com/questions/16927024/perl-5-20-and-the-fate-of-smart-m...

А вот заметка из perldelta для 5.18: https://metacpan.org/pod/release/RJBS/perl-5.18.0/pod/perldelta.pod#The-smart...

for ($value) {
  when ($a) { ... }
  when ($b) { ... }
}

Безопасно и надежно. Про given() все расписано. Минус у when() в том, что для чисел имеется UB.

может привести к феерическим плохо диагностируемым глюкам

perl

Нашел чего бояться