use strict;
use warnings;
use Module::Build;
my $class = Module::Build->subclass( code => <<'RPM');
sub ACTION_rpm {
my $self = shift;
$self->depends_on('dist');
# source for tarball for rpmbuild
my $SOURCEDIR = $self->base_dir;
my $DISTNAME = $self->dist_name;
my $VERSION = $self->dist_version;
$self->do_system("sed -e 's/\@VERSION\@/$VERSION/' perl-$DISTNAME.spec > perl-$DISTNAME-$VERSION.spec");
$self->do_system("rpmbuild --define \"_sourcedir $SOURCEDIR\" -ba perl-$DISTNAME-$VERSION.spec");
}
RPM
my $build = $class->new(
'module_name' => 'Net::Whois::RIPE',
'dist_version' => '1.23',
'license' => 'gpl',
'requires' => {
'IO' => 1.20,
'Test::More' => undef,
},
'create_makefile_pl' => 'traditional', # TODO: remove after 2005
);
$build->create_build_script;
# TODO prompt user here for a whois server to test against?
$build->notes(host => 'does not exist');
syntax highlighted by Code2HTML, v. 0.9.1