123456789 use strict;use warnings;use Test::More;$@ = 'foo';explain { 1 => 1 };is($@, 'foo', "preserved \$@");done_testing;
use
strict;
warnings;
Test::More;
$@ =
'foo'
;
explain {
1
=> 1 };
is($@,
,
"preserved \$@"
);
done_testing;