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

#!perl
use strict;
use warnings FATAL => 'all';
use lib __DIR__ . '/lib';
ok !eval { require Bad };
#TODO: {
# local $TODO = "The user should see the actual syntax error";
like $@, qr{^Global symbol "\$info" requires explicit package name}m;
# like($@, qr{^PPI failed to find statement for '\$bar'}m,
# 'Bad syntax generates stack trace');
#}
done_testing();