File Coverage

blib/lib/CGI/Application/Plugin/FormValidator/Simple.pm

Criterion	Covered	Total	%
statement	13	28	46.4
branch	0	10	0.0
condition			n/a
subroutine	5	7	71.4
pod	0	2	0.0
total	18	47	38.3

package CGI::Application::Plugin::FormValidator::Simple;

use strict;
use vars qw($VERSION @EXPORT);
use warnings;
use FormValidator::Simple;

require Exporter;

@EXPORT = qw(
  validator
  form
);
sub import { goto &Exporter::import }

$VERSION = '0.03';

sub validator {
    my $self = shift;
    my %params = @_;

    my $plugins = $params{plugins};
    FormValidator::Simple->import(@$plugins) if $plugins;

    my $options = $params{options};
    $self->{validator} = FormValidator::Simple->new(%$options);

    if (exists $params{messages}){
	FormValidator::Simple->set_messages($params{messages});
      }

    return $self->{validator};
}


sub form {
    my $self = shift;
    if ($_[0]) {
        my $form = $_[1] ? [@_] : $_[0];
	$self->validator() unless $self->{validator};
        $self->{form} = $self->{validator}->check($self->query, $form);
    }
    return $self->{form};
}


1;
__END__