PATH:
usr
/
share
/
doc
/
perl-Test-Simple
/
t
/
Legacy
/
Editing: explain_err_vars.t
use strict; use warnings; use Test::More; $@ = 'foo'; explain { 1 => 1 }; is($@, 'foo', "preserved \$@"); done_testing;
SAVE
CANCEL