use ExtUtils::MakeMaker;
my $brick_over = {
MAN3EXT => 3,
INSTALLSITELIB => "\$(INSTALLARCHLIB)",
};
WriteMakefile
NAME => "Net::Ping",
VERSION_FROM => "lib/Net/Ping.pm",
ABSTRACT_FROM => "lib/Net/Ping.pm",
AUTHOR => 'Rob Brown (bbb@cpan.org)',
PREREQ_PM => { 'Socket' => 0,
},
dist => {
COMPRESS => "gzip -9 -vf",
},
;
package MY;
sub constants {
my $self = shift;
my $block = $self->SUPER::constants();
foreach my $field (keys %{ $brick_over }) {
$block =~ s%^($field\s*=).*%$1 $brick_over->{$field}%m;
}
$block;
}
sub processPL {
my $self = shift;
my $block = $self->SUPER::processPL(@_);
$block =~ s%(spec.PL\s*)$%$1 \$\(VERSION_FROM\)%m;
$block;
}
sub libscan {
my $self = shift;
my $path = shift;
($path =~ / \bCVS\b | \~$ /x) ? undef : $path;
}
sub postamble {
return qq^
pm_to_blib: README
README: \$(VERSION_FROM)
pod2text \$(VERSION_FROM) > README
^;
}
1;