1. 准备模块包

首先用以下命令，创建一个名字叫做BW的模块：

h2xs -AX -n BW

这个命令会在当前目录下生成以下文件：

BW/Makefile.PL：生成用于创建和测试的文件

BW/MANIFEST：需要编译的所有文件（后续添加新的模块，需要手动添加）

BW/lib: 存放模块源代码，以上命令会生成一个BW.pm

BW/t: 存放测试文件

2. 自定义模块

i. 在BW/lib/BW 添加要创建的模块

例：创建BW/lib/BW/Simple.pm 文件，内容如下：

#!/usr/bin/perl -w

package BW::Simple;

use warnings;

our $VERSION = "1.0";

sub new {

my $inv = shift;

my $class = ref($inv) || $inv;

my $self = {};

bless($self, $class);

$self->{number} = shift || 0;

return $self;

}

sub number {

my $self = shift;

return $self->{number} || 0;

}

sub string {

my $self = shift;

return "The number is $self->{number} \n";

}

sub version {

shift;

return $VERSION;

}

1;

ii. 修改MANIFEST文件，添加以下行：

lib/BW/Simple.pm

3. 编译模块

在BW目录执行以下命令：

perl Makefile.PL

make

sudo make install

4. 测试

在任意位置编辑并执行hello.pl

#!/usr/bin/perluse strict;

use warnings;

use BW::Simple;

my $o = BW::Simple->new(38);

my $x = $o->number;

my $y = $o->string;

print "Hello perl the number is $x\n";

print $y;

Reference:

http://perltraining.com.au/tips/2005-09-26.html