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

package FormValidator::LazyWay::Rule;

use strict;
use warnings;
use UNIVERSAL::require;
use Moose;

has alias       => ( is => 'ro' , isa => 'HashRef' );
has args        => ( is => 'ro' , isa => 'HashRef' );
has config      => ( is => 'ro' , isa => 'HashRef' );
has constraints => ( is => 'ro' , isa => 'HashRef' );

sub BUILD {
    my $self = shift;
    $self->_load_rules();
}

sub _load_rules {
    my $self  = shift;
    my $rules = $self->{config}{rules};

    for my $rule ( @{$rules} ) {
        my $module = $rule;

        my @data = split( '=', $rule );
        my $alias;
        if ( scalar @data == 1 ) {
            $module = $rule;
        }
        else {
            $alias  = $data[0];
            $module = $data[1];
        }

        unless ( $module =~ s/^\+// ) {
            $module = join( '::', __PACKAGE__, $module );
        }
        $self->{alias}{$alias} = $module if $alias;

        $module->require or die $@;
    }

    foreach my $key ( keys %{ $self->config->{constraints} } ) {
        $self->{constraints}{$key}
            = $self->_make_constraints( $key );
    }
}

sub _make_constraints {
    my $self        = shift;
    my $type        = shift;
    my $alias       = $self->alias;
    my $constraints = {};
    my $config      = $self->config;

    foreach my $field ( keys %{ $config->{constraints}{$type} } ) {
        my $validations = $config->{constraints}{$type}{$field};

        for my $validation ( @{$validations} ) {

            my $label;
            my $args = {};
            if ( ref $validation eq 'HASH' ) {
                ( $label, $args ) = each %{$validation};
                $args = $args->{args};
            }
            else {
                $label = $validation;
            }

            my $package = substr( $label, 0, rindex( $label, '::' ) );
            my $method = substr( $label, rindex( $label, '::' ) + 2 );

            if ( $alias->{$package} ) {
                $package = $alias->{$package};
            }
            else {
                my $prefix = 'dfv';
                if ( $package =~ s/^\+// ) {
                    $prefix = $self->{prefix} || 'dfv';
                }
                else {
                    $package = __PACKAGE__ . '::' . $package;
                }

            }

            my $sub = $package . '::' . $method;

            $self->{args}{$type}{$field}{$label} = $args if keys %{$args};

            $constraints->{$field}{$sub}{method} = sub {
                my $item = shift;
                no strict;
                my $result = $sub->( $item, $args );
                return $result;
            };

            $constraints->{$field}{$sub}{label} = $label;

        }

    }

    return $constraints;
}
1;

=head1 NAME

FormValidator::LazyWay::Rule - FormValidator::LazyWay Validation Rule module.

=head1 DESCRIPTION

Base Rules.

=head1 METHODS

=head2 new

=head2 alias

=head2 args

=head2 constraints

=head1 AUTHOR

Tomohiro Teranishi <tomohiro.teranishi@gmail.com>

=cut