view release on metacpan or  search on metacpan

t/lib/Test/Class/Refresh.pm  view on Meta::CPAN

    $subdir ||= 'before';

    my $from_dir = 't/data/' . $test_id . "/$subdir";
    my $to_dir = File::Temp->newdir;

    rcopy($from_dir, $to_dir);

    return $to_dir;
}

sub update_temp_dir_for {
    my ($test_id, $to_dir, $subdir) = @_;
    $subdir ||= 'after';

    my $from_dir = 't/data/' . $test_id . "/$subdir";

    rcopy($from_dir, $to_dir);
}

1;