The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use Test::More 'no_plan';

BEGIN {
    require 5.006_001 or plan 'skip_all';
    close *STDERR;
    open *STDERR, '>', \my $stderr;
    *CORE::GLOBAL::exit = sub { die $stderr };
}

# Load Getopt::Euclid in compiling (syntax check) mode
eval {
    local $^C = 1;
    require Getopt::Euclid and Getopt::Euclid->import();
    1;
};
is $@, '' => 'Compile test';


__END__

=head1 REQUIRED ARGUMENTS

=over

=item <prefix>

The string used to prefix the output file name(s).

=for Euclid:
    prefix.type: string

=back