The Perl and Raku Conference 2025: Greenville, South Carolina - June 27-29 Learn more
123456789101112131415161718192021 BEGIN { if( $ENV{PERL_CORE} ) { chdir 't'; @INC = '../lib'; }}use Test::Builder;# STDOUT must be unbuffered else our prints might come out after# Test::More's.$| = 1;BEGIN { Test::Builder->new->no_header(1);}use Test::More tests => 1;print "1..1\n";pass;
BEGIN {
if
(
$ENV
{PERL_CORE} ) {
chdir
't'
;
@INC
=
'../lib'
}
use
Test::Builder;
# STDOUT must be unbuffered else our prints might come out after
# Test::More's.
$| = 1;
Test::Builder->new->no_header(1);
Test::More
tests
=> 1;
print
"1..1\n"
pass;