Test::Prereq::Build - test prerequisites in Module::Build scripts

Test-Prereq documentation Contained in the Test-Prereq distribution.

Index

Code Index:

NAME

Top

Test::Prereq::Build - test prerequisites in Module::Build scripts

SYNOPSIS

Top

   use Test::Prereq::Build;
   prereq_ok();

METHODS

Top

If you have problems, send me your Build.PL.

This module overrides methods in Test::Prereq to make it work with Module::Build.

This module does not have any public methods. See Test::Prereq.

AUTHOR

Top

brian d foy, <bdfoy@cpan.org>

COPYRIGHT AND LICENSE

Top

Copyright (c) 2002-2009 brian d foy. All rights reserved.

This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

Test-Prereq documentation Contained in the Test-Prereq distribution. 
# $Id$
package Test::Prereq::Build;
use strict;

use base qw(Test::Prereq);
use vars qw($VERSION @EXPORT);

use warnings;
no warnings;


$VERSION = '1.037';

use Module::Build;
use Test::Builder;

my $Test = Test::Builder->new;



sub import 
	{
	my $self   = shift;
	my $caller = caller;
	no strict 'refs';
	*{$caller.'::prereq_ok'}       = \&prereq_ok;
	
	$Test->exported_to($caller);
	$Test->plan(@_);
	}

sub prereq_ok
	{
	$Test->plan( tests => 1 ) unless $Test->has_plan;
	__PACKAGE__->_prereq_check( @_ );
	}

sub _master_file { 'Build.PL' }

# override Module::Build
sub Module::Build::new
	{
	my $class = shift;

	my %hash = @_;

	my @requires = sort grep $_ ne 'perl', (
		keys %{ $hash{requires} },
		keys %{ $hash{build_requires} },
		);

	@Test::Prereq::prereqs = @requires;

	# intercept further calls to this object
	return bless {}, __PACKAGE__;
	}

# fake Module::Build methods
sub create_build_script { 1 };

1;