Help for this page

Select Code to Download


  1. or download this
    package Tie::Constrained;
  2. or download this
    use Errno qw/EINVAL EDOM ERANGE/;

sub TIESCALAR {
...

1;
__DATA__
  3. or download this
    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.