123456789101112131415 use warnings FATAL => 'all';use strict;use Test::More;pass "Initial";TODO:{ local $TODO = "Here is TODO reason"; fail("Failed"); pass("Passed");}pass "Last one";done_testing;
use
warnings
FATAL
=>
'all'
;
strict;
Test::More;
pass
"Initial"
TODO:{
local
$TODO
=
"Here is TODO reason"
fail(
"Failed"
);
pass(
"Passed"
}
"Last one"
done_testing;