Module::Setupを試してみる

1

C:\> cpan -i Module::Setup

1

C:\> cpan -f Module::Collect

1

C:\> cpan -f Module::Setup

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23

C:\home\nqou> module-setup --init
Creating *****\.module-setup\flavors\default\template\Makefile.PL
Creating *****\.module-setup\flavors\default\template\t\00_compile.t
Creating *****\.module-setup\flavors\default\template\xt\01_podspell.t
Creating *****\.module-setup\flavors\default\template\xt\02_perlcritic.t
Creating *****\.module-setup\flavors\default\template\xt\03_pod.t
Creating *****\.module-setup\flavors\default\template\xt\perlcriticrc
Creating *****\.module-setup\flavors\default\template\Changes
Creating *****\.module-setup\flavors\default\template\lib\____var-module_path-var____.pm
Creating *****\.module-setup\flavors\default\template\MANIFEST.SKIP
Creating *****\.module-setup\flavors\default\template\README
Creating *****\.module-setup\flavors\default\template\.shipit
Creating directory *****\.module-setup\flavors\default\additional
Dump config *****\.module-setup\flavors\default\additional\config.yaml
Creating directory *****\.module-setup\flavors\default\plugins
Creating directory *****\.module-setup\flavors\default\template
Do you use SVN? [yN] [n] y
You chose version control system: SVN
Do you use SVK? [yN] [n]
Do you use Git? [yN] [n]
Your name:  [Default Name]
Your email:  [default {at} example.com]
Dump config *****\.module-setup\flavors\default\config.yaml

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23

C:\home\nqou> module-setup My::Module
[1]: default
[2]: dmake
[3]: xs
Select flavor: [1] 1
You chose flavor: default
Subversion friendly? [Yn]  [y]
Creating directory My-Module\trunk
Creating directory My-Module\tags
Creating directory My-Module\branches
Creating directory My-Module\trunk
Creating My-Module\trunk\.shipit
Creating My-Module\trunk\Changes
Creating My-Module\trunk\Makefile.PL
Creating My-Module\trunk\MANIFEST.SKIP
Creating My-Module\trunk\README
Creating My-Module\trunk\lib\My\Module.pm
Creating My-Module\trunk\t\00_compile.t
Creating My-Module\trunk\xt\01_podspell.t
Creating My-Module\trunk\xt\02_perlcritic.t
Creating My-Module\trunk\xt\03_pod.t
Creating My-Module\trunk\xt\perlcriticrc
Check Makefile.PL? [Yn]  [y] n

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17

package Module::Setup::Plugin::Test::Dmake;
use strict;
use warnings;
use base 'Module::Setup::Plugin';
sub register {
my($self, ) = @_;
$self->add_trigger( check_skeleton_directory => \&check_skeleton_directory );
}
sub check_skeleton_directory {
my $self = shift;
return unless $self->dialog("Check Makefile.PL? [Yn] ", 'y') =~ /[Yy]/;
!$self->system('perl',  'Makefile.PL') or die $?;
!$self->system('dmake', 'test')        or die $?;
!$self->system('dmake', 'manifest')    or die $?;
!$self->system('dmake', 'distclean')   or die $?;
}
1;

1
2
3
4
5
6
7
8
9

---
author: Default Name
email: 'default {at} example.com'
plugins:
- Config::Basic
- Template
- Test::Dmake
- Additional
- VC::SVN