File Coverage

blib/lib/Module/Build/Pluggable/DistTestLibCoreOnly.pm

Criterion	Covered	Total	%
statement	12	30	40.0
branch	0	14	0.0
condition			n/a
subroutine	4	8	50.0
pod	0	1	0.0
total	16	53	30.1

package Module::Build::Pluggable::DistTestLibCoreOnly;
use strict;
use warnings;
use 5.008005;
our $VERSION = '0.0.6';

use parent qw/Module::Build::Pluggable::Base/;

sub HOOK_build {
    my $self = shift;

    $self->add_around_action_modifier(
        "disttest", \&_disttest
    );
}

sub _disttest {
    my ($code, $self) = @_;

    $self->depends_on('distdir');

    _do_in_dir(
        $self,
        $self->dist_dir,
        sub {
            # XXX could be different names for scripts

            system('cpanm', '-L', '_local_lib/', '--installdeps', '.');
            $ENV{PERL5OPT} = sprintf('-Mlib::core::only -Mlib=%s -Mlib=%s',
                File::Spec->rel2abs('_local_lib/lib/perl5'),
                File::Spec->rel2abs('lib')
            );

            $self->run_perl_script('Build.PL')    # XXX Should this be run w/ --nouse-rcfile
              or die "Error executing 'Build.PL' in dist directory: $!";

            $self->run_perl_script('Build')
              or die "Error executing 'Build' in dist directory: $!";
            $self->run_perl_script( 'Build', [], ['test'] )
              or die "Error executing 'Build test' in dist directory";
        }
    );
}

# taken from M::B::Base
sub _do_in_dir {
    my ( $self, $dir, $do ) = @_;

    my $start_dir = File::Spec->rel2abs( $self->cwd );
    chdir $dir or die "Can't chdir() to $dir: $!";
    eval { $do->() };
    my @err = $@ ? ($@) : ();
    chdir $start_dir or push @err, "Can't chdir() back to $start_dir: $!";
    die join "\n", @err if @err;
}

1;
__END__