Playing with delegation in perl6

delegation.p6

#!/usr/bin/env perl6
use v6;

class Mouth {
    has @.vocab;

    method speak {
        say @!vocab.pick;
    }
}

class Cat {
    has $!mouth handles :meow<speak> = Mouth.new(vocab => <ROAR! meow>);
}

my $test = Cat.new;
$test.meow;