Perl::Dist::WiX::Mixin::Patching - Provides routines for patching files in a Win32 perl distribution.

	# This module is not to be used independently.
	# It provides methods to be called on a Perl::Dist::WiX object.

	# Loads up the template for merge module docs.
	$text = $self->process_template('Merge-Module.documentation.txt.tt');

	my $directory_list_ref = $self->patch_include_path(); 

	my $pathlist = $self->patch_pathlist();

	$self->patch_file('Merge-Module.wxs');

	$self->patch_perl_file('makefile.mk')

package Perl::Dist::WiX::Mixin::Patching;

use 5.010;
use Moose;
use English qw(	-no_match_vars );
use Params::Util qw( _HASH );
use File::PathList qw();
use File::Spec::Functions qw( catdir catfile );
use File::Temp qw();
use Perl::Dist::WiX::DirectoryTree qw();
use Perl::Dist::WiX::Exceptions qw();

our $VERSION = '1.500';
$VERSION =~ s/_//ms;

sub process_template {
	my $self          = shift;
	my $template_file = shift;
	my @vars_in       = @_;

	my $tt = $self->patch_template();

	my $answer;
	my $tt_answer;
	my %vars = (
		@vars_in,
		dist => $self,
		directory_tree =>
		  Perl::Dist::WiX::DirectoryTree->instance()->as_string(),
	);

	$tt_answer = $tt->process( $template_file, \%vars, \$answer );

	if ( not $tt_answer ) {
		PDWiX::Caught->throw(
			info    => 'Template',
			message => $tt->error()->as_string() );
	}

#<<<
	# Delete empty lines.
	$answer =~ s{\R         # Replace a linebreak, 
				 				 \s*?       # any whitespace we may be able to catch,
				 				 \R}        # and a second linebreak
								{\r\n}msgx; # With one Windows linebreak.
#>>>

	# Combine it all
	return $answer;
} ## end sub process_template

# By default only use the default (as a default...)
sub patch_include_path {
	my $self     = shift;
	my $share    = File::ShareDir::dist_dir('Perl-Dist-WiX');
	my $path     = catdir( $share, 'default', );
	my $portable = catdir( $share, 'portable', );
	if ( not -d $path ) {
		PDWiX::Directory->throw(
			dir     => $path,
			message => 'Directory does not exist'
		);
	}
	if ( $self->portable() ) {
		if ( not -d $portable ) {
			PDWiX::Directory->throw(
				dir     => $portable,
				message => 'Directory does not exist'
			);
		}
		return [ $portable, $path ];
	} else {
		return [$path];
	}
} ## end sub patch_include_path

sub patch_pathlist {
	my $self = shift;
	return File::PathList->new( paths => $self->patch_include_path(), );
}

sub patch_file {
	my $self     = shift;
	my $file     = shift;
	my $file_tt  = $file . '.tt';
	my $dir      = shift;
	my $to       = catfile( $dir, $file );
	my $pathlist = $self->patch_pathlist();

	# Locate the source file
	my $from    = $pathlist->find_file($file);
	my $from_tt = $pathlist->find_file($file_tt);
	if ( not( defined $from and defined $from_tt ) ) {
		PDWiX->throw(
			"Missing or invalid file $file or $file_tt in pathlist search"
		);
	}

	if ( $from_tt ne q{} ) {

		# Generate the file
		my $hash = _HASH(shift) || {};
		my ( $fh, $output ) =
		  File::Temp::tempfile( 'pdwXXXXXX', TMPDIR => 1 );
		$self->trace_line( 2,
			"Generating $from_tt into temp file $output\n" );
		$self->patch_template()
		  ->process( $from_tt, { %{$hash}, self => $self }, $fh, )
		  or PDWiX->throw("Template processing failed for $from_tt");

		# Copy the file to the final location
		$fh->close or PDWiX->throw("Could not close: $OS_ERROR");
		$self->copy_file( $output => $to );
		unlink $output
		  or PDWiX->throw("Could not delete $output: $OS_ERROR");

	} elsif ( $from ne q{} ) {

		# Simple copy of the regular file to the target location
		$self->copy_file( $from => $to );

	} else {
		PDWiX::File->throw(
			file    => $file,
			message => 'Failed to find file'
		);
	}

	return 1;
} ## end sub patch_file

sub patch_perl_file {
	my $self    = shift;
	my $file    = shift;
	my $file_tt = $file . '.tt';
	my $dir     = shift;
	my $to      = catfile( $dir, $file );

	# Locate the source file
	my $from    = $self->_find_perl_file($file);
	my $from_tt = $self->_find_perl_file($file_tt);
	if ( not( defined $from or defined $from_tt ) ) {
		PDWiX->throw( "Missing or invalid file $file or "
			  . "$file_tt in perl version search" );
	}

	if ( defined $from_tt ) {

		# Generate the file
		my $hash = _HASH(shift) || {};
		my ( $fh, $output ) =
		  File::Temp::tempfile( 'pdwXXXXXX', TMPDIR => 1 );
		$self->trace_line( 2,
			"Generating $from_tt into temp file $output\n" );
		$self->patch_template()
		  ->process( $from_tt, { %{$hash}, self => $self }, $fh, )
		  or PDWiX->throw("Template processing failed for $from_tt");

		# Copy the file to the final location
		$fh->close or PDWiX->throw("Could not close: $OS_ERROR");
		$self->copy_file( $output => $to );
		unlink $output
		  or PDWiX->throw("Could not delete $output: $OS_ERROR");

	} elsif ( $from ne q{} ) {

		# Simple copy of the regular file to the target location
		$self->copy_file( $from => $to );

	} else {
		PDWiX::File->throw(
			file    => $file,
			message => 'Failed to find file'
		);
	}

	return 1;
} ## end sub patch_perl_file


no Moose;
__PACKAGE__->meta()->make_immutable();

1;

__END__