¿Puedo asegurarme de que el código de Perl escrito en 5.10+ se ejecutará en 5.8?

Question

Algunas de las nuevas características de Perl 5.10 y 5.12, como "decir", se definen como características, que puede habilitar o rechazar explícitamente utilizando el pragma "característica". Pero otras adiciones, como los grupos de captura nombrados de expresiones regulares, están implícitas.

Cuando escribo Perl usando un intérprete 5.10+, pero quiero que también se ejecute en 5.8, ¿puedo hacer que Perl se queje de usar algo que no está en 5.8? Obviamente, es una buena práctica probar tu código en todas las versiones principales en las que piensas ejecutar, pero aún así sería bueno que Perl me advierta automáticamente.

Answer 1

Cuando deseo asegurarme de que un programa se ejecutará en versiones particulares de perl, lo pruebo bajo esa versión de perl. Una característica de mi aplicación release prueba bajo múltiples perls antes de que realmente se cargue.

Esto requiere que tenga un conjunto de pruebas adecuado y que escriba suficientes pruebas. Es fácil mantener varias instalaciones de perl por separado al mismo tiempo, como lo muestro en Programación eficaz Perl.

Test::MinimumVersion casi parece que podría funcionar, pero tiene varias limitaciones. Solo mira el archivo que le das (por lo que no verificará nada que cargues), y no creo que realmente se vea dentro de los patrones de expresiones regulares. Cada uno de éstos informan que la versión mínima es de 5.004, lo que no es cierto para cualquiera de ellos:

#!perl 

use Perl::MinimumVersion; 

my $p_flag = <<'SOURCE'; 
'123' =~ m/[123]/p; # 5.10 feature 
SOURCE 

my $named_capture = <<'SOURCE'; 
'123' =~ m/(?<num>[123])/; # 5.10 feature 
SOURCE 

my $r_line_ending = <<'SOURCE'; 
'123' =~ m/[123]\R/p; # 5.12 feature 
SOURCE 

my $say = <<'SOURCE'; 
say 'Hello'; 
SOURCE 

my $smart_match = <<'SOURCE'; 
$boolean = '123' ~~ @array; 
SOURCE 

my $given = <<'SOURCE'; 
given($foo) { 
    when(/123/) { say 'Hello' } 
    }; 

SOURCE 

foreach my $source ($p_flag, $named_capture, $r_line_ending, $say, $smart_match, $given) { 
    print "----Source---\n$source\n-----"; 
    my $version = Perl::MinimumVersion->new(\$source )->minimum_version; 
    print "Min version is $version\n"; 
    } 

Parte de la razón Perl::MinimumVersion funciona es porque busca indicios de que la fuente da ya, como use 5.010, y use feature etc. Sin embargo, esa no es la única forma de habilitar funciones. Y, como notará, omite elementos como la bandera /p, al menos hasta que alguien agregue un cheque para eso. Sin embargo, siempre estará persiguiendo cosas así con una solución PPI.

Es más fácil compilarlo, ejecutar las pruebas y averiguarlo.

Answer 2

No creo que pueda hacer que Perl compruebe mientras ejecuta el código, pero echa un vistazo a Perl::MinimumVersion y Test::MinimumVersion. (Este último es simplemente un contenedor Test::Builder alrededor del primero.)

Answer 3

Bueno después de leer otras respuestas su respuesta es no, pero quizás App::perlbrew puede ayudarle a instalar y administrar múltiples versiones de perl para probar.