gistfile1.txt

use MONKEY_TYPING;

augment class Signature {
    multi method ACCEPTS(Signature:D: Signature:D $topic) {
        return False unless $topic.params == self.params;
        for $topic.params Z self.params -> $t, $s {
            return False unless $t.type ~~ $s.type;
        }
        return True;
    }
}

say :(Str) ~~ :(Str);
say :(Int) ~~ :(Str);