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;
|
Comments
comments powered by Disqus