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

 0.1724

+    - added EXPERIMENTAL like_value method to DBIx::Custom

     - sqlfilter option is renamed to after_build_sql, sqlfilter is DEPRECATED!

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

     - removed EXPERIMENTAL flag from the following DBIx::Custom methods

@@ -747,6 +747,8 @@ sub include_model {

     return $self;

 }

+sub like_value { sub { "%$_[0]%" } }

+

 sub mapper {

     my $self = shift;

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

@@ -2876,6 +2878,14 @@ with C<timestamp> option.

 If multiple column are specified, same value is used.

+=head2 C<like_value EXPERIMENTAL>

+

+    my $like_value = $dbi->like_value

+

+Constant code reference for the like value.

+

+    sub { "%$_[0]%" }

+

 =head2 C<mapper>

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

@@ -1,5 +0,0 @@

-### DB2 Install

-

-cd /usr/local/src

-

-curl -L https://www6.software.ibm.com/sdfdl/v2/regs2/db2pmopn/db2_v97/expc/Xa.2/Xb.aA_60_-iVlRRTUNBO90Dq4FHTisv_wdecoCQFeRQbw/Xc.db2exc_974_LNX_x86.tar.gz/Xd./Xf.LPr.D1vk/Xg.6107654/Xi.swg-db2expressc/XY.regsrvs/XZ.2ygJIAbTC5bn3tv2hlm2PnXUcz8/db2exc_974_LNX_x86.tar.gz > db2exc_974_LNX_x86.tar.gz

@@ -1,5 +0,0 @@

-# Create database

-create database dbix_custom;

-

-# Create User

-GRANT ALL PRIVILEGES ON dbix_custom.* TO dbix_custom@"localhost" IDENTIFIED BY 'dbix_custom';

@@ -1,55 +0,0 @@

-# Download

-http://download.oracle.com/otn/linux/oracle10g/xe/10201/oracle-xe-univ-10.2.0.1-1.0.i386.rpm

-

-# Install

-rpm -ivh oracle-xe-univ-10.2.0.1-1.0.i386.rpm

-/etc/init.d/oracle-xe configure

-

-# Note

-Port number is set to 8090

-

-# HTTP access

-http://127.0.0.1:8090/apex

-

-# Create user

-id: dbix_custom

-password: dbix_custom

-

-Add all privirage

-

-# DBD::Oracle

-You must be install install client

-oracle-instantclient11.2-basic-11.2.0.2.0.i386.rpm

-oracle-instantclient11.2-devel-11.2.0.2.0.i386.rpm

-oracle-instantclient11.2-sqlplus-11.2.0.2.0.i386.rpm

-

-rpm -hiv oracle-instantclient11.2-basic-11.2.0.2.0.i386.rpm

-rpm -hiv oracle-instantclient11.2-devel-11.2.0.2.0.i386.rpm

-rpm -hiv oracle-instantclient11.2-sqlplus-11.2.0.2.0.i386.rpm

-

-vi /etc/profile.d/oracle.sh

-export ORACLE_HOME='/usr/lib/oracle/11.2/client'

-export C_INCLUDE_PATH='/usr/include/oracle/11.2/client'

-export LD_LIBRARY_PATH='/usr/lib/oracle/11.2/client/lib'

-

-vi /etc/ld.so.conf.d/oracle.conf

-/usr/lib/oracle/11.2/client/lib

-

-cpan DBD::Oracle

-

-sqlplus dbix_custom/dbix_custom@localhost:1521/XE

-

-mkdir -p $ORACLE_HOME/network/admin/

-vi $ORACLE_HOME/network/admin/tnsnames.ora

-

-XE =

-  (DESCRIPTION =

-    (ADDRESS_LIST =

-      (ADDRESS = (PROTOCOL = TCP)(HOST = localhost)(PORT = 1521))

-    )

-    (CONNECT_DATA =

-      (SID = orcl)

-    )

-  )

-

-

@@ -1,35 +0,0 @@

-### CentOS5

-

-# Install

-yum -y install postgresql-server

-yum -y install postgresql

-yum -y install postgresql-devel

-chkconfig --level 2345 postgresql on

-

-# Start server

-service postgresql start

-

-# Change config file

-vi /var/lib/pgsql/data/pg_hba.conf

-  # "local" is for Unix domain socket connections only

-  local   all         all                               trust

-

-# Create user and database

-su - postgres

-createuser -a -d -U postgres -P dbix_custom

-  # Shall the new role be a superuser? (y/n) -> y

-  # Shall the new role be allowed to create databases? (y/n) -> y

-  # Shall the new role be allowed to create more new roles? (y/n) -> y

-

-createdb dbix_custom -U dbix_custom

-

-# Connect to database

-psql -U dbix_custom dbix_custom

-

-# Install DBD::pg

-cpanm DBD::Pg

-

-### Memo

-

-# Drop user

-dropuser dbix_custom

@@ -1,13 +0,0 @@

-# Site

-http://awoni.net/fc/sql-server-2008-express/

-

-

-# Install

-http://www.microsoft.com/downloads/ja-jp/details.aspx?displaylang=ja&FamilyID=967225eb-207b-4950-91df-eeb5f35a80ee

-

-

-# Note

-You enable SQL Server authentication.

-You create user "dbix_custom", password "dbix_custom"

-You give create_table, insert, update, delete, select authority to user "dbix_custom".

-

@@ -2556,6 +2556,15 @@ $param = $dbi->mapper(param => {id => 1, author => 'Ken', price => 1900})->map(

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

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

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

+$param = $dbi->mapper(param => {id => 1, author => 'Ken', price => 1900})->map(

+    id => "$table1.id",

+    author => ["$table1.author" => $dbi->like_value],

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

+);

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

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

+

 $param = $dbi->mapper(param => {id => 0, author => 0, price => 0})->map(

     id => "$table1.id",

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