The Perl and Raku Conference 2025: Greenville, South Carolina - June 27-29 Learn more

#!/usr/bin/perl -w
# Fixed a problem with BEGIN { use_ok or require_ok } silently failing when there's no
# plan set. [rt.cpan.org 28345] Thanks Adriano Ferreira and Yitzchak.
use strict;
BEGIN {
if( $ENV{PERL_CORE} ) {
chdir 't';
@INC = ('../lib', 'lib');
}
else {
unshift @INC, 't/lib';
}
}
my $result;
BEGIN {
$result = require_ok("strict");
}
ok $result, "require_ok ran";
done_testing(2);