File Coverage

inc/My/Build.pm

Criterion	Covered	Total	%
statement	33	65	50.7
branch	6	8	75.0
condition			n/a
subroutine	7	16	43.7
pod	0	10	0.0
total	46	99	46.4

########################################################################
                       package My::Build;
########################################################################

use strict;
use warnings;
use parent 'Module::Build';

sub ACTION_build {
	my $self = shift;

	mkdir 'share';

	$self->SUPER::ACTION_build;
}

use File::Path;
sub ACTION_clean {
	my $self = shift;

	File::Path::remove_tree('share');
	$self->notes('build_state', '');

	# Call system-specific cleanup code
	$self->my_clean;

	# Call base class code
	$self->SUPER::ACTION_clean;
}

use File::Copy;
use File::Spec;
sub ACTION_devsetup {
	my $self = shift;
	system qw(git submodule init);
	system qw(git submodule update);
	my $hook_filename = File::Spec->catfile(qw<.git hooks pre-commit>);
	copy 'git-pre-commit-hook.pl' => $hook_filename;
	chmod 0755, $hook_filename;
}

# Reset the tcc source code. This only makes sense if the person has
# src checked out as a git submodule, but then again, the actions for
# which this exists are generally considered author actions anyway.
sub reset_src {
	chdir 'src';
	system qw( git reset --hard HEAD );
	chdir '..';
}

sub ACTION_devclean {
	my $self = shift;
	reset_src;
	$self->ACTION_clean;
}

sub ACTION_devrealclean {
	my $self = shift;
	reset_src;
	$self->ACTION_realclean;
}

# This one's an author action, so I assume they have git and have properly
# configured.
sub ACTION_dist {
	my $self = shift;
	reset_src;
	$self->SUPER::ACTION_dist;
}

# This one's an author action, so I assume they have git and have properly
# configured.
sub ACTION_distdir {
	my $self = shift;
	reset_src;
	$self->SUPER::ACTION_distdir;
}

# This one's an author action, so I assume they have git and have properly
# configured.
sub ACTION_disttest {
	my $self = shift;
	reset_src;
	$self->SUPER::ACTION_disttest;
}

sub apply_patches {
	my ($filename, @patches) = @_;

	# make the file read-write (and executable, but that doesn't matter)
	chmod 0700, $filename;

	open my $in_fh, '<', $filename
		or die "Unable to open $filename for patching!";
	open my $out_fh, '>', "$filename.new"
		or die "Unable to open $filename.new for patching!";
	LINE: while (my $line = <$in_fh>) {
		# Apply each basic test regex, and call the function if it matches
		for (my $i = 0; $i < @patches; $i += 2) {
			if ($line =~ $patches[$i]) {
				my $next_line = $patches[$i+1]->($in_fh, $out_fh, $line);
				next LINE if $next_line;
			}
		}
		print $out_fh $line;
	}

	close $in_fh;
	close $out_fh;
	unlink $filename;
	rename "$filename.new" => $filename;

	# make sure it's executable; we may be patching ./configure
	chmod 0700, $filename;
}

1;