Using perl Syntax Highlighting
use utf8;
use strict qw(vars subs);
use feature qw(say state switch);
no warnings;
use warnings qw(FATAL closed threads internal debugging pack substr malloc
portable prototype inplace io pipe unpack regexp
deprecated exiting glob digit printf layer
reserved parenthesis taint closure semicolon);
no warnings qw(exec newline unopened);
use strict qw(vars subs);
use feature qw(say state switch);
no warnings;
use warnings qw(FATAL closed threads internal debugging pack substr malloc
portable prototype inplace io pipe unpack regexp
deprecated exiting glob digit printf layer
reserved parenthesis taint closure semicolon);
no warnings qw(exec newline unopened);
Coloreado en 0.003 segundos, usando GeSHi 1.0.8.4
En resumen:
* Indicamos que nuestro código está escrito en utf8, algo que ya es normal en la mayoría de los sistemas y editores actuales
* Activa el 'strict', pero no completamente: deja fuera el 'strict refs', que molesta en la mayoría de las ocasiones
* Activa las nuevas características de Perl v5.10. Bienvenidas sean
* Desactiva el sistema general de avisos (warnings), pero en su lugar activa muchos avisos que sí queremos que sean tratados como errores de programación, por lo que el programa DEBE morir si encuentra alguno de ellos. De hecho, la programación así es mucho más estricta que con 'use warnings'
* Si en vez de usar el módulo, escribiéramos estos pragmas tal cual aparecen aquí, estaríamos hablando de 776KB de código que Perl debería interpretar cada vez que corramos nuestro programa. Pero con common::sense, solo invertimos en un extra 4KB a nuestro propio código.
* Y, ademas, es mucho más corto escribir 'use common::sense;' que todo lo anterior
