Add parens around qw() to avoid warning with 5.14
[gitmo/Moose.git] / inc / Clean.pm
CommitLineData
ef5454ec 1package inc::Clean;
2use Moose;
3
4with 'Dist::Zilla::Role::BeforeBuild';
5
6sub before_build {
7 my $self = shift;
8
9 if (-e 'Makefile') {
10 $self->log("Running make distclean to clear out build cruft");
11 system("$^X Makefile.PL && make distclean");
12 }
13
14 if (-e 'META.yml') {
15 $self->log("Removing existing META.yml file");
16 unlink('META.yml');
17 }
18}