cheselton has asked for the wisdom of the Perl Monks concerning the following question:
I've been using the use feature qw( switch ) feature, pretty much since in came out in Perl 5.10. As of v5.18 or so, someone with enough clout, decided that the "smartmatch" feature was experimental, and this given/when construct appears to fall into the "smartmatch" category.
Normally this isn't an issue, as I'm usually writing one-off scripts that tackle a specific task and/or run on identical platforms -- so the same Perl version all around.
I'm currently working on a project that crosses different linux distributions, and therefore different Perl versions. Some (one, actually) before 5.18 and some (most) after (5.20 or so).
The older ones run fine; the newer ones complain that the feature is "experimental". One can disable the warnings on the newer perls by using...
no warnings "smartmatch::expierimental;...but the older perls don't recognize the pragma and fail to run.
So what's the best way to use this case/switch functionality across perl versions without editing my code every time?
(Note: I've tried the Switch module, but it doesn't seem to handle regular expressions very well -- especially with nested blocks.)
Any help appreciated.