sub foo : Property { $_ < 10 }

main->foo = 9;
main->foo++;  # dies

##</code><code>##

has $foo where { $_ < 10 };

##</code><code>##

my $foo where { $_ < 10 };

$foo = 9;
$foo++;  # dies