gistfile1.txt

role Blobject {
}

subset Callback of Callable where { $_.signature.params && $_.signature ~~ :(Blobject --> Bool) }; 

my Callback @foo;

class One does Blobject {
}

class Two does Blobject {
}

sub one-sub(One $one) returns Bool {
	say "One";
}

sub two-sub(Two $two) returns Bool {
	say "Two";
}

@foo.push: &one-sub;
@foo.push: &two-sub;

sub run-em(Blobject $blob) {
	sub run(|c) { 
		@foo.grep( -> $v { c ~~ $v.signature  })>>.(|c); 
	}
	run($blob);
}

say "Doing one";
run-em(One.new);
say "Doing two";
run-em(Two.new);