perl: "<<" (shift left) operator parsed as heredoc

[jumpercc]

in this code "<<" is "shift left" operator. not heredoc:

sub test1 {
    1 << 2;
}

sub test_2 {
    #
}

only the first sub shown in tree, but the second one must be shown too

[jumpercc]

$ git push Counting objects: 7, done. Delta compression using up to 8 threads. Compressing objects: 100% (4/4), done. Writing objects: 100% (4/4), 562 bytes, done. Total 4 (delta 2), reused 0 (delta 0) To git@github.com:HTD/NST.git 732e9da..6c516d2 testing -> testin