The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use strict;
use warnings;

package Footprintless::Test::Resource::MavenProvider;

use parent qw(Footprintless::Resource::MavenProvider);

use File::Path;
use File::Spec;
use Footprintless::Test::Util qw(
    copy_recursive
    test_dir
);
use Footprintless::Util qw(
    temp_dir
);

sub _init {
    my ( $self, %options ) = @_;

    require Maven::Agent || croak('Maven::Agent not installed');

    my $maven_user_home = File::Spec->catdir( temp_dir(),       'HOME' );
    my $dot_m2          = File::Spec->catdir( $maven_user_home, '.m2' );
    File::Path::make_path($dot_m2);
    copy_recursive( test_dir( 'data', 'maven', 'HOME', 'dot_m2' ), $dot_m2 );

    $self->{maven_agent} = Maven::Agent->new(
        agent       => $self->{factory}->agent(),
        'user.home' => $maven_user_home
    );

    return $self;
}

1;