gistfile1.txt

use nqp;

my $b := sub ($cont) { say "here" };
my $c := sub ($cont, $val) { say "pera" };

my $A_FETCH;
my $A_STORE;

constant A := Metamodel::ClassHOW.new_type( name => 'A' );
A.HOW.add_parent(A, Any);
A.HOW.add_method(A, 'FETCH', ($A_FETCH := nqp::getstaticcode(
    nqp::getattr($b, Code, '$!do')
)));
A.HOW.add_method(A, 'STORE', ($A_STORE := nqp::getstaticcode(
    nqp::getattr($c, Code, '$!do')
)));	
A.HOW.add_method(A, 'new', nqp::getstaticcode(
    nqp::getattr(sub ($type) {
      my $cont := nqp::create(A);
      say "chiu";
      $cont
    }, Code, '$!do')
));

A.HOW.compose(A);

nqp::setcontspec(A, 'code_pair', nqp::hash(
        'fetch', $A_FETCH,
        'store', $A_STORE
));

A.HOW.compose_repr(A);

my $f = A.new();