[perl #122750] bug or error message not informative

[via RT]

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


Hi all,


use NativeCall;
class TopWindow is repr('CPointer') {
multi sub TopWindow_TopWindow_c() returns OpaquePointer  is 
native("ultimatewindll") { * } #symbol('TopWindow_TopWindow_c')

multi method new() {
  return TopWindow_TopWindow_c();}

}


TopWindow.new();


This gives me

Cannot invoke object with invocation handler in this context
   in sub TopWindow_TopWindow_c at D:\m\p6\nativecalltest2.p6:3
   in method new at D:\m\p6\nativecalltest2.p6:5
   in block  at D:\m\p6\nativecalltest2.p6:11


jaffa4