1 2 3 4 5 6 7 8
#!/usr/bin/env perl use warnings; use 5.10.1; use Term::Choose qw(choose); my @choices = choose( [ qw( eins zwei drei vier fünf ) ] ); say "@choices";
Quote(http://wiki.cpantesters.org/wiki/CPANAuthorNotes CPAM Testers Wiki)"How can I indicate that my distribution only works on a particular operating system?"
While it isn't a very elegant solution, the recommend approach is to either die in the Makefile.PL or Build.PL (or BAIL_OUT in a test file) with one of the following messages:
No support for OS
OS unsupported
CPAN Testers tools will look for one of those phrases and will send an NA (Not Available) report for that platform.
1 2 3 4 5 6 7 8
use 5.010001; use strict; use warnings; use Test::More; my bail_out = 'MSWin32'; BAIL_OUT( "No support for $bail_out" ) if $^O eq $bail_out;
die 'No support for MSWin32' if $^O eq 'MSWin32';