Select Code to Download

use Errno qw/EINVAL EDOM ERANGE/;

sub TIESCALAR {
...

1;
__DATA__

Usage:
    use Tie::Constrained;
    tie my $var, Tie::Constrained => \&mytest, $initval;
...
Both arguments are optional, but the default validator
function always says yes.  mytest() should be designed
to return true for valid data and false for data to reject.