Tie::CheckVariables - check/validate variables for their datatype

  use Tie::CheckVariables

  tie my $scalar,'Tie::CheckVariables','integer';
  $scalar = 88; # is ok
  $scalar = 'test'; # is not ok, throws error

  untie $scalar;

You can use these datatypes:

* integer

* float

* string

You can specify a subroutine that is invoked on error:

  use Tie::CheckVariables;

  Tie::CheckVariables->on_error(sub{print "ERROR!"});

  tie my $scalar,'Tie::CheckVariables','integer';
  $scalar = 'a'; # ERROR! is printed
  untie $scalar;

If the built-in datatypes aren't enough, you can extend this module with your own datatypes:

  use Tie::CheckVariables;

  Tie::CheckVariables->register('url','^http://');
  tie my $test_url,'Tie::CheckVariables','url';
  $test_url = 'http://www.perl.org';
  untie $test_url;

No known bugs, but "every" piece of code has bugs. If you find bugs, please use http://rt.cpan.org

copyright 2006 Renee Baecker <module@renee-baecker.de>