Как работает синтаксис Perl use?

Во-первых, прочтите perldoc perlmod.

Вы не объявляете пространство имен ни в одном из модулей, поэтому все находится в пространстве имен main. Объявите package m1; в m1.pm и package m2; в m2.pm.

По крайней мере, вы должны реализовать метод import (или унаследовать тот, который предоставляет Exporter), чтобы программы, использующие модули, могли решать, что и откуда импортировать.

Мне также кажется, что вы исследуете границы ОО.

Дальше:

• Избегайте использования $a и $b в качестве имен переменных, потому что их легко спутать с переменными пакета $a и $b, используемыми sort.

• Не используйте имена модулей в нижнем регистре: они зарезервированы для прагмат.

Минимальная реализация (все в одном файле для удобства тестирования) выглядит так:

package My::M1;

use strict; use warnings;

sub new { my $class = shift; bless { @_ } => $class }

sub a {
    my $self = shift;
    my ($v) = @_;
    $self->{a} = $v if @_;
    return $self->{a};
}

sub b {
    my $self = shift;
    my ($v) = @_;
    $self->{b} = $v if @_;
    return $self->{b};
}

package My::M2;

use strict; use warnings;
use base 'My::M1';

sub printtab {
    my $self = shift;
    for my $x (qw(a b)) {
        printf "%s = -%s-\n", $x, $self->$x;
    }
}

package main;

my $m = My::M2->new(a => 'hello', 'b' => 'world');
$m->printtab;

В Perl ключевое слово use в точности эквивалентно следующему:

use Mymodule;

#is the same as

BEGIN {
   require Mymodule;
   Mymodule->import();
}

Поэтому, если вы не определяете процедуру импорта в своем коде (или наследуете от Exporter), то ваши модули ничего не импортируют в test.pl.

Как поймал Синан, вы не объявляете пакет в своих модулях, поэтому по умолчанию используется пакет main. В этом случае все ваши подпрограммы находятся в main, но лексические переменные (объявленные с помощью my) ограничены только файлом, в котором они объявлены.

Таким образом, m1 определяет sub init и sub printab, к которым относятся лексики $a и $b. Но затем, когда test.pl загружает m2, подпрограмма init перезаписывается новым определением, которое больше не замыкается вокруг двух лексических выражений. Таким образом, он пишет в переменные пакета $main::a и $main::b вместо лексических переменных, к которым привязан printab.

Если бы у вас были включены предупреждения (что всегда следует делать при обучении), вы бы были предупреждены о переопределении подпрограммы.

Вы должны начинать каждый из своих модулей с:

package Some::Package::Name;
use warnings;
use strict;

а затем заканчивайте каждый модуль:

1;

Это связано с тем, что когда вы use/require используете модуль, он должен возвращать истинное значение в конце, чтобы Perl знал, что он загружен правильно.

printab() определяется в файле m1.pm и имеет доступ только к переменным $a и $b, которые относятся к этому файлу. Переменные $a и $b в m2.pm привязаны к этому файлу и являются другими переменными, чем $a и $b в m1.pm.

init() устанавливает переменные в области m2.pm (поскольку это последнее место, где была определена функция &init), поэтому она не устанавливает те же самые переменные, которые printab() будет пытаться напечатать.