package DBIx::Custom::Next::Mapper;

use Object::Simple -base;

use DBIx::Custom::Next::NotExists;

use Carp 'croak';

use DBIx::Custom::Next::Util '_subname';

# Carp trust relationship

push @DBIx::Custom::Next::CARP_NOT, __PACKAGE__;

has [qw/param/],

    condition => sub {

        sub { defined $_[0] && length $_[0] }

    },

    pass => sub { [] };

sub map {

    my ($self, %rule) = @_;

    my $param = $self->param;

    $rule{$_} = {key => $_} for @{$self->pass};

    # Mapping

    my $new_param = {};

    for my $key (keys %rule) {

        my $mapping = $rule{$key};

        # Get mapping information

        my $new_key;

        my $value;

        my $condition;

        if (ref $mapping eq 'ARRAY') {

            $new_key = $mapping->[0];

            $value = $mapping->[1];

            $condition = ref $mapping->[2] eq 'HASH' ? $mapping->[2]->{condition} : $mapping->[2];

        }

        elsif (ref $mapping eq 'HASH') {

            $new_key = $mapping->{key};

            $value = $mapping->{value};

            $condition = $mapping->{condition};

        }

        $new_key = $key unless defined $new_key;

        $condition ||= $self->condition;

        $condition = $self->_condition_to_sub($condition);

        # Map parameter

        if (ref $condition eq 'CODE') {

            if (ref $param->{$key} eq 'ARRAY') {

                $new_param->{$new_key} = [];

                for (my $i = 0; $i < @{$param->{$key}}; $i++) {

                    $new_param->{$new_key}->[$i]

                      = $condition->($param->{$key}->[$i]) ? $param->{$key}->[$i]

                      : DBIx::Custom::Next::NotExists->singleton;

                }

            }

            else {

              if ($condition->($param->{$key})) {

                  $new_param->{$new_key} = defined $value

                                         ? $value->($param->{$key})

                                         : $param->{$key};

              }

            }

        }

        elsif ($condition eq 'exists') {

            if (ref $param->{$key} eq 'ARRAY') {

                $new_param->{$new_key} = [];

                for (my $i = 0; $i < @{$param->{$key}}; $i++) {

                    $new_param->{$new_key}->[$i]

                      = exists $param->{$key}->[$i] ? $param->{$key}->[$i]

                      : DBIx::Custom::Next::NotExists->singleton;

                }

            }

            else {

                if (exists $param->{$key}) {

                    $new_param->{$new_key} = defined $value

                                           ? $value->($param->{$key})

                                           : $param->{$key};

                }

            }

        }

        else { croak qq/Condition must be code reference or "exists" / . _subname }

    }

    return $new_param;

}

sub new {

    my $self = shift->SUPER::new(@_);

    # Check attribute names

    my @attrs = keys %$self;

    for my $attr (@attrs) {

        croak qq{"$attr" is invalid attribute name (} . _subname . ")"

          unless $self->can($attr);

    }

    return $self;

}

sub _condition_to_sub {

    my ($self, $if) = @_;

    $if = $if eq 'exists' ? $if

            : $if eq 'defined' ? sub { defined $_[0] }

            : $if eq 'length'  ? sub { defined $_[0] && length $_[0] }

            : ref $if eq 'CODE' ? $if

            : undef;

    croak "You can must specify right value to C<condition> " . _subname

      unless $if;

    return $if;

}

1;

=head1 NAME

DBIx::Custom::Next::Mapper - Mapper of parameter

=head1 SYNOPSYS

    my $mapper = $dbi->mapper(param => $param);

    my $new_param = $mapper->map(

        title => 'book.title', # Key

        author => sub { '%' . $_[0] . '%'} # Value

        price => ['book.price' => sub { '%' . $_[0] . '%' }], # Key and value

    );

=head1 ATTRIBUTES

=head2 C<param>

    my $param = $mapper->param;

    $mapper = $mapper->param({title => 'Perl', author => 'Ken'});

Parameter.

=head2 C<pass>

    my $pass = $mapper->pass;

    $mapper = $mapper->pass([qw/title author/]);

the key and value is copied without change when C<map> method is executed.

=head2 C<condition>

    my $condition = $mapper->condition;

    $mapper = $mapper->condition('exists');

Mapping condtion, default to C<length>.

You can set the following values to C<condition>.

=over 4

=item * C<exists>

    condition => 'exists'

If key exists, key and value is mapped.

=item * C<defined>

    condition => 'defined';

If value is defined, key and value is mapped.

=item * C<length>

    condition => 'length';

If value is defined and has length, key and value is mapped.

=item * C<code reference>

    condition => sub { defined $_[0] }

You can set code reference to C<condtion>.

The subroutine return true, key and value is mapped.

=head1 METHODS

L<DBIx::Custom::Next::Mapper> inherits all methods from L<Object::Simple>

and implements the following new ones.

=head2 C<map>

    my $new_param = $mapper->map(

        price => {key => 'book.price'}

        title => {value => sub { '%' . $_[0] . '%'}}

        author => ['book.author' => sub { '%' . $_[0] . '%'}] # Key and value

    );

Map C<param> into new parameter.

For example, if C<param> is set to

    {

        price => 1900,

        title => 'Perl',

        author => 'Ken',

        issue_date => '2010-11-11'

    }

The following hash reference is returned.

    {

        'book.price' => 1900,

        title => '%Perl%',

        'book.author' => '%Ken%',

    }

By default, If the value has length, key and value is mapped.

    title => 'Perl'  # Mapped

    {title => '' }   # Not mapped

    {title => undef} # Not mapped

    {}               # Not mapped

You can set change mapping condition by C<condition> attribute.

    $mapper->condition('defined');

Or you can set C<condtion> option for each key.

    my $new_param = $mapper->map(

        price => {key => 'book.price', condition => 'defined'}]

        title => {value => sub { '%' . $_[0] . '%'}, condition => 'defined'}

        author => ['book.author', sub { '%' . $_[0] . '%'}, 'exists']

    );

If C<pass> attrivute is set, the keys and value is copied without change.

    $mapper->pass([qw/title author/]);

    my $new_param = $mapper->map(price => {key => 'book.price'});

The following hash reference

    {title => 'Perl', author => 'Ken', price => 1900}

is mapped to

    {title => 'Perl', author => 'Ken', 'book.price' => 1900}

=cut