File Coverage

blib/lib/Alien/Build/Plugin/Cleanse/BuildDir.pm

Criterion	Covered	Total	%
statement	36	40	90.0
branch	4	8	50.0
condition	1	2	50.0
subroutine	10	10	100.0
pod	1	1	100.0
total	52	61	85.2

package Alien::Build::Plugin::Cleanse::BuildDir;

use strict;
use warnings;
use 5.008001;
use Alien::Build;
use Alien::Build::Plugin;
use File::Path qw /remove_tree/;
use Cwd qw /getcwd/;
use Path::Tiny qw /path/;


our $VERSION = '0.05'; # VERSION


sub init {
    my($self, $meta) = @_;

    $meta->after_hook ( build => sub {
        my($build) = @_;

        return if $build->install_type ne 'share';
        return if $build->meta_prop->{out_of_source};

        my $build_dir = path ($build->install_prop->{extract})->absolute;

        if (!defined $build_dir) {
            $build->log ("Unable to determine build dir\n");
            return;
        }

        #  a spot of paranoia
        #return if $build_dir !~ /\b_alien\b/;

        $build->log ("Going to delete $build_dir\n");
        $build->log ("Currently in " . getcwd() . "\n");

        my $curdir = getcwd();
        if (path($curdir)->subsumes ($build_dir)) {
            $build->log ("Going to parent of build directory\n");
            chdir "$build_dir/..";
        }

        my $count = eval {
            remove_tree ($build_dir, {
                safe => 1,
                #verbose => 1,
            });
        } || 0;
        $build->log ("Deleted $count items\n");
    });

}

1;

__END__