# test use strict ; use warnings ; use Test::Exception ; use Test::Warn; use Test::NoWarnings ; use Test::More 'no_plan'; use Test::Block qw($Plan); use Filter::Uncomment ; { local $Plan = {'' => } ; is(result, expected, "message") ; } =comment { local $Plan = {'' => } ; is(result, expected, "message") ; dies_ok { } "" ; lives_ok { } "" ; like(result, qr//, '') ; warning_like { } qr//i, ""; is_deeply ( generated, [], 'expected values' ) ; } =cut