#!perl
use
strict;
use
Test::More;
use
Dir::Self;
#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();