En Perl, ¿cómo coloco varios paquetes en un único archivo.pm?

oop perl-module

Question

Estoy bastante seguro de que leí en alguna parte que es posible, pero hay algunos errores que debes tener en cuenta. Desafortunadamente, no puedo encontrar el tutorial o la página que describe lo que debe hacer. Miré los tutoriales de Perl y no encontré el que recuerdo haber leído. ¿Podría alguien dirigirme a una página o documento que describa cómo colocar varios paquetes en un solo archivo .pm?

Answer 1

Así es como normalmente lo hago:

use strict;
use warnings;
use 5.010;

{
    package A;
    sub new   { my $class = shift; bless /$class => $class }
    sub hello { say ''hello from A'' }
}

{
    package B;
    use Data::Dumper;
    sub new   { my $class = shift; bless { @_ } => $class }
    sub hello { say ''Hello from B + '' . shift->dump       }
    sub dump  { Dumper $_[0] }
}

$_->hello for A->new, B->new( foo => ''bar'' );

Answer 2

Cómo hacerlo: simplemente emita varias instrucciones del package .

Se me ocurren errores: my variables no están localizadas en paquetes, por lo que se comparten de todos modos. Antes de emitir alguno, estás en el paquete main por defecto.

Answer 3

Esto es lo que funcionó para mí:

#!/usr/bin/perl

use strict;
use warnings;

{
   package A;
   use Exporter;
   our @ISA = qw(Exporter);
   our @EXPORT_OK = qw(a_sub);
   our @EXPORT = qw(a_sub);

   sub a_sub {
       # your code ...
   }
}
{
   package B;
   use Exporter;
   our @ISA = qw(Exporter);
   our @EXPORT_OK = qw(b_sub);
   our @EXPORT = qw(b_sub);

   sub b_sub {
       # your code ...
   }
}

# Main code starts here ##############

use boolean;
use Data::Dumper;

import A qw(a_sub);
import B qw(b_sub);

a_sub();
b_sub();

El punto importante es que, en lugar de usar "uso", lo cambias por "importar" (de esa forma no irá e intentaremos buscar el archivo).

Answer 4

Simplemente comienza el nuevo paquete con otra declaración del paquete:

package PackageOne;

# ...... code

package PackageTwo;

# .... more code

Problemas con este enfoque ( archivado en 2009 )