gistfile1.txt

class Perl5Object {
    has OpaquePointer $!ptr;                                                                                                 
    has PerlInterpreter $!perl5;
    
    submethod BUILD(:$!ptr, PerlInterpreter :$!perl5) {                                                                      
    }
    
    method sink() {                                                                                                          
        self;
    }
    
    Perl5Object.^add_fallback(-> $, $ { True },                                                                              
        method ($name ) {                                                                                                    
            -> \self, |args {
                warn self, $!perl5, $name if $!perl5.isa('Perl5Object'); # this prints: Perl5Object<140002120977768>Perl5Object<140002120977768>test
                $!perl5.call($name, $!ptr, args.list);                                                                       
            }                                                                                                                
        }                                                                                                                    
    );
}