W Perlu, jak umieścić wiele pakietów w jednym pliku .pm?

Question

Jestem prawie pewien, że przeczytałem gdzieś, że jest to możliwe, ale jest kilka gier, o których musisz wiedzieć. Niestety nie mogę znaleźć samouczka ani strony opisującej, co musisz zrobić. Przejrzałem numer Perl tutorials i nie znalazłem tego, który pamiętam. Czy ktoś mógłby wskazać mi stronę lub dokument opisujący, jak umieścić wiele pakietów w pojedynczym pliku .pm?

Answer 1

po prostu rozpocząć nowy pakiet z innego rachunku pakietu:

package PackageOne; 

# ...... code 

package PackageTwo; 

# .... more code 

Problems with this approach (archived on 2009)

Answer 2

Jak to zrobić: wystarczy wydać kilka package instrukcjami.

Gotchas Mogę myśleć: my -zmienne nie są zlokalizowane w pakiecie, więc i tak są udostępniane. Przed wydaniem, domyślnie znajdujesz się w pakiecie main.

Answer 3

To jest jak zwykle zrobić go:

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

To co pracował dla mnie:

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

Ważną rzeczą jest to, że zamiast używać „użytkowania”, należy zmienić go na " import "(w ten sposób nie pójdzie i spróbuje poszukać pliku).