diff options
Diffstat (limited to '_posts/2009-05-22-modules-i-like---module-setup.textile')
| -rw-r--r-- | _posts/2009-05-22-modules-i-like---module-setup.textile | 75 |
1 files changed, 75 insertions, 0 deletions
diff --git a/_posts/2009-05-22-modules-i-like---module-setup.textile b/_posts/2009-05-22-modules-i-like---module-setup.textile new file mode 100644 index 0000000..75428b3 --- /dev/null +++ b/_posts/2009-05-22-modules-i-like---module-setup.textile @@ -0,0 +1,75 @@ +--- +layout: post +category: perl +title: modules I like Module::Setup +--- + +"Module::Setup":http://search.cpan.org/perldoc?Module::Setup by "Yappo":http://blog.yappo.jp/ is a really nice module. I don't like "Module::Starter":http://search.cpan.org/perldoc?Module::Starter, it's not easy to create template to make it do what you need. With Module::Setup you can create flavors for any type of modules you want. Most of the modules I create for work use Moose, and I like to use Test::Class too. I've created a Moose flavor for creating this kind of modules. + +h3. Creating a Moose flavor for Module::Setup + +First, you tell it to init a new flavor: + +{% highlight bash %} +module-setup --init moose +{% endhighlight %} + +Module::Setup ask what is your favorite SCM. For me, it's git. It will create files in *$HOME/.module-setup/flavors/moose/*. + +Start by editing *$HOME/.module-setup/flavors/moose/template/lib/____var-module_path-var____.pm* to make it look like this + +{% highlight perl %} +- use strict; +- use warnings; ++ use Moose; +{% endhighlight %} + +Add *requires 'Moose'* in *Makefile.PL*. Create a *t/tests/Test/____var-module_path-var____.pm* file with the following content: + +{% highlight perl %} +package Test :: [%module %]; + +use strict; +use warnings; +use base 'Test::Class'; +use Test::Exception; +use Test::More; + +sub class {'[% module %]'} + +sub startup : Tests(startup => 1) { + my $test = shift; + use_ok $test->class, "use ok"; +} + +sub shutdown : Tests(shutdown) { + my $test = shift; +} + +sub constructor : Tests(1) { + my $test = shift; + can_ok $test->class, 'new'; +} + +1; +{% endhighlight %} + +You will have a Test::Class test ready with basic tests already implemented. + +If you want to share this template at $work, easy: + +{% highlight bash %} +module-setup --pack DevMoose moose > DevMoose.pm +{% endhighlight %} + +You just have to send DevMoose.pm to who need it, and he will be able to import it with + +{% highlight bash %} +module-setup --init --flavor-class=+DevMoose moose +{% endhighlight %} + +Now you can create a new module + +{% highlight bash %} +module-setup MY::AWESOME::MODULE moose +{% endhighlight %} |
