Perl`use` – import不会被调用两次？

它有点类似于我的其他问题Perl: Two packages in same file…

考虑一个perl脚本：

Script.pl

use INCLUDES;

INCLUDES.pm

package INCLUDES;
use Exporter;

############# MY DOUBT STARTS HERE ###############
use Module1;
use Module2;
##################################################

our @ISA = qw(Exporter);
our @EXPORT = qw();

sub import {

  print 'INCLUDES imported to ' . caller . "n";

}

Module1.pm

package Module1;

use strict;
use Exporter;
use INCLUDES;    #####=> INCLUDES.pm 'use'd

our @ISA = qw(Exporter);
our @EXPORT = qw();

1;

Module2.pm

package Module2;

use strict;
use Exporter;
use INCLUDES;  #####=> INCLUDES.pm 'use'd

our @ISA = qw(Exporter);
our @EXPORT = ();

1;

OUTPUT

D:Do_analysis>Script.pl
INCLUDES imported to main

根据perl文档,使用INCLUDES;在Module1& Module2 => BEGIN {require’INCLUDES.pm’; ‘INCLUDES’ – > import();}.因此,应该在Module1.pm,Module2.pm中调用import().

我希望输出如下所示,

预期输出？

D:Do_analysis>Script.pl
INCLUDES imported to main
INCLUDES imported to Module1
INCLUDES imported to Module2

但为什么执行不如预期？

更新

这是我想通过INCLUDES.pm文件实现的目标.

注意：PACKAGE2可能想要访问PACKAGE3,PACKAGE4等.我不想单独使用PACKAGE2中的所有模块,而是想创建一个库INCLUDES并在所有其他模块中使用它.

这种方法有效吗？还是值得推荐的？

我很欣赏任何有关如何实现这一目标的想法.
谢谢！