sub foo : Property { $_ < 10 }

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