note
randyk
In this case, would something like the following work?
<code>
package main;
use strict;
use warnings;
use ExtUtils::MakeMaker qw( WriteMakefile );
my $parms = {
NAME => 'Module::Name',
};
WriteMakefile( %$parms );
package MY;
sub postamble {
return <<'MAKE_FRAG';
new_target:
$(PERL) -e "print qq{Hello from new_target\n}"
MAKE_FRAG
}
sub top_targets {
my $inherited = shift->SUPER::top_targets(@_);
$inherited =~ s/(\npure_all\s+::.+)/$1 new_target/;
return $inherited;
}
1;
</code>
This adds a new <tt>new_target</tt> target, which is then carried out at the <tt>nmake</tt> stage, without having to specify <tt>nmake new_target</tt> explicitly.
663928
664011