File Coverage

blib/lib/Module/Install/Admin/Compiler.pm

Criterion	Covered	Total	%
statement	17	23	73.9
branch	0	4	0.0
condition	0	2	0.0
subroutine	6	7	85.7
pod	0	1	0.0
total	23	37	62.1

package Module::Install::Admin::Compiler;

use strict;
use Module::Install::Base;
use File::Remove  ();
use Devel::PPPort ();

use vars qw{$VERSION @ISA};
BEGIN {
	$VERSION = '1.18';
	@ISA     = qw{Module::Install::Base};
}

sub ppport {
	my $self   = shift;
	my $file   = shift || 'ppport.h';
	if ( -f $file ) {
		# Update the file to a newer version
		File::Remove::remove($file);
	}

	# Install the file (and remove on realclean)
	Devel::PPPort::WriteFile( $file ) or die "Failed to write $file";
	$self->realclean_files( $file );
}

1;