The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use t::TestModuleCompile tests => 1;

SKIP: {
    eval "require YAML";
    if ($@ or $YAML::VERSION < 0.58) {
        skip "Test requires YAML-0.58 or higher", 1;
    }

    filters {
        pm => ['parse_pm', 'yaml_dump']
    };

    no_diff;

    run_is pm => 'parsed';
}

__DATA__

=== Parse compiler in block scope
--- pm
package Foo;
use strict;
{
    use Module::Compile xxx => 'yyy';

    a = b;
}

c = d;

--- parsed
---
- "package Foo;\nuse strict;\n{\n"
- {}
- []
---
- "\n    a = b;\n}\n\nc = d;\n"
- Module::Compile:
    use: "    use Module::Compile xxx => 'yyy';\n"
-
  - Module::Compile