{
$Dist::Zilla::Plugin::ModuleBuild::VERSION = '4.300017';
}
# ABSTRACT: build a Build.PL that uses Module::Build
use List::MoreUtils qw(any uniq);
use Moose;
with (
'Dist::Zilla::Role::BuildPL',
'Dist::Zilla::Role::PrereqSource',
'Dist::Zilla::Role::TextTemplate',
);
use List::MoreUtils qw(any uniq);
has 'mb_version' => (
isa => 'Str',
is => 'rw',
default => '0.3601',
);
has 'mb_class' => (
isa => 'Str',
is => 'rw',
default => 'Module::Build',
);
my $template = q|
use strict;
use warnings;
use Module::Build {{ $plugin->mb_version }};
{{ $plugin->_use_custom_class }}
my {{ $module_build_args }}
my $build = {{ $plugin->mb_class }}->new(%module_build_args);
$build->create_build_script;
|;
sub _use_custom_class {
my ($self) = @_;
my $class = $self->mb_class;
if ( $class eq 'Module::Build' ) {
return "";
}
else {
return "use lib 'inc'; use $class;";
}
}
sub register_prereqs {
my ($self) = @_;
$self->zilla->register_prereqs(
{ phase => 'configure' },
'Module::Build' => $self->mb_version,
);
$self->zilla->register_prereqs(
{ phase => 'build' },
'Module::Build' => $self->mb_version,
);
}
sub module_build_args {
my ($self) = @_;
my @exe_files =
$self->zilla->find_files(':ExecFiles')->map(sub { $_->name })->flatten;
$self->log_fatal("can't install files with whitespace in their names")
if grep { /\s/ } @exe_files;
my $prereqs = $self->zilla->prereqs;
my %prereqs = (
configure_requires => $prereqs->requirements_for(qw(configure requires)),
build_requires => $prereqs->requirements_for(qw(build requires)),
requires => $prereqs->requirements_for(qw(runtime requires)),
recommends => $prereqs->requirements_for(qw(runtime recommends)),
);
$prereqs{build_requires} = $prereqs{build_requires}->clone->add_requirements(
$prereqs->requirements_for(qw(test requires))
);
(my $name = $self->zilla->name) =~ s/-/::/g;
return {
module_name => $name,
license => $self->zilla->license->meta_yml_name,
dist_abstract => $self->zilla->abstract,
dist_name => $self->zilla->name,
dist_version => $self->zilla->version,
dist_author => [ $self->zilla->authors->flatten ],
script_files => \@exe_files,
( keys %{$self->zilla->_share_dir_map} ? (share_dir => $self->zilla->_share_dir_map) : ()),
(map {; $_ => $prereqs{$_}->as_string_hash } keys %prereqs),
recursive_test_files => 1,
};
}
sub setup_installer {
my ($self, $arg) = @_;
$self->log_fatal("can't build Build.PL; license has no known META.yml value")
unless $self->zilla->license->meta_yml_name;
my $module_build_args = $self->module_build_args;
$self->__module_build_args($module_build_args);
my $module_build_dumper = Data::Dumper->new(
[ $module_build_args ],
[ '*module_build_args' ],
);
$module_build_dumper->Sortkeys( 1 );
$module_build_dumper->Indent( 1 );
$module_build_dumper->Useqq( 1 );
my $content = $self->fill_in_string(
$template,
{
plugin => \$self,
module_build_args => \($module_build_dumper->Dump),
},
);
my $file = Dist::Zilla::File::InMemory->new({
name => 'Build.PL',
content => $content,
});
$self->add_file($file);
return;
}
# XXX: Just here to facilitate testing. -- rjbs, 2010-03-20
has __module_build_args => (
is => 'rw',
isa => 'HashRef',
);
__PACKAGE__->meta->make_immutable;
1;
=pod
=head1 NAME
Dist::Zilla::Plugin::ModuleBuild - build a Build.PL that uses Module::Build
=head1 VERSION
version 4.300017
=head1 DESCRIPTION
This plugin will create a F<Build.PL> for installing the dist using
L<Module::Build>.
=head1 ATTRIBUTES
=head2 mb_version
B<Optional:> Specify the minimum version of L<Module::Build> to depend on.
Defaults to 0.3601
=head2 mb_class
B<Optional:> Specify the class to use to create the build object. Defaults
to C<Module::Build> itself. If another class is specified, C<use lib 'inc'>
is also added to the Build.PL file.
=head1 SEE ALSO
Core Dist::Zilla plugins:
L<@Basic|Dist::Zilla::PluginBundle::Basic>,
L<@Filter|Dist::Zilla::PluginBundle::Filter>,
L<MakeMaker|Dist::Zilla::Plugin::MakeMaker>,
L<Manifest|Dist::Zilla::Plugin::Manifest>.
Dist::Zilla roles:
L<BuildPL|Dist::Zilla::Role::BuildPL>.
=head1 AUTHOR
Ricardo SIGNES <rjbs@cpan.org>
=head1 COPYRIGHT AND LICENSE
This software is copyright (c) 2012 by Ricardo SIGNES.
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
=cut
__END__