In Perl, come posso inserire più pacchetti in un singolo file .pm?

Question

Sono sicuro di aver letto da qualche parte che è possibile, ma ci sono alcuni trucchi che devi conoscere. Purtroppo, non riesco a trovare il tutorial o la pagina che descrive ciò che devi fare. Ho guardato attraverso lo Perl tutorials e non ho trovato quello che ricordo di aver letto. Qualcuno potrebbe indicarmi una pagina o un documento che descrive come inserire più pacchetti in un singolo file .pm?

Answer 1

È sufficiente iniziare la nuova confezione con un'altra affermazione pacchetto:

package PackageOne; 

# ...... code 

package PackageTwo; 

# .... more code 

Problems with this approach (archived on 2009)

Answer 2

Come fare: basta rilasciare più package istruzioni.

Gotchas Mi viene in mente: my - Le variabili non sono localizzate in pacchetti, quindi sono comunque condivise. Prima di emetterne uno, ti trovi nel pacchetto main per impostazione predefinita.

Answer 3

Questo è come io normalmente faccio:

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 4

Questo è ciò che ha funzionato per me:

#!/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(); 

Il punto importante è che invece di utilizzare "l'uso", si cambia per " import "(in questo modo non andrà a cercare il file).