# New Ticket Created by "Carl Mäsak"
# Please include the string: [perl #57228]
# in the subject line of all future correspondence about this issue.
# <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=57228 >
Whereas
$ perl6 -e 'class A {}; my A $a .= new; 1'
$ perl6 -e 'class A {}; my A $a = A.new; 1'
$ perl6 -e 'class A {}; my A $a = A.new(); 1'
all work fine,
$ perl6 -e 'class A {}; my A $a .= new'
$ perl6 -e 'class A {}; my A $a = A.new'
$ perl6 -e 'class A {}; my A $a = A.new()'
all produce the same error, namely
get_bool() not implemented in class 'A'
current instr.: 'parrot;PCT::HLLCompiler;command_line' pc 1311
(src/PCT/HLLCompiler.pir:711)
called from Sub 'parrot;Perl6::Compiler;main' pc 14518 (perl6.pir:172)
Moreover,
$ perl6 -e 'class A {}; my A $a = A.new(); 1'
works, but
perl6 -e 'class A; my A $a .= new'
Method 'ACCEPTS' not found for non-object
current instr.: '!DOTYPECHECK' pc 11697 (src/gen_builtins.pir:7467)
called from Sub 'parrot;Perl6Object;infix:=' pc 60 (src/gen_builtins.pir:52)
called from Sub 'parrot;A;_block21' pc 95 (EVAL_13:45)
called from Sub 'parrot;PCT::HLLCompiler;evalpmc' pc 744
(src/PCT/HLLCompiler.pir:448)
called from Sub 'parrot;PCT::HLLCompiler;compile' pc 438
(src/PCT/HLLCompiler.pir:303)
called from Sub 'parrot;PCT::HLLCompiler;eval' pc 776
(src/PCT/HLLCompiler.pir:473)
called from Sub 'parrot;PCT::HLLCompiler;command_line' pc 1305
(src/PCT/HLLCompiler.pir:708)
called from Sub 'parrot;Perl6::Compiler;main' pc 14518 (perl6.pir:172)
doesn't.
