NAME

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

SYNOPSIS

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

DATATYPES

You can use these datatypes:

• integer

• float

• string

WHAT TO DO WHEN CHECK FAILS

on_error

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;

USE YOUR OWN DATATYPE

register

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;

BUGS

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

AUTHOR

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