File Coverage

lib/Rex/Hook/File/Impostor.pm

Criterion	Covered	Total	%
statement	31	33	93.9
branch	1	2	50.0
condition			n/a
subroutine	10	10	100.0
pod	0	3	0.0
total	42	48	87.5

package Rex::Hook::File::Impostor;

# ABSTRACT: execute Rex file management commands on a copy of the original file

use 5.012;
use strict;
use warnings;

our $VERSION = 'v0.1.1';

use File::Basename;
use File::Spec;
use Rex 1.012 -base;
use Rex::Hook;

register_function_hooks { before => { file => \©_file, }, };

sub copy_file {
    my ( $original_file, @opts ) = @_;

    my $impostor_file = get_impostor_for($original_file);

    Rex::Logger::debug("Copying $original_file to $impostor_file");

    if ( is_windows() ) {
        my $exec = Rex::Interface::Exec->create;
        $exec->exec("copy /v /y $original_file $impostor_file");
    }
    else {
        cp $original_file, $impostor_file;
    }

    return $impostor_file, @opts;
}

sub get_impostor_for {
    my $file = shift;

    return File::Spec->catfile( get_impostor_dir(), basename($file) );
}

sub get_impostor_dir {
    my $tmp_dir =
      File::Spec->catfile( Rex::Config->get_tmp_dir(), 'rex_hook_file_impostor' );

    mkdir $tmp_dir;
    return $tmp_dir;
}

1;

__END__