Readline operator is not properly detected when preceded by a map block

[s-nez]

When a <> operator is preceded by a map block, it is does not show up as PPI::Token::QuoteLike::Readline in the tree, instead two separate PPI::Token::Operators for '<' and '>' are created.

Example:

use PPI;
use PPI::Dumper;

print "Regular readline:\n";
my $doc_readline = PPI::Document->new(\'@lines = <$fh>');
PPI::Dumper->new($doc_readline)->print;

print "\nReadline with a map:\n";
my $doc_readline_map = PPI::Document->new(\'@lines = map { $_ } <$fh>');
PPI::Dumper->new($doc_readline_map)->print;

Output:

Regular readline:
PPI::Document
  PPI::Statement
    PPI::Token::Symbol      '@lines'
    PPI::Token::Whitespace      ' '
    PPI::Token::Operator    '='
    PPI::Token::Whitespace      ' '
    PPI::Token::QuoteLike::Readline     '<$fh>'

Readline with a map:
PPI::Document
  PPI::Statement
    PPI::Token::Symbol      '@lines'
    PPI::Token::Whitespace      ' '
    PPI::Token::Operator    '='
    PPI::Token::Whitespace      ' '
    PPI::Token::Word    'map'
    PPI::Token::Whitespace      ' '
    PPI::Structure::Block   { ... }
      PPI::Token::Whitespace    ' '
      PPI::Statement
        PPI::Token::Magic   '$_'
      PPI::Token::Whitespace    ' '
    PPI::Token::Whitespace      ' '
    PPI::Token::Operator    '<'
    PPI::Token::Symbol      '$fh'
    PPI::Token::Operator    '>'