관리-도구

편집 파일: explain_err_vars.t

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