# 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.
