NAME

    Tie::CheckVariables - check/validate variables for their data type

VERSION

    version 0.07

SYNOPSIS

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

DATA TYPES

    You can use these data types by default:

      * 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 DATA TYPE

 register

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

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

USING Type::Tiny

    Since the very first version of this module, a lot has happened. Moose,
    Moo and other very nice modules were developed. And sometimes later
    Type::Tiny was written.

    So I added support for Types::Standard now ;-)

      use Tie::CheckVariables;
      use Types::Standard qw(Int);
      
      tie my $test_int,'Tie::CheckVariables', Int;
      $test_int = 112;
      $test_int = 'Test'; # throws error
      untie $test_url;

AUTHOR

    Renee Baecker <reneeb@cpan.org>

COPYRIGHT AND LICENSE

    This software is Copyright (c) 2006 by Renee Baecker.

    This is free software, licensed under:

      The Artistic License 2.0 (GPL Compatible)