gistfile1.txt

rakudo$ cat constrains.p6 
use v6;

my $counter = 0;

multi a(Int $x) {};
multi a($x where {$counter++; True}) {};

a(3);
say $counter;
a('str');
say $counter;
rakudo$ ./perl6 constrains.p6 
0
2