RT 27364: DESTROY and AUTOLOAD don't parse as subs without 'sub'

[moregan]

Jeff Thalhammer points out that Perl allows you to omit 'sub' from DESTROY and AUTOLOAD:

moregan@moregan[~]$ perl -WE 'AUTOLOAD {1;}'
moregan@moregan[~]$ perl -WE 'package x; DESTROY {1;}'
moregan@moregan[~]$ 

but PPI doesn't recognized them as subs unless 'sub' is included:

ppidump 'AUTOLOAD {;}'
                    PPI::Document
                      PPI::Statement
[    1,   1,   1 ]     PPI::Token::Word     'AUTOLOAD'
                        PPI::Structure::Block   { ... }
                          PPI::Statement::Null
[    1,  11,  11 ]         PPI::Token::Structure    ';'

ppidump 'sub AUTOLOAD {;}'
                    PPI::Document
                      PPI::Statement::Sub
[    1,   1,   1 ]     PPI::Token::Word     'sub'
[    1,   5,   5 ]     PPI::Token::Word     'AUTOLOAD'
                        PPI::Structure::Block   { ... }
                          PPI::Statement::Null
[    1,  15,  15 ]         PPI::Token::Structure    ';'

https://rt.cpan.org/Public/Bug/Display.html?id=27364

[moregan]

A pernicious aspect of this problem is that after an AUTOLOAD or DESTROY without 'sub', PPI stops creating PPI::Statement::Sub, at least sometimes:

ppidump 'DESTROY {1;} sub foo {1;}' 
                    PPI::Document
                      PPI::Statement
[    1,   1,   1 ]     PPI::Token::Word     'DESTROY'
                        PPI::Structure::Block   { ... }
                          PPI::Statement
[    1,  10,  10 ]         PPI::Token::Number   '1'
[    1,  11,  11 ]         PPI::Token::Structure    ';'
[    1,  14,  14 ]     PPI::Token::Word     'sub'
[    1,  18,  18 ]     PPI::Token::Word     'foo'
                        PPI::Structure::Block   { ... }
                          PPI::Statement
[    1,  23,  23 ]         PPI::Token::Number   '1'
[    1,  24,  24 ]         PPI::Token::Structure    ';'
                    PPI::Structure::Block   { ... }

And not just one sub gets missed:

ppidump 'DESTROY {1;} sub foo {1;} sub bar {1;}'
                    PPI::Document
                      PPI::Statement
[    1,   1,   1 ]     PPI::Token::Word     'DESTROY'
                        PPI::Structure::Block   { ... }
                          PPI::Statement
[    1,  10,  10 ]         PPI::Token::Number   '1'
[    1,  11,  11 ]         PPI::Token::Structure    ';'
[    1,  14,  14 ]     PPI::Token::Word     'sub'
[    1,  18,  18 ]     PPI::Token::Word     'foo'
                        PPI::Structure::Block   { ... }
                          PPI::Statement
[    1,  23,  23 ]         PPI::Token::Number   '1'
[    1,  24,  24 ]         PPI::Token::Structure    ';'
[    1,  27,  27 ]     PPI::Token::Word     'sub'
[    1,  31,  31 ]     PPI::Token::Word     'bar'
                        PPI::Structure::Block   { ... }
                          PPI::Statement
[    1,  36,  36 ]         PPI::Token::Number   '1'
[    1,  37,  37 ]         PPI::Token::Structure    ';'

The problem goes away (in this example) when #39 is in effect.

[wchristian]

The full version of the fix for this is now released to CPAN as PPI 1.220.