Cómo crear el Módulo de Paquetes de cero en perl.

Gracias de antemano.

Este es un tema bastante grande y toma más de un foro único hilo que ocupan. De información se puede encontrar en perlmod manual. Nos dicen hacer en caso de que tenga dificultades para comprender esto.

No puedo crear una distribución de la perl paquete. Pero yo no soy capaz de instalar la distribución en todas las otras máquinas. Makefile.PL tiene este aspecto


Makefile.pl

-------------------------------------------------- ---------

inc uso:: Módulo:: Instalación;
cwd uso;
uso de archivos:: Especificaciones;

$ mi versión;


# # Si existe la versión del archivo, que contiene nuestra versoin, de lo contrario,
# # Usamos la versión codificada en el directorio que contiene el nombre de nuestra versión,
# # Y crear el archivo VERSIÓN.
if (-r 'VERSION')
(
abierto (VERS, 'VERSION');
do (
$ version \u003d <VERS>;
) While ($ version! ~ / [\ W \ d ]+/);
estrecha (VERS);
chomp ($ version);
print ( "$ versión versión \ n");
)
algo más
(
my @ dirs;
my $ version_from_dir;
my $ vers;

# Extraer el directorio de trabajo actual en una lista de los directorios padre
@ dirs \u003d Archivo:: Espec-> splitdir (getcwd ());
# Que contiene nuestro directorio será nombrado por nuestro número de versión
$ version_from_dir \u003d pop (@ dirs);
# Asegúrese de que el comentario anterior es cierto
if (! (definidos ($ version_from_dir)) & & ($ version_from_dir \u003d ~ / ^ \ d + /))
(
$ version_from_dir \u003d "desarrollo";
)
elsif ($ version_from_dir \u003d ~ / ^ \ d (8) /)
(
$ version_from_dir \u003d "RC_ $ version_from_dir";
)

$ version \u003d $ version_from_dir;

# Crear la versión línea
$ vers \u003d 'my $ VERSION \u003d \''. $ version_from_dir. " '; \ n";

abierto (VERS, '> VERSION') or die ( "No se puede crear el archivo VERSIÓN: $!");
print (VERS "$ version_from_dir \ n");
estrecha (VERS);

# # $ VERSIÓN establecer la variable en cada uno de los archivos de lo que imaginé
# # Anteriormente. Desde nuestros archivos se nombran *. pl antes embalaje, le
# # Escribir la versión modificada a la base sin el nombre de archivo. Pl

my $ archivo;

foreach $ archivo (la globalización ( 'bin / *. pl'), la globalización ( 'lib / TestManager / *. h'))
(
my $ newfilename;
mi @ nuevofichero;
my $ line;
# No volver a nombre de nuestra biblioteca de módulos
if ($ file \u003d ~ / \. hs $ /)
(
newfilename $ \u003d $ archivo;
)
algo más
(
($ newfilename) \u003d ($ file \u003d ~ /(.*) \. pl $ /);
)

abierto (ORIG, $ file) or die ( "No se puede leer $ archivo: $!");

# Eliminar todos los' $ VERSION \u003d "líneas y reemplazarlos con esta versión
foreach $ linea (<ORIG>)
(
if ($ linea \u003d ~ / \ s * \ $ VERSIÓN \ s *\u003d /)
(
Pulsar (@ nuevofichero, $ vers);
)
algo más
(
Pulsar (@ nuevofichero, $ linea);
)
)
estrecha (ORIG);

# Clara pre-existentes copia
(-e $ newfilename) & & unlink ($ newfilename);

# Escribir la etiqueta, la extensión sin copia
abierto (TAGGED, "> $ newfilename") or die ( "No se puede escribir $ etiquetados newfilename: $!");
foreach $ linea (@ nuevofichero)
(
print ($ TAGGED línea);
)
estrecha (TAGGED);

chmod (0755, $ newfilename);
)
)



# Definir metadatos
denominación «nombre_módulo ';
resumen "Perlbasado en herramientas para la elección, la ejecución, la presentación de informes y pruebas ";
autor "autor";
perl_version «5 .008 ';
licencia "perl»;
versión versión $;


# Decir lo que necesitamos
configure_requires' Archivo:: Copiar '\u003d> 0;
requiere "xyz_Module '\u003d>'1 .0';

# Decir lo que no deben ser indexados
no_index 'directorio' \u003d> 'documentos';

# Copia renombrado lugares para instalar los scripts
install_script ( 'bin/script1');
install_script ( 'bin/script2');
install_script ( 'bin/script3');
install_script ( 'bin/script4');
install_script ( 'bin/script5');
install_script ( 'bin/script6');

WriteAll;

-------------------------------------------------- --------------------
Todos los cambios deben hacerse para Makefile.pl?

Gracias de antemano,