FileHandle-Unget
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
if ($^O eq 'MSWin32') {
require Test::More;
Test::More->import(skip_all =>
"Test::Compile doesn't work properly on Windows");
} else {
require Test::More;
Test::More->import();
eval "use Test::Compile";
Test::More->builder->BAIL_OUT(
"Test::Compile required for testing compilation") if $@;
all_pm_files_ok();
}
}
/);
}
}
inc/Module/Install/StandardTests.pm view on Meta::CPAN
sub write_standard_test_compile {
my $self = shift;
$self->write_test_file('000_standard__compile.t', q/
BEGIN {
use Test::More;
eval "use Test::Compile";
Test::More->builder->BAIL_OUT(
"Test::Compile required for testing compilation") if $@;
all_pm_files_ok();
}
/);
}
sub write_standard_test_pod {
my $self = shift;
$self->write_test_file('000_standard__pod.t', q/
use Test::More;
eval "use Test::Pod";
( run in 0.263 second using v1.01-cache-2.11-cpan-2b0bae70ee8 )