## 利用 `use lib` 在非标准位置搜索模块
要搜索没有安装到 `@INC` 所指定路径的模块，使用 `lib` 编译指令：
~~~
use lib '/home/andy/private-lib/';
use Magic::Foo;
~~~
注意：`use lib` 必须置于试图使用 `Magic::Foo` 之前。
## 利用 Module::Starter 创建新模块
[Module::Starter](https://metacpan.org/module/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 代码的接口，那么你将需要使用 原始的模块开始工具 `h2xs`。`h2xs` 已包含到每个 Perl 发行中，但它可能并没 有`Module::Starter` 那么新。除非你需要 XS 代码，否则使用 `Module::Starter`。
## 利用 Dist::Zilla 创建、打包及发行模块
[Dist::Zilla](https://metacpan.org/module/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 的更多用法，可参考其[官方文档](http://dzil.org/tutorial/contents.html)。
