| Subject: | "given/when is experimental" warnings |
In Perl 5.18.0 and above, loading File::Dropbox causes a bunch of warnings about using an experimental feature:
$ perl -MFile::Dropbox -E 'say $]'
given is experimental at /usr/local/share/perl/5.18.2/File/Dropbox.pm line 93.
when is experimental at /usr/local/share/perl/5.18.2/File/Dropbox.pm line 94.
when is experimental at /usr/local/share/perl/5.18.2/File/Dropbox.pm line 96.
when is experimental at /usr/local/share/perl/5.18.2/File/Dropbox.pm line 101.
when is experimental at /usr/local/share/perl/5.18.2/File/Dropbox.pm line 108.
given is experimental at /usr/local/share/perl/5.18.2/File/Dropbox.pm line 216.
when is experimental at /usr/local/share/perl/5.18.2/File/Dropbox.pm line 217.
when is experimental at /usr/local/share/perl/5.18.2/File/Dropbox.pm line 221.
when is experimental at /usr/local/share/perl/5.18.2/File/Dropbox.pm line 225.
given is experimental at /usr/local/share/perl/5.18.2/File/Dropbox.pm line 307.
when is experimental at /usr/local/share/perl/5.18.2/File/Dropbox.pm line 308.
when is experimental at /usr/local/share/perl/5.18.2/File/Dropbox.pm line 310.
when is experimental at /usr/local/share/perl/5.18.2/File/Dropbox.pm line 314.
given is experimental at /usr/local/share/perl/5.18.2/File/Dropbox.pm line 409.
when is experimental at /usr/local/share/perl/5.18.2/File/Dropbox.pm line 410.
when is experimental at /usr/local/share/perl/5.18.2/File/Dropbox.pm line 415.
when is experimental at /usr/local/share/perl/5.18.2/File/Dropbox.pm line 420.
when is experimental at /usr/local/share/perl/5.18.2/File/Dropbox.pm line 427.
when is experimental at /usr/local/share/perl/5.18.2/File/Dropbox.pm line 433.
when is experimental at /usr/local/share/perl/5.18.2/File/Dropbox.pm line 438.
given is experimental at /usr/local/share/perl/5.18.2/File/Dropbox.pm line 471.
when is experimental at /usr/local/share/perl/5.18.2/File/Dropbox.pm line 472.
when is experimental at /usr/local/share/perl/5.18.2/File/Dropbox.pm line 477.
when is experimental at /usr/local/share/perl/5.18.2/File/Dropbox.pm line 482.
when is experimental at /usr/local/share/perl/5.18.2/File/Dropbox.pm line 487.
when is experimental at /usr/local/share/perl/5.18.2/File/Dropbox.pm line 494.
when is experimental at /usr/local/share/perl/5.18.2/File/Dropbox.pm line 500.
when is experimental at /usr/local/share/perl/5.18.2/File/Dropbox.pm line 510.
given is experimental at /usr/local/share/perl/5.18.2/File/Dropbox.pm line 537.
when is experimental at /usr/local/share/perl/5.18.2/File/Dropbox.pm line 538.
given is experimental at /usr/local/share/perl/5.18.2/File/Dropbox.pm line 556.
when is experimental at /usr/local/share/perl/5.18.2/File/Dropbox.pm line 557.
when is experimental at /usr/local/share/perl/5.18.2/File/Dropbox.pm line 561.
when is experimental at /usr/local/share/perl/5.18.2/File/Dropbox.pm line 566.
when is experimental at /usr/local/share/perl/5.18.2/File/Dropbox.pm line 571.
when is experimental at /usr/local/share/perl/5.18.2/File/Dropbox.pm line 576.
when is experimental at /usr/local/share/perl/5.18.2/File/Dropbox.pm line 583.
given is experimental at /usr/local/share/perl/5.18.2/File/Dropbox.pm line 638.
when is experimental at /usr/local/share/perl/5.18.2/File/Dropbox.pm line 639.
when is experimental at /usr/local/share/perl/5.18.2/File/Dropbox.pm line 644.
when is experimental at /usr/local/share/perl/5.18.2/File/Dropbox.pm line 649.
when is experimental at /usr/local/share/perl/5.18.2/File/Dropbox.pm line 656.
when is experimental at /usr/local/share/perl/5.18.2/File/Dropbox.pm line 662.
when is experimental at /usr/local/share/perl/5.18.2/File/Dropbox.pm line 667.
5.018002
Ideally, since given/when has fallen out favor, this can switch to if/else statements. Failing that, something like this to at least suppress the warnings would be preferable:
no if $] >= 5.018, warnings => "experimental::smartmatch";