|
use lib catdir( $Bin , updir, 'lib' ), catdir( $Bin , 'lib' ); sub plan (;@) {
$_ [ 0 ] eq 'skip_all' and print '1..0 # SKIP ' . $_ [ 1 ]. "\n" and exit 0;
}
my ( $builder , $host , $notes , $perl_ver );
BEGIN {
$host = lc hostname;
$builder = eval { Module::Build->current };
$notes = $builder ? $builder ->notes : {};
$perl_ver = $notes ->{min_perl_version} || 5.008;
eval { require Test::Requires }; $@ and plan skip_all => 'No Test::Requires' ; $Bin =~ m{ : .+ : }mx and plan skip_all => 'Two colons in $Bin path' ;
if ( $notes ->{testing}) {
}
}
sub import {
strict-> import ;
$] < 5.008 ? warnings-> import : warnings-> import ( NONFATAL => 'all' );
return ;
}
1;
|