[perl #128880] Dead code in HyperWhatever, ｢.new｣ is not supposed to work but it does (HyperWhatever.new)

[via RT]

# New Ticket Created by  Aleks-Daniel Jakimenko-Aleksejev 
# Please include the string:  [perl #128880]
# in the subject line of all future correspondence about this issue. 
# <URL: https://rt.perl.org/Ticket/Display.html?id=128880 >


Let's look at the code in Rakudo! From src/core/Whatever.pm

my class HyperWhatever {
multi method new(HyperWhatever:) { X::Cannot::New.new(class => self).throw }
…
}

So it seems like it should throw a warning if we try to create a HyperWhatever
object, right? Let's see!

Code:
say HyperWhatever.new

Result:
sub (*@_) { #`(Sub|54745104) ... }


Apparently, the code in “.new” method of Whatever.pm is not being reached.