package Minilla::ModuleMaker::ModuleBuildTiny;
use strict;
use warnings;
use utf8;
use Data::Section::Simple qw(get_data_section);
use Text::MicroTemplate qw(render_mt);
use Data::Dumper;
use File::Spec::Functions qw(catdir rel2abs);
use File::Find ();
use TAP::Harness::Env;
use Moo;
no Moo;
use Minilla::Util qw(spew_raw);
sub generate {
my ($self, $project) = @_;
local $Data::Dumper::Terse = 1;
local $Data::Dumper::Useqq = 1;
local $Data::Dumper::Purity = 1;
local $Data::Dumper::Indent = 0;
my $content = get_data_section('Build.PL');
my $mt = Text::MicroTemplate->new(template => $content, escape_func => sub { $_[0] });
my $src = $mt->build->($project);
spew_raw('Build.PL', $src);
}
sub validate {
my $self = shift;
if (-d 'bin/') {
warn "[ERROR] Module::Build::Tiny doesn't install bin/ directory. You should rename bin/ to script/\n";
return 0;
}
return 1; # Yes. It's valid project.
}
sub prereqs {
my ($self, $project) = @_;
my %configure_requires = (
'Module::Build::Tiny' => '0.035',
);
if ( @{$project->requires_external_bin || []} ) {
$configure_requires{'Devel::CheckBin'} = 0;
}
my $prereqs = +{
configure => {
requires => {
%configure_requires,
}
}
};
for my $key (qw(tap_harness_args use_xsutil c_source allow_pureperl)) {
if( $project->$key ){
die "$key does not supported by " . __PACKAGE__;
}
}
for my $key (qw(PL_files)) {
if( $project->$key && ref($project->$key) eq 'HASH' && %{$project->$key} > 0 ){
die "$key does not supported by " . __PACKAGE__;
}
}
return $prereqs;
}
sub run_tests {
my $harness = TAP::Harness::Env->create({
verbosity => 0,
lib => [ map { rel2abs(catdir(qw/blib/, $_)) } qw/arch lib/ ],
color => -t STDOUT
});
my @tests = sort +_find(qr/\.t$/, 't');
if ($ENV{RELEASE_TESTING}) {
push @tests, sort +_find(qr/\.t$/, 'xt');
}
$harness->runtests(@tests)->has_errors and die;
}
sub _find {
my ($pattern, $dir) = @_;
my @ret;
File::Find::find(sub { push @ret, $File::Find::name if /$pattern/ && -f }, $dir) if -d $dir;
return @ret;
}
1;
__DATA__
@@ Build.PL
? my $project = shift;
# =========================================================================
# THIS FILE IS AUTOMATICALLY GENERATED BY MINILLA.
# DO NOT EDIT DIRECTLY.
# =========================================================================
use 5.008_001;
use strict;
use Module::Build::Tiny 0.035;
? if ( @{ $project->requires_external_bin || [] } ) {
use Devel::CheckBin;
? for my $bin ( @{ $project->requires_external_bin } ) {
check_bin('<?= $bin ?>');
? }
? }
Build_PL();