[perl #60446] [PATCH] first draft implementation self.WHO to return package of a class

[via RT]

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


The attached patch attempts to implement the WHO method from S12.   
With this patch, I get the following output:

   % ../../parrot perl6.pbc -e'class Foo::Bar {}; say Foo::Bar.new.WHO;'
   Bar

   % ../../parrot perl6.pbc -e'class Foo::Bar {}; say  
Foo::Bar.new.WHO.WHAT;'
   Module

However, this implementation has the following flaws:
  * the WHO package stringifies to the shortname, not the longname  
specified in S12.
  * The following identity test fails:
    % ../../parrot perl6.pbc -e'class Foo::Bar {}; say  
Foo::Bar.new.WHO === Foo::Bar'
    0

who.patch
Description: Binary data