my $positive_number;
tie $positive_number, "Enforcer", sub {$_[0] > 0};
$positive_number = 2;     # ok
$positive_number = 6.4;   # ok
$positive_number = -1;    # croak!