阅读(564) (1)

模块

2016-02-24 16:03:19 更新

利用 use lib 在非标准位置搜索模块

要搜索没有安装到 @INC 所指定路径的模块,使用 lib 编译指令:

use lib '/home/andy/private-lib/';
use Magic::Foo;

注意:use lib 必须置于试图使用 Magic::Foo 之前。

利用 Module::Starter 创建新模块

Module::Starter 及其命令行工具 module-starter 创建模块发行套件的基本 框架,以便发布到 CPAN 上。它包含基本的代码布局、POD 指令、文档片断、基本 测试、Makefile.PL 和 MANIFEST 文件、以及 README 和 Changes 记录 的开头。

$ module-starter --module=Magic::Foo --module=Magic::Foo::Internals \
    --author="Andy Lester" --email="andy@perl.org" --verbose
Created Magic-Foo
Created Magic-Foo/lib/Magic
Created Magic-Foo/lib/Magic/Foo.pm
Created Magic-Foo/lib/Magic/Foo
Created Magic-Foo/lib/Magic/Foo/Internals.pm
Created Magic-Foo/t
Created Magic-Foo/t/pod-coverage.t
Created Magic-Foo/t/pod.t
Created Magic-Foo/t/boilerplate.t
Created Magic-Foo/t/00-load.t
Created Magic-Foo/.cvsignore
Created Magic-Foo/Makefile.PL
Created Magic-Foo/Changes
Created Magic-Foo/README
Created Magic-Foo/MANIFEST
Created starter directories and files

利用 h2xs 创建 XS 模块

如果你想创建 XS 模块,即 Perl 代码与外部 C 代码的接口,那么你将需要使用 原始的模块开始工具 h2xsh2xs 已包含到每个 Perl 发行中,但它可能并没 有Module::Starter 那么新。除非你需要 XS 代码,否则使用 Module::Starter

利用 Dist::Zilla 创建、打包及发行模块

Dist::Zilla 是一个相当好用的 Perl 模块,它使创建、打包、以及发行 模块的过程变得十分容易。如果你打算将编写的模块发布到 CPAN 上,那么使用 Dist::Zilla 将为你节省许多时间。

初始化 Dist::Zilla 配置

安装 Dist::Zilla 之后的第一件事就是初始化其配置:

$ dzil setup

根据向导提供你的姓名、Email、选择版权许可、以及 PAUSE 帐号(发布模块 到 CPAN 时需要)即可。

Dist::Zilla 默认将配置文件保存在 ~/.dzil/config.ini 文件中,所以后续 你也可以通过修改此文件来变更相应信息。

创建模块

执行以下命令可以创建一个新的模块,如 Foo::Bar:

$ dzil new Foo::Bar

[DZ] making target dir /home/xiaodong/code/Foo-Bar
[DZ] writing files to /home/xiaodong/code/Foo-Bar
[DZ] dist minted in ./Foo-Bar

这将创建如下目录结构及文件:

Foo-Bar
├── dist.ini
└── lib
    └── Foo
            └── Bar.pm

其中,dist.ini 为该模块的配置文件,Bar.pm 为模块源文件。

打包模块

待模块编写完毕,你就可以将模块打包了:

$ dzil build

[DZ] beginning to build WebService-TaobaoIP
[DZ] guessing dist's main_module is lib/WebService/TaobaoIP.pm
[DZ] extracting distribution abstract from lib/WebService/TaobaoIP.pm
[DZ] writing WebService-TaobaoIP in WebService-TaobaoIP-0.03
defined(@array) is deprecated at /usr/share/perl5/Log/Log4perl/Config.pm line
864.
    (Maybe you should just omit the defined()?)
[DZ] building archive with Archive::Tar::Wrapper
[DZ] writing archive to WebService-TaobaoIP-0.03.tar.gz

执行该命令后,模块就会被打包成 .tar.gz 格式。

发布模块

如果你要将模块发布到 CPAN 上,只需执行:

$ dzil release

[DZ] beginning to build WebService-TaobaoIP
[DZ] guessing dist's main_module is lib/WebService/TaobaoIP.pm
[DZ] extracting distribution abstract from lib/WebService/TaobaoIP.pm
[DZ] writing WebService-TaobaoIP in WebService-TaobaoIP-0.03
defined(@array) is deprecated at /usr/share/perl5/Log/Log4perl/Config.pm line
864.
    (Maybe you should just omit the defined()?)
[DZ] building archive with Archive::Tar::Wrapper
[DZ] writing archive to WebService-TaobaoIP-0.03.tar.gz
[@Basic/TestRelease] Extracting
/home/xiaodong/code/WebService-TaobaoIP/WebService-TaobaoIP-0.03.tar.gz
to .build/x8WYcGBWoY
Checking if your kit is complete...
Looks good
Writing Makefile for WebService::TaobaoIP
Writing MYMETA.yml and MYMETA.json
cp lib/WebService/TaobaoIP.pm blib/lib/WebService/TaobaoIP.pm
Manifying blib/man3/WebService::TaobaoIP.3pm
No tests defined for WebService::TaobaoIP extension.
[@Basic/TestRelease] all's well; removing .build/x8WYcGBWoY
*** Preparing to release WebService-TaobaoIP-0.03.tar.gz with
@Basic/UploadToCPAN ***

Do you want to continue the release process? [y/N]: N

根据提示,回答 y 将发布模块,N 将终止发布过程。

其他功能

Dist::Zilla 不愧为一站式工具,除上述基本功能之外,还包括添加模块到现有 发行、执行测试、列出模块依赖等特性。

有关 Dist::Zilla 的更多用法,可参考其官方文档