NAME

CGI::Untaint::object - base class for Input Handlers

SYNOPSIS

  package MyUntaint::foo;

  use base 'CGI::Untaint::object';

  sub _untaint_re {
    return qr/$your_regex/;
  }

  sub is_valid {
    my $self = shift;
    my $value = $self->value;
    return is_ok($self->value);
  }

  1;

  # then...

  my $handler = CGI::Untaint->new({
    INCLUDE_PATH = 'MyUntaint',
  }, $q->Vars );

  my $bar = $handler->extract(-as_foo => 'field10');

DESCRIPTION

This is the base class that all Untaint objects should inherit from.

AUTHOR

Tony Bowden, <kasei@tmtm.com>.

COPYRIGHT

Copyright (C) 2001 Tony Bowden. All rights reserved.

This module is free software; you can redistribute it and/or modify it under the same terms as Perl itself.