Skip to content

Instantly share code, notes, and snippets.

@xaicron
Created July 14, 2009 11:46
Show Gist options
  • Save xaicron/146905 to your computer and use it in GitHub Desktop.
Save xaicron/146905 to your computer and use it in GitHub Desktop.
package Module::Setup::Plugin::Test::Nmakefile;
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? (nmake) [Yn] ", 'y') =~ /[Yy]/;
!$self->system('perl', 'Makefile.PL') or die $?;
!$self->system('nmake', 'test') or die $?;
!$self->system('nmake', 'manifest') or die $?;
!$self->system('nmake', 'veryclean') or die $?;
!$self->system('del', 'MANIFEST') or die $?;
}
1;
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment