摘要：
传统模块为调用者的输入和使用定义了子过程和变量。有些模块有上面两种类型的东西。Modules使用是记录在perldunc和perlmodHowtoExport如何导出:数组@EXPORT和@EXPORT_OK是一个模块持有符号表的列表,被导出到用户的名字空间,它们可以请求被导出,分别的。实际上可能得到私有的函数通过:my$subref=sub{...};$subref-˃;#Callitasafunction$obj-˃$subref;#Useitasamethod然而如果使用它们用于方法，让你明白如何使用继承工作作为一个规则,如果模块是尝试面向对象的那么什么也不会导出。
11.1 使用模块
模块有两种风格：传统的和面向对象的。传统模块为调用者的输入和使用定义了子过程和 变量。面向对象的模块的
运转类似类声明并且是通过方法调用来访问的，在第十二章， 对象，里描述。有些模块有上面两种类型的东西。
因此 如果你的模块的名字是 Red::Blue::Green，Perl 就会把它看作Red/Blue/Green.pm。
[root@wx03 test]# cat t1.pl
unshift(@INC,"/root/test");
require Red::Blue;
use Exporter;
print $Red::Blue::var;
print "
";
print @INC;
print "
";
[root@wx03 test]# perl t1.pl
31313
/root/test/usr/local/perl/lib/site_perl/5.22.1/x86_64-
linux/usr/local/perl/lib/site_perl/5.22.1/usr/local/perl/lib/5.22.1/x86_64-linux/usr/local/perl/lib/5.22.1.
Perl 将在 @INC 数组里面列出的每一个目录里面查找模块。
11.2.1 模块私有和输出器
Exporter - Implements default import method for modules 实现的默认的模块导入方法:
描述:
Exporter 模块实现一个导入方法 允许一个模块来导出函数和变量到用户的名字空间。
很多模块使用Exporter 相比实现它们自己的导入方法 因为Exporter 提供了一个高度灵活的接口,
实现优化的公用的情况。
Perl 会自动的import 方法 当处理一个use 语句 对于一个模块。 Modules使用是记录在perldunc和perlmod
How to Export 如何导出:
数组 @EXPORT 和@EXPORT_OK 是一个模块 持有符号表的列表, 被导出到用户的名字空间,
它们可以请求被导出, 分别的。 符号表可以代表功能,标量,数组,hash和类型团。
符号表必须是给全名
@EXPORT = qw(afunc $scalar @array); # afunc is a function
@EXPORT_OK = qw(&bfunc %hash *typeglob); # explicit prefix on &bfunc
数组@EXPORT和@EXPORT_OK 在模块里持有符号表的列表,被导出到用户的名字.
如果你只导出函数名字 推荐省略&记号, 这样会更快
Selecting What to Export
不要导出方法名字:
Exports 污染 模块用户的名字空间, 如果你必须export 尝试使用@EXPORT_OK
有限于 @EXPORT 避免短下的或者相同的符号名字来降低名字冲突的风险
通常任何不被导出的仍旧可以方位从外部访问这个模块使用 YourModule::item_name
(或者 $blessed_ref->method) syntax.
通过转换 你可以使用一个前导下划线来非正式的表明 它们是内部的, 不是公用的。
实际上可能得到私有的函数通过:
my $subref = sub { ... };
$subref->(@args); # Call it as a function
$obj->$subref(@args); # Use it as a method
然而 如果使用它们用于方法 ， 让你明白如何使用继承工作
作为一个规则, 如果模块 是尝试面向对象的那么什么也不会导出。
它只是 函数的收集然后 @EXPORT_OK 任何但是使用@EXPORT
对于函数和方法命名使用barewords 在优先的 前缀命名
How to Import 如何导入:
在其他文件 你希望使用摩卡 这里有3种基本的方式 来加载模块和导入它的符号表:
use YourModule;
导入所有的符号表 在你的模块的@EXPORT 到你的名字空间
use YourModule ();
这个会导致perl加载你的模块但是不导入任何的符号表
use YourModule qw(...);
这个只会导入 列出的符号表到名字空间
所有列出的 符号表必须在你的@EXPORT or @EXPORT_OK
否则一个错误发生。