Current Path : /proc/1553489/root/usr/share/doc/perl-Test-Simple/t/Legacy/ |
Current File : //proc/1553489/root/usr/share/doc/perl-Test-Simple/t/Legacy/explain_err_vars.t |
use strict; use warnings; use Test::More; $@ = 'foo'; explain { 1 => 1 }; is($@, 'foo', "preserved \$@"); done_testing;