Can't parse `'use Foo; my $x = sub { }'` correctly.

[Tokuhiro Matsuno]

$VAR1 = bless( {
                 'token' => bless( {
                                     'type' => 88,
                                     'data' => 'Foo',
                                     'kind' => 21,
                                     'stype' => 0,
                                     'name' => 'UsedName',
                                     'has_warnings' => 0,
                                     'line' => 1
                                   }, 'Compiler::Lexer::Token' )
               }, 'Compiler::Parser::Node::Module' );

[Masaaki Goshima]

I fixed this issue at 610779b