use strict;
use warnings;

package TestHelper;

use File::Temp 'tempdir';
use File::Path 'mkpath';
use File::Spec::Functions 'catdir', 'catfile';

use base 'Exporter';

our @EXPORT = ('temp_inc', 'catfile');

sub temp_inc {
    my $tmpinc = tempdir(CLEANUP => 1);
    mkpath(catdir($tmpinc, qw(DepTest Install)), 0, 0711);
    unshift @INC, $tmpinc;
    return $tmpinc;
}

1;