Módulo Perl

#!/usr/bin/env perl # Carga el módulo e importa cualquier función en nuestro espacio de nombres # (por defecto "main") exportada por el módulo. Hello::World exporta # hello() por defecto. Las exportaciones normalmente pueden ser controladas por quien llama. use Hello::World ;print hello (); # imprime "Hola, mundo!\n" print hello ( "Vía Láctea" ); # imprime "Hola, Vía Láctea!\n"

# "package" es el espacio de nombres donde reside la funcionalidad/los datos del módulo. # Determina el nombre del archivo si se desea que se "utilice". # Si consta de más de una palabra, restringe la ubicación del módulo.paquete Hola::Mundo ;# Por defecto, Perl permite usar variables sin declararlas . # Esto puede ser conveniente para scripts cortos y líneas de código. # Pero en una unidad de código más larga, como un módulo, es prudente declarar # las variables tanto para detectar errores tipográficos como para restringir su # accesibilidad adecuadamente desde fuera del módulo. La directiva `strict` # obliga a declarar las variables. `use strict` ; # Del mismo modo, Perl no emite la mayoría de las advertencias del compilador o del tiempo de ejecución por defecto. # Los scripts más complejos, como la mayoría de los módulos, suelen encontrarlas muy # útiles para la depuración. La directiva `warnings` activa las advertencias opcionales. `use warnings` ; # El número de versión de un módulo se almacena en `$ModuleName::VERSION`; ciertas # formas del comando integrado "use" dependen de que esta variable esté definida.nuestra $VERSIÓN = '1.00' ;# Hereda del módulo "Exporter", que se encarga de exportar funciones. # La mayoría de los módulos procedimentales hacen uso de esto.usar base 'Exportador' ;# Cuando se invoca el módulo, exporta, por defecto, la función "hello" al # espacio de nombres del código que lo utiliza.nuestro @EXPORT = qw(hola) ;# Las líneas que comienzan con un signo igual indican documentación POD integrada. # Las secciones POD terminan con una directiva =cut y pueden # mezclarse casi libremente con código normal.=head1 NOMBREHola::Mundo - Una encapsulación de un mensaje de salida común=head1 SINOPSIS use Hello::World;  print hello();  print hello("Vía Láctea");=head1 DESCRIPCIÓNEste es un módulo procedimental que te proporciona el famoso mensaje "¡Hola, mundo!", ¡y además es personalizable!=head2 FuncionesLas siguientes funciones se exportan por defecto.=head3 hola print hola();  print hola($target);Devuelve el famoso saludo. Si se proporciona un C<$target>, se utilizará; de lo contrario, "world" será el destino de su saludo.=cortar# define la función hello().sub hola { mi $target = shift ; $target = 'world' unless defined $target ; return "Hola, $target!\n" ; }=head1 AUTORJoe Hacker <joe@joehacker.org>=cortar# Un módulo Perl debe terminar con un valor verdadero o de lo contrario se considera que no # se ha cargado. Por convención, este valor suele ser 1, aunque puede ser # cualquier valor verdadero. Un módulo puede terminar con falso para indicar un fallo, pero # esto rara vez se usa y en su lugar die() (saldría con un error). 1 ;

#!/usr/bin/env perluse Hello::World ; my $hello = Hello::World -> new ; $hello -> print ; # imprime "Hello, world!\n" $hello -> target ( "Milky Way" ); $hello -> print ; # imprime "Hello, Milky Way!\n"my $greeting = Hello::World -> new ( target => "Pittsburgh" ); $greeting -> print ; # imprime "Hello, Pittsburgh!\n" $hello -> print ; # sigue imprimiendo "Hello, Milky Way!\n"

# En Perl no existe una definición especial de 'clase'. Un espacio de nombres es una clase. paquete Hello::World ;use strict ; use warnings ; our $VERSION = "1.00" ;=head1 NOMBRE Hello::World - Una encapsulación de un mensaje de salida común =head1 SINOPSIS  use Hello::World;  my $hello = Hello::World->new();  $hello->print; =head1 DESCRIPCIÓN Esta es una biblioteca orientada a objetos que puede imprimir el famoso mensaje "HW". =head2 Métodos =head3 new  my $hello = Hello::World->new();  my $hello = Hello::World->new( target => $target ); Instancia un objeto que contiene un mensaje de saludo. Si se proporciona un C<$target>, se pasa a C<< $hello->target >>. =cut # El constructor de un objeto se llama new() por convención. Cualquier # método puede construir un objeto y puedes tener tantos como quieras. sub new { my ( $class , %args ) = @_ ; my $self = bless ({}, $class ); my $target = exists $args { target } ? $args { target } : "world" ; $self -> { target } = $target ; return $self ; } =head3 target  my $target = $hello->target;  $hello->target($target); Obtiene y establece el objetivo actual de nuestro mensaje. =cut sub target { my $self = shift ; if ( @_ ) { my $target = shift ; $self -> { target } = $target ; }return $self -> { target }; } =head3 to_string  my $greeting = $hello->to_string; Devuelve el $greeting como una cadena =cut sub to_string { my $self = shift ; return "Hola, $self->{target}!" ; } =head3 print  $hello->print; Imprime el saludo en STDOUT =cut sub print { my $self = shift ; print $self -> to_string (), "\n" ; } =head1 AUTOR Joe Hacker <joe@joehacker.org> =cut 1 ;