Select Code to Download

use English '-no_match_vars';

...
ok( $EVAL_ERROR, 'this_should_die() did die' );
like( $EVAL_ERROR, qr/exceptional error text/,
      'this_should_die() died for the expected reason );

{
    my $warning;
...
    non_warning_code();
    is( $warning, undef, 'non_warning_code() is clean' );
}