File Coverage

blib/lib/Module/Setup/Plugin/Test/Makefile.pm

Criterion	Covered	Total	%
statement	17	17	100.0
branch	10	10	100.0
condition			n/a
subroutine	5	5	100.0
pod	1	2	50.0
total	33	34	97.0

package Module::Setup::Plugin::Test::Makefile;
use strict;
use warnings;
use base 'Module::Setup::Plugin';

sub register {
    my($self, ) = @_;
    $self->add_trigger( check_skeleton_directory => \&check_skeleton_directory );
}

sub check_skeleton_directory {
    my $self = shift;
    return unless $self->dialog("Check Makefile.PL? [Yn] ", 'y') =~ /[Yy]/;

    !$self->system('perl', 'Makefile.PL') or die $?;
    !$self->system('make', 'test')        or die $?;
    !$self->system('make', 'manifest')    or die $?;
    !$self->system('make', 'distclean')   or die $?;
}

1;