[perl #60400] [BUG] WHAT stringifies to just the last token of a :: separated class name

[via RT]

# New Ticket Created by  Chris Dolan 
# Please include the string:  [perl #60400]
# in the subject line of all future correspondence about this issue. 
# <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=60400 >


Test case #1:
    ./perl6 -e'class Foo::Bar {}; say Foo::Bar.new.WHAT'
Got:
    Bar
Expected:
    Foo::Bar

Test case #2 (which is just a special case of test case #1):
    ./perl6 -e'class Foo::Bar {}; say Foo::Bar.new'
Got:
    Bar<0x4099e80>
Expected:
    Foo::Bar<0x4099e80>

./perl6 -v
This is Rakudo Perl 6, revision 32442 built on parrot 0.8.0-devel
for darwin-thread-multi-2level.