5 use Test::More tests => 2;
9 # stolen liberally from Class-Tiny/t/lib/TestUtils.pm - thanks xdg!
12 my $success = eval { $code->(); 1 };
14 return undef if $success; # original returned ''
15 croak "Execution died, but the error was lost" unless $@;
19 my $taint_on = ! eval { no warnings; join('',values %ENV), kill 0; 1; };
20 ok($taint_on, 'taint flag is set');
22 # without the fix, we get:
23 # Insecure dependency in eval while running with -T switch at lib/Module/Metadata.pm line 668, <GEN0> line 15.
25 exception { Module::Metadata->new_from_module( "Module::Metadata" )->version },