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.