NAME

       Catalyst::Plugin::Captcha - create and validate Captcha for Catalyst

SYNOPSIS

         use Catalyst qw/Captcha/;

         MyApp->config->{ 'Plugin::Captcha' } = {
           session_name => 'captcha_string',
           new => {
             width => 80,
             height => 30,
             lines => 7,
             gd_font => 'giant',
           },
           create => [qw/normal rect/],
           particle => [100],
           out => {force => 'jpeg'}
         };

         sub captcha : Local {
           my ($self, $c) = @_;
           $c->create_captcha();
         }

         sub do_post : Local {
           my ($self, $c) = @_;
           if ($c->validate_captcha($c->req->param('validate')){
             ..
           } else {
             ..
           }
         }

         #validate with CP::FormValidator::Simple
         sub do_post : Local {
           my ($self, $c) = @_;
           $c->form(
             validate => [['EQUAL_TO',$c->captcha_string]]
           )
         }

DESCRIPTION

       This plugin create, validate Captcha.

       Note: This plugin uses GD::SecurityImage and requires a session plugins like
       Catalyst::Plugin::Session

METHODS

   create_captcha
       Create Captcha image and output it.

   validate_captcha
         $c->validate_captcha($key);

       validate key

   captcha_string
       Return a string for validation which is stroed in session.

   clear_captcha_string
       Clear a string which is stroed in session.

CONFIGURATION

       session_name
           The keyword for storing captcha string

       new
       create
       particle
       out These parameters are passed to each GD::Security's method. Please see
           GD::SecurityImage for details.

SEE ALSO

       GD::SecurityImage, Catalyst

AUTHOR

       Masahiro Nagano <kazeburo@nomadscafe.jp>

COPYRIGHT AND LICENSE

       Copyright (C) 2006 by Masahiro Nagano

       This library is free software; you can redistribute it and/or modify it under the same
       terms as Perl itself, either Perl version 5.8.5 or, at your option, any later version of
       Perl 5 you may have available.