From Code to Community: Sponsoring The Perl and Raku Conference 2025 Learn more
123456789101112 use Test'More tests => 1;# [rt.cpan.org #108645]use WWW::Scripter;eval { my $scripter = WWW::Scripter->new; $scripter->use_plugin('JavaScript'); $scripter->eval("var t = false;"); die "Fatality!\n";};is $@, "Fatality!\n", 'destructors do not clobber $@';
use
Test'More
tests
=> 1;
# [rt.cpan.org #108645]
WWW::Scripter;
eval
{
my
$scripter
= WWW::Scripter->new;
->use_plugin(
'JavaScript'
);
->
(
"var t = false;"
die
"Fatality!\n"
;
};
is $@,
,
'destructors do not clobber $@'