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