说明
写这篇文章的目的只是因为自己要用这个模块，在CPAN和Github上面有详细的介绍说明以及使用方式，但是每次都去上面查找很麻烦，所以就在这里吧一些东西列一下方便使用的时候查看。
想要深入了解的可以去CPAN和Github查看，下面是DBIx::Custom在CPAN和Github的连接：
https://metacpan.org/pod/DBIx::Custom
https://github.com/yuki-kimoto/DBIx-Custom
介绍
1、DBIx::cystom 是一个DBI扩展类，可以轻松的搞定insert，update，delete，和select语句，同时可以灵活的创建where语句。
2、它可以很好支持常用的数据库如：MySQL，SQLite，PostgreSQL，Oracle，Microsoft SQL Server，Microsoft Access，DB2或其他。
连接数据库
以Mysql为例直接上代码:
my $dbi = DBIx::Custom->connect(
dsn => "dbi:mysql:database=bookshop",
user => 'ken',
password => '!LFKD%$&',
option => {mysql_enable_utf8 => 1}
);
## 设置dsn到数据源名称，user用户名，password密码，并option以DBI选项。返回值是DBIx :: Custom对象。
## mysql_enable_utf8选项设置为1，Perl内部字符串自动转换为UTF-8字节字符串。
当然也可以用主机名和端口号来远程连接Mysql服务器：
my $dbi = DBIx::Custom->connect(
dsn => "dbi:mysql:database=bookshop;host=somehost.com;port=3306",
user => 'ken',
password => '!LFKD%$&',
);
使用方式
基础函数
execute()
该方法可以直接执行SQL，同时支持命名占位符。例如：
my $result = $dbi->execute("select * from book");
## 返回值是DBIx :: Custom :: Result对象。通过all方法获取所有行。
my $rows = $result->all;
详细的result对象请参考 DBIx :: Custom :: Result
命名占位符替代“？”。例如：
my $result = $dbi->execute(
"select * from book where title = :title and author like :author",
{title => 'Perl', author => '%Ken%'}
);
my $result = $dbi->execute(
"select * from book where title = :book.title and author like :book.author",
{'book.title' => 'Perl', 'book.author' => '%Ken%'}
);
## SQL可以包含参数，例如：author和：title。您可以将表名添加到列名称，如：book.title和：book.author。第二个参数是嵌入到列参数中的数据。
## 当执行select语句时，返回值是DBIx :: Custom :: Result对象，或执行insert，update，delete语句时受影响的行数。
当然你也可以这样：
select * from book where title = :title and author like :author; <=> select * from where title = ? and author like ?;
## 或者
select * from book where :title{=} and :author{like}; <=> select * from where title = ? and author like ?;
## 请注意占位符中如果出现“：”那么它将不会被解析，如果你想使用“：”的话就需要在其前添加“\\”,如：
select * from where title = "aa\\:bb";
select()
my $result =$dbi->select(['*'],table=>'user',where=>{id=>1},append => 'group by status');
my $rows = $result->all;
查询user表id=1的全部数据；
select()中有三个参数：
第一个是要查询的列名，查询全部 ['*'] 、' * ' 、或者不传也是查询全部，当我们只需要一部分列时可以 ['id','name'] 或者 [ qw /id name/ ]。
第二个table表示需要差选的表名；
第三个表示需要的条件；
如果你想要使用 group by，order by ，LIMIT 那么你就需要用 append 了。
insert（）
$dbi->insert({title => 'Perl', author => 'Ken'}, table => 'book');
#修改时间
{date => \"NOW()"}
# 添加多条数据
$dbi->insert(
[
{title => 'Perl', author => 'Ken'},
{title => 'Ruby', author => 'Tom'}
],
table => 'book'
);
update()
$dbi->update({title => 'Perl'}, table => 'book', where => {id => 4});
模板之DBIx::Custom::Model
$dbi->include_model('MyModel');
可以通过该方法加载模型信息。
