@@ -1,4 +1,5 @@

 0.1723

+    - removed EXPERIMENTAL map_param method from DBIx::Custom

     - removed EXPERIMENTAL flag from the following DBIx::Custom::Result mehotds

       filter_on, type_rule, type_rule_off, type_rule_on, type_rule1_off,

       type_rule1_on, type_rule2_off, type_rule2_on

@@ -6,11 +7,12 @@

       sqlfilter, type_rule_off, type_rule1_off, type_rule2_off,

       table_alias, wrap

     - removed EXPERIMENTAL flag from DBIx::Custom::Order

-    - removed EXPERIMETNAL flag from the following DBIx::Custom mehtods

+    - removed EXPERIMETNAL flag from the following DBIx::Custom methods

       exclude_table, user_column_info,

       user_table_info, available_datatype, available_typename,

       assign_param, count, get_column_info, get_table_info

-      order, show_datatype, show_typename methods, type_rule

+      order, show_datatype, show_typename methods, type_rule,

+      mapper

     - added EXPERIMENTAL update_timestamp method to DBIx::Custom

     - added EXPERIMENTAL insert_timestamp method to DBIx::Custom

     - removed EXPERIMENTAL timestamp attribute from DBIx::Custom

@@ -751,48 +751,6 @@ sub mapper {

     return DBIx::Custom::Mapper->new(@_);

 }

-sub map_param {

-    my $self = shift;

-    my $param = shift;

-    my %map = @_;

-    

-    # Mapping

-    my $map_param = {};

-    foreach my $key (keys %map) {

-        my $value_cb;

-        my $condition;

-        my $map_key;

-        

-        # Get mapping information

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

-            foreach my $some (@{$map{$key}}) {

-                $map_key = $some unless ref $some;

-                $condition = $some->{if} if ref $some eq 'HASH';

-                $value_cb = $some if ref $some eq 'CODE';

-            }

-        }

-        else {

-            $map_key = $map{$key};

-        }

-        $value_cb ||= sub { $_[0] };

-        $condition ||= sub { defined $_[0] && length $_[0] };

-

-        # Map parameter

-        my $value;

-        if (ref $condition eq 'CODE') {

-            $map_param->{$map_key} = $value_cb->($param->{$key})

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

-        }

-        elsif ($condition eq 'exists') {

-            $map_param->{$map_key} = $value_cb->($param->{$key})

-              if exists $param->{$key};

-        }

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

-    }

-    

-    return $map_param;

-}

-

 sub merge_param {

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

@@ -2918,60 +2876,12 @@ See L<DBIx::Custom::Model> to know model features.

 Parameter for timestamp columns when C<insert> method is executed

 with C<timestamp> option.

-=head2 C<mapper EXPERIMETNAL>

+=head2 C<mapper>

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

 Create a new L<DBIx::Custom::Mapper> object.

-=head2 C<map_param> EXPERIMENTAL

-

-    my $map_param = $dbi->map_param(

-        {id => 1, authro => 'Ken', price => 1900},

-        'id' => 'book.id',

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

-        'price' => [

-            'book.price', {if => sub { length $_[0] }}

-        ]

-    );

-

-Map paramters to other key and value. First argument is original

-parameter. this is hash reference. Rest argument is mapping.

-By default, Mapping is done if the value length is not zero.

-

-=over 4

-

-=item Key mapping

-

-    'id' => 'book.id'

-

-This is only key mapping. Value is same as original one.

-

-    (id => 1) is mapped to ('book.id' => 1) if value length is not zero.

-

-=item Key and value mapping

-

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

-

-This is key and value mapping. Frist element of array reference

-is mapped key name, second element is code reference to map the value.

-

-    (author => 'Ken') is mapped to ('book.author' => '%Ken%')

-      if value length is not zero.

-

-=item Condition

-

-    'price' => ['book.price', {if => 'exists'}]

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

-    'price' => ['book.price', {if => sub { defined shift }}]

-

-If you need condition, you can sepecify it. this is code reference

-or 'exists'. By default, condition is the following one.

-

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

-

-=back

-

 =head2 C<merge_param>

     my $param = $dbi->merge_param({key1 => 1}, {key1 => 1, key2 => 2});

@@ -2873,49 +2873,6 @@ $param = $dbi->mapper(param => {id => 'a', author => 'b', price => 'c'}, pass =>

   ->map(price => 'book.price');

 is_deeply($param, {id => 'a', author => 'b', 'book.price' => 'c'});

-test 'map_param';

-$dbi = DBIx::Custom->connect;

-$param = $dbi->map_param(

-    {id => 1, author => 'Ken', price => 1900},

-    id => "$table1.id",

-    author => ["$table1.author", sub { '%' . $_[0] . '%' }],

-    price => ["$table1.price", {if => sub { $_[0] eq 1900 }}]

-);

-is_deeply($param, {"$table1.id" => 1, "$table1.author" => '%Ken%',

-  "$table1.price" => 1900});

-

-$param = $dbi->map_param(

-    {id => 0, author => 0, price => 0},

-    id => "$table1.id",

-    author => ["$table1.author", sub { '%' . $_[0] . '%' }],

-    price => ["$table1.price", sub { '%' . $_[0] . '%' },

-      {if => sub { $_[0] eq 0 }}]

-);

-is_deeply($param, {"$table1.id" => 0, "$table1.author" => '%0%', "$table1.price" => '%0%'});

-

-$param = $dbi->map_param(

-    {id => '', author => '', price => ''},

-    id => "$table1.id",

-    author => ["$table1.author", sub { '%' . $_[0] . '%' }],

-    price => ["$table1.price", sub { '%' . $_[0] . '%' },

-      {if => sub { $_[0] eq 1 }}]

-);

-is_deeply($param, {});

-

-$param = $dbi->map_param(

-    {id => undef, author => undef, price => undef},

-    id => "$table1.id",

-    price => ["$table1.price", {if => 'exists'}]

-);

-is_deeply($param, {"$table1.price" => undef});

-

-$param = $dbi->map_param(

-    {price => 'a'},

-    id => ["$table1.id", {if => 'exists'}],

-    price => ["$table1.price", sub { '%' . $_[0] }, {if => 'exists'}]

-);

-is_deeply($param, {"$table1.price" => '%a'});

-

 test 'order';

 $dbi = DBIx::Custom->connect;

 eval { $dbi->execute("drop table $table1") };