- my Int ($x, $y);
- is $x, 1, 'successive padany 1';
- is $y, 2, 'successive padany 2';
+ use Lexical::Types as => sub {
+ # In 5.10, this closure is compiled before hints are enabled, so no hintseval
+ # op is added at compile time to propagate the hints inside the eval.
+ # That's why we need to re-use Lexical::Types explicitely.
+ eval 'use Lexical::Types; my Int $x';
+ @_;
+ };