xinming

#!env perl6


class Hello { ... }

class T {
        has Real $.value is rw;
        has Hello $.hello handles 'call_func';
}

class Hello {
        has Str $.name;

        my %func_map = (
                mul => sub (Real $x, Real $y) { return $x * $y },
                add => sub (Real $x, Real $y) { return $x + $y },
        );


        method call_func ($x, $y) {
                dd %func_map;
                my $t = %func_map{$.name};
                $t($x, $y);
        }

}

my $x = Hello.new(:levels((3, 3, 3)), :name('add'));
my $t = T.new(:hello($x));

say $t.call_func(3, 5);