root/lang/perl/FormValidator-LazyWay/branches/rebuild/lib/FormValidator/LazyWay.pm @ 13411

package FormValidator::LazyWay;

use Moose;
use FormValidator::LazyWay::Rule;
use FormValidator::LazyWay::Message;
use Carp;

has config  => ( is => 'ro' , isa => 'HashRef' ) ;
has rule    => ( is => 'ro' , isa => 'FormValidator::LazyWay::Rule' ) ;
has message => ( is => 'ro' , isa => 'FormValidator::LazyWay::Message' ) ;

sub BUILD {
    my $self = shift; 
    croak 'you msue set config' unless $self->config;
    my $rule = FormValidator::LazyWay::Rule->new( config => $self->config );
    my $message = FormValidator::LazyWay::Message->new( config => $self->config , rule => $rule );
    $self->{rule}    = $rule;
    $self->{message} = $message;
}

1;

=head1 NAME

FormValidator::LazyWay - Yet Another Form Validator 

=head1 SYNOPSYS

 my $fv = FormValidator::LazyWay->new( $config );

=head1 DESCRIPTION

=head1 AUTHOR

Tomohiro Teranishi <tomohiro.teranishi@gmail.com>

=cut