# New Ticket Created by Alex Jakimenko # Please include the string: [perl #127473] # in the subject line of all future correspondence about this issue. # <URL: https://rt.perl.org/Ticket/Display.html?id=127473 >
But let's start with something less impressive. Code: say [;0] Result: Non ast passed to WANTED: BOOTInt Non-QAST node visited BOOTInt Weird node visited: BOOTInt Non-QAST node visited BOOTInt Weird node visited: BOOTInt Weird node in analyze: BOOTInt ===SORRY!=== Unknown QAST node type BOOTInt Woah! Ok, let's try this. Code: [;] Result: Non-QAST node visited BOOTInt Weird node visited: BOOTInt Weird node in analyze: BOOTInt ===SORRY!=== Unknown QAST node type BOOTInt Okay, that's a bit less impressive. Let's try with () Code: (;) Result: Non-QAST node visited BOOTInt Weird node visited: BOOTInt Resultchild 0 can't returns! BOOTInt - QAST::Stmts :BY<comp_unit ua u> :context<sink> #!/usr/bin/env perl6\n(;) - QAST::Stmt :BY<comp_unit ua u u> :context<sink> :final (;) - 0 Non-QAST node visited BOOTInt Weird node visited: BOOTInt Resultchild 0 can't returns! BOOTInt - QAST::Stmts :BY<comp_unit ua u> :context<sink> #!/usr/bin/env perl6\n(;) - QAST::Stmt :BY<comp_unit ua u u> :context<sink> :final (;) - 0 Non-QAST node visited BOOTInt Weird node visited: BOOTInt Resultchild 0 can't returns! BOOTInt - QAST::Stmts :BY<comp_unit ua u> :context<sink> #!/usr/bin/env perl6\n(;) - QAST::Stmt :BY<comp_unit ua u u> :context<sink> :final (;) - 0 Non-QAST node visited BOOTInt Weird node visited: BOOTInt Resultchild 0 can't returns! BOOTInt - QAST::Stmts :BY<comp_unit ua u> :context<sink> #!/usr/bin/env perl6\n(;) - QAST::Stmt :BY<comp_unit ua u u> :context<sink> :final (;) - 0 Non-QAST node visited BOOTInt Weird node visited: BOOTInt Resultchild 0 can't returns! BOOTInt - QAST::Stmts :BY<comp_unit ua u> :context<sink> #!/usr/bin/env perl6\n(;) - QAST::Stmt :BY<comp_unit ua u u> :context<sink> :final (;) - 0 Non-QAST node visited BOOTInt Weird node visited: BOOTInt Resultchild 0 can't returns! BOOTInt - QAST::Stmts :BY<comp_unit ua u> :context<sink> #!/usr/bin/env perl6\n(;) - QAST::Stmt :BY<comp_unit ua u u> :context<sink> :final (;) - 0 Non-QAST node visited BOOTInt Weird node visited: BOOTInt Resultchild 0 can't returns! BOOTInt - QAST::Stmts :BY<comp_unit ua u> :context<sink> #!/usr/bin/env perl6\n(;) - QAST::Stmt :BY<comp_unit ua u u> :context<sink> :final (;) - 0 … and so on. Of course, the output is more impressive if you have some other code in the same file.