Help for this page

Select Code to Download


  1. or download this
    my $positive_number;
tie $positive_number, "Enforcer", sub {$_[0] > 0};
$positive_number = 2;     # ok
$positive_number = 6.4;   # ok
$positive_number = -1;    # croak!
  2. or download this
    my $x = 2;
tie $x, "Enforcer", sub {...}
    # can Enforcer::TIESCALAR know that $x is currently 2??