cleanup ・ 9ff5a67 ・ Gitprep

- cleanup;
- Browse files
- Yuki Kimoto commited on 2011-08-07
- 1 parent bd35c82
  
  commit 9ff5a675d47008536873c4badc5107bf8bf2d6f5

Showing 94 changed files with 0 additions and 25906 deletions

-527

DBIx-Custom-0.1711/Changes

@@ -1,527 +0,0 @@
-0.1710
-    - use more DBIx::Custom information in sub modules to decrease bugs
-      (very sorry, this change can't keep backword compatible,
-       but maybe no effects,
-       because the attributes is automatically set by DBIx::Custom, not user).
-    - Fixed fisrt executed where clause failed in some condition.
-0.1709
-    - fixed named placeholder bug and added escape syntax
-0.1708
-    - improved execute method performance
-0.1707
-    - I call :title named placeholder, stoping calling it parameter
-    - removed some EXPERIMENTAL status
-    - fixed performance
-0.1706
-    - Added execute method's query option document
-      You can get more performance.
-    - DBIx::Custom::Query table and filters attribute method and
-      filter method is DEPRECATED!
-      because I think query object must have only the information
-      for statement handle caching.
-0.1705
-    - insert and update method's param can set constant value by scalara reference
-      such as {date => \"NOW()"} This is EXPERIMENTAL.
-0.1704
-    - added quote method's two character support like []
-      for Microsoft SQL Server and Access
-    - added EXPERIMENTAL parameter new syntax :name{operator}
-0.1703
-    - added EXPERIMENTAL join new syntax.
-0.1702
-    - removed EXPERIMENTAL status of some methods.
-    - fixed some join bug
-0.1701
-    - added DBIx::Cusotm::Order prepend method automatically quoted syntax
-    - simplified arguments check
-    - added EXPERIMENTAL each_table method
-    - select method column option [COLUMN, as => ALIAS] format is DEPRECATED!
-      changed to [COLUMN => ALIAS]
-    - added EXPERIMENTAL DBIx::Custom::Result header method
-    - added EXPERIMENTAL last_sql attribute method
-0.1700
-    - fixed end_filter DEPRECATED warnings bug
-0.1699
-    - added tag_parse attribute.
-    - added EXPERIMENTAL order method
-    - added EXPERIMENTAL DBIx::Custom::Order module
-    - changed backword compatible policy
-      ------------------------------------------------------------------------
-      If a functionality is DEPRECATED, you can know it by DEPRECATED warnings
-      except for attribute method.
-      You can check all DEPRECATED functionalities by document.
-      DEPRECATED functionality is removed after five years,
-      but if at least one person use the functionality and tell me that thing
-      I extend one year each time you tell me it.
-
-      EXPERIMENTAL functionality will be changed without warnings.
-      ------------------------------------------------------------------------
-0.1698
-    - fixed DBIx::Custom::Where to_string method small bug
-    - added EXPERIMENTAL execute method table_alias option
-0.1697
-    - added EXPERIMENTAL map_param method
-0.1696
-    - added new argument format update, delete, select method where option
-    - create_query is DEPRECATED! use query option of each method instead.
-    - added EXPERIMENTAL insert, update, and select method prefix option
-    - fixed small insert, update, delete, select method id option bug
-0.1695
-    - changed EXPERIMENTAL DBIx::Custom::Result type_rule_off method argument
-    - added EXPERIMENTAL DBIx::Custom::Result type_rule_on method
-    - changed EXPERIMENTAL DBIx::Custom::Result type_rule1_off method argument
-    - added EXPERIMENTAL DBIx::Custom::Result type_rule1_on method
-    - changed EXPERIMENTAL DBIx::Custom::Result type_rule2_off method argument
-    - added EXPERIMENTAL DBIx::Custom::Result type_rule2_on method
-    - changed EXPERIMENTAL DBIx::Custom::Result filter_off method argument
-    - added EXPERIMENTAL DBIx::Custom::Result filter_on method
-0.1694
-    - EXPERIMENTAL type_rule argument format is changed
-    - DBIx::Custom::Result type_rule method on setting return self 
-    - reserved_word_quote is DEPRECATED! this is renamed to quote
-    - DBIx::Custom::Model type attribute is DEPRECATED!
-      this is renamed to bind_type.
-0.1693
-    - separate DBIx::Custom type_rule from filter
-    - DBIx::Custom::Model filter attrribute is DEPRECATED!
-    - DBIx::Custom::Model name attribute is DEPRECATED!
-    - removed EXPERIMENTAL DBIx::Custom::Model alias_table
-    - added DBIx::Custom column method's table option
-    - separate DBIx::Custom::Result type_rule from filter again
-0.1692
-    - removed EXPERIMENTAL DBIx::Model result_filter
-    - DBIx::Custom::Result filter override type_rule
-    - added EXPERIMENTAL DBIx::Custom::Result type_rule
-    - added EXPERIMENTAL available_type_name method 
-    - EXPERIMENTAL type_rule_off is not passed form execute method 
-      to DBIx::Custom::Result object
-0.1691
-    - DBIx::Custom::Result end_filter, remove_filter, remove_end_filter is DEPRECATED!
-    - apply_filter is DEPRECATED!
-    - EXPERIMETAL column method and table_alias think about "-" separator
-    - EXPERIMTANL column method think about separator
-    - removed EXPERIMENTAL col method.
-    - added EXPERIMENTAL separater method
-    - added EXPERIMENTAL select prefix option.
-    - fixed bug that data_source DEPRECATED warnings pirnt STDERR
-    - fixed bug that type_rule from option can't receive filter name
-0.1690
-    - use latest Object::Simple features
-0.1689
-    - added EXPERIMENTAL available_data_type
-    - simplified type_rule
-    - changed type_rule arguments format
-    - added EXPERIMENTAL DBIx::Custom::Model result_filter attribute
-    - added EXPERIMETNAL DBIx::Custom::Result filter_off method
-    - EXPERIMENTAL type_rule can receive filter name
-0.1688
-    - fixed bug that model insert, update, delete select can't
-      odd number arguments
-    - improved type_rule method
-0.1687
-    - added EXPERIMENTAL type_rule method
-    - added EXPERIMENTAL execute() type_rule_off option
-    - execute method can second argument as parameter
-0.1686
-    - select() column option can receive array reference in array.
-      This is EXPERIMENTAL
-    - select() EXPERIMETNAL column option hash format
-      return table.column, not table__column
-    - added EXPERIMENTAL col method.
-    - set reserved_word_quote automatically from driver name
-0.1685
-    - insert_at, update_at, delete_at, select_at is DEPRECATED!
-      use insert, update, delete, select method and id option.
-    - insert, insert_at, update, update_at can receive odd number arguments,
-      first one is parameter.
-0.1684
-    - added DBIx::Custom::Result all method, this is alias for fetch_hash_all
-    - added DBIx::Custom::Result one method, this is alias for fetch_hash_first
-    - DBIx::Custom::Result fetch_hash_first can recieve argument
-    - select() column option can receive hash reference. This is EXPERIMENTAL
-    - update_param_tag is DEPRECATED! use update_param instead.
-    - insert_param_tag is DEPRECATED! use insert_param instead.
-    - assing_param_tag is DEPRECATED! use assign_param instead.
-    - Tag system such as {? title}, {= title} is DEPRECATED!
-      and added paramter system such as :title.
-0.1683
-    - data_source is DEPRECATED! It is renamed to dsn
-0.1682
-    - improved debug message
-    - fixed merge_param bug
-0.1681
-    - added EXPERIMENTAL assign_tag() method
-0.1680
-    - DEPRECATED select() param option, this is renamed to where_param
-    - added select(), update(), and delete() where_param option
-0.1679
-    - added EXPERIMENTAL select() wrap option to support Oracle ROWNUM
-0.1678
-    - DBIx::Custom::Model filter attribute can receive hash reference
-    - DBIx::Custom::Where clause attribute can receive clause without column name
-    - improved error messages
-0.1677
-    - improved table search in column and join clause
-    - DEPRECATED table tag. use table option.
-0.1676
-    - fixed test bug
-0.1675
-    - removed DEPRECATED DBIx::Custom::MySQL and DBIx::Custom::SQLite
-      these implementations remine in https://github.com/yuki-kimoto/DBIx-Custom/wiki
-      for some users.
-    - removed EXPERIMENTAL replace().
-    - removed EXPERIMENTAL mark from many methods.
-0.1674
-    - fixed test bug
-0.1673
-    - fixed dbh() method bug.
-0.1672
-    - removed EXPERIMENTAL Prefork server safe implementation, my implementation is very buggy.
-    - added EXPERIMETNAL connector() attribute.
-    - change retern value to array refrence of EXPERIMENTAL replace()
-0,1671
-    - added environment variable DBIX_CUSTOM_DEBUG
-0.1670
-    - removed EXPERIMETNAL select() column hash option. it's a little complex.
-    - added EXPERIMENTAL select() param option.
-    - added EXPERIMENTAL replace().
-0.1669
-    - renamed update_param to update_param_tag, update_param is DEPRECATED!
-    - renamed insert_param to insert_param_tag, insert_param is DEPRECATED!
-0.1668
-    - added EXPERIMENTAL update_param no_set option.
-    - added EXPERIMENTAL reserved_word_quote attribute.
-0.1666
-    - removed from cache() and cache_method() document for a while and cache() value
-      become 0 because I find something bug.
-    - create_model() return model.
-    - added document of hash filter
-    - adeed EXPERIMENTAL DBIx::Custom::Model method()
-0.1665
-    - removed EXPERIMETNAL flag from insert_at(), update_at(), delete_at(), select_at(), insert_param(), not_exists(), select()'s query option, update_param(), where, table tag, each column, safety_character, DBIx::Where, where().
-    - added EXPERIMETNAL create_model()
-0.1664
-    - where can recieve array refrence, which contains where cluase and paramter.
-0.1663
-    - added EXPERIMENTAL type() attribute to DBIx::Custom::Model
-    - added EXPERIMENTAL bind_param_option can set bind_param option
-      to insert(), update(), delete(), select(), insert_at(),
-      update_at(), delete_at(), select_at(), delete_all(), update_all()
-0.1662
-    - removed EXPERIMENTAL DBIx::Custom::Model column_clause
-    - added EXPERIMENTAL column()
-    - added EXPERIMENTAL mycolumn()
-0.1661
-    - added EXPERIMENTAL DBIx::Custom::Model table_alias attribute
-    - added EXPERIMENTAL DBIx::Custom::Model mycolumn()
-    - added EXPERIMENTAL DBIx::Custom::Model column()
-    - fixed autoloading bug
-    - added EXPERIMETNAL select() prepend table option
-    - added EXPERIMETNAL select() column table option
-    - added EXPERIMETNAL select() column all option
-    - removed EXPERIMETNAL select() all_column option
-    - removed EXPERIMENTAL view()
-0.1660
-    - added EXPERIMENTAL DBIx::Custom::Model view()
-    - added EXPERIMENTAL view()
-    - DBIx::Custom::Model inherit DBIx::Custom
-    - removed EXPERIMETNAL DBIx::Custom::Model method()
-    - added table choice feature to select() EXPERIMENTAL all_column option 
-    - removed EXPERIMENTAL DBIx::Custom::Model column attribute for side effect
-0.1659
-    - EXPERIMETAL fork safety implementaion.
-    - removed EXPERIMENTAL selection
-    - added select() all_column option
-0.1658
-    - added EXPERIMENTAL DBIx::Custom::Model column() prefix option.
-    - fixed select_at join column invalid bug
-    - added DBIx::Custom::Model column() attribute 
-0.1657
-    - remaned EXPERIMENTAL safty_charcter to safty_name
-    - safty_charcter is changed, set only one character regex.
-0.1656
-    - fixed some select() join opition bug
-0.1655
-    - added EXPERIMENTAL DBIx::Custom::Model join attribute
-    - added EXPERIMENTAL select() join option
-    - deprecated select() relation option
-    - added EXPERIMENTAL update_param and insert_param
-    - remove EXPERIMENTAL DBIx::Custom::Model relation
-0.1654
-    - selection can contain where clause.
-0.1653
-    - added EXPERIMENTAL DBIx::Custom::Result remove_filter()
-    - added EXPERIMENTAL DBIx::Custom::Result remove_end_filter()
-    - added EXPERIMENTAL DBIx::Custom::Model insert_at()
-    - added EXPERIMENTAL insert_at()
-    - improved error message
-0.1652
-    - all filter can receive array reference and receiving hash reference is DEPRECATED!
-0.1651
-    - add EXPERIMENTAL DBIx::Custom::Model filter attribute.
-0.1650
-    - add EXPERIMENTAL DBIx::Custom::Model name() attribute
-0.1649
-    - add EXPERIMENTAL DBIx::Custom::Model column_clause() method.
-    - select method column option can receive string.
-    - DBIx::Custom::Model select() and select_at() think about relation attirbute
-0.1648
-    - add EXPERIMENTAL DBIx::Custom::Model relation() attribute
-    - add EXPERIMENTAL update_at(), delete_at(), select_at()
-    - add EXPERIMENTAL setup_model()
-    - add EXPERIMENTAL DBIx::Custom::Model columns attirbute
-    - add EXPERIMENTAL DBIx::Custom::Model foreign_key() attribute 
-    - add EXPERIMENTAL models() attribute
-0.1647
-    - add default_dbi_option()
-0.1646
-    - add feture. all model class in namespace is included by include_model
-    - rename EXPERIMENTAL include_table to include_model
-    - rename EXPERIMENTAL table to model
-    - rename EXPERIMENTAL DBIx::Custom::Table to DBIx::Custom::Model
-    - remame EXPERIMENTAL DBIx::Custom::Table::name() to DBIx::Custom::Model::table();
-0.1645
-    - removed EXPERIMENTAL base_table() for class expandability.
-    - EXPERIMENTAL table() can't set table object any more.
-    - added EXPERIMENTAL include_table().
-0.1644
-    - update pod
-0.1643
-    - add EXPERIMENTAL selection option to select()
-    - add EXPERIMENTAL table tag
-    - fix bug : filter can't overwirite undef value.
-    - add EXPERIMENTAL feature to apply_filter(). you can apply end filter.
-    - add EXPERIMENTAL feature to apply_filter(). TABLE__COLUMN is filterded now.
-0.1642
-    - removed EXPERIMENTAL DBIx::Custom::Table base() method
-    - table created by tabled method can call base_$method correponding to base_table's one
-0.1641
-    - select() where can't receive array reference to prevend SQL injection easily(not backward compatible. sorry. use where() instead)
-    - added EXPERIMENTAL safety_column_name attribute
-    - fix SQL injection security hole about column name
-0.1640
-    - autoload DBI method
-    - removed EXPERIMENTAL expand
-0.1639
-    - improved delete() and update() where option. you can use DBIx::Custom::Where object
-    - added EXPERIMENTAL not_exists()
-0.1638
-    - table object call dbi object method if not found method.
-    - added EXPERIMENTAL base_table attribute and removed EXPERIMENTAL table_class attribute
-    - renamed helper to method.
-    - added EXPERIMENTAL DBIx::Custom::Result::stash()
-    - renamed EXPERIMENTAL DBIx::Custom::Table helper to method
-0.1637
-    - renamed dbi_options to dbi_option. dbi_options is available, but deprecated.
-    - renamed DBIx::Custom::TagProcessor to DBIx::Custom::Tag, and function names is cleanuped.
-    - renamed register_tag_processor to register_tag. register_tag_processor is available, but deprecated.
-    - renamed tag_processors to tags. tag_prosessors is available, but deprecated.
-    - improved error message
-    - build all clause if param is undefined.
-    - each_column callback receive self as first argument.
-    - removed EXPERIMENTAL txn_scope
-0.1636
-    - added tests and cleanup
-0.1635
-    - renamed iterate_all_columns to each_column
-0.1634
-    - became more useful where method
-    - changed DBIx::Custom::Where greatly
-0.1633
-    - fixed test
-0.1632
-    - added EXPERIMENTAL where method
-    - added EXPERIMENTAL DBIx::Custom::Where.
-    - removed DBIx::Custom::Or
-0.1631
-    - added EXPERIMENTAL DBIx::Custom::Result end_filter method
-    - EXPERIMENTAL extended select method's where option
-    - fix select method empty where failed bug
-    - added EXPERIMENTAL suger method query option
-    - added EXPERIMENTAL or method
-0.1630
-    - fix test bug
-0.1629
-    - renamed auto_filter to apply_filter
-    - changed apply_filter method arguments
-    - deprecated cache_method
-0.1628
-    - remove DBIx::Custom::Model
-    - move table method and table_class attribute to DBIx::Custom
-    - added examples
-    - fixed connect method bug
-0.1627
-    - added insert, update, update_all, delete, delete_all, select method to DBIx::Custom::Table
-    - added EXPERIMENTAL txn_scope
-0.1626
-    - simplified DBIx::Custom::Model and DBIx::Custom::Table
-0.1625
-    - added EXPERIMENTAL DBIx::Custom::Model and DBIx::Custom::Table
-0.1624
-    - added EXPERIMENTAL iterate_all_columns method.
-0.1623
-    - added EXPERIMENTAL auto_filter method
-    - deprecated default_bind_filter and default_fetch_filter because these are global effect.
-    - changed defautl_bind_filter and default_fetch_filter attributes to methods.
-    - changed DBIx::Custom::Result default_filter attribute to method
-    - changed DBIx::Custom::Result filter attribute to method.
-    - filter_check is always done for usability
-0.1622
-    - deprecated DBIx::Custom::SQLite and DBIx::Custom::MySQL
-    - added dbi_options attribute
-    - checked attributes passed to connect method
-0.1621
-    - cleanup (removed undocumented features)
-0.1620
-    - updated document
-0.1619
-    - updated document
-    - added EXPERIMENTAL expand method
-0.1618
-    - added helper method
-    - added begin_work, commit, and rollback method
-0.1617
-    - L<DBIx::Custom> is now stable. APIs keep backword compatible in the feature.
-0.1616
-    - removed EXPERIMENTAL register_method(), and methods attribute, because it is too magical
-0.1615
-    - fixed DBIx::Custom::QueryBuilder build_query() bug
-    - required Perl 5.008001 to use @CARP_NOT 
-0.1614
-    - removed DBIx::Custom::Query start_tag and end tag attributes
-    - enable escaping '{' and '}' in the source of SQL
-    - fixed Carp Carp trust relationship
-0.1613
-    - added EXPERIMENTAL register_method() method
-    - added EXPERIMENTAL methods attribute
-0.1612
-    - added tests
-    - updated document
-    - removed DBIx::Custom::SQLite last_insert_rawid() mehtod(not backword compatible)
-    - removed DBIx::Custom::MySQL last_insert_id() method(not backword compatible)
-0.1611
-    - renamed update tag to update_param
-    - renamed insert tag to insert_param
-    - renamed sql_builder to query_builder
-0.1610
-    - added filter_check attribute.
-0.1609
-    - updated document.
-0.1608
-    - update document
-    - renamed DBIx::Custom::QueryBuilder::TagProcessors functions(not backword compatible)
-0.1607
-    - where argument of select() method can specify array(string, parameters)
-    - renamed build_query() to create_query()(not backword compatible)
-0.1606
-    - fix testing bug
-0.1605
-    - remove DBIx::Custom::QueryBuilder::tag_syntax()  (not backword compatible)
-    - renamed DBIx::Custom::TagProcessor to DBIx::Custom::TagProcessors (not backword compatible)
-    - changed arguments of tag processor(not backword compatible)
-    - renamed DBIx::Custom::QueryBuilder::TagProcessors functions(not backword compatible)
-0.1604
-    - changed argument of tag processor(not backword compatible)
-    - renamed default_query_filter to default_bind_filter(not backword compatible)
-    - renamed DBIx::Custom::SQLTemplate to DBIx::Custom::SQLBuilder(not backword compatible)
-    - renamed create_query to build_query(not backword compatible)
-    - renamed sql_template to sql_builder(not backword compatible)
-    - removed DESTROY method(not backword compatible)
-    - removed disconnect method(not backword compatible)
-    - fixed DBIx::Custom::MySQL connect_memory
-0.1603
-    - removed DBIx::Custom commit method (not backword compatible)
-    - removed DBIx::Custom rollback method (not backword compatible)
-    - removed DBIx::Custom auto_commit method (not backword compatible)
-0.1602
-    - added cache_method attribute
-0.1601
-    - added cache attribute
-    - select, insert, update, update_all, delete, delete_all, execute only receive hash argument(not backword compatible)
-0.1503
-    - removed reconnect method
-    - removed connected method
-    - removed reconnect_memroy method
-    - renamed fetch_single to fetch_first
-    - renamed fetch_hash_single to fetch_hash_first
-    - updated document
-0.1502
-    - added commit method
-    - added rollback method
-    - changed select argument, added relation option
-    - moved host attribute to DBIx::Custom::MySQL
-    - moved port attribute to DBIx::Custom::MySQL
-    - moved database attribute to DBIx::Custom::MySQL and DBIx::Custom::SQLite
-0.1501
-    - removed register_format()
-    - removed formats()
-    - removed run_transaction()
-    - removed create_table()
-    - removed drop_table()
-    - changed select() arguments
-    - changed insert() arguments
-    - changed update() arguments
-    - changed update_all() arguments
-    - changed delete() arguments
-    - changed delete_all() arguments
-    - changed execute() arguments
-0.1402
-    - remove finish(), error()
-    - can receive code ref to filter()
-    - renamed resist to register
-0.1401
-    - renamed fetch_rows to fetch_multi
-    - renamed fetch_hash_rows to fetch_hash_multi
-0.1301
-    - Changed many(not backword compatible)
-0.1201
-    - Changed many(not backword compatible)
-0.1101
-    - rename DBIx::Custom::SQLite last_insert_id to last_insert_rowid
-0.1001
-    - remove run_transaction().
-    - add transaction() and DBIx::Custom::Transaction
-    - rename fetch_first to fetch_single
-    - rename fetch_hash_first to fetch_hash_single
-0.0906
-    - fix some bug
-0.0905
-    - catch up with Object::Simple update
-0.0904
-    - cleanup
-0.0903
-    - catch up with Object::Simple update
-0.0902
-    - cleanup
-0.0901
-    - DBIx::Basic filter 'encode_utf8' utf8::upgrade process is deleted
-0.0801
-    - add 'create_table', 'drop_table' methods
-0.0701
-    - rename sql_template to sql_tmpl (not backword compatible)
-    - rename dbi_options to options (not backword compatible)
-0.0605
-    - fix encode_utf8 filter
-0.0604
-    - fix timeformat tests
-0.0603
-    - fix cache system bug
-0.0602
-    - update document
-0.0601
-    - bind_filter argument is changed to ($value, $key, $dbi, $infos) (not backword compatible)
-    - fetch_filter argument is changed to ($value, $key, $dbi, $infos) (not backword compatible)
-    - run_transaction argument is changed to ($dbi)
-0.0502
-    - update document
-0.0501
-    - packaging DBIx::Custom::Result DBIx::Custom::Query DBIx::Custom::MySQL DBIx::Custom::SQLite DBIx::Custom::SQL::Template 
-0.0401
-    - catch up with DBIx::Custom::Result version up
-0.0301
-    - exchange filter argument 'key', 'value' (not backword compatible)
-0.0201
-    - rename tranzaction to transaction
-    - add filter_off
-0.0101
-    - First release

-527

DBIx-Custom-0.1711/DBIx-Custom-0.1711/Changes

View

@@ -1,527 +0,0 @@
-0.1710
-    - use more DBIx::Custom information in sub modules to decrease bugs
-      (very sorry, this change can't keep backword compatible,
-       but maybe no effects,
-       because the attributes is automatically set by DBIx::Custom, not user).
-    - Fixed fisrt executed where clause failed in some condition.
-0.1709
-    - fixed named placeholder bug and added escape syntax
-0.1708
-    - improved execute method performance
-0.1707
-    - I call :title named placeholder, stoping calling it parameter
-    - removed some EXPERIMENTAL status
-    - fixed performance
-0.1706
-    - Added execute method's query option document
-      You can get more performance.
-    - DBIx::Custom::Query table and filters attribute method and
-      filter method is DEPRECATED!
-      because I think query object must have only the information
-      for statement handle caching.
-0.1705
-    - insert and update method's param can set constant value by scalara reference
-      such as {date => \"NOW()"} This is EXPERIMENTAL.
-0.1704
-    - added quote method's two character support like []
-      for Microsoft SQL Server and Access
-    - added EXPERIMENTAL parameter new syntax :name{operator}
-0.1703
-    - added EXPERIMENTAL join new syntax.
-0.1702
-    - removed EXPERIMENTAL status of some methods.
-    - fixed some join bug
-0.1701
-    - added DBIx::Cusotm::Order prepend method automatically quoted syntax
-    - simplified arguments check
-    - added EXPERIMENTAL each_table method
-    - select method column option [COLUMN, as => ALIAS] format is DEPRECATED!
-      changed to [COLUMN => ALIAS]
-    - added EXPERIMENTAL DBIx::Custom::Result header method
-    - added EXPERIMENTAL last_sql attribute method
-0.1700
-    - fixed end_filter DEPRECATED warnings bug
-0.1699
-    - added tag_parse attribute.
-    - added EXPERIMENTAL order method
-    - added EXPERIMENTAL DBIx::Custom::Order module
-    - changed backword compatible policy
-      ------------------------------------------------------------------------
-      If a functionality is DEPRECATED, you can know it by DEPRECATED warnings
-      except for attribute method.
-      You can check all DEPRECATED functionalities by document.
-      DEPRECATED functionality is removed after five years,
-      but if at least one person use the functionality and tell me that thing
-      I extend one year each time you tell me it.
-
-      EXPERIMENTAL functionality will be changed without warnings.
-      ------------------------------------------------------------------------
-0.1698
-    - fixed DBIx::Custom::Where to_string method small bug
-    - added EXPERIMENTAL execute method table_alias option
-0.1697
-    - added EXPERIMENTAL map_param method
-0.1696
-    - added new argument format update, delete, select method where option
-    - create_query is DEPRECATED! use query option of each method instead.
-    - added EXPERIMENTAL insert, update, and select method prefix option
-    - fixed small insert, update, delete, select method id option bug
-0.1695
-    - changed EXPERIMENTAL DBIx::Custom::Result type_rule_off method argument
-    - added EXPERIMENTAL DBIx::Custom::Result type_rule_on method
-    - changed EXPERIMENTAL DBIx::Custom::Result type_rule1_off method argument
-    - added EXPERIMENTAL DBIx::Custom::Result type_rule1_on method
-    - changed EXPERIMENTAL DBIx::Custom::Result type_rule2_off method argument
-    - added EXPERIMENTAL DBIx::Custom::Result type_rule2_on method
-    - changed EXPERIMENTAL DBIx::Custom::Result filter_off method argument
-    - added EXPERIMENTAL DBIx::Custom::Result filter_on method
-0.1694
-    - EXPERIMENTAL type_rule argument format is changed
-    - DBIx::Custom::Result type_rule method on setting return self 
-    - reserved_word_quote is DEPRECATED! this is renamed to quote
-    - DBIx::Custom::Model type attribute is DEPRECATED!
-      this is renamed to bind_type.
-0.1693
-    - separate DBIx::Custom type_rule from filter
-    - DBIx::Custom::Model filter attrribute is DEPRECATED!
-    - DBIx::Custom::Model name attribute is DEPRECATED!
-    - removed EXPERIMENTAL DBIx::Custom::Model alias_table
-    - added DBIx::Custom column method's table option
-    - separate DBIx::Custom::Result type_rule from filter again
-0.1692
-    - removed EXPERIMENTAL DBIx::Model result_filter
-    - DBIx::Custom::Result filter override type_rule
-    - added EXPERIMENTAL DBIx::Custom::Result type_rule
-    - added EXPERIMENTAL available_type_name method 
-    - EXPERIMENTAL type_rule_off is not passed form execute method 
-      to DBIx::Custom::Result object
-0.1691
-    - DBIx::Custom::Result end_filter, remove_filter, remove_end_filter is DEPRECATED!
-    - apply_filter is DEPRECATED!
-    - EXPERIMETAL column method and table_alias think about "-" separator
-    - EXPERIMTANL column method think about separator
-    - removed EXPERIMENTAL col method.
-    - added EXPERIMENTAL separater method
-    - added EXPERIMENTAL select prefix option.
-    - fixed bug that data_source DEPRECATED warnings pirnt STDERR
-    - fixed bug that type_rule from option can't receive filter name
-0.1690
-    - use latest Object::Simple features
-0.1689
-    - added EXPERIMENTAL available_data_type
-    - simplified type_rule
-    - changed type_rule arguments format
-    - added EXPERIMENTAL DBIx::Custom::Model result_filter attribute
-    - added EXPERIMETNAL DBIx::Custom::Result filter_off method
-    - EXPERIMENTAL type_rule can receive filter name
-0.1688
-    - fixed bug that model insert, update, delete select can't
-      odd number arguments
-    - improved type_rule method
-0.1687
-    - added EXPERIMENTAL type_rule method
-    - added EXPERIMENTAL execute() type_rule_off option
-    - execute method can second argument as parameter
-0.1686
-    - select() column option can receive array reference in array.
-      This is EXPERIMENTAL
-    - select() EXPERIMETNAL column option hash format
-      return table.column, not table__column
-    - added EXPERIMENTAL col method.
-    - set reserved_word_quote automatically from driver name
-0.1685
-    - insert_at, update_at, delete_at, select_at is DEPRECATED!
-      use insert, update, delete, select method and id option.
-    - insert, insert_at, update, update_at can receive odd number arguments,
-      first one is parameter.
-0.1684
-    - added DBIx::Custom::Result all method, this is alias for fetch_hash_all
-    - added DBIx::Custom::Result one method, this is alias for fetch_hash_first
-    - DBIx::Custom::Result fetch_hash_first can recieve argument
-    - select() column option can receive hash reference. This is EXPERIMENTAL
-    - update_param_tag is DEPRECATED! use update_param instead.
-    - insert_param_tag is DEPRECATED! use insert_param instead.
-    - assing_param_tag is DEPRECATED! use assign_param instead.
-    - Tag system such as {? title}, {= title} is DEPRECATED!
-      and added paramter system such as :title.
-0.1683
-    - data_source is DEPRECATED! It is renamed to dsn
-0.1682
-    - improved debug message
-    - fixed merge_param bug
-0.1681
-    - added EXPERIMENTAL assign_tag() method
-0.1680
-    - DEPRECATED select() param option, this is renamed to where_param
-    - added select(), update(), and delete() where_param option
-0.1679
-    - added EXPERIMENTAL select() wrap option to support Oracle ROWNUM
-0.1678
-    - DBIx::Custom::Model filter attribute can receive hash reference
-    - DBIx::Custom::Where clause attribute can receive clause without column name
-    - improved error messages
-0.1677
-    - improved table search in column and join clause
-    - DEPRECATED table tag. use table option.
-0.1676
-    - fixed test bug
-0.1675
-    - removed DEPRECATED DBIx::Custom::MySQL and DBIx::Custom::SQLite
-      these implementations remine in https://github.com/yuki-kimoto/DBIx-Custom/wiki
-      for some users.
-    - removed EXPERIMENTAL replace().
-    - removed EXPERIMENTAL mark from many methods.
-0.1674
-    - fixed test bug
-0.1673
-    - fixed dbh() method bug.
-0.1672
-    - removed EXPERIMENTAL Prefork server safe implementation, my implementation is very buggy.
-    - added EXPERIMETNAL connector() attribute.
-    - change retern value to array refrence of EXPERIMENTAL replace()
-0,1671
-    - added environment variable DBIX_CUSTOM_DEBUG
-0.1670
-    - removed EXPERIMETNAL select() column hash option. it's a little complex.
-    - added EXPERIMENTAL select() param option.
-    - added EXPERIMENTAL replace().
-0.1669
-    - renamed update_param to update_param_tag, update_param is DEPRECATED!
-    - renamed insert_param to insert_param_tag, insert_param is DEPRECATED!
-0.1668
-    - added EXPERIMENTAL update_param no_set option.
-    - added EXPERIMENTAL reserved_word_quote attribute.
-0.1666
-    - removed from cache() and cache_method() document for a while and cache() value
-      become 0 because I find something bug.
-    - create_model() return model.
-    - added document of hash filter
-    - adeed EXPERIMENTAL DBIx::Custom::Model method()
-0.1665
-    - removed EXPERIMETNAL flag from insert_at(), update_at(), delete_at(), select_at(), insert_param(), not_exists(), select()'s query option, update_param(), where, table tag, each column, safety_character, DBIx::Where, where().
-    - added EXPERIMETNAL create_model()
-0.1664
-    - where can recieve array refrence, which contains where cluase and paramter.
-0.1663
-    - added EXPERIMENTAL type() attribute to DBIx::Custom::Model
-    - added EXPERIMENTAL bind_param_option can set bind_param option
-      to insert(), update(), delete(), select(), insert_at(),
-      update_at(), delete_at(), select_at(), delete_all(), update_all()
-0.1662
-    - removed EXPERIMENTAL DBIx::Custom::Model column_clause
-    - added EXPERIMENTAL column()
-    - added EXPERIMENTAL mycolumn()
-0.1661
-    - added EXPERIMENTAL DBIx::Custom::Model table_alias attribute
-    - added EXPERIMENTAL DBIx::Custom::Model mycolumn()
-    - added EXPERIMENTAL DBIx::Custom::Model column()
-    - fixed autoloading bug
-    - added EXPERIMETNAL select() prepend table option
-    - added EXPERIMETNAL select() column table option
-    - added EXPERIMETNAL select() column all option
-    - removed EXPERIMETNAL select() all_column option
-    - removed EXPERIMENTAL view()
-0.1660
-    - added EXPERIMENTAL DBIx::Custom::Model view()
-    - added EXPERIMENTAL view()
-    - DBIx::Custom::Model inherit DBIx::Custom
-    - removed EXPERIMETNAL DBIx::Custom::Model method()
-    - added table choice feature to select() EXPERIMENTAL all_column option 
-    - removed EXPERIMENTAL DBIx::Custom::Model column attribute for side effect
-0.1659
-    - EXPERIMETAL fork safety implementaion.
-    - removed EXPERIMENTAL selection
-    - added select() all_column option
-0.1658
-    - added EXPERIMENTAL DBIx::Custom::Model column() prefix option.
-    - fixed select_at join column invalid bug
-    - added DBIx::Custom::Model column() attribute 
-0.1657
-    - remaned EXPERIMENTAL safty_charcter to safty_name
-    - safty_charcter is changed, set only one character regex.
-0.1656
-    - fixed some select() join opition bug
-0.1655
-    - added EXPERIMENTAL DBIx::Custom::Model join attribute
-    - added EXPERIMENTAL select() join option
-    - deprecated select() relation option
-    - added EXPERIMENTAL update_param and insert_param
-    - remove EXPERIMENTAL DBIx::Custom::Model relation
-0.1654
-    - selection can contain where clause.
-0.1653
-    - added EXPERIMENTAL DBIx::Custom::Result remove_filter()
-    - added EXPERIMENTAL DBIx::Custom::Result remove_end_filter()
-    - added EXPERIMENTAL DBIx::Custom::Model insert_at()
-    - added EXPERIMENTAL insert_at()
-    - improved error message
-0.1652
-    - all filter can receive array reference and receiving hash reference is DEPRECATED!
-0.1651
-    - add EXPERIMENTAL DBIx::Custom::Model filter attribute.
-0.1650
-    - add EXPERIMENTAL DBIx::Custom::Model name() attribute
-0.1649
-    - add EXPERIMENTAL DBIx::Custom::Model column_clause() method.
-    - select method column option can receive string.
-    - DBIx::Custom::Model select() and select_at() think about relation attirbute
-0.1648
-    - add EXPERIMENTAL DBIx::Custom::Model relation() attribute
-    - add EXPERIMENTAL update_at(), delete_at(), select_at()
-    - add EXPERIMENTAL setup_model()
-    - add EXPERIMENTAL DBIx::Custom::Model columns attirbute
-    - add EXPERIMENTAL DBIx::Custom::Model foreign_key() attribute 
-    - add EXPERIMENTAL models() attribute
-0.1647
-    - add default_dbi_option()
-0.1646
-    - add feture. all model class in namespace is included by include_model
-    - rename EXPERIMENTAL include_table to include_model
-    - rename EXPERIMENTAL table to model
-    - rename EXPERIMENTAL DBIx::Custom::Table to DBIx::Custom::Model
-    - remame EXPERIMENTAL DBIx::Custom::Table::name() to DBIx::Custom::Model::table();
-0.1645
-    - removed EXPERIMENTAL base_table() for class expandability.
-    - EXPERIMENTAL table() can't set table object any more.
-    - added EXPERIMENTAL include_table().
-0.1644
-    - update pod
-0.1643
-    - add EXPERIMENTAL selection option to select()
-    - add EXPERIMENTAL table tag
-    - fix bug : filter can't overwirite undef value.
-    - add EXPERIMENTAL feature to apply_filter(). you can apply end filter.
-    - add EXPERIMENTAL feature to apply_filter(). TABLE__COLUMN is filterded now.
-0.1642
-    - removed EXPERIMENTAL DBIx::Custom::Table base() method
-    - table created by tabled method can call base_$method correponding to base_table's one
-0.1641
-    - select() where can't receive array reference to prevend SQL injection easily(not backward compatible. sorry. use where() instead)
-    - added EXPERIMENTAL safety_column_name attribute
-    - fix SQL injection security hole about column name
-0.1640
-    - autoload DBI method
-    - removed EXPERIMENTAL expand
-0.1639
-    - improved delete() and update() where option. you can use DBIx::Custom::Where object
-    - added EXPERIMENTAL not_exists()
-0.1638
-    - table object call dbi object method if not found method.
-    - added EXPERIMENTAL base_table attribute and removed EXPERIMENTAL table_class attribute
-    - renamed helper to method.
-    - added EXPERIMENTAL DBIx::Custom::Result::stash()
-    - renamed EXPERIMENTAL DBIx::Custom::Table helper to method
-0.1637
-    - renamed dbi_options to dbi_option. dbi_options is available, but deprecated.
-    - renamed DBIx::Custom::TagProcessor to DBIx::Custom::Tag, and function names is cleanuped.
-    - renamed register_tag_processor to register_tag. register_tag_processor is available, but deprecated.
-    - renamed tag_processors to tags. tag_prosessors is available, but deprecated.
-    - improved error message
-    - build all clause if param is undefined.
-    - each_column callback receive self as first argument.
-    - removed EXPERIMENTAL txn_scope
-0.1636
-    - added tests and cleanup
-0.1635
-    - renamed iterate_all_columns to each_column
-0.1634
-    - became more useful where method
-    - changed DBIx::Custom::Where greatly
-0.1633
-    - fixed test
-0.1632
-    - added EXPERIMENTAL where method
-    - added EXPERIMENTAL DBIx::Custom::Where.
-    - removed DBIx::Custom::Or
-0.1631
-    - added EXPERIMENTAL DBIx::Custom::Result end_filter method
-    - EXPERIMENTAL extended select method's where option
-    - fix select method empty where failed bug
-    - added EXPERIMENTAL suger method query option
-    - added EXPERIMENTAL or method
-0.1630
-    - fix test bug
-0.1629
-    - renamed auto_filter to apply_filter
-    - changed apply_filter method arguments
-    - deprecated cache_method
-0.1628
-    - remove DBIx::Custom::Model
-    - move table method and table_class attribute to DBIx::Custom
-    - added examples
-    - fixed connect method bug
-0.1627
-    - added insert, update, update_all, delete, delete_all, select method to DBIx::Custom::Table
-    - added EXPERIMENTAL txn_scope
-0.1626
-    - simplified DBIx::Custom::Model and DBIx::Custom::Table
-0.1625
-    - added EXPERIMENTAL DBIx::Custom::Model and DBIx::Custom::Table
-0.1624
-    - added EXPERIMENTAL iterate_all_columns method.
-0.1623
-    - added EXPERIMENTAL auto_filter method
-    - deprecated default_bind_filter and default_fetch_filter because these are global effect.
-    - changed defautl_bind_filter and default_fetch_filter attributes to methods.
-    - changed DBIx::Custom::Result default_filter attribute to method
-    - changed DBIx::Custom::Result filter attribute to method.
-    - filter_check is always done for usability
-0.1622
-    - deprecated DBIx::Custom::SQLite and DBIx::Custom::MySQL
-    - added dbi_options attribute
-    - checked attributes passed to connect method
-0.1621
-    - cleanup (removed undocumented features)
-0.1620
-    - updated document
-0.1619
-    - updated document
-    - added EXPERIMENTAL expand method
-0.1618
-    - added helper method
-    - added begin_work, commit, and rollback method
-0.1617
-    - L<DBIx::Custom> is now stable. APIs keep backword compatible in the feature.
-0.1616
-    - removed EXPERIMENTAL register_method(), and methods attribute, because it is too magical
-0.1615
-    - fixed DBIx::Custom::QueryBuilder build_query() bug
-    - required Perl 5.008001 to use @CARP_NOT 
-0.1614
-    - removed DBIx::Custom::Query start_tag and end tag attributes
-    - enable escaping '{' and '}' in the source of SQL
-    - fixed Carp Carp trust relationship
-0.1613
-    - added EXPERIMENTAL register_method() method
-    - added EXPERIMENTAL methods attribute
-0.1612
-    - added tests
-    - updated document
-    - removed DBIx::Custom::SQLite last_insert_rawid() mehtod(not backword compatible)
-    - removed DBIx::Custom::MySQL last_insert_id() method(not backword compatible)
-0.1611
-    - renamed update tag to update_param
-    - renamed insert tag to insert_param
-    - renamed sql_builder to query_builder
-0.1610
-    - added filter_check attribute.
-0.1609
-    - updated document.
-0.1608
-    - update document
-    - renamed DBIx::Custom::QueryBuilder::TagProcessors functions(not backword compatible)
-0.1607
-    - where argument of select() method can specify array(string, parameters)
-    - renamed build_query() to create_query()(not backword compatible)
-0.1606
-    - fix testing bug
-0.1605
-    - remove DBIx::Custom::QueryBuilder::tag_syntax()  (not backword compatible)
-    - renamed DBIx::Custom::TagProcessor to DBIx::Custom::TagProcessors (not backword compatible)
-    - changed arguments of tag processor(not backword compatible)
-    - renamed DBIx::Custom::QueryBuilder::TagProcessors functions(not backword compatible)
-0.1604
-    - changed argument of tag processor(not backword compatible)
-    - renamed default_query_filter to default_bind_filter(not backword compatible)
-    - renamed DBIx::Custom::SQLTemplate to DBIx::Custom::SQLBuilder(not backword compatible)
-    - renamed create_query to build_query(not backword compatible)
-    - renamed sql_template to sql_builder(not backword compatible)
-    - removed DESTROY method(not backword compatible)
-    - removed disconnect method(not backword compatible)
-    - fixed DBIx::Custom::MySQL connect_memory
-0.1603
-    - removed DBIx::Custom commit method (not backword compatible)
-    - removed DBIx::Custom rollback method (not backword compatible)
-    - removed DBIx::Custom auto_commit method (not backword compatible)
-0.1602
-    - added cache_method attribute
-0.1601
-    - added cache attribute
-    - select, insert, update, update_all, delete, delete_all, execute only receive hash argument(not backword compatible)
-0.1503
-    - removed reconnect method
-    - removed connected method
-    - removed reconnect_memroy method
-    - renamed fetch_single to fetch_first
-    - renamed fetch_hash_single to fetch_hash_first
-    - updated document
-0.1502
-    - added commit method
-    - added rollback method
-    - changed select argument, added relation option
-    - moved host attribute to DBIx::Custom::MySQL
-    - moved port attribute to DBIx::Custom::MySQL
-    - moved database attribute to DBIx::Custom::MySQL and DBIx::Custom::SQLite
-0.1501
-    - removed register_format()
-    - removed formats()
-    - removed run_transaction()
-    - removed create_table()
-    - removed drop_table()
-    - changed select() arguments
-    - changed insert() arguments
-    - changed update() arguments
-    - changed update_all() arguments
-    - changed delete() arguments
-    - changed delete_all() arguments
-    - changed execute() arguments
-0.1402
-    - remove finish(), error()
-    - can receive code ref to filter()
-    - renamed resist to register
-0.1401
-    - renamed fetch_rows to fetch_multi
-    - renamed fetch_hash_rows to fetch_hash_multi
-0.1301
-    - Changed many(not backword compatible)
-0.1201
-    - Changed many(not backword compatible)
-0.1101
-    - rename DBIx::Custom::SQLite last_insert_id to last_insert_rowid
-0.1001
-    - remove run_transaction().
-    - add transaction() and DBIx::Custom::Transaction
-    - rename fetch_first to fetch_single
-    - rename fetch_hash_first to fetch_hash_single
-0.0906
-    - fix some bug
-0.0905
-    - catch up with Object::Simple update
-0.0904
-    - cleanup
-0.0903
-    - catch up with Object::Simple update
-0.0902
-    - cleanup
-0.0901
-    - DBIx::Basic filter 'encode_utf8' utf8::upgrade process is deleted
-0.0801
-    - add 'create_table', 'drop_table' methods
-0.0701
-    - rename sql_template to sql_tmpl (not backword compatible)
-    - rename dbi_options to options (not backword compatible)
-0.0605
-    - fix encode_utf8 filter
-0.0604
-    - fix timeformat tests
-0.0603
-    - fix cache system bug
-0.0602
-    - update document
-0.0601
-    - bind_filter argument is changed to ($value, $key, $dbi, $infos) (not backword compatible)
-    - fetch_filter argument is changed to ($value, $key, $dbi, $infos) (not backword compatible)
-    - run_transaction argument is changed to ($dbi)
-0.0502
-    - update document
-0.0501
-    - packaging DBIx::Custom::Result DBIx::Custom::Query DBIx::Custom::MySQL DBIx::Custom::SQLite DBIx::Custom::SQL::Template 
-0.0401
-    - catch up with DBIx::Custom::Result version up
-0.0301
-    - exchange filter argument 'key', 'value' (not backword compatible)
-0.0201
-    - rename tranzaction to transaction
-    - add filter_off
-0.0101
-    - First release

-3203

DBIx-Custom-0.1711/DBIx-Custom-0.1711/lib/DBIx/Custom.pm

View

@@ -1,3203 +0,0 @@
-package DBIx::Custom;
-use Object::Simple -base;
-
-our $VERSION = '0.1711';
-use 5.008001;
-
-use Carp 'croak';
-use DBI;
-use DBIx::Custom::Result;
-use DBIx::Custom::Query;
-use DBIx::Custom::QueryBuilder;
-use DBIx::Custom::Where;
-use DBIx::Custom::Model;
-use DBIx::Custom::Tag;
-use DBIx::Custom::Order;
-use DBIx::Custom::Util qw/_array_to_hash _subname/;
-use Encode qw/encode encode_utf8 decode_utf8/;
-
-use constant DEBUG => $ENV{DBIX_CUSTOM_DEBUG} || 0;
-use constant DEBUG_ENCODING => $ENV{DBIX_CUSTOM_DEBUG_ENCODING} || 'UTF-8';
-
-has [qw/connector dsn password quote user/],
-    cache => 0,
-    cache_method => sub {
-        sub {
-            my $self = shift;
-            
-            $self->{_cached} ||= {};
-            
-            if (@_ > 1) {
-                $self->{_cached}{$_[0]} = $_[1];
-            }
-            else {
-                return $self->{_cached}{$_[0]};
-            }
-        }
-    },
-    dbi_option => sub { {} },
-    default_dbi_option => sub {
-        {
-            RaiseError => 1,
-            PrintError => 0,
-            AutoCommit => 1
-        }
-    },
-    filters => sub {
-        {
-            encode_utf8 => sub { encode_utf8($_[0]) },
-            decode_utf8 => sub { decode_utf8($_[0]) }
-        }
-    },
-    last_sql => '',
-    models => sub { {} },
-    query_builder => sub { DBIx::Custom::QueryBuilder->new(dbi => shift) },
-    result_class  => 'DBIx::Custom::Result',
-    safety_character => '\w',
-    stash => sub { {} },
-    tag_parse => 1;
-
-our $AUTOLOAD;
-sub AUTOLOAD {
-    my $self = shift;
-
-    # Method name
-    my ($package, $mname) = $AUTOLOAD =~ /^([\w\:]+)\:\:(\w+)$/;
-
-    # Call method
-    $self->{_methods} ||= {};
-    if (my $method = $self->{_methods}->{$mname}) {
-        return $self->$method(@_)
-    }
-    elsif ($self->{dbh} && (my $dbh_method = $self->dbh->can($mname))) {
-        $self->dbh->$dbh_method(@_);
-    }
-    else {
-        croak qq{Can't locate object method "$mname" via "$package" }
-            . _subname;
-    }
-}
-
-sub assign_param {
-    my ($self, $param) = @_;
-    
-    # Create set tag
-    my @params;
-    my $safety = $self->safety_character;
-    foreach my $column (sort keys %$param) {
-        croak qq{"$column" is not safety column name } . _subname
-          unless $column =~ /^[$safety\.]+$/;
-        my $column_quote = $self->_q($column);
-        $column_quote =~ s/\./$self->_q(".")/e;
-        push @params, ref $param->{$column} eq 'SCALAR'
-          ? "$column_quote = " . ${$param->{$column}}
-          : "$column_quote = :$column";
-
-    }
-    my $tag = join(', ', @params);
-    
-    return $tag;
-}
-
-sub column {
-    my $self = shift;
-    my $option = pop if ref $_[-1] eq 'HASH';
-    my $real_table = shift;
-    my $columns = shift;
-    my $table = $option->{alias} || $real_table;
-    
-    # Columns
-    unless ($columns) {
-        $columns ||= $self->model($real_table)->columns;
-    }
-    
-    # Separator
-    my $separator = $self->separator;
-    
-    # Column clause
-    my @column;
-    $columns ||= [];
-    push @column, $self->_q($table) . "." . $self->_q($_) .
-      " as " . $self->_q("${table}${separator}$_")
-      for @$columns;
-    
-    return join (', ', @column);
-}
-
-sub connect {
-    my $self = ref $_[0] ? shift : shift->new(@_);;
-    
-    # Connect
-    $self->dbh;
-    
-    return $self;
-}
-
-sub dbh {
-    my $self = shift;
-    
-    # Set
-    if (@_) {
-        $self->{dbh} = $_[0];
-        
-        return $self;
-    }
-    
-    # Get
-    else {
-        # From Connction manager
-        if (my $connector = $self->connector) {
-            croak "connector must have dbh() method " . _subname
-              unless ref $connector && $connector->can('dbh');
-              
-            $self->{dbh} = $connector->dbh;
-        }
-        
-        # Connect
-        $self->{dbh} ||= $self->_connect;
-        
-        # Quote
-        if (!defined $self->reserved_word_quote && !defined $self->quote) {
-            my $driver = $self->{dbh}->{Driver}->{Name};
-            my $quote = $driver eq 'mysql' ? '`' : '"';
-            $self->quote($quote);
-        }
-        
-        return $self->{dbh};
-    }
-}
-
-sub delete {
-    my ($self, %args) = @_;
-
-    # Arguments
-    my $table = $args{table} || '';
-    croak qq{"table" option must be specified. } . _subname
-      unless $table;
-    my $where            = delete $args{where} || {};
-    my $append           = delete $args{append};
-    my $allow_delete_all = delete $args{allow_delete_all};
-    my $where_param      = delete $args{where_param} || {};
-    my $id = delete $args{id};
-    my $primary_key = delete $args{primary_key};
-    croak "update method primary_key option " .
-          "must be specified when id is specified " . _subname
-      if defined $id && !defined $primary_key;
-    $primary_key = [$primary_key] unless ref $primary_key eq 'ARRAY';
-    my $prefix = delete $args{prefix};
-    
-    # Where
-    $where = $self->_create_param_from_id($id, $primary_key) if defined $id;
-    my $where_clause = '';
-    if (ref $where eq 'ARRAY' && !ref $where->[0]) {
-        $where_clause = "where " . $where->[0];
-        $where_param = $where->[1];
-    }
-    elsif (ref $where) {
-        $where = $self->_where_to_obj($where);
-        $where_param = keys %$where_param
-                     ? $self->merge_param($where_param, $where->param)
-                     : $where->param;
-        
-        # String where
-        $where_clause = $where->to_string;
-    }
-    elsif ($where) { $where_clause = "where $where" }
-    croak qq{"where" must be specified } . _subname
-      if $where_clause eq '' && !$allow_delete_all;
-
-    # Delete statement
-    my @sql;
-    push @sql, "delete";
-    push @sql, $prefix if defined $prefix;
-    push @sql, "from " . $self->_q($table) . " $where_clause";
-    push @sql, $append if defined $append;
-    my $sql = join(' ', @sql);
-    
-    # Execute query
-    return $self->execute($sql, $where_param, table => $table, %args);
-}
-
-sub delete_all { shift->delete(allow_delete_all => 1, @_) }
-
-sub DESTROY { }
-
-sub create_model {
-    my $self = shift;
-    
-    # Arguments
-    my $args = ref $_[0] eq 'HASH' ? $_[0] : {@_};
-    $args->{dbi} = $self;
-    my $model_class = delete $args->{model_class} || 'DBIx::Custom::Model';
-    my $model_name  = delete $args->{name};
-    my $model_table = delete $args->{table};
-    $model_name ||= $model_table;
-    
-    # Create model
-    my $model = $model_class->new($args);
-    $model->name($model_name) unless $model->name;
-    $model->table($model_table) unless $model->table;
-    
-    # Apply filter(DEPRECATED logic)
-    if ($model->{filter}) {
-        my $filter = ref $model->filter eq 'HASH'
-                   ? [%{$model->filter}]
-                   : $model->filter;
-        $filter ||= [];
-        warn "DBIx::Custom::Model filter method is DEPRECATED!"
-          if @$filter;
-        $self->_apply_filter($model->table, @$filter);
-    }
-    
-    # Set model
-    $self->model($model->name, $model);
-    
-    return $self->model($model->name);
-}
-
-sub each_column {
-    my ($self, $cb) = @_;
-    
-    # Iterate all tables
-    my $sth_tables = $self->dbh->table_info;
-    while (my $table_info = $sth_tables->fetchrow_hashref) {
-        
-        # Table
-        my $table = $table_info->{TABLE_NAME};
-        
-        # Iterate all columns
-        my $sth_columns = $self->dbh->column_info(undef, undef, $table, '%');
-        while (my $column_info = $sth_columns->fetchrow_hashref) {
-            my $column = $column_info->{COLUMN_NAME};
-            $self->$cb($table, $column, $column_info);
-        }
-    }
-}
-
-sub each_table {
-    my ($self, $cb) = @_;
-    
-    # Iterate all tables
-    my $sth_tables = $self->dbh->table_info;
-    while (my $table_info = $sth_tables->fetchrow_hashref) {
-        
-        # Table
-        my $table = $table_info->{TABLE_NAME};
-        $self->$cb($table, $table_info);
-    }
-}
-
-our %VALID_ARGS = map { $_ => 1 } qw/append allow_delete_all
-  allow_update_all bind_type column filter id join param prefix primary_key
-  query relation table table_alias type type_rule_off type_rule1_off
-  type_rule2_off wrap/;
-
-sub execute {
-    my $self = shift;
-    my $query = shift;
-    my $param;
-    $param = shift if @_ % 2;
-    my %args = @_;
-    
-    # Arguments
-    my $p = delete $args{param} || {};
-    $param ||= $p;
-    my $tables = delete $args{table} || [];
-    $tables = [$tables] unless ref $tables eq 'ARRAY';
-    my $filter = delete $args{filter};
-    $filter = _array_to_hash($filter);
-    my $bind_type = delete $args{bind_type} || delete $args{type};
-    $bind_type = _array_to_hash($bind_type);
-    my $type_rule_off = delete $args{type_rule_off};
-    my $type_rule_off_parts = {
-        1 => delete $args{type_rule1_off},
-        2 => delete $args{type_rule2_off}
-    };
-    my $query_return = delete $args{query};
-    my $table_alias = delete $args{table_alias} || {};
-    
-    # Check argument names
-    foreach my $name (keys %args) {
-        croak qq{"$name" is wrong option } . _subname
-          unless $VALID_ARGS{$name};
-    }
-    
-    # Create query
-    $query = $self->_create_query($query) unless ref $query;
-    
-    # Save query
-    $self->last_sql($query->sql);
-
-    return $query if $query_return;
-    
-    # DEPRECATED! Merge query filter
-    $filter ||= $query->{filter} || {};
-    
-    # Tables
-    unshift @$tables, @{$query->{tables} || []};
-    my $main_table = @{$tables}[-1];
-    
-    # DEPRECATED! Cleanup tables
-    $tables = $self->_remove_duplicate_table($tables, $main_table)
-      if @$tables > 1;
-    
-    # Type rule
-    my $type_filters = {};
-    unless ($type_rule_off) {
-        foreach my $i (1, 2) {
-            unless ($type_rule_off_parts->{$i}) {
-                $type_filters->{$i} = {};
-                foreach my $alias (keys %$table_alias) {
-                    my $table = $table_alias->{$alias};
-                    
-                    foreach my $column (keys %{$self->{"_into$i"}{key}{$table} || {}}) {
-                        $type_filters->{$i}->{"$alias.$column"} = $self->{"_into$i"}{key}{$table}{$column};
-                    }
-                }
-                $type_filters->{$i} = {%{$type_filters->{$i}}, %{$self->{"_into$i"}{key}{$main_table} || {}}}
-                  if $main_table;
-            }
-        }
-    }
-    
-    # DEPRECATED! Applied filter
-    if ($self->{filter}{on}) {
-        my $applied_filter = {};
-        foreach my $table (@$tables) {
-            $applied_filter = {
-                %$applied_filter,
-                %{$self->{filter}{out}->{$table} || {}}
-            }
-        }
-        $filter = {%$applied_filter, %$filter};
-    }
-    
-    # Replace filter name to code
-    foreach my $column (keys %$filter) {
-        my $name = $filter->{$column};
-        if (!defined $name) {
-            $filter->{$column} = undef;
-        }
-        elsif (ref $name ne 'CODE') {
-          croak qq{Filter "$name" is not registered" } . _subname
-            unless exists $self->filters->{$name};
-          $filter->{$column} = $self->filters->{$name};
-        }
-    }
-    
-    # Create bind values
-    my $bind = $self->_create_bind_values(
-        $param,
-        $query->columns,
-        $filter,
-        $type_filters,
-        $bind_type
-    );
-    
-    # Execute
-    my $sth = $query->sth;
-    my $affected;
-    eval {
-        for (my $i = 0; $i < @$bind; $i++) {
-            my $bind_type = $bind->[$i]->{bind_type};
-            $sth->bind_param(
-                $i + 1,
-                $bind->[$i]->{value},
-                $bind_type ? $bind_type : ()
-            );
-        }
-        $affected = $sth->execute;
-    };
-    
-    $self->_croak($@, qq{. Following SQL is executed.\n}
-      . qq{$query->{sql}\n} . _subname) if $@;
-    
-    # DEBUG message
-    if (DEBUG) {
-        print STDERR "SQL:\n" . $query->sql . "\n";
-        my @output;
-        foreach my $b (@$bind) {
-            my $value = $b->{value};
-            $value = 'undef' unless defined $value;
-            $value = encode(DEBUG_ENCODING(), $value)
-              if utf8::is_utf8($value);
-            push @output, $value;
-        }
-        print STDERR "Bind values: " . join(', ', @output) . "\n\n";
-    }
-    
-    # Select statement
-    if ($sth->{NUM_OF_FIELDS}) {
-        
-        # DEPRECATED! Filter
-        my $filter = {};
-        if ($self->{filter}{on}) {
-            $filter->{in}  = {};
-            $filter->{end} = {};
-            push @$tables, $main_table if $main_table;
-            foreach my $table (@$tables) {
-                foreach my $way (qw/in end/) {
-                    $filter->{$way} = {
-                        %{$filter->{$way}},
-                        %{$self->{filter}{$way}{$table} || {}}
-                    };
-                }
-            }
-        }
-        
-        # Result
-        my $result = $self->result_class->new(
-            sth => $sth,
-            dbi => $self,
-            default_filter => $self->{default_in_filter},
-            filter => $filter->{in} || {},
-            end_filter => $filter->{end} || {},
-            type_rule => {
-                from1 => $self->type_rule->{from1},
-                from2 => $self->type_rule->{from2}
-            },
-        );
-
-        return $result;
-    }
-    
-    # Not select statement
-    else { return $affected }
-}
-
-sub insert {
-    my $self = shift;
-    
-    # Arguments
-    my $param;
-    $param = shift if @_ % 2;
-    my %args = @_;
-    my $table  = delete $args{table};
-    croak qq{"table" option must be specified } . _subname
-      unless defined $table;
-    my $p = delete $args{param} || {};
-    $param  ||= $p;
-    my $append = delete $args{append} || '';
-    my $id = delete $args{id};
-    my $primary_key = delete $args{primary_key};
-    croak "insert method primary_key option " .
-          "must be specified when id is specified " . _subname
-      if defined $id && !defined $primary_key;
-    $primary_key = [$primary_key] unless ref $primary_key eq 'ARRAY';
-    my $prefix = delete $args{prefix};
-
-    # Merge parameter
-    if (defined $id) {
-        my $id_param = $self->_create_param_from_id($id, $primary_key);
-        $param = $self->merge_param($id_param, $param);
-    }
-
-    # Insert statement
-    my @sql;
-    push @sql, "insert";
-    push @sql, $prefix if defined $prefix;
-    push @sql, "into " . $self->_q($table) . " " . $self->insert_param($param);
-    push @sql, $append if defined $append;
-    my $sql = join (' ', @sql);
-    
-    # Execute query
-    return $self->execute($sql, $param, table => $table, %args);
-}
-
-sub insert_param {
-    my ($self, $param) = @_;
-    
-    # Create insert parameter tag
-    my $safety = $self->safety_character;
-    my @columns;
-    my @placeholders;
-    foreach my $column (sort keys %$param) {
-        croak qq{"$column" is not safety column name } . _subname
-          unless $column =~ /^[$safety\.]+$/;
-        my $column_quote = $self->_q($column);
-        $column_quote =~ s/\./$self->_q(".")/e;
-        push @columns, $column_quote;
-        push @placeholders, ref $param->{$column} eq 'SCALAR'
-          ? ${$param->{$column}} : ":$column";
-    }
-    
-    return '(' . join(', ', @columns) . ') ' . 'values ' .
-           '(' . join(', ', @placeholders) . ')'
-}
-
-sub include_model {
-    my ($self, $name_space, $model_infos) = @_;
-    
-    # Name space
-    $name_space ||= '';
-    
-    # Get Model infomations
-    unless ($model_infos) {
-
-        # Load name space module
-        croak qq{"$name_space" is invalid class name } . _subname
-          if $name_space =~ /[^\w:]/;
-        eval "use $name_space";
-        croak qq{Name space module "$name_space.pm" is needed. $@ }
-            . _subname
-          if $@;
-        
-        # Search model modules
-        my $path = $INC{"$name_space.pm"};
-        $path =~ s/\.pm$//;
-        opendir my $dh, $path
-          or croak qq{Can't open directory "$path": $! } . _subname
-        $model_infos = [];
-        while (my $module = readdir $dh) {
-            push @$model_infos, $module
-              if $module =~ s/\.pm$//;
-        }
-        close $dh;
-    }
-    
-    # Include models
-    foreach my $model_info (@$model_infos) {
-        
-        # Load model
-        my $model_class;
-        my $model_name;
-        my $model_table;
-        if (ref $model_info eq 'HASH') {
-            $model_class = $model_info->{class};
-            $model_name  = $model_info->{name};
-            $model_table = $model_info->{table};
-            
-            $model_name  ||= $model_class;
-            $model_table ||= $model_name;
-        }
-        else { $model_class = $model_name = $model_table = $model_info }
-        my $mclass = "${name_space}::$model_class";
-        croak qq{"$mclass" is invalid class name } . _subname
-          if $mclass =~ /[^\w:]/;
-        unless ($mclass->can('isa')) {
-            eval "use $mclass";
-            croak "$@ " . _subname if $@;
-        }
-        
-        # Create model
-        my $args = {};
-        $args->{model_class} = $mclass if $mclass;
-        $args->{name}        = $model_name if $model_name;
-        $args->{table}       = $model_table if $model_table;
-        $self->create_model($args);
-    }
-    
-    return $self;
-}
-
-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) = @_;
-    
-    # Merge parameters
-    my $merge = {};
-    foreach my $param (@params) {
-        foreach my $column (keys %$param) {
-            my $param_is_array = ref $param->{$column} eq 'ARRAY' ? 1 : 0;
-            
-            if (exists $merge->{$column}) {
-                $merge->{$column} = [$merge->{$column}]
-                  unless ref $merge->{$column} eq 'ARRAY';
-                push @{$merge->{$column}},
-                  ref $param->{$column} ? @{$param->{$column}} : $param->{$column};
-            }
-            else {
-                $merge->{$column} = $param->{$column};
-            }
-        }
-    }
-    
-    return $merge;
-}
-
-sub method {
-    my $self = shift;
-    
-    # Register method
-    my $methods = ref $_[0] eq 'HASH' ? $_[0] : {@_};
-    $self->{_methods} = {%{$self->{_methods} || {}}, %$methods};
-    
-    return $self;
-}
-
-sub model {
-    my ($self, $name, $model) = @_;
-    
-    # Set model
-    if ($model) {
-        $self->models->{$name} = $model;
-        return $self;
-    }
-    
-    # Check model existance
-    croak qq{Model "$name" is not included } . _subname
-      unless $self->models->{$name};
-    
-    # Get model
-    return $self->models->{$name};
-}
-
-sub mycolumn {
-    my ($self, $table, $columns) = @_;
-    
-    # Create column clause
-    my @column;
-    $columns ||= [];
-    push @column, $self->_q($table) . "." . $self->_q($_) .
-      " as " . $self->_q($_)
-      for @$columns;
-    
-    return join (', ', @column);
-}
-
-sub new {
-    my $self = shift->SUPER::new(@_);
-    
-    # Check attributes
-    my @attrs = keys %$self;
-    foreach my $attr (@attrs) {
-        croak qq{"$attr" is wrong name } . _subname
-          unless $self->can($attr);
-    }
-    
-    # DEPRECATED!
-    $self->query_builder->{tags} = {
-        '?'     => \&DBIx::Custom::Tag::placeholder,
-        '='     => \&DBIx::Custom::Tag::equal,
-        '<>'    => \&DBIx::Custom::Tag::not_equal,
-        '>'     => \&DBIx::Custom::Tag::greater_than,
-        '<'     => \&DBIx::Custom::Tag::lower_than,
-        '>='    => \&DBIx::Custom::Tag::greater_than_equal,
-        '<='    => \&DBIx::Custom::Tag::lower_than_equal,
-        'like'  => \&DBIx::Custom::Tag::like,
-        'in'    => \&DBIx::Custom::Tag::in,
-        'insert_param' => \&DBIx::Custom::Tag::insert_param,
-        'update_param' => \&DBIx::Custom::Tag::update_param
-    };
-    
-    return $self;
-}
-
-sub not_exists { bless {}, 'DBIx::Custom::NotExists' }
-
-sub order {
-    my $self = shift;
-    return DBIx::Custom::Order->new(dbi => $self, @_);
-}
-
-sub register_filter {
-    my $self = shift;
-    
-    # Register filter
-    my $filters = ref $_[0] eq 'HASH' ? $_[0] : {@_};
-    $self->filters({%{$self->filters}, %$filters});
-    
-    return $self;
-}
-
-sub select {
-    my ($self, %args) = @_;
-
-    # Arguments
-    my $table = delete $args{table};
-    my $tables = ref $table eq 'ARRAY' ? $table
-               : defined $table ? [$table]
-               : [];
-    my $columns   = delete $args{column};
-    my $where     = delete $args{where} || {};
-    my $append    = delete $args{append};
-    my $join      = delete $args{join} || [];
-    croak qq{"join" must be array reference } . _subname
-      unless ref $join eq 'ARRAY';
-    my $relation = delete $args{relation};
-    warn "select() relation option is DEPRECATED!"
-      if $relation;
-    my $param = delete $args{param} || {}; # DEPRECATED!
-    warn "select() param option is DEPRECATED!"
-      if keys %$param;
-    my $where_param = delete $args{where_param} || $param || {};
-    my $wrap = delete $args{wrap};
-    my $id = delete $args{id};
-    my $primary_key = delete $args{primary_key};
-    croak "update method primary_key option " .
-          "must be specified when id is specified " . _subname
-      if defined $id && !defined $primary_key;
-    $primary_key = [$primary_key] unless ref $primary_key eq 'ARRAY';
-    my $prefix = delete $args{prefix};
-    
-    # Add relation tables(DEPRECATED!);
-    $self->_add_relation_table($tables, $relation);
-    
-    # Select statement
-    my @sql;
-    push @sql, 'select';
-    
-    # Prefix
-    push @sql, $prefix if defined $prefix;
-    
-    # Column clause
-    if ($columns) {
-        $columns = [$columns] unless ref $columns eq 'ARRAY';
-        foreach my $column (@$columns) {
-            if (ref $column eq 'HASH') {
-                $column = $self->column(%$column) if ref $column eq 'HASH';
-            }
-            elsif (ref $column eq 'ARRAY') {
-                if (@$column == 3 && $column->[1] eq 'as') {
-                    warn "[COLUMN, as => ALIAS] is DEPRECATED! use [COLUMN => ALIAS]";
-                    splice @$column, 1, 1;
-                }
-                
-                $column = join(' ', $column->[0], 'as', $self->_q($column->[1]));
-            }
-            unshift @$tables, @{$self->_search_tables($column)};
-            push @sql, ($column, ',');
-        }
-        pop @sql if $sql[-1] eq ',';
-    }
-    else { push @sql, '*' }
-    
-    # Table
-    push @sql, 'from';
-    if ($relation) {
-        my $found = {};
-        foreach my $table (@$tables) {
-            push @sql, ($self->_q($table), ',') unless $found->{$table};
-            $found->{$table} = 1;
-        }
-    }
-    else {
-        my $main_table = $tables->[-1] || '';
-        push @sql, $self->_q($main_table);
-    }
-    pop @sql if ($sql[-1] || '') eq ',';
-    croak "Not found table name " . _subname
-      unless $tables->[-1];
-
-    # Add tables in parameter
-    unshift @$tables,
-            @{$self->_search_tables(join(' ', keys %$where_param) || '')};
-    
-    # Where
-    my $where_clause = '';
-    $where = $self->_create_param_from_id($id, $primary_key) if defined $id;
-    if (ref $where eq 'ARRAY' && !ref $where->[0]) {
-        $where_clause = "where " . $where->[0];
-        $where_param = $where->[1];
-    }
-    elsif (ref $where) {
-        $where = $self->_where_to_obj($where);
-        $where_param = keys %$where_param
-                     ? $self->merge_param($where_param, $where->param)
-                     : $where->param;
-        
-        # String where
-        $where_clause = $where->to_string;
-    }
-    elsif ($where) { $where_clause = "where $where" }
-    
-    # Add table names in where clause
-    unshift @$tables, @{$self->_search_tables($where_clause)};
-    
-    # Push join
-    $self->_push_join(\@sql, $join, $tables);
-    
-    # Add where clause
-    push @sql, $where_clause;
-    
-    # Relation(DEPRECATED!);
-    $self->_push_relation(\@sql, $tables, $relation, $where_clause eq '' ? 1 : 0);
-    
-    # Append
-    push @sql, $append if defined $append;
-    
-    # Wrap
-    if ($wrap) {
-        croak "wrap option must be array refrence " . _subname
-          unless ref $wrap eq 'ARRAY';
-        unshift @sql, $wrap->[0];
-        push @sql, $wrap->[1];
-    }
-    
-    # SQL
-    my $sql = join (' ', @sql);
-    
-    # Execute query
-    my $result = $self->execute($sql, $where_param, table => $tables, %args);
-    
-    return $result;
-}
-
-sub separator {
-    my $self = shift;
-    
-    if (@_) {
-        my $separator = $_[0] || '';
-        croak qq{Separator must be "." or "__" or "-" } . _subname
-          unless $separator eq '.' || $separator eq '__'
-              || $separator eq '-';
-        
-        $self->{separator} = $separator;
-    
-        return $self;
-    }
-    return $self->{separator} ||= '.';
-}
-
-sub setup_model {
-    my $self = shift;
-    
-    # Setup model
-    $self->each_column(
-        sub {
-            my ($self, $table, $column, $column_info) = @_;
-            if (my $model = $self->models->{$table}) {
-                push @{$model->columns}, $column;
-            }
-        }
-    );
-    return $self;
-}
-
-sub available_data_type {
-    my $self = shift;
-    
-    my $data_types = '';
-    foreach my $i (-1000 .. 1000) {
-         my $type_info = $self->dbh->type_info($i);
-         my $data_type = $type_info->{DATA_TYPE};
-         my $type_name = $type_info->{TYPE_NAME};
-         $data_types .= "$data_type ($type_name)\n"
-           if defined $data_type;
-    }
-    return "Data Type maybe equal to Type Name" unless $data_types;
-    $data_types = "Data Type (Type name)\n" . $data_types;
-    return $data_types;
-}
-
-sub available_type_name {
-    my $self = shift;
-    
-    # Type Names
-    my $type_names = {};
-    $self->each_column(sub {
-        my ($self, $table, $column, $column_info) = @_;
-        $type_names->{$column_info->{TYPE_NAME}} = 1
-          if $column_info->{TYPE_NAME};
-    });
-    my @output = sort keys %$type_names;
-    unshift @output, "Type Name";
-    return join "\n", @output;
-}
-
-sub type_rule {
-    my $self = shift;
-    
-    if (@_) {
-        my $type_rule = ref $_[0] eq 'HASH' ? $_[0] : {@_};
-        
-        # Into
-        foreach my $i (1 .. 2) {
-            my $into = "into$i";
-            $type_rule->{$into} = _array_to_hash($type_rule->{$into});
-            $self->{type_rule} = $type_rule;
-            $self->{"_$into"} = {};
-            foreach my $type_name (keys %{$type_rule->{$into} || {}}) {
-                croak qq{type name of $into section must be lower case}
-                  if $type_name =~ /[A-Z]/;
-            }
-            $self->each_column(sub {
-                my ($dbi, $table, $column, $column_info) = @_;
-                
-                my $type_name = lc $column_info->{TYPE_NAME};
-                if ($type_rule->{$into} &&
-                    (my $filter = $type_rule->{$into}->{$type_name}))
-                {
-                    return unless exists $type_rule->{$into}->{$type_name};
-                    if  (defined $filter && ref $filter ne 'CODE') 
-                    {
-                        my $fname = $filter;
-                        croak qq{Filter "$fname" is not registered" } . _subname
-                          unless exists $self->filters->{$fname};
-                        
-                        $filter = $self->filters->{$fname};
-                    }
-
-                    $self->{"_$into"}{key}{$table}{$column} = $filter;
-                    $self->{"_$into"}{dot}{"$table.$column"} = $filter;
-                }
-            });
-        }
-
-        # From
-        foreach my $i (1 .. 2) {
-            $type_rule->{"from$i"} = _array_to_hash($type_rule->{"from$i"});
-            foreach my $data_type (keys %{$type_rule->{"from$i"} || {}}) {
-                croak qq{data type of from$i section must be lower case or number}
-                  if $data_type =~ /[A-Z]/;
-                my $fname = $type_rule->{"from$i"}{$data_type};
-                if (defined $fname && ref $fname ne 'CODE') {
-                    croak qq{Filter "$fname" is not registered" } . _subname
-                      unless exists $self->filters->{$fname};
-                    
-                    $type_rule->{"from$i"}{$data_type} = $self->filters->{$fname};
-                }
-            }
-        }
-        
-        return $self;
-    }
-    
-    return $self->{type_rule} || {};
-}
-
-sub update {
-    my $self = shift;
-
-    # Arguments
-    my $param;
-    $param = shift if @_ % 2;
-    my %args = @_;
-    my $table = delete $args{table} || '';
-    croak qq{"table" option must be specified } . _subname
-      unless $table;
-    my $p = delete $args{param} || {};
-    $param  ||= $p;
-    my $where = delete $args{where} || {};
-    my $where_param = delete $args{where_param} || {};
-    my $append = delete $args{append} || '';
-    my $allow_update_all = delete $args{allow_update_all};
-    my $id = delete $args{id};
-    my $primary_key = delete $args{primary_key};
-    croak "update method primary_key option " .
-          "must be specified when id is specified " . _subname
-      if defined $id && !defined $primary_key;
-    $primary_key = [$primary_key] unless ref $primary_key eq 'ARRAY';
-    my $prefix = delete $args{prefix};
-
-    # Update clause
-    my $update_clause = $self->update_param($param);
-
-    # Where
-    $where = $self->_create_param_from_id($id, $primary_key) if defined $id;
-    my $where_clause = '';
-    if (ref $where eq 'ARRAY' && !ref $where->[0]) {
-        $where_clause = "where " . $where->[0];
-        $where_param = $where->[1];
-    }
-    elsif (ref $where) {
-        $where = $self->_where_to_obj($where);
-        $where_param = keys %$where_param
-                     ? $self->merge_param($where_param, $where->param)
-                     : $where->param;
-        
-        # String where
-        $where_clause = $where->to_string;
-    }
-    elsif ($where) { $where_clause = "where $where" }
-    croak qq{"where" must be specified } . _subname
-      if "$where_clause" eq '' && !$allow_update_all;
-    
-    # Merge param
-    $param = $self->merge_param($param, $where_param) if keys %$where_param;
-    
-    # Update statement
-    my @sql;
-    push @sql, "update";
-    push @sql, $prefix if defined $prefix;
-    push @sql, $self->_q($table) . " $update_clause $where_clause";
-    push @sql, $append if defined $append;
-    
-    # SQL
-    my $sql = join(' ', @sql);
-    
-    # Execute query
-    return $self->execute($sql, $param, table => $table, %args);
-}
-
-sub update_all { shift->update(allow_update_all => 1, @_) };
-
-sub update_param {
-    my ($self, $param, $opt) = @_;
-    
-    # Create update parameter tag
-    my $tag = $self->assign_param($param);
-    $tag = "set $tag" unless $opt->{no_set};
-
-    return $tag;
-}
-
-sub where { DBIx::Custom::Where->new(dbi => shift, @_) }
-
-sub _create_query {
-    
-    my ($self, $source) = @_;
-    
-    # Cache
-    my $cache = $self->cache;
-    
-    # Query
-    my $query;
-    
-    # Get cached query
-    if ($cache) {
-        
-        # Get query
-        my $q = $self->cache_method->($self, $source);
-        
-        # Create query
-        if ($q) {
-            $query = DBIx::Custom::Query->new($q);
-            $query->{filters} = $self->filters;
-        }
-    }
-    
-    # Create query
-    unless ($query) {
-
-        # Create query
-        my $builder = $self->query_builder;
-        $query = $builder->build_query($source);
-
-        # Remove reserved word quote
-        if (my $q = $self->_quote) {
-            $q = quotemeta($q);
-            $_ =~ s/[$q]//g for @{$query->columns}
-        }
-
-        # Save query to cache
-        $self->cache_method->(
-            $self, $source,
-            {
-                sql     => $query->sql, 
-                columns => $query->columns,
-                tables  => $query->{tables} || []
-            }
-        ) if $cache;
-    }
-    
-    # Save sql
-    $self->last_sql($query->sql);
-    
-    # Prepare statement handle
-    my $sth;
-    eval { $sth = $self->dbh->prepare($query->{sql})};
-    
-    if ($@) {
-        $self->_croak($@, qq{. Following SQL is executed.\n}
-                        . qq{$query->{sql}\n} . _subname);
-    }
-    
-    # Set statement handle
-    $query->sth($sth);
-    
-    # Set filters
-    $query->{filters} = $self->filters;
-    
-    return $query;
-}
-
-sub _create_bind_values {
-    my ($self, $params, $columns, $filter, $type_filters, $bind_type) = @_;
-    
-    # Create bind values
-    my $bind = [];
-    my $count = {};
-    my $not_exists = {};
-    foreach my $column (@$columns) {
-        
-        # Value
-        my $value;
-        if(ref $params->{$column} eq 'ARRAY') {
-            my $i = $count->{$column} || 0;
-            $i += $not_exists->{$column} || 0;
-            my $found;
-            for (my $k = $i; $i < @{$params->{$column}}; $k++) {
-                if (ref $params->{$column}->[$k] eq 'DBIx::Custom::NotExists') {
-                    $not_exists->{$column}++;
-                }
-                else  {
-                    $value = $params->{$column}->[$k];
-                    $found = 1;
-                    last
-                }
-            }
-            next unless $found;
-        }
-        else { $value = $params->{$column} }
-        
-        # Filter
-        my $f = $filter->{$column} || $self->{default_out_filter} || '';
-        $value = $f->($value) if $f;
-        
-        # Type rule
-        foreach my $i (1 .. 2) {
-            my $type_filter = $type_filters->{$i};
-            my $tf = $self->{"_into$i"}->{dot}->{$column} || $type_filter->{$column};
-            $value = $tf->($value) if $tf;
-        }
-        
-        # Bind values
-        push @$bind, {value => $value, bind_type => $bind_type->{$column}};
-        
-        # Count up 
-        $count->{$column}++;
-    }
-    
-    return $bind;
-}
-
-sub _create_param_from_id {
-    my ($self, $id, $primary_keys) = @_;
-    
-    # Create parameter
-    my $param = {};
-    if (defined $id) {
-        $id = [$id] unless ref $id;
-        croak qq{"id" must be constant value or array reference}
-            . " (" . (caller 1)[3] . ")"
-          unless !ref $id || ref $id eq 'ARRAY';
-        croak qq{"id" must contain values same count as primary key}
-            . " (" . (caller 1)[3] . ")"
-          unless @$primary_keys eq @$id;
-        for(my $i = 0; $i < @$primary_keys; $i ++) {
-           $param->{$primary_keys->[$i]} = $id->[$i];
-        }
-    }
-    
-    return $param;
-}
-
-sub _connect {
-    my $self = shift;
-    
-    # Attributes
-    my $dsn = $self->data_source;
-    warn "data_source is DEPRECATED!\n"
-      if $dsn;
-    $dsn ||= $self->dsn;
-    croak qq{"dsn" must be specified } . _subname
-      unless $dsn;
-    my $user        = $self->user;
-    my $password    = $self->password;
-    my $dbi_option = {%{$self->dbi_options}, %{$self->dbi_option}};
-    warn "dbi_options is DEPRECATED! use dbi_option instead\n"
-      if keys %{$self->dbi_options};
-    
-    # Connect
-    my $dbh = eval {DBI->connect(
-        $dsn,
-        $user,
-        $password,
-        {
-            %{$self->default_dbi_option},
-            %$dbi_option
-        }
-    )};
-    
-    # Connect error
-    croak "$@ " . _subname if $@;
-    
-    return $dbh;
-}
-
-sub _croak {
-    my ($self, $error, $append) = @_;
-    
-    # Append
-    $append ||= "";
-    
-    # Verbose
-    if ($Carp::Verbose) { croak $error }
-    
-    # Not verbose
-    else {
-        
-        # Remove line and module infromation
-        my $at_pos = rindex($error, ' at ');
-        $error = substr($error, 0, $at_pos);
-        $error =~ s/\s+$//;
-        croak "$error$append";
-    }
-}
-
-sub _need_tables {
-    my ($self, $tree, $need_tables, $tables) = @_;
-    
-    # Get needed tables
-    foreach my $table (@$tables) {
-        if ($tree->{$table}) {
-            $need_tables->{$table} = 1;
-            $self->_need_tables($tree, $need_tables, [$tree->{$table}{parent}])
-        }
-    }
-}
-
-sub _push_join {
-    my ($self, $sql, $join, $join_tables) = @_;
-    
-    # No join
-    return unless @$join;
-    
-    # Push join clause
-    my $tree = {};
-    for (my $i = 0; $i < @$join; $i++) {
-        
-        # Arrange
-        my $join_clause;;
-        my $option;
-        if (ref $join->[$i] eq 'HASH') {
-            $join_clause = $join->[$i]->{clause};
-            $option = {table => $join->[$i]->{table}};
-        }
-        else {
-            $join_clause = $join->[$i];
-            $option = {};
-        };
-
-        # Find tables in join clause
-        my $table1;
-        my $table2;
-        if (my $table = $option->{table}) {
-            $table1 = $table->[0];
-            $table2 = $table->[1];
-        }
-        else {
-            my $q = $self->_quote;
-            my $j_clause = (split /\s+on\s+/, $join_clause)[-1];
-            $j_clause =~ s/'.+?'//g;
-            my $q_re = quotemeta($q);
-            $j_clause =~ s/[$q_re]//g;
-            my $c = $self->safety_character;
-            my $join_re = qr/(?:^|\s)($c+)\.$c+\s+=\s+($c+)\.$c+/;
-            if ($j_clause =~ $join_re) {
-                $table1 = $1;
-                $table2 = $2;
-            }
-        }
-        croak qq{join clause must have two table name after "on" keyword. } .
-              qq{"$join_clause" is passed }  . _subname
-          unless defined $table1 && defined $table2;
-        croak qq{right side table of "$join_clause" must be unique }
-            . _subname
-          if exists $tree->{$table2};
-        croak qq{Same table "$table1" is specified} . _subname
-          if $table1 eq $table2;
-        $tree->{$table2}
-          = {position => $i, parent => $table1, join => $join_clause};
-    }
-    
-    # Search need tables
-    my $need_tables = {};
-    $self->_need_tables($tree, $need_tables, $join_tables);
-    my @need_tables = sort { $tree->{$a}{position} <=> $tree->{$b}{position} } keys %$need_tables;
-    
-    # Add join clause
-    foreach my $need_table (@need_tables) {
-        push @$sql, $tree->{$need_table}{join};
-    }
-}
-
-sub _quote {
-    my $self = shift;
-    
-    return defined $self->reserved_word_quote ? $self->reserved_word_quote
-         : defined $self->quote ? $self->quote
-         : '';
-}
-
-sub _q {
-    my ($self, $value) = @_;
-    
-    my $quote = $self->_quote;
-    my $q = substr($quote, 0, 1) || '';
-    my $p;
-    if (defined $quote && length $quote > 1) {
-        $p = substr($quote, 1, 1);
-    }
-    else { $p = $q }
-    
-    return "$q$value$p";
-}
-
-sub _remove_duplicate_table {
-    my ($self, $tables, $main_table) = @_;
-    
-    # Remove duplicate table
-    my %tables = map {defined $_ ? ($_ => 1) : ()} @$tables;
-    delete $tables{$main_table} if $main_table;
-    
-    my $new_tables = [keys %tables, $main_table ? $main_table : ()];
-    if (my $q = $self->_quote) {
-        $q = quotemeta($q);
-        $_ =~ s/[$q]//g for @$new_tables;
-    }
-
-    return $new_tables;
-}
-
-sub _search_tables {
-    my ($self, $source) = @_;
-    
-    # Search tables
-    my $tables = [];
-    my $safety_character = $self->safety_character;
-    my $q = $self->_quote;
-    my $q_re = quotemeta($q);
-    my $quoted_safety_character_re = $self->_q("?([$safety_character]+)");
-    my $table_re = $q ? qr/(?:^|[^$safety_character])$quoted_safety_character_re?\./
-                      : qr/(?:^|[^$safety_character])([$safety_character]+)\./;
-    while ($source =~ /$table_re/g) {
-        push @$tables, $1;
-    }
-    
-    return $tables;
-}
-
-sub _where_to_obj {
-    my ($self, $where) = @_;
-    
-    my $obj;
-    
-    # Hash
-    if (ref $where eq 'HASH') {
-        my $clause = ['and'];
-        my $q = $self->_quote;
-        foreach my $column (keys %$where) {
-            my $column_quote = $self->_q($column);
-            $column_quote =~ s/\./$self->_q(".")/e;
-            push @$clause, "$column_quote = :$column" for keys %$where;
-        }
-        $obj = $self->where(clause => $clause, param => $where);
-    }
-    
-    # DBIx::Custom::Where object
-    elsif (ref $where eq 'DBIx::Custom::Where') {
-        $obj = $where;
-    }
-    
-    # Array
-    elsif (ref $where eq 'ARRAY') {
-        $obj = $self->where(
-            clause => $where->[0],
-            param  => $where->[1]
-        );
-    }
-    
-    # Check where argument
-    croak qq{"where" must be hash reference or DBIx::Custom::Where object}
-        . qq{or array reference, which contains where clause and parameter}
-        . _subname
-      unless ref $obj eq 'DBIx::Custom::Where';
-    
-    return $obj;
-}
-
-sub _apply_filter {
-    my ($self, $table, @cinfos) = @_;
-
-    # Initialize filters
-    $self->{filter} ||= {};
-    $self->{filter}{on} = 1;
-    $self->{filter}{out} ||= {};
-    $self->{filter}{in} ||= {};
-    $self->{filter}{end} ||= {};
-    
-    # Usage
-    my $usage = "Usage: \$dbi->apply_filter(" .
-                "TABLE, COLUMN1, {in => INFILTER1, out => OUTFILTER1, end => ENDFILTER1}, " .
-                "COLUMN2, {in => INFILTER2, out => OUTFILTER2, end => ENDFILTER2}, ...)";
-    
-    # Apply filter
-    for (my $i = 0; $i < @cinfos; $i += 2) {
-        
-        # Column
-        my $column = $cinfos[$i];
-        if (ref $column eq 'ARRAY') {
-            foreach my $c (@$column) {
-                push @cinfos, $c, $cinfos[$i + 1];
-            }
-            next;
-        }
-        
-        # Filter infomation
-        my $finfo = $cinfos[$i + 1] || {};
-        croak "$usage (table: $table) " . _subname
-          unless  ref $finfo eq 'HASH';
-        foreach my $ftype (keys %$finfo) {
-            croak "$usage (table: $table) " . _subname
-              unless $ftype eq 'in' || $ftype eq 'out' || $ftype eq 'end'; 
-        }
-        
-        # Set filters
-        foreach my $way (qw/in out end/) {
-        
-            # Filter
-            my $filter = $finfo->{$way};
-            
-            # Filter state
-            my $state = !exists $finfo->{$way} ? 'not_exists'
-                      : !defined $filter        ? 'not_defined'
-                      : ref $filter eq 'CODE'   ? 'code'
-                      : 'name';
-            
-            # Filter is not exists
-            next if $state eq 'not_exists';
-            
-            # Check filter name
-            croak qq{Filter "$filter" is not registered } . _subname
-              if  $state eq 'name'
-               && ! exists $self->filters->{$filter};
-            
-            # Set filter
-            my $f = $state eq 'not_defined' ? undef
-                  : $state eq 'code'        ? $filter
-                  : $self->filters->{$filter};
-            $self->{filter}{$way}{$table}{$column} = $f;
-            $self->{filter}{$way}{$table}{"$table.$column"} = $f;
-            $self->{filter}{$way}{$table}{"${table}__$column"} = $f;
-            $self->{filter}{$way}{$table}{"${table}-$column"} = $f;
-        }
-    }
-    
-    return $self;
-}
-
-# DEPRECATED!
-sub create_query {
-    warn "create_query is DEPRECATED! use query option of each method";
-    shift->_create_query(@_);
-}
-
-# DEPRECATED!
-sub apply_filter {
-    my $self = shift;
-    
-    warn "apply_filter is DEPRECATED!";
-    return $self->_apply_filter(@_);
-}
-
-# DEPRECATED!
-our %SELECT_AT_ARGS = (%VALID_ARGS, where => 1, primary_key => 1);
-sub select_at {
-    my ($self, %args) = @_;
-
-    warn "select_at is DEPRECATED! use update and id option instead";
-
-    # Arguments
-    my $primary_keys = delete $args{primary_key};
-    $primary_keys = [$primary_keys] unless ref $primary_keys;
-    my $where = delete $args{where};
-    my $param = delete $args{param};
-    
-    # Check arguments
-    foreach my $name (keys %args) {
-        croak qq{"$name" is wrong option } . _subname
-          unless $SELECT_AT_ARGS{$name};
-    }
-    
-    # Table
-    croak qq{"table" option must be specified } . _subname
-      unless $args{table};
-    my $table = ref $args{table} ? $args{table}->[-1] : $args{table};
-    
-    # Create where parameter
-    my $where_param = $self->_create_param_from_id($where, $primary_keys);
-    
-    return $self->select(where => $where_param, %args);
-}
-
-# DEPRECATED!
-our %DELETE_AT_ARGS = (%VALID_ARGS, where => 1, primary_key => 1);
-sub delete_at {
-    my ($self, %args) = @_;
-
-    warn "delete_at is DEPRECATED! use update and id option instead";
-    
-    # Arguments
-    my $primary_keys = delete $args{primary_key};
-    $primary_keys = [$primary_keys] unless ref $primary_keys;
-    my $where = delete $args{where};
-    
-    # Check arguments
-    foreach my $name (keys %args) {
-        croak qq{"$name" is wrong option } . _subname
-          unless $DELETE_AT_ARGS{$name};
-    }
-    
-    # Create where parameter
-    my $where_param = $self->_create_param_from_id($where, $primary_keys);
-    
-    return $self->delete(where => $where_param, %args);
-}
-
-# DEPRECATED!
-our %UPDATE_AT_ARGS = (%VALID_ARGS, where => 1, primary_key => 1);
-sub update_at {
-    my $self = shift;
-
-    warn "update_at is DEPRECATED! use update and id option instead";
-    
-    # Arguments
-    my $param;
-    $param = shift if @_ % 2;
-    my %args = @_;
-    my $primary_keys = delete $args{primary_key};
-    $primary_keys = [$primary_keys] unless ref $primary_keys;
-    my $where = delete $args{where};
-    my $p = delete $args{param} || {};
-    $param  ||= $p;
-    
-    # Check arguments
-    foreach my $name (keys %args) {
-        croak qq{"$name" is wrong option } . _subname
-          unless $UPDATE_AT_ARGS{$name};
-    }
-    
-    # Create where parameter
-    my $where_param = $self->_create_param_from_id($where, $primary_keys);
-    
-    return $self->update(where => $where_param, param => $param, %args);
-}
-
-# DEPRECATED!
-our %INSERT_AT_ARGS = (%VALID_ARGS, where => 1, primary_key => 1);
-sub insert_at {
-    my $self = shift;
-    
-    warn "insert_at is DEPRECATED! use insert and id option instead";
-    
-    # Arguments
-    my $param;
-    $param = shift if @_ % 2;
-    my %args = @_;
-    my $primary_key = delete $args{primary_key};
-    $primary_key = [$primary_key] unless ref $primary_key;
-    my $where = delete $args{where};
-    my $p = delete $args{param} || {};
-    $param  ||= $p;
-    
-    # Check arguments
-    foreach my $name (keys %args) {
-        croak qq{"$name" is wrong option } . _subname
-          unless $INSERT_AT_ARGS{$name};
-    }
-    
-    # Create where parameter
-    my $where_param = $self->_create_param_from_id($where, $primary_key);
-    $param = $self->merge_param($where_param, $param);
-    
-    return $self->insert(param => $param, %args);
-}
-
-# DEPRECATED!
-sub register_tag {
-    warn "register_tag is DEPRECATED!";
-    shift->query_builder->register_tag(@_)
-}
-
-# DEPRECATED!
-has 'data_source';
-has dbi_options => sub { {} };
-has filter_check  => 1;
-has 'reserved_word_quote';
-
-# DEPRECATED!
-sub default_bind_filter {
-    my $self = shift;
-    
-    warn "default_bind_filter is DEPRECATED!";
-    
-    if (@_) {
-        my $fname = $_[0];
-        
-        if (@_ && !$fname) {
-            $self->{default_out_filter} = undef;
-        }
-        else {
-            croak qq{Filter "$fname" is not registered}
-              unless exists $self->filters->{$fname};
-        
-            $self->{default_out_filter} = $self->filters->{$fname};
-        }
-        return $self;
-    }
-    
-    return $self->{default_out_filter};
-}
-
-# DEPRECATED!
-sub default_fetch_filter {
-    my $self = shift;
-
-    warn "default_fetch_filter is DEPRECATED!";
-    
-    if (@_) {
-        my $fname = $_[0];
-
-        if (@_ && !$fname) {
-            $self->{default_in_filter} = undef;
-        }
-        else {
-            croak qq{Filter "$fname" is not registered}
-              unless exists $self->filters->{$fname};
-        
-            $self->{default_in_filter} = $self->filters->{$fname};
-        }
-        
-        return $self;
-    }
-    
-    return $self->{default_in_filter};
-}
-
-# DEPRECATED!
-sub insert_param_tag {
-    warn "insert_param_tag is DEPRECATED! " .
-         "use insert_param instead!";
-    return shift->insert_param(@_);
-}
-
-# DEPRECATED!
-sub register_tag_processor {
-    warn "register_tag_processor is DEPRECATED!";
-    return shift->query_builder->register_tag_processor(@_);
-}
-
-# DEPRECATED!
-sub update_param_tag {
-    warn "update_param_tag is DEPRECATED! " .
-         "use update_param instead";
-    return shift->update_param(@_);
-}
-# DEPRECATED!
-sub _push_relation {
-    my ($self, $sql, $tables, $relation, $need_where) = @_;
-    
-    if (keys %{$relation || {}}) {
-        push @$sql, $need_where ? 'where' : 'and';
-        foreach my $rcolumn (keys %$relation) {
-            my $table1 = (split (/\./, $rcolumn))[0];
-            my $table2 = (split (/\./, $relation->{$rcolumn}))[0];
-            push @$tables, ($table1, $table2);
-            push @$sql, ("$rcolumn = " . $relation->{$rcolumn},  'and');
-        }
-    }
-    pop @$sql if $sql->[-1] eq 'and';    
-}
-
-# DEPRECATED!
-sub _add_relation_table {
-    my ($self, $tables, $relation) = @_;
-    
-    if (keys %{$relation || {}}) {
-        foreach my $rcolumn (keys %$relation) {
-            my $table1 = (split (/\./, $rcolumn))[0];
-            my $table2 = (split (/\./, $relation->{$rcolumn}))[0];
-            my $table1_exists;
-            my $table2_exists;
-            foreach my $table (@$tables) {
-                $table1_exists = 1 if $table eq $table1;
-                $table2_exists = 1 if $table eq $table2;
-            }
-            unshift @$tables, $table1 unless $table1_exists;
-            unshift @$tables, $table2 unless $table2_exists;
-        }
-    }
-}
-
-1;
-
-=head1 NAME
-
-DBIx::Custom - Execute insert, update, delete, and select statement easily
-
-=head1 SYNOPSYS
-
-    use DBIx::Custom;
-    
-    # Connect
-    my $dbi = DBIx::Custom->connect(
-        dsn => "dbi:mysql:database=dbname",
-        user => 'ken',
-        password => '!LFKD%$&',
-        dbi_option => {mysql_enable_utf8 => 1}
-    );
-
-    # Insert 
-    $dbi->insert({title => 'Perl', author => 'Ken'}, table  => 'book');
-    
-    # Update 
-    $dbi->update({title => 'Perl', author => 'Ken'}, table  => 'book',
-      where  => {id => 5});
-    
-    # Delete
-    $dbi->delete(table  => 'book', where => {author => 'Ken'});
-
-    # Select
-    my $result = $dbi->select(table  => 'book',
-      column => ['title', 'author'], where  => {author => 'Ken'});
-
-    # Select, more complex
-    my $result = $dbi->select(
-        table  => 'book',
-        column => [
-            {book => [qw/title author/]},
-            {company => ['name']}
-        ],
-        where  => {'book.author' => 'Ken'},
-        join => ['left outer join company on book.company_id = company.id'],
-        append => 'order by id limit 5'
-    );
-    
-    # Fetch
-    while (my $row = $result->fetch) {
-        
-    }
-    
-    # Fetch as hash
-    while (my $row = $result->fetch_hash) {
-        
-    }
-    
-    # Execute SQL with parameter.
-    $dbi->execute(
-        "select id from book where author = :author and title like :title",
-        {author => 'ken', title => '%Perl%'}
-    );
-    
-=head1 DESCRIPTIONS
-
-L<DBIx::Custom> is L<DBI> wrapper module to execute SQL easily.
-This module have the following features.
-
-=over 4
-
-=item *
-
-Execute C<insert>, C<update>, C<delete>, or C<select> statement easily
-
-=item *
-
-Create C<where> clause flexibly
-
-=item *
-
-Named place holder support
-
-=item *
-
-Model support
-
-=item *
-
-Connection manager support
-
-=item *
-
-Choice your favorite relational database management system,
-C<MySQL>, C<SQLite>, C<PostgreSQL>, C<Oracle>,
-C<Microsoft SQL Server>, C<Microsoft Access>, C<DB2> or anything, 
-
-=item *
-
-Filtering by data type or column name(EXPERIMENTAL)
-
-=item *
-
-Create C<order by> clause flexibly(EXPERIMENTAL)
-
-=back
-
-=head1 DOCUMENTATIONS
-
-L<DBIx::Custom::Guide> - How to use L<DBIx::Custom>
-
-L<DBIx::Custom Wiki|https://github.com/yuki-kimoto/DBIx-Custom/wiki>
-- Theare are various examples.
-
-Module documentations - 
-L<DBIx::Custom::Result>,
-L<DBIx::Custom::Query>,
-L<DBIx::Custom::Where>,
-L<DBIx::Custom::Model>,
-L<DBIx::Custom::Order>
-
-=head1 ATTRIBUTES
-
-=head2 C<connector>
-
-    my $connector = $dbi->connector;
-    $dbi = $dbi->connector($connector);
-
-Connection manager object. if C<connector> is set, you can get C<dbh>
-through connection manager. Conection manager object must have C<dbh> mehtod.
-
-This is L<DBIx::Connector> example. Please pass
-C<default_dbi_option> to L<DBIx::Connector> C<new> method.
-
-    my $connector = DBIx::Connector->new(
-        "dbi:mysql:database=$DATABASE",
-        $USER,
-        $PASSWORD,
-        DBIx::Custom->new->default_dbi_option
-    );
-    
-    my $dbi = DBIx::Custom->connect(connector => $connector);
-
-=head2 C<dsn>
-
-    my $dsn = $dbi->dsn;
-    $dbi = $dbi->dsn("DBI:mysql:database=dbname");
-
-Data source name, used when C<connect> method is executed.
-
-=head2 C<dbi_option>
-
-    my $dbi_option = $dbi->dbi_option;
-    $dbi = $dbi->dbi_option($dbi_option);
-
-L<DBI> option, used when C<connect> method is executed.
-Each value in option override the value of C<default_dbi_option>.
-
-=head2 C<default_dbi_option>
-
-    my $default_dbi_option = $dbi->default_dbi_option;
-    $dbi = $dbi->default_dbi_option($default_dbi_option);
-
-L<DBI> default option, used when C<connect> method is executed,
-default to the following values.
-
-    {
-        RaiseError => 1,
-        PrintError => 0,
-        AutoCommit => 1,
-    }
-
-=head2 C<filters>
-
-    my $filters = $dbi->filters;
-    $dbi = $dbi->filters(\%filters);
-
-Filters, registered by C<register_filter> method.
-
-=head2 C<last_sql>
-
-    my $last_sql = $dbi->last_sql;
-    $dbi = $dbi->last_sql($last_sql);
-
-Get last successed SQL executed by C<execute> method.
-
-=head2 C<models>
-
-    my $models = $dbi->models;
-    $dbi = $dbi->models(\%models);
-
-Models, included by C<include_model> method.
-
-=head2 C<password>
-
-    my $password = $dbi->password;
-    $dbi = $dbi->password('lkj&le`@s');
-
-Password, used when C<connect> method is executed.
-
-=head2 C<query_builder>
-
-    my $sql_class = $dbi->query_builder;
-    $dbi = $dbi->query_builder(DBIx::Custom::QueryBuilder->new);
-
-Query builder, default to L<DBIx::Custom::QueryBuilder> object.
-
-=head2 C<quote>
-
-     my quote = $dbi->quote;
-     $dbi = $dbi->quote('"');
-
-Reserved word quote.
-Default to double quote '"' except for mysql.
-In mysql, default to back quote '`'
-
-You can set quote pair.
-
-    $dbi->quote('[]');
-
-=head2 C<result_class>
-
-    my $result_class = $dbi->result_class;
-    $dbi = $dbi->result_class('DBIx::Custom::Result');
-
-Result class, default to L<DBIx::Custom::Result>.
-
-=head2 C<safety_character>
-
-    my $safety_character = $self->safety_character;
-    $dbi = $self->safety_character($character);
-
-Regex of safety character for table and column name, default to '\w'.
-Note that you don't have to specify like '[\w]'.
-
-=head2 C<tag_parse>
-
-    my $tag_parse = $dbi->tag_parse(0);
-    $dbi = $dbi->tag_parse;
-
-Enable DEPRECATED tag parsing functionality, default to 1.
-If you want to disable tag parsing functionality, set to 0.
-
-=head2 C<user>
-
-    my $user = $dbi->user;
-    $dbi = $dbi->user('Ken');
-
-User name, used when C<connect> method is executed.
-
-=head1 METHODS
-
-L<DBIx::Custom> inherits all methods from L<Object::Simple>
-and use all methods of L<DBI>
-and implements the following new ones.
-
-=head2 C<available_data_type> EXPERIMENTAL
-
-    print $dbi->available_data_type;
-
-Get available data types. You can use these data types
-in C<type rule>'s C<from1> and C<from2> section.
-
-=head2 C<available_type_name> EXPERIMENTAL
-
-    print $dbi->available_type_name;
-
-Get available type names. You can use these type names in
-C<type_rule>'s C<into1> and C<into2> section.
-
-=head2 C<assign_param> EXPERIMENTAL
-
-    my $assign_param = $dbi->assign_param({title => 'a', age => 2});
-
-Create assign parameter.
-
-    title = :title, author = :author
-
-This is equal to C<update_param> exept that set is not added.
-
-=head2 C<column>
-
-    my $column = $dbi->column(book => ['author', 'title']);
-
-Create column clause. The follwoing column clause is created.
-
-    book.author as "book.author",
-    book.title as "book.title"
-
-You can change separator by C<separator> method.
-
-    # Separator is double underbar
-    $dbi->separator('__');
-    
-    book.author as "book__author",
-    book.title as "book__title"
-
-    # Separator is hyphen
-    $dbi->separator('-');
-    
-    book.author as "book-author",
-    book.title as "book-title"
-    
-=head2 C<connect>
-
-    my $dbi = DBIx::Custom->connect(
-        dsn => "dbi:mysql:database=dbname",
-        user => 'ken',
-        password => '!LFKD%$&',
-        dbi_option => {mysql_enable_utf8 => 1}
-    );
-
-Connect to the database and create a new L<DBIx::Custom> object.
-
-L<DBIx::Custom> is a wrapper of L<DBI>.
-C<AutoCommit> and C<RaiseError> options are true, 
-and C<PrintError> option is false by default.
-
-=head2 create_model
-
-    my $model = $dbi->create_model(
-        table => 'book',
-        primary_key => 'id',
-        join => [
-            'inner join company on book.comparny_id = company.id'
-        ],
-    );
-
-Create L<DBIx::Custom::Model> object and initialize model.
-the module is also used from C<model> method.
-
-   $dbi->model('book')->select(...);
-
-=head2 C<dbh>
-
-    my $dbh = $dbi->dbh;
-
-Get L<DBI> database handle. if C<connector> is set, you can get
-database handle through C<connector> object.
-
-=head2 C<each_column>
-
-    $dbi->each_column(
-        sub {
-            my ($dbi, $table, $column, $column_info) = @_;
-            
-            my $type = $column_info->{TYPE_NAME};
-            
-            if ($type eq 'DATE') {
-                # ...
-            }
-        }
-    );
-
-Iterate all column informations of all table from database.
-Argument is callback when one column is found.
-Callback receive four arguments, dbi object, table name,
-column name and column information.
-
-=head2 C<each_table>
-
-    $dbi->each_table(
-        sub {
-            my ($dbi, $table, $table_info) = @_;
-            
-            my $table_name = $table_info->{TABLE_NAME};
-        }
-    );
-
-Iterate all table informationsfrom database.
-Argument is callback when one table is found.
-Callback receive three arguments, dbi object, table name,
-table information.
-
-=head2 C<execute>
-
-    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%'}
-    );
-
-Execute SQL. SQL can contain column parameter such as :author and :title.
-You can append table name to column name such as :book.title and :book.author.
-Second argunet is data, embedded into column parameter.
-Return value is L<DBIx::Custom::Result> object when select statement is executed,
-or the count of affected rows when insert, update, delete statement is executed.
-
-Named placeholder such as C<:title> is replaced by placeholder C<?>.
-    
-    # Original
-    select * from book where title = :title and author like :author
-    
-    # Replaced
-    select * from where title = ? and author like ?;
-
-You can specify operator with named placeholder
- by C<name{operator}> syntax.
-
-    # Original
-    select * from book where :title{=} and :author{like}
-    
-    # Replaced
-    select * from where title = ? and author like ?;
-
-Note that colons in time format such as 12:13:15 is exeption,
-it is not parsed as named placeholder.
-If you want to use colon generally, you must escape it by C<\\>
-
-    select * from where title = "aa\\:bb";
-
-The following opitons are available.
-
-=over 4
-
-=item C<filter>
-    
-    filter => {
-        title  => sub { uc $_[0] }
-        author => sub { uc $_[0] }
-    }
-
-    # Filter name
-    filter => {
-        title  => 'upper_case',
-        author => 'upper_case'
-    }
-        
-    # At once
-    filter => [
-        [qw/title author/]  => sub { uc $_[0] }
-    ]
-
-Filter. You can set subroutine or filter name
-registered by by C<register_filter>.
-This filter is executed before data is saved into database.
-and before type rule filter is executed.
-
-=item C<query>
-
-    query => 1
-
-C<execute> method return L<DBIx::Custom::Query> object, not executing SQL.
-You can check SQL or get statment handle.
-
-    my $sql = $query->sql;
-    my $sth = $query->sth;
-    my $columns = $query->columns;
-    
-If you want to execute SQL fast, you can do the following way.
-
-    my $query;
-    foreach my $row (@$rows) {
-      $query ||= $dbi->insert($row, table => 'table1', query => 1);
-      $dbi->execute($query, $row, filter => {ab => sub { $_[0] * 2 }});
-    }
-
-Statement handle is reused and SQL parsing is finished,
-so you can get more performance than normal way.
-
-If you want to execute SQL as possible as fast and don't need filtering.
-You can do the following way.
-    
-    my $query;
-    my $sth;
-    foreach my $row (@$rows) {
-      $query ||= $dbi->insert($row, table => 'book', query => 1);
-      $sth ||= $query->sth;
-      $sth->execute(map { $row->{$_} } sort keys %$row);
-    }
-
-Note that $row must be simple hash reference, such as
-{title => 'Perl', author => 'Ken'}.
-and don't forget to sort $row values by $row key asc order.
-
-=item C<table>
-    
-    table => 'author'
-
-If you want to omit table name in column name
-and enable C<into1> and C<into2> type filter,
-You must set C<table> option.
-
-    $dbi->execute("select * from book where title = :title and author = :author",
-        {title => 'Perl', author => 'Ken', table => 'book');
-
-    # Same
-    $dbi->execute(
-      "select * from book where title = :book.title and author = :book.author",
-      {title => 'Perl', author => 'Ken');
-
-=item C<bind_type>
-
-Specify database bind data type.
-
-    bind_type => [image => DBI::SQL_BLOB]
-    bind_type => [[qw/image audio/] => DBI::SQL_BLOB]
-
-This is used to bind parameter by C<bind_param> of statment handle.
-
-    $sth->bind_param($pos, $value, DBI::SQL_BLOB);
-
-=item C<table_alias> EXPERIMENTAL
-
-    table_alias => {user => 'hiker'}
-
-Table alias. Key is real table name, value is alias table name.
-If you set C<table_alias>, you can enable C<into1> and C<into2> type rule
-on alias table name.
-
-=item C<type_rule_off> EXPERIMENTAL
-
-    type_rule_off => 1
-
-Turn C<into1> and C<into2> type rule off.
-
-=item C<type_rule1_off> EXPERIMENTAL
-
-    type_rule1_off => 1
-
-Turn C<into1> type rule off.
-
-=item C<type_rule2_off> EXPERIMENTAL
-
-    type_rule2_off => 1
-
-Turn C<into2> type rule off.
-
-=back
-
-=head2 C<delete>
-
-    $dbi->delete(table => 'book', where => {title => 'Perl'});
-
-Execute delete statement.
-
-The following opitons are available.
-
-=over 4
-
-=item C<append>
-
-Same as C<select> method's C<append> option.
-
-=item C<filter>
-
-Same as C<execute> method's C<filter> option.
-
-=item C<id>
-
-    id => 4
-    id => [4, 5]
-
-ID corresponding to C<primary_key>.
-You can delete rows by C<id> and C<primary_key>.
-
-    $dbi->delete(
-        parimary_key => ['id1', 'id2'],
-        id => [4, 5],
-        table => 'book',
-    );
-
-The above is same as the followin one.
-
-    $dbi->delete(where => {id1 => 4, id2 => 5}, table => 'book');
-
-=item C<prefix>
-
-    prefix => 'some'
-
-prefix before table name section.
-
-    delete some from book
-
-=item C<query>
-
-Same as C<execute> method's C<query> option.
-
-=item C<table>
-
-    table => 'book'
-
-Table name.
-
-=item C<where>
-
-Same as C<select> method's C<where> option.
-
-=item C<primary_key>
-
-See C<id> option.
-
-=item C<bind_type>
-
-Same as C<execute> method's C<bind_type> option.
-
-=item C<type_rule_off> EXPERIMENTAL
-
-Same as C<execute> method's C<type_rule_off> option.
-
-=item C<type_rule1_off> EXPERIMENTAL
-
-    type_rule1_off => 1
-
-Same as C<execute> method's C<type_rule1_off> option.
-
-=item C<type_rule2_off> EXPERIMENTAL
-
-    type_rule2_off => 1
-
-Same as C<execute> method's C<type_rule2_off> option.
-
-=back
-
-=head2 C<delete_all>
-
-    $dbi->delete_all(table => $table);
-
-Execute delete statement for all rows.
-Options is same as C<delete>.
-
-=head2 C<insert>
-
-    $dbi->insert({title => 'Perl', author => 'Ken'}, table  => 'book');
-
-Execute insert statement. First argument is row data. Return value is
-affected row count.
-
-If you want to set constant value to row data, use scalar reference
-as parameter value.
-
-    {date => \"NOW()"}
-
-The following opitons are available.
-
-=over 4
-
-=item C<append>
-
-Same as C<select> method's C<append> option.
-
-=item C<filter>
-
-Same as C<execute> method's C<filter> option.
-
-=item C<id>
-
-    id => 4
-    id => [4, 5]
-
-ID corresponding to C<primary_key>.
-You can insert a row by C<id> and C<primary_key>.
-
-    $dbi->insert(
-        {title => 'Perl', author => 'Ken'}
-        parimary_key => ['id1', 'id2'],
-        id => [4, 5],
-        table => 'book'
-    );
-
-The above is same as the followin one.
-
-    $dbi->insert(
-        {id1 => 4, id2 => 5, title => 'Perl', author => 'Ken'},
-        table => 'book'
-    );
-
-=item C<prefix>
-
-    prefix => 'or replace'
-
-prefix before table name section
-
-    insert or replace into book
-
-=item C<primary_key>
-
-    primary_key => 'id'
-    primary_key => ['id1', 'id2']
-
-Primary key. This is used by C<id> option.
-
-=item C<query>
-
-Same as C<execute> method's C<query> option.
-
-=item C<table>
-
-    table => 'book'
-
-Table name.
-
-=item C<bind_type>
-
-Same as C<execute> method's C<bind_type> option.
-
-=item C<type_rule_off> EXPERIMENTAL
-
-Same as C<execute> method's C<type_rule_off> option.
-
-=item C<type_rule1_off> EXPERIMENTAL
-
-    type_rule1_off => 1
-
-Same as C<execute> method's C<type_rule1_off> option.
-
-=item C<type_rule2_off> EXPERIMENTAL
-
-    type_rule2_off => 1
-
-Same as C<execute> method's C<type_rule2_off> option.
-
-=back
-
-=over 4
-
-=head2 C<insert_param>
-
-    my $insert_param = $dbi->insert_param({title => 'a', age => 2});
-
-Create insert parameters.
-
-    (title, author) values (title = :title, age = :age);
-
-=head2 C<include_model>
-
-    $dbi->include_model('MyModel');
-
-Include models from specified namespace,
-the following layout is needed to include models.
-
-    lib / MyModel.pm
-        / MyModel / book.pm
-                  / company.pm
-
-Name space module, extending L<DBIx::Custom::Model>.
-
-B<MyModel.pm>
-
-    package MyModel;
-    use DBIx::Custom::Model -base;
-    
-    1;
-
-Model modules, extending name space module.
-
-B<MyModel/book.pm>
-
-    package MyModel::book;
-    use MyModel -base;
-    
-    1;
-
-B<MyModel/company.pm>
-
-    package MyModel::company;
-    use MyModel -base;
-    
-    1;
-    
-MyModel::book and MyModel::company is included by C<include_model>.
-
-You can get model object by C<model>.
-
-    my $book_model = $dbi->model('book');
-    my $company_model = $dbi->model('company');
-
-See L<DBIx::Custom::Model> to know model features.
-
-=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});
-
-Merge parameters.
-
-    {key1 => [1, 1], key2 => 2}
-
-=head2 C<method>
-
-    $dbi->method(
-        update_or_insert => sub {
-            my $self = shift;
-            
-            # Process
-        },
-        find_or_create   => sub {
-            my $self = shift;
-            
-            # Process
-        }
-    );
-
-Register method. These method is called directly from L<DBIx::Custom> object.
-
-    $dbi->update_or_insert;
-    $dbi->find_or_create;
-
-=head2 C<model>
-
-    my $model = $dbi->model('book');
-
-Get a L<DBIx::Custom::Model> object,
-
-=head2 C<mycolumn>
-
-    my $column = $self->mycolumn(book => ['author', 'title']);
-
-Create column clause for myself. The follwoing column clause is created.
-
-    book.author as author,
-    book.title as title
-
-=head2 C<new>
-
-    my $dbi = DBIx::Custom->new(
-        dsn => "dbi:mysql:database=dbname",
-        user => 'ken',
-        password => '!LFKD%$&',
-        dbi_option => {mysql_enable_utf8 => 1}
-    );
-
-Create a new L<DBIx::Custom> object.
-
-=head2 C<not_exists>
-
-    my $not_exists = $dbi->not_exists;
-
-DBIx::Custom::NotExists object, indicating the column is not exists.
-This is used by C<clause> of L<DBIx::Custom::Where> .
-
-=head2 C<order> EXPERIMENTAL
-
-    my $order = $dbi->order;
-
-Create a new L<DBIx::Custom::Order> object.
-
-=head2 C<register_filter>
-
-    $dbi->register_filter(
-        # Time::Piece object to database DATE format
-        tp_to_date => sub {
-            my $tp = shift;
-            return $tp->strftime('%Y-%m-%d');
-        },
-        # database DATE format to Time::Piece object
-        date_to_tp => sub {
-           my $date = shift;
-           return Time::Piece->strptime($date, '%Y-%m-%d');
-        }
-    );
-    
-Register filters, used by C<filter> option of many methods.
-
-=head2 C<type_rule> EXPERIMENTAL
-
-    $dbi->type_rule(
-        into1 => {
-            date => sub { ... },
-            datetime => sub { ... }
-        },
-        into2 => {
-            date => sub { ... },
-            datetime => sub { ... }
-        },
-        from1 => {
-            # DATE
-            9 => sub { ... },
-            # DATETIME or TIMESTAMP
-            11 => sub { ... },
-        }
-        from2 => {
-            # DATE
-            9 => sub { ... },
-            # DATETIME or TIMESTAMP
-            11 => sub { ... },
-        }
-    );
-
-Filtering rule when data is send into and get from database.
-This has a little complex problem.
-
-In C<into1> and C<into2> you can specify
-type name as same as type name defined
-by create table, such as C<DATETIME> or C<DATE>.
-
-Note that type name and data type don't contain upper case.
-If these contain upper case charactor, you convert it to lower case.
-
-C<into2> is executed after C<into1>.
-
-Type rule of C<into1> and C<into2> is enabled on the following
-column name.
-
-=over 4
-
-=item 1. column name
-
-    issue_date
-    issue_datetime
-
-This need C<table> option in each method.
-
-=item 2. table name and column name, separator is dot
-
-    book.issue_date
-    book.issue_datetime
-
-=back
-
-You get all type name used in database by C<available_type_name>.
-
-    print $dbi->available_type_name;
-
-In C<from1> and C<from2> you specify data type, not type name.
-C<from2> is executed after C<from1>.
-You get all data type by C<available_data_type>.
-
-    print $dbi->available_data_type;
-
-You can also specify multiple types at once.
-
-    $dbi->type_rule(
-        into1 => [
-            [qw/DATE DATETIME/] => sub { ... },
-        ],
-    );
-
-=head2 C<select>
-
-    my $result = $dbi->select(
-        table  => 'book',
-        column => ['author', 'title'],
-        where  => {author => 'Ken'},
-    );
-    
-Execute select statement.
-
-The following opitons are available.
-
-=over 4
-
-=item C<append>
-
-    append => 'order by title'
-
-Append statement to last of SQL.
-    
-=item C<column>
-    
-    column => 'author'
-    column => ['author', 'title']
-
-Column clause.
-    
-if C<column> is not specified, '*' is set.
-
-    column => '*'
-
-You can specify hash of array reference.
-
-    column => [
-        {book => [qw/author title/]},
-        {person => [qw/name age/]}
-    ]
-
-This is expanded to the following one by using C<colomn> method.
-
-    book.author as "book.author",
-    book.title as "book.title",
-    person.name as "person.name",
-    person.age as "person.age"
-
-You can specify array of array reference, first argument is
-column name, second argument is alias.
-
-    column => [
-        ['date(book.register_datetime)' => 'book.register_date']
-    ];
-
-Alias is quoted properly and joined.
-
-    date(book.register_datetime) as "book.register_date"
-
-=item C<filter>
-
-Same as C<execute> method's C<filter> option.
-
-=item C<id>
-
-    id => 4
-    id => [4, 5]
-
-ID corresponding to C<primary_key>.
-You can select rows by C<id> and C<primary_key>.
-
-    $dbi->select(
-        parimary_key => ['id1', 'id2'],
-        id => [4, 5],
-        table => 'book'
-    );
-
-The above is same as the followin one.
-
-    $dbi->select(
-        where => {id1 => 4, id2 => 5},
-        table => 'book'
-    );
-    
-=item C<param> EXPERIMETNAL
-
-    param => {'table2.key3' => 5}
-
-Parameter shown before where clause.
-    
-For example, if you want to contain tag in join clause, 
-you can pass parameter by C<param> option.
-
-    join  => ['inner join (select * from table2 where table2.key3 = :table2.key3)' . 
-              ' as table2 on table1.key1 = table2.key1']
-
-=itme C<prefix>
-
-    prefix => 'SQL_CALC_FOUND_ROWS'
-
-Prefix of column cluase
-
-    select SQL_CALC_FOUND_ROWS title, author from book;
-
-=item C<join>
-
-    join => [
-        'left outer join company on book.company_id = company_id',
-        'left outer join location on company.location_id = location.id'
-    ]
-        
-Join clause. If column cluase or where clause contain table name like "company.name",
-join clausees needed when SQL is created is used automatically.
-
-    $dbi->select(
-        table => 'book',
-        column => ['company.location_id as location_id'],
-        where => {'company.name' => 'Orange'},
-        join => [
-            'left outer join company on book.company_id = company.id',
-            'left outer join location on company.location_id = location.id'
-        ]
-    );
-
-In above select, column and where clause contain "company" table,
-the following SQL is created
-
-    select company.location_id as location_id
-    from book
-      left outer join company on book.company_id = company.id
-    where company.name = ?;
-
-You can specify two table by yourself. This is useful when join parser can't parse
-the join clause correctly. This is EXPERIMENTAL.
-
-    $dbi->select(
-        table => 'book',
-        column => ['company.location_id as location_id'],
-        where => {'company.name' => 'Orange'},
-        join => [
-            {
-                clause => 'left outer join location on company.location_id = location.id',
-                table => ['company', 'location']
-            }
-        ]
-    );
-
-=item C<primary_key>
-
-    primary_key => 'id'
-    primary_key => ['id1', 'id2']
-
-Primary key. This is used by C<id> option.
-
-=item C<query>
-
-Same as C<execute> method's C<query> option.
-
-=item C<bind_type>
-
-Same as C<execute> method's C<bind_type> option.
-
-=item C<table>
-
-    table => 'book'
-
-Table name.
-
-=item C<type_rule_off> EXPERIMENTAL
-
-Same as C<execute> method's C<type_rule_off> option.
-
-=item C<type_rule1_off> EXPERIMENTAL
-
-    type_rule1_off => 1
-
-Same as C<execute> method's C<type_rule1_off> option.
-
-=item C<type_rule2_off> EXPERIMENTAL
-
-    type_rule2_off => 1
-
-Same as C<execute> method's C<type_rule2_off> option.
-
-=item C<where>
-    
-    # Hash refrence
-    where => {author => 'Ken', 'title' => 'Perl'}
-    
-    # DBIx::Custom::Where object
-    where => $dbi->where(
-        clause => ['and', 'author = :author', 'title like :title'],
-        param  => {author => 'Ken', title => '%Perl%'}
-    );
-    
-    # Array reference 1 (array reference, hash referenc). same as above
-    where => [
-        ['and', 'author = :author', 'title like :title'],
-        {author => 'Ken', title => '%Perl%'}
-    ];    
-    
-    # Array reference 2 (String, hash reference)
-    where => [
-        'title like :title',
-        {title => '%Perl%'}
-    ]
-    
-    # String
-    where => 'title is null'
-
-Where clause.
-    
-=item C<wrap> EXPERIMENTAL
-
-Wrap statement. This is array reference.
-
-    $dbi->select(wrap => ['select * from (', ') as t where ROWNUM < 10']);
-
-This option is for Oracle and SQL Server paging process.
-
-=back
-
-=head2 C<update>
-
-    $dbi->update({title => 'Perl'}, table  => 'book', where  => {id => 4});
-
-Execute update statement. First argument is update row data.
-
-If you want to set constant value to row data, use scalar reference
-as parameter value.
-
-    {date => \"NOW()"}
-
-The following opitons are available.
-
-=over 4
-
-=item C<append>
-
-Same as C<select> method's C<append> option.
-
-=item C<filter>
-
-Same as C<execute> method's C<filter> option.
-
-=item C<id>
-
-    id => 4
-    id => [4, 5]
-
-ID corresponding to C<primary_key>.
-You can update rows by C<id> and C<primary_key>.
-
-    $dbi->update(
-        {title => 'Perl', author => 'Ken'}
-        parimary_key => ['id1', 'id2'],
-        id => [4, 5],
-        table => 'book'
-    );
-
-The above is same as the followin one.
-
-    $dbi->update(
-        {title => 'Perl', author => 'Ken'}
-        where => {id1 => 4, id2 => 5},
-        table => 'book'
-    );
-
-=item C<prefix>
-
-    prefix => 'or replace'
-
-prefix before table name section
-
-    update or replace book
-
-=item C<primary_key>
-
-    primary_key => 'id'
-    primary_key => ['id1', 'id2']
-
-Primary key. This is used by C<id> option.
-
-=item C<query>
-
-Same as C<execute> method's C<query> option.
-
-=item C<table>
-
-    table => 'book'
-
-Table name.
-
-=item C<where>
-
-Same as C<select> method's C<where> option.
-
-=item C<bind_type>
-
-Same as C<execute> method's C<bind_type> option.
-
-=item C<type_rule_off> EXPERIMENTAL
-
-Same as C<execute> method's C<type_rule_off> option.
-
-=item C<type_rule1_off> EXPERIMENTAL
-
-    type_rule1_off => 1
-
-Same as C<execute> method's C<type_rule1_off> option.
-
-=item C<type_rule2_off> EXPERIMENTAL
-
-    type_rule2_off => 1
-
-Same as C<execute> method's C<type_rule2_off> option.
-
-=back
-
-=head2 C<update_all>
-
-    $dbi->update_all({title => 'Perl'}, table => 'book', );
-
-Execute update statement for all rows.
-Options is same as C<update> method.
-
-=head2 C<update_param>
-
-    my $update_param = $dbi->update_param({title => 'a', age => 2});
-
-Create update parameter tag.
-
-    set title = :title, author = :author
-
-=head2 C<where>
-
-    my $where = $dbi->where(
-        clause => ['and', 'title = :title', 'author = :author'],
-        param => {title => 'Perl', author => 'Ken'}
-    );
-
-Create a new L<DBIx::Custom::Where> object.
-
-=head2 C<setup_model>
-
-    $dbi->setup_model;
-
-Setup all model objects.
-C<columns> of model object is automatically set, parsing database information.
-
-=head1 ENVIRONMENT VARIABLE
-
-=head2 C<DBIX_CUSTOM_DEBUG>
-
-If environment variable C<DBIX_CUSTOM_DEBUG> is set to true,
-executed SQL and bind values are printed to STDERR.
-
-=head2 C<DBIX_CUSTOM_DEBUG_ENCODING>
-
-DEBUG output encoding. Default to UTF-8.
-
-=head1 DEPRECATED FUNCTIONALITIES
-
-L<DBIx::Custom>
-
-    # Attribute methods
-    data_source # will be removed at 2017/1/1
-    dbi_options # will be removed at 2017/1/1
-    filter_check # will be removed at 2017/1/1
-    reserved_word_quote # will be removed at 2017/1/1
-    cache_method # will be removed at 2017/1/1
-    
-    # Methods
-    create_query # will be removed at 2017/1/1
-    apply_filter # will be removed at 2017/1/1
-    select_at # will be removed at 2017/1/1
-    delete_at # will be removed at 2017/1/1
-    update_at # will be removed at 2017/1/1
-    insert_at # will be removed at 2017/1/1
-    register_tag # will be removed at 2017/1/1
-    default_bind_filter # will be removed at 2017/1/1
-    default_fetch_filter # will be removed at 2017/1/1
-    insert_param_tag # will be removed at 2017/1/1
-    register_tag_processor # will be removed at 2017/1/1
-    update_param_tag # will be removed at 2017/1/1
-    
-    # Options
-    select method relation option # will be removed at 2017/1/1
-    select method param option # will be removed at 2017/1/1
-    select method column option [COLUMN, as => ALIAS] format
-      # will be removed at 2017/1/1
-    
-    # Others
-    execute("select * from {= title}"); # execute method's
-                                        # tag parsing functionality
-                                        # will be removed at 2017/1/1
-    Query caching # will be removed at 2017/1/1
-
-L<DBIx::Custom::Model>
-
-    # Attribute methods
-    filter # will be removed at 2017/1/1
-    name # will be removed at 2017/1/1
-    type # will be removed at 2017/1/1
-
-L<DBIx::Custom::Query>
-    
-    # Attribute methods
-    default_filter # will be removed at 2017/1/1
-    table # will be removed at 2017/1/1
-    filters # will be removed at 2017/1/1
-    
-    # Methods
-    filter # will be removed at 2017/1/1
-
-L<DBIx::Custom::QueryBuilder>
-    
-    # Attribute methods
-    tags # will be removed at 2017/1/1
-    tag_processors # will be removed at 2017/1/1
-    
-    # Methods
-    register_tag # will be removed at 2017/1/1
-    register_tag_processor # will be removed at 2017/1/1
-    
-    # Others
-    build_query("select * from {= title}"); # tag parsing functionality
-                                            # will be removed at 2017/1/1
-
-L<DBIx::Custom::Result>
-    
-    # Attribute methods
-    filter_check # will be removed at 2017/1/1
-    
-    # Methods
-    end_filter # will be removed at 2017/1/1
-    remove_end_filter # will be removed at 2017/1/1
-    remove_filter # will be removed at 2017/1/1
-    default_filter # will be removed at 2017/1/1
-
-L<DBIx::Custom::Tag>
-
-    This module is DEPRECATED! # will be removed at 2017/1/1
-
-=head1 BACKWORD COMPATIBLE POLICY
-
-If a functionality is DEPRECATED, you can know it by DEPRECATED warnings
-except for attribute method.
-You can check all DEPRECATED functionalities by document.
-DEPRECATED functionality is removed after five years,
-but if at least one person use the functionality and tell me that thing
-I extend one year each time he tell me it.
-
-EXPERIMENTAL functionality will be changed without warnings.
-
-This policy was changed at 2011/6/28
-
-=head1 BUGS
-
-Please tell me bugs if found.
-
-C<< <kimoto.yuki at gmail.com> >>
-
-L<http://github.com/yuki-kimoto/DBIx-Custom>
-
-=head1 AUTHOR
-
-Yuki Kimoto, C<< <kimoto.yuki at gmail.com> >>
-
-=head1 COPYRIGHT & LICENSE
-
-Copyright 2009-2011 Yuki Kimoto, all rights reserved.
-
-This program is free software; you can redistribute it and/or modify it
-under the same terms as Perl itself.
-
-=cut

-603

DBIx-Custom-0.1711/DBIx-Custom-0.1711/lib/DBIx/Custom/Guide.pod

View

@@ -1,603 +0,0 @@
-=encoding utf8
-
-=head1 NAME
-
-DBIx::Custom::Guide - DBIx::Custom Guide
-
-=head1 FEATURES
-
-L<DBIx::Custom> is the wrapper class of L<DBI> to execute SQL easily.
-This module have the following features.
-
-=over 4
-
-=item * Execute INSERT, UPDATE, DELETE, SELECT statement easily
-
-=item * You can specify bind values by hash reference
-
-=item * Filtering by data type. and you can set filter to any column
-
-=item * Creating where clause and order by clause flexibly
-
-=item * Support model
-
-=back
-
-=head1 GUIDE
-
-=head2 Connect to database
-
-    use DBIx::Custom;
-    my $dbi = DBIx::Custom->connect(
-        dsn => "dbi:mysql:database=bookshop",
-        user => 'ken',
-        password => '!LFKD%$&',
-        dbi_option => {mysql_enable_utf8 => 1}
-    );
-
-You can connect to database by C<connect> method.
-C<dsn> is data source name, C<user> is user name, C<password> is password.
-
-C<dbi_option> is L<DBI> option.
-By default, the following option is set.
-Exeption is thrown when fatal error occur and commit mode is auto commit.
-
-    {
-        RaiseError  =>  1
-        PrintError  =>  0
-        AutoCommit  =>  1
-    }
-
-=head2 Execute query
-
-=head3 Insert Statement : C<insert>
-
-If you want to execute insert statement, use C<insert> method.
-
-    $dbi->insert({title => 'Perl', author => 'Ken'}, table  => 'book');
-
-First argument is insert row data, C<table>  is table name.
-
-=head3 Update Statement : C<update>
-
-If you want to execute update stateimuse, use C<update> method.
-
-    $dbi->update(
-        {title => 'Perl', author => 'Ken'},
-        table  => 'book', 
-        where  => {id => 5}
-    );
-
-First argument is update row data, C<table> is table name, C<where> is condition.
-
-Note that you can't execute C<update> method without C<where>.
-If you want to update all rows, use update_all.
-
-    $dbi->update_all({title => 'Perl', author => 'Ken'}, table  => 'book');
-
-=head3 Delete Statement : C<delete>
-
-If you want to execute delete statement, use C<delete> method.
-
-    $dbi->delete(table  => 'book', where  => {author => 'Ken'});
-
-C<table> is table name, C<where> is condition.
-
-Note that you can't execute C<delete> method without C<where>.
-If you want to delete all rows, use C<delete_all> method.
-
-    $dbi->delete_all(table  => 'book');
-
-=head3 Select Statement : C<select>
-
-If you want to execute select statement, use C<select> method.
-
-    my $result = $dbi->select(table => 'book');
-
-Return value is L<DBIx::Custom::Result> object.
-You can fetch rows by C<fetch> method.
-
-    while (my $row = $result->fetch) {
-        my $title  = $row->[0];
-        my $author = $row->[1];
-    }
-
-See also L<Fetch row/"Fetch row"> about L<DBIx::Custom::Result>.
-
-You can specify column names by C<column> option
-and condition by C<where> option.
-
-    my $result = $dbi->select(
-        table  => 'book',
-        column => ['author',  'title'],
-        where  => {author => 'Ken'}
-    );
-
-You can specify join clause by C<join> option.
-
-    my $result = $dbi->select(
-        table  => 'book',
-        column => ['company.name as company_name']
-        where  => {'book.name' => 'Perl'},
-        join   => ['left outer join company on book.company_id = company.id]
-    );
-
-Note that join clause is joined only when C<where> or C<column> option contains table name,
-such as book.name.
-
-You can append statement to the end of whole statement by C<append> option.
-
-    my $result = $dbi->select(
-        table  => 'book',
-        where  => {author => 'Ken'},
-        append => 'for update',
-    );
-
-=head3 C<execute>
-
-If you want to execute SQL, use C<execute> method.
-
-    $dbi->execute("select * from book;");
-
-You can specify named placeholder.
-
-    $dbi->execute(
-        "select * from book title = :title and author = :author;"
-        {title => 'Perl', author => 'Ken'}
-    );
-
-:title and :author is named placeholder, which is replaced to placeholers.
-
-    select * from book title = ? and author = ?;
-
-=head3 C<dbh>
-
-    my $dbh = $dbi->dbh;
-
-Get get database handle object of L<DBI>.
-
-=head3 C<DBI> methods
-
-    $dbi->do(...);
-    $dbi->begin_work;
-
-You can call all methods of L<DBI> from L<DBIx::Custom> object.
-
-=head2 Fetch Rows
-
-C<select> method return value is L<DBIx::Custom::Result> object.
-You can fetch a row or rows by various methods.
-
-=head3 Fetch a row (array) : C<fetch>
-
-    my $row = $result->fetch;
-
-C<fetch> method fetch a row and put it into array reference.
-You can continue to fetch 
-
-    while (my $row = $result->fetch) {
-        my $title  = $row->[0];
-        my $author = $row->[1];
-    }
-
-=head3 Fetch only first row (array) : C<fetch_first>
-
-    my $row = $result->fetch_first;
-
-C<fetch_first> fetch a only first row and finish statment handle,
-and put it into array refrence.
-
-=head3 Fetch all rows (array) : C<fetch_all>
-
-    my $rows = $result->fetch_all;
-
-C<fetch_all> fetch all rows and put them into array of array reference.
-
-=head3 Fetch a row (hash) : C<fetch_hash>
-
-    my $row = $result->fetch_hash;
-
-C<fetch_hash> fetch a row and put it into hash reference.
-You can fetch a row while row exists.
-
-    while (my $row = $result->fetch_hash) {
-        my $title  = $row->{title};
-        my $author = $row->{author};
-    }
-
-=head3 Fetch only a first row (hash) : C<fetch_hash_first>
-
-    my $row = $result->fetch_hash_first;
-
-C<fetch_hash_first> fetch only a first row and finish statement handle,
-and put them into hash refrence.
-
-C<one> is C<fetch_hash_first> synonym to save word typing.
-
-    my $row = $result->one;
-
-=head3 Fetch all rows (hash) : C<fetch_hash_all>
-
-    my $rows = $result->fetch_hash_all;
-
-C<fetch_hash_all> fetch all rows and put them into array of hash reference.
-
-=head3 Statement Handle : C<sth>
-
-    my $sth = $result->sth;
-
-If you want to get statment handle, use <sth> method.
-
-=head2 Named placeholder
-
-=head3 Basic of Parameter
-
-You can embedd named placeholder into SQL.
-
-    select * from book where title = :title and author like :author;
-
-:title and :author is named placeholder
-
-Named placeholder is replaced by place holder.
-
-    select * from book where title = ? and author like ?;
-
-use C<execute> to execute SQL.
-
-    my $sql = "select * from book where title = :title and author like :author;"
-    $dbi->execute($sql, {title => 'Perl', author => '%Ken%'});
-
-You can specify C<filter> at C<execute>.
-
-    $dbi->execute($sql, {title => 'Perl', author => '%Ken%'}
-                  filter => {title => 'to_something');
-
-=head3 Manipulate same name's columns
-
-It is ok if there are same name's columns.
-Let's think two date comparison.
-
-    my $sql = "select * from table where date > :date and date < :date;";
-
-In this case, You specify parameter values as array reference.
-
-    my $dbi->execute($sql, {date => ['2010-10-01', '2012-02-10']});
-
-=head2 Create where clause
-
-=head3 Dinamically create where clause : where
-
-You want to search multiple conditions in many times.
-Let's think the following three cases.
-
-Case1: Search only C<title>
-
-    where title = :title
-
-Case2: Search only C<author>
-
-    where author = :author
-
-Case3: Search C<title> and C<author>
-
-    where title = :title and author = :author
-
-L<DBIx::Custom> support dinamic where clause creating.
-At first, create L<DBIx::Custom::Where> object by C<where>.
-
-    my $where = $dbi->where;
-
-Set clause by C<clause>
-
-    $where->clause(
-        ['and', 'title = :title, 'author = :author']
-    );
-
-C<clause> is the following format.
-
-    ['or' or 'and', PART1, PART1, PART1]
-
-First argument is 'or' or 'and'.
-Later than first argument are part which contains named placeholder.
-
-You can write more complex format.
-
-    ['and', 
-      'title = :title', 
-      ['or', 'author = :author', 'date like :date']
-    ]
-
-This mean "title = :title and ( author = :author or date like :date )".
-
-After setting C<clause>, set C<param>.
-    
-    $where->param({title => 'Perl'});
-
-In this example, parameter contains only title.
-
-If you execute C<string_to>, you can get where clause
-which contain only named placeholder.
-
-    my $where_clause = $where->to_string;
-
-Parameter name is only title, the following where clause is created.
-
-    where title = :title
-
-You can also create where clause by stringification.
-
-    my $where_clause = "$where";
-
-This is useful to embbed it into SQL. 
-
-=head3 In case where clause contains same name columns
-
-Even if same name parameters exists, you can create where clause.
-Let's think that there are starting date and ending date.
-
-    my $param = {start_date => '2010-11-15', end_date => '2011-11-21'};
-
-In this case, you set parameter value as array reference.
-
-    my $p = {date => ['2010-11-15', '2011-11-21']};
-
-You can embbed these values into same name parameters.
-
-    $where->clause(
-        ['and', 'date > :date', 'date < :date']
-    );
-    $where->param($p);
-
-If starting date isn't exists, create the following parameter.
-
-    my $p = {date => [$dbi->not_exists, '2011-11-21']};
-
-You can get DBIx::Custom::NotExists object by C<not_exists>
-This mean correnspondinf value isn't exists.
-
-If ending date isn't exists, create the following parameter.
-
-    my $p = {date => ['2010-11-15']};
-
-If both date isn't exists, create the following parameter.
-
-    my $p = {date => []};
-
-This logic is a little difficut. See the following ones.
-
-    my @date;
-    push @date, exists $param->{start_date} ? $param->{start_date}
-                                            : $dbi->not_exists;
-    push @date, $param->{end_date} if exists $param->{end_date};
-    my $p = {date => \@date};
-
-=head3 With C<select>
-
-You can pass L<DBIx::Custom::Where> object to C<where> of C<select>.
-    
-    my $where = $dbi->where;
-    $where->clause(['and', 'title = :title', 'author = :author']);
-    $where->param({title => 'Perl'});
-    my $result = $dbi->select(table => 'book', where => $where);
-
-You can also pass it to C<where> of C<update>AC<delete>
-
-=head3 With C<execute>
-
-L<DBIx::Custom::Where> object is embedded into SQL.
-
-    my $where = $dbi->where;
-    $where->clause(['and', 'title = :title', 'author = :author']);
-    $where->param({title => 'Perl'});
-
-    my $sql = <<"EOS";
-    select * from book;
-    $where
-    EOS
-
-    $dbi->execute($sql, $param, table => 'book');
-
-=head2 Filtering
-
-=head3 Register filter : C<register_filter>
-
-If you want to register filter, use C<register_filter>.
-
-    $dbi->register_filter(
-        # Time::Piece object to DATE format
-        tp_to_date => sub {
-            my $date = shift;
-            return $tp->strftime('%Y-%m-%d');
-        },
-        
-        # DATE to Time::Piece object
-        date_to_tp => sub {
-            my $date = shift;
-            return Time::Piece->strptime($date, '%Y-%m-%d');
-        },
-    );
-
-=head3 Filter before sending data into database : C<filter> option
-
-If you filter sending data, use C<filter> option.
-
-    $dbi->execute(
-        'insert into book (date) values (:date)',
-        {date => $tp},
-        filter => {date => 'tp_to_date'}
-    );
-
-You can use C<filter> option in C<insert>, C<update>, C<delete>, C<select> method.
-
-    $dbi->insert(
-        {date => $tp},
-        table => 'book',
-        filter => {date => 'tp_to_date'}
-    );
-
-=head3 Filter after fetching data from database.
-
-If you filter fetch data, use L<DBIx::Custom::Result>'s C<filter> method.
-
-    my $result = $dbi->select(column => 'date', table => 'book');
-    $result->filter(date => 'date_to_tp');
-    my $row = $result->one;
-
-=head2 7. Model
-
-=head3 Model
-
-you can define model extending L<DBIx::Custom::Model>
-to improve source code view.
-
-At first, you create basic model class extending <DBIx::Custom::Model>.
-Each L<DBIx::Custom> class inherit L<Object::Simple>.
-so you can inherit the following way.
-
-    package MyModel;
-    use DBIx::Custom::Model -base;
-
-Next, you create each model classes.
-
-MyModel::book
-
-    package MyModel::book;
-    use MyModel -base;
-    
-    sub insert { ... }
-    sub list { ... }
-
-MyModel::company
-
-    package MyModel::company;
-    use MyModel -base;
-    
-    sub insert { ... }
-    sub list { ... }
-
-The follwoing modules location is needed.
-
-    MyModel.pm
-    MyModel / book.pm
-            / company.pm
-
-You can include these models by C<include_model>
-
-    $dbi->include_model('MyModel');
-
-First argument is name space of model.
-
-You can use model like this.
-
-    my $result = $dbi->model('book')->list;
-
-In mode, You can use such as methods,
-C<insert>, C<update>, C<update_all>,
-C<delete>, C<delete_all>, C<select>
-without C<table> option.
-
-    $dbi->model('book')->insert($param);
-
-Model is L<DBIx::Custom::Model>.
-
-If you need table nameAyou can get it by C<table>.
-
-    my $table = $model->table;
-
-You can get L<DBIx::Custom>.
-
-    my $dbi = $model->dbi;
-
-You can also call all methods of L<DBIx::Custom> and L<DBI>. 
-
-    # DBIx::Custom method
-    $model->execute($sql);
-    
-    # DBI method
-    $model->begin_work;
-    $model->commit;
-
-If you want to get all models, you can get them by keys of C<models>.
-
-    my @models = keys %{$self->models};
-
-You can set primary key to model.
-
-   $model->primary_key(['id', 'number_id']);
-
-Primary key is used by C<insert>, C<update>, C<delete>,
-and C<select> methods.
-
-You can set column names
-
-    $model->columns(['id', 'number_id']);
-
-Column names is automarically set by C<setup_model>.
-This method is needed to be call after C<include_model>.
-
-    $dbi->setup_model;
-
-You can set C<join>
-
-    $model->join(['left outer join company on book.company_id = company.id']);
-
-C<join> is used by C<select> method.
-
-=head2 Create column clause automatically : mycolumn, column
-
-To create column clause automatically, use C<mycolumn>.
-Valude of C<table> and C<columns> is used.
-
-    my $mycolumns = $model->mycolumn;
-
-If C<table> is 'book'AC<column> is ['id', 'name'],
-the following clause is created.
-
-    book.id as id, book.name as name
-
-These column name is for removing column name ambiguities.
-
-You can create column clause from columns of other table.
-
-    my $columns = $model->column('company');
-
-If C<table> is "company", C<column> return ['id', 'name'],
-the following clause is created.
-
-    company.id as "company.id", company.name as "company.name"
-
-=head2 Model Examples
-
-Model examples
-
-    package MyDBI;
-    use DBIx::Custom -base;
-    
-    sub connect {
-        my $self = shift->SUPER::connect(@_);
-        
-        $self->include_model(
-            MyModel => [
-                'book',
-                'company'
-            ]
-        );
-    }
-    
-    package MyModel::book;
-    use DBIx::Custom::Model -base;
-    
-    has primary_key => sub { ['id'] };
-    
-    sub insert { ... }
-    sub list { ... }
-    
-    package MyModel::company;
-    use DBIx::Custom::Model -base;
-
-    has primary_key => sub { ['id'] };
-    
-    sub insert { ... }
-    sub list { ... }
-
-=cut

-13

DBIx-Custom-0.1711/DBIx-Custom-0.1711/lib/DBIx/Custom/Guide/Ja.pod

View

...	...	@@ -1,13 +0,0 @@
1		-=encoding utf8
2		-
3		-=head1 NAME
4		-
5		-DBIx::Custom::Guide - DBIx::Customガイド
6		-
7		-=head1 LINK
8		-
9		-ドキュメントは以下のリンクに移動しました。
10		-
11		-L<http://d.hatena.ne.jp/perlcodesample/20110401/1305597081>
12		-
13		-=cut

-116

DBIx-Custom-0.1711/DBIx-Custom-0.1711/lib/DBIx/Custom/Query.pm

View

@@ -1,116 +0,0 @@
-package DBIx::Custom::Query;
-use Object::Simple -base;
-
-use Carp 'croak';
-use DBIx::Custom::Util '_subname';
-
-has 'sth',
-    sql => '',
-    columns => sub { [] };
-
-# DEPRECATED!
-has 'default_filter';
-sub filters {
-    warn "DBIx::Custom::Query filters attribute method is DEPRECATED!";
-    my $self = shift;
-    if (@_) {
-        $self->{filters} = $_[0];
-        return $self;
-    }
-    return $self->{filters};
-}
-
-# DEPRECATED!
-sub tables {
-    warn "DBIx::Custom::Query tables attribute method is DEPRECATED!";
-    my $self = shift;
-    if (@_) {
-        $self->{tables} = $_[0];
-        return $self;
-    }
-    return $self->{tables} ||= [];
-}
-
-#DEPRECATED!
-sub filter {
-    Carp::carp "DBIx::Custom::Query filter method is DEPRECATED!";
-    my $self = shift;
-    if (@_) {
-        my $filter = {};
-        if (ref $_[0] eq 'HASH') {
-            $filter = $_[0];
-        }
-        else {
-            my $ef = @_ > 1 ? [@_] : $_[0];
-            for (my $i = 0; $i < @$ef; $i += 2) {
-                my $column = $ef->[$i];
-                my $f = $ef->[$i + 1];
-                if (ref $column eq 'ARRAY') {
-                    foreach my $c (@$column) {
-                        $filter->{$c} = $f;
-                    }
-                }
-                else {
-                    $filter->{$column} = $f;
-                }
-            }
-        }
-        foreach my $column (keys %$filter) {
-            my $fname = $filter->{$column};
-            if  (exists $filter->{$column}
-              && defined $fname
-              && ref $fname ne 'CODE') 
-            {
-                my $filters = $self->{filters} || {};
-                croak qq{Filter "$fname" is not registered" } . _subname
-                  unless exists $filters->{$fname};
-                $filter->{$column} = $filters->{$fname};
-            }
-        }
-        $self->{filter} = {%{$self->{filter} || {}}, %$filter};
-        return $self;
-    }
-    return $self->{filter} ||= {};
-}
-
-1;
-
-=head1 NAME
-
-DBIx::Custom::Query - Query
-
-=head1 SYNOPSIS
-    
-    my $query = DBIx::Custom::Query->new;
-    my $sth = $query->sth;
-    my $sql = $query->sql;
-    my $columns = $query->columns;
-    
-=head1 ATTRIBUTES
-
-=head2 C<columns>
-
-    my $columns = $query->columns;
-    $query      = $query->columns(['auhtor', 'title']);
-
-Column names.
-
-=head2 C<sql>
-
-    my $sql = $query->sql;
-    $query  = $query->sql('select * from books where author = ?;');
-
-SQL statement.
-
-=head2 C<sth>
-
-    my $sth = $query->sth;
-    $query  = $query->sth($sth);
-
-Statement handle of L<DBI>
-
-=head1 METHODS
-
-L<DBIx::Custom::Query> inherits all methods from L<Object::Simple>.
-
-=cut

-329

DBIx-Custom-0.1711/DBIx-Custom-0.1711/lib/DBIx/Custom/QueryBuilder.pm

View

@@ -1,329 +0,0 @@
-package DBIx::Custom::QueryBuilder;
-
-use Object::Simple -base;
-
-use Carp 'croak';
-use DBIx::Custom::Query;
-use DBIx::Custom::Util '_subname';
-
-# Carp trust relationship
-push @DBIx::Custom::CARP_NOT, __PACKAGE__;
-push @DBIx::Custom::Where::CARP_NOT, __PACKAGE__;
-
-has 'dbi';
-
-sub build_query {
-    my ($self, $source) = @_;
-    
-    my $query;
-    
-    # Parse tag. tag is DEPRECATED!
-    if ($self->dbi->tag_parse && $source =~ /(\s|^)\{/) {
-        $query = $self->_parse_tag($source);
-        my $tag_count = delete $query->{tag_count};
-        warn qq/Tag system such as {? name} is DEPRECATED! / .
-             qq/use parameter system such as :name instead/
-          if $tag_count;
-        my $query2 = $self->_parse_parameter($query->sql);
-        $query->sql($query2->sql);
-        for (my $i =0; $i < @{$query->columns}; $i++) {
-            my $column = $query->columns->[$i];
-            if ($column eq 'RESERVED_PARAMETER') {
-                my $column2 = shift @{$query2->columns};
-                croak ":name syntax is wrong"
-                  unless defined $column2;
-                $query->columns->[$i] = $column2;
-            }
-        }
-    }
-    
-    # Parse parameter
-    else { $query = $self->_parse_parameter($source) }
-    
-    my $sql = $query->sql;
-    $sql .= ';' unless $source =~ /;$/;
-    $query->sql($sql);
-
-    # Check placeholder count
-    croak qq{Placeholder count in "$sql" must be same as column count}
-        . _subname
-      unless $self->_placeholder_count($sql) eq @{$query->columns};
-        
-    return $query;
-}
-
-sub _placeholder_count {
-    my ($self, $sql) = @_;
-    
-    # Count
-    $sql ||= '';
-    my $count = 0;
-    my $pos   = -1;
-    while (($pos = index($sql, '?', $pos + 1)) != -1) {
-        $count++;
-    }
-    return $count;
-}
-
-sub _parse_parameter {
-    my ($self, $source) = @_;
-    
-    # Get and replace parameters
-    my $sql = $source || '';
-    my $columns = [];
-    my $c = $self->dbi->safety_character;
-    # Parameter regex
-    $sql =~ s/([^:]):(\d+):([^:])/$1\\:$2\\:$3/g;
-    my $re = qr/(^|.*?[^\\]):([$c\.]+)(?:\{(.*?)\})?(.*)/s;
-    while ($sql =~ /$re/g) {
-        push @$columns, $2;
-        $sql = defined $3 ? "$1$2 $3 ?$4" : "$1?$4";
-    }
-    $sql =~ s/\\:/:/g;
-
-    # Create query
-    my $query = DBIx::Custom::Query->new(
-        sql => $sql,
-        columns => $columns
-    );
-    
-    return $query;
-}
-    
-# DEPRECATED!
-has tags => sub { {} };
-
-# DEPRECATED!
-sub register_tag {
-    my $self = shift;
-    
-    warn "register_tag is DEPRECATED!";
-    
-    # Merge tag
-    my $tags = ref $_[0] eq 'HASH' ? $_[0] : {@_};
-    $self->tags({%{$self->tags}, %$tags});
-    
-    return $self;
-}
-
-# DEPRECATED!
-sub _parse_tag {
-    my ($self, $source) = @_;
-    # Source
-    $source ||= '';
-    # Tree
-    my @tree;
-    # Value
-    my $value = '';
-    # State
-    my $state = 'text';
-    # Before charactor
-    my $before = '';
-    # Position
-    my $pos = 0;
-    # Parse
-    my $original = $source;
-    my $tag_count = 0;
-    while (defined(my $c = substr($source, $pos, 1))) {
-        # Last
-        last unless length $c;
-        # Parameter
-        if ($c eq ':' && (substr($source, $pos + 1, 1) || '') =~ /\w/) {
-            push @tree, {type => 'param'};;
-        }
-        # State is text
-        if ($state eq 'text') {
-            # Tag start charactor
-            if ($c eq '{') {
-                # Escaped charactor
-                if ($before eq "\\") {
-                    substr($value, -1, 1, '');
-                    $value .= $c;
-                }
-                # Tag start
-                else {
-                    # Change state
-                    $state = 'tag';
-                    # Add text
-                    push @tree, {type => 'text', value => $value}
-                      if $value;
-                    # Clear
-                    $value = '';
-                }
-            }
-            # Tag end charactor
-            elsif ($c eq '}') {
-                # Escaped charactor
-                if ($before eq "\\") {
-                    substr($value, -1, 1, '');
-                    $value .= $c;
-                }
-                # Unexpected
-                else {
-                    croak qq{Parsing error. unexpected "\}". }
-                        . qq{pos $pos of "$original" } . _subname
-                }
-            }
-            # Normal charactor
-            else { $value .= $c }
-        }
-        # State is tags
-        else {
-            # Tag start charactor
-            if ($c eq '{') {
-                # Escaped charactor
-                if ($before eq "\\") {
-                    substr($value, -1, 1, '');
-                    $value .= $c;
-                }
-                # Unexpected
-                else {
-                    croak qq{Parsing error. unexpected "\{". }
-                        . qq{pos $pos of "$original" } . _subname
-                }
-            }
-            # Tag end charactor
-            elsif ($c eq '}') {
-                # Escaped charactor
-                if ($before eq "\\") {
-                    substr($value, -1, 1, '');
-                    $value .= $c;
-                }
-                # Tag end
-                else {
-                    # Change state
-                    $state = 'text';
-                    # Add tag
-                    my ($tag_name, @tag_args) = split /\s+/, $value;
-                    push @tree, {type => 'tag', tag_name => $tag_name, 
-                                 tag_args => \@tag_args};
-                    # Clear
-                    $value = '';
-                    # Countup
-                    $tag_count++;
-                }
-            }
-            # Normal charactor
-            else { $value .= $c }
-        }
-        # Save before charactor
-        $before = $c;
-        # increment position
-        $pos++;
-    }
-    # Tag not finished
-    croak qq{Tag not finished. "$original" } . _subname
-      if $state eq 'tag';
-    # Not contains tag
-    return DBIx::Custom::Query->new(sql => $source, tag_count => $tag_count)
-      if $tag_count == 0;
-    # Add rest text
-    push @tree, {type => 'text', value => $value}
-      if $value;
-    # SQL
-    my $sql = '';
-    # All Columns
-    my $all_columns = [];
-    # Tables
-    my $tables = [];
-    # Build SQL 
-    foreach my $node (@tree) {
-        # Text
-        if ($node->{type} eq 'text') { $sql .= $node->{value} }
-        # Parameter
-        elsif ($node->{type} eq 'param') {
-            push @$all_columns, 'RESERVED_PARAMETER';
-        }
-        # Tag
-        else {
-            # Tag name
-            my $tag_name = $node->{tag_name};
-            # Tag arguments
-            my $tag_args = $node->{tag_args};
-            # Table
-            if ($tag_name eq 'table') {
-                my $table = $tag_args->[0];
-                push @$tables, $table;
-                $sql .= $table;
-                next;
-            }
-            # Get tag
-            my $tag = $self->tag_processors->{$tag_name}
-                             || $self->tags->{$tag_name};
-            # Tag is not registered
-            croak qq{Tag "$tag_name" is not registered } . _subname
-              unless $tag;
-            # Tag not sub reference
-            croak qq{Tag "$tag_name" must be sub reference } . _subname
-              unless ref $tag eq 'CODE';
-            # Execute tag
-            my $r = $tag->(@$tag_args);
-            # Check tag return value
-            croak qq{Tag "$tag_name" must return [STRING, ARRAY_REFERENCE] }
-                . _subname
-              unless ref $r eq 'ARRAY' && defined $r->[0] && ref $r->[1] eq 'ARRAY';
-            # Part of SQL statement and colum names
-            my ($part, $columns) = @$r;
-            # Add columns
-            push @$all_columns, @$columns;
-            # Join part tag to SQL
-            $sql .= $part;
-        }
-    }
-    # Query
-    my $query = DBIx::Custom::Query->new(
-        sql => $sql,
-        columns => $all_columns,
-        tables => $tables,
-        tag_count => $tag_count
-    );
-    return $query;
-}
-
-# DEPRECATED!
-has tag_processors => sub { {} };
-
-# DEPRECATED!
-sub register_tag_processor {
-    my $self = shift;
-    warn "register_tag_processor is DEPRECATED!";
-    # Merge tag
-    my $tag_processors = ref $_[0] eq 'HASH' ? $_[0] : {@_};
-    $self->tag_processors({%{$self->tag_processors}, %{$tag_processors}});
-    return $self;
-}
-
-1;
-
-=head1 NAME
-
-DBIx::Custom::QueryBuilder - Query builder
-
-=head1 SYNOPSIS
-    
-    my $builder = DBIx::Custom::QueryBuilder->new;
-    my $query = $builder->build_query(
-        "select from table title = :title and author = :author"
-    );
-
-=head1 ATTRIBUTES
-
-=head2 C<dbi>
-
-    my $dbi = $builder->dbi;
-    $builder = $builder->dbi($dbi);
-
-L<DBIx::Custom> object.
-
-=head1 METHODS
-
-L<DBIx::Custom::QueryBuilder> inherits all methods from L<Object::Simple>
-and implements the following new ones.
-
-=head2 C<build_query>
-    
-    my $query = $builder->build_query($source);
-
-Create a new L<DBIx::Custom::Query> object from SQL source.
-
-=cut

-41

DBIx-Custom-0.1711/DBIx-Custom-0.1711/lib/DBIx/Custom/Util.pm

View

@@ -1,41 +0,0 @@
-package DBIx::Custom::Util;
-
-use strict;
-use warnings;
-
-use base 'Exporter';
-
-our @EXPORT_OK = qw/_array_to_hash _subname/;
-
-sub _array_to_hash {
-    my $array = shift;
-    
-    return $array if ref $array eq 'HASH';
-    return unless $array;
-    
-    my $hash = {};
-    
-    for (my $i = 0; $i < @$array; $i += 2) {
-        my $key = $array->[$i];
-        my $f = $array->[$i + 1];
-        
-        if (ref $key eq 'ARRAY') {
-            foreach my $k (@$key) {
-                $hash->{$k} = $f;
-            }
-        }
-        else {
-            $hash->{$key} = $f;
-        }
-    }
-    return $hash;
-}
-
-sub _subname { '(' . (caller 1)[3] . ')' }
-
-1;
-
-=head1 NAME
-
-DBIx::Custom::Util - Utility class
-

-11

DBIx-Custom-0.1711/DBIx-Custom-0.1711/t/basic-quote.t

View

@@ -1,11 +0,0 @@
-# Change quote for tests
-use DBIx::Custom;
-{
-    package DBIx::Custom;
-    no warnings 'redefine';
-    sub quote { '""' }
-}
-
-use FindBin;
-
-require "$FindBin::Bin/basic.t";

-19

DBIx-Custom-0.1711/DBIx-Custom-0.1711/t/basic/MyDBI1.pm

View

@@ -1,19 +0,0 @@
-package MyDBI1;
-
-use strict;
-use warnings;
-
-use base 'DBIx::Custom';
-
-sub connect {
-    my $self = shift->SUPER::connect(@_);
-    
-    $self->include_model(
-        MyModel1 => [
-            'book',
-            {class => 'Company', name => 'company'}
-        ]
-    );
-}
-
-1;

-13

DBIx-Custom-0.1711/DBIx-Custom-0.1711/t/basic/MyModel1/book.pm

View

@@ -1,13 +0,0 @@
-package MyModel1::book;
-
-use DBIx::Custom::Model -base;
-
-sub insert {
-    my ($self, $param) = @_;
-    
-    return $self->SUPER::insert(param => $param);
-}
-
-sub list { shift->select; }
-
-1;

-8

DBIx-Custom-0.1711/DBIx-Custom-0.1711/t/basic/MyModel4/company.pm

View

@@ -1,8 +0,0 @@
-package MyModel4::company;
-
-use base 'MyModel4';
-
-sub insert { shift->SUPER::insert(param => $_[0]) }
-sub list { shift->select }
-
-1;

-5

DBIx-Custom-0.1711/DBIx-Custom-0.1711/t/basic/MyModel5.pm

View

@@ -1,5 +0,0 @@
-package MyModel5;
-
-use base 'DBIx::Custom::Model';
-
-1;

-7

DBIx-Custom-0.1711/DBIx-Custom-0.1711/t/basic/MyModel5/table1.pm

View

@@ -1,7 +0,0 @@
-package MyModel5::table1;
-
-use MyModel5 -base;
-
-has primary_key => sub { ['key1', 'key2'] };
-
-1;

-12

DBIx-Custom-0.1711/DBIx-Custom-0.1711/t/basic/MyModel5/table1_1.pm

View

@@ -1,12 +0,0 @@
-package MyModel5::table1_1;
-
-use strict;
-use warnings;
-
-use base 'MyModel5';
-
-__PACKAGE__->attr(table => 'table2');
-
-__PACKAGE__->attr('primary_key' => sub { ['key1', 'key2'] });
-
-1;

-5

DBIx-Custom-0.1711/DBIx-Custom-0.1711/t/basic/MyModel6.pm

View

@@ -1,5 +0,0 @@
-package MyModel6;
-
-use base 'DBIx::Custom::Model';
-
-1;

-14

DBIx-Custom-0.1711/DBIx-Custom-0.1711/t/basic/MyModel6/table1.pm

View

@@ -1,14 +0,0 @@
-package MyModel6::table1;
-
-use base 'MyModel6';
-
-__PACKAGE__->attr(
-    join => sub {
-        [
-            'left outer join table2 on table1.key1 = table2.key1'
-        ]
-    },
-    primary_key => sub { ['key1'] }
-);
-
-1;

-5

DBIx-Custom-0.1711/DBIx-Custom-0.1711/t/basic/MyModel7.pm

View

@@ -1,5 +0,0 @@
-package MyModel7;
-
-use base 'DBIx::Custom::Model';
-
-1;

-14

DBIx-Custom-0.1711/DBIx-Custom-0.1711/t/basic/MyModel7/table1.pm

View

@@ -1,14 +0,0 @@
-package MyModel7::table1;
-
-use base 'MyModel7';
-
-__PACKAGE__->attr(
-    primary_key => sub { ['key1'] },
-    join => sub {
-        [
-            'left outer join table2 on table1.key1 = table2.key1'
-        ]
-    },
-);
-
-1;

-5

DBIx-Custom-0.1711/DBIx-Custom-0.1711/t/basic/MyModel7/table2.pm

View

@@ -1,5 +0,0 @@
-package MyModel7::table2;
-
-use base 'MyModel7';
-
-1;

-11

DBIx-Custom-0.1711/DBIx-Custom-0.1711/xt/pod.t

View

@@ -1,11 +0,0 @@
-
-use strict;
-use warnings;
-use Test::More;
-
-# Ensure a recent version of Test::Pod
-my $min_tp = 1.22;
-eval "use Test::Pod $min_tp";
-plan skip_all => "Test::Pod $min_tp required for testing POD" if $@;
-
-all_pod_files_ok();

-22

DBIx-Custom-0.1711/Makefile.PL

View

@@ -1,22 +0,0 @@
-use strict;
-use warnings;
-use ExtUtils::MakeMaker;
-
-WriteMakefile(
-    NAME                => 'DBIx::Custom',
-    AUTHOR              => 'Yuki Kimoto <kimoto.yuki@gmail.com>',
-    VERSION_FROM        => 'lib/DBIx/Custom.pm',
-    ABSTRACT_FROM       => 'lib/DBIx/Custom.pm',
-    ($ExtUtils::MakeMaker::VERSION >= 6.3002
-      ? ('LICENSE'=> 'perl')
-      : ()),
-    PL_FILES            => {},
-      PREREQ_PM => {
-        'Test::More' => 0,
-        'Object::Simple' => 3.0621,
-        'DBD::SQLite' => '1.25',
-        'DBI' => '1.605'
-    },
-    dist                => { COMPRESS => 'gzip -9f', SUFFIX => 'gz', },
-    clean               => { FILES => 'DBIx-Custom-*' },
-);

-15

DBIx-Custom-0.1711/README

View

@@ -1,15 +0,0 @@
-DBIx-Custom
-
-DBI interface, having hash parameter binding and filtering system
-
-INSTALLATION
-
-cpan DBIx::Custom
-
-COPYRIGHT AND LICENCE
-
-Copyright (C) 2009 Yuki Kimoto
-
-This program is free software; you can redistribute it and/or modify it
-under the same terms as Perl itself.
-

DBIx-Custom-0.1711/blib/arch/.exists

View

No changes.

DBIx-Custom-0.1711/blib/arch/auto/DBIx/Custom/.exists

View

No changes.

DBIx-Custom-0.1711/blib/bin/.exists

View

No changes.

DBIx-Custom-0.1711/blib/lib/DBIx/.exists

View

No changes.

-3203

DBIx-Custom-0.1711/blib/lib/DBIx/Custom.pm

View

@@ -1,3203 +0,0 @@
-package DBIx::Custom;
-use Object::Simple -base;
-
-our $VERSION = '0.1711';
-use 5.008001;
-
-use Carp 'croak';
-use DBI;
-use DBIx::Custom::Result;
-use DBIx::Custom::Query;
-use DBIx::Custom::QueryBuilder;
-use DBIx::Custom::Where;
-use DBIx::Custom::Model;
-use DBIx::Custom::Tag;
-use DBIx::Custom::Order;
-use DBIx::Custom::Util qw/_array_to_hash _subname/;
-use Encode qw/encode encode_utf8 decode_utf8/;
-
-use constant DEBUG => $ENV{DBIX_CUSTOM_DEBUG} || 0;
-use constant DEBUG_ENCODING => $ENV{DBIX_CUSTOM_DEBUG_ENCODING} || 'UTF-8';
-
-has [qw/connector dsn password quote user/],
-    cache => 0,
-    cache_method => sub {
-        sub {
-            my $self = shift;
-            
-            $self->{_cached} ||= {};
-            
-            if (@_ > 1) {
-                $self->{_cached}{$_[0]} = $_[1];
-            }
-            else {
-                return $self->{_cached}{$_[0]};
-            }
-        }
-    },
-    dbi_option => sub { {} },
-    default_dbi_option => sub {
-        {
-            RaiseError => 1,
-            PrintError => 0,
-            AutoCommit => 1
-        }
-    },
-    filters => sub {
-        {
-            encode_utf8 => sub { encode_utf8($_[0]) },
-            decode_utf8 => sub { decode_utf8($_[0]) }
-        }
-    },
-    last_sql => '',
-    models => sub { {} },
-    query_builder => sub { DBIx::Custom::QueryBuilder->new(dbi => shift) },
-    result_class  => 'DBIx::Custom::Result',
-    safety_character => '\w',
-    stash => sub { {} },
-    tag_parse => 1;
-
-our $AUTOLOAD;
-sub AUTOLOAD {
-    my $self = shift;
-
-    # Method name
-    my ($package, $mname) = $AUTOLOAD =~ /^([\w\:]+)\:\:(\w+)$/;
-
-    # Call method
-    $self->{_methods} ||= {};
-    if (my $method = $self->{_methods}->{$mname}) {
-        return $self->$method(@_)
-    }
-    elsif ($self->{dbh} && (my $dbh_method = $self->dbh->can($mname))) {
-        $self->dbh->$dbh_method(@_);
-    }
-    else {
-        croak qq{Can't locate object method "$mname" via "$package" }
-            . _subname;
-    }
-}
-
-sub assign_param {
-    my ($self, $param) = @_;
-    
-    # Create set tag
-    my @params;
-    my $safety = $self->safety_character;
-    foreach my $column (sort keys %$param) {
-        croak qq{"$column" is not safety column name } . _subname
-          unless $column =~ /^[$safety\.]+$/;
-        my $column_quote = $self->_q($column);
-        $column_quote =~ s/\./$self->_q(".")/e;
-        push @params, ref $param->{$column} eq 'SCALAR'
-          ? "$column_quote = " . ${$param->{$column}}
-          : "$column_quote = :$column";
-
-    }
-    my $tag = join(', ', @params);
-    
-    return $tag;
-}
-
-sub column {
-    my $self = shift;
-    my $option = pop if ref $_[-1] eq 'HASH';
-    my $real_table = shift;
-    my $columns = shift;
-    my $table = $option->{alias} || $real_table;
-    
-    # Columns
-    unless ($columns) {
-        $columns ||= $self->model($real_table)->columns;
-    }
-    
-    # Separator
-    my $separator = $self->separator;
-    
-    # Column clause
-    my @column;
-    $columns ||= [];
-    push @column, $self->_q($table) . "." . $self->_q($_) .
-      " as " . $self->_q("${table}${separator}$_")
-      for @$columns;
-    
-    return join (', ', @column);
-}
-
-sub connect {
-    my $self = ref $_[0] ? shift : shift->new(@_);;
-    
-    # Connect
-    $self->dbh;
-    
-    return $self;
-}
-
-sub dbh {
-    my $self = shift;
-    
-    # Set
-    if (@_) {
-        $self->{dbh} = $_[0];
-        
-        return $self;
-    }
-    
-    # Get
-    else {
-        # From Connction manager
-        if (my $connector = $self->connector) {
-            croak "connector must have dbh() method " . _subname
-              unless ref $connector && $connector->can('dbh');
-              
-            $self->{dbh} = $connector->dbh;
-        }
-        
-        # Connect
-        $self->{dbh} ||= $self->_connect;
-        
-        # Quote
-        if (!defined $self->reserved_word_quote && !defined $self->quote) {
-            my $driver = $self->{dbh}->{Driver}->{Name};
-            my $quote = $driver eq 'mysql' ? '`' : '"';
-            $self->quote($quote);
-        }
-        
-        return $self->{dbh};
-    }
-}
-
-sub delete {
-    my ($self, %args) = @_;
-
-    # Arguments
-    my $table = $args{table} || '';
-    croak qq{"table" option must be specified. } . _subname
-      unless $table;
-    my $where            = delete $args{where} || {};
-    my $append           = delete $args{append};
-    my $allow_delete_all = delete $args{allow_delete_all};
-    my $where_param      = delete $args{where_param} || {};
-    my $id = delete $args{id};
-    my $primary_key = delete $args{primary_key};
-    croak "update method primary_key option " .
-          "must be specified when id is specified " . _subname
-      if defined $id && !defined $primary_key;
-    $primary_key = [$primary_key] unless ref $primary_key eq 'ARRAY';
-    my $prefix = delete $args{prefix};
-    
-    # Where
-    $where = $self->_create_param_from_id($id, $primary_key) if defined $id;
-    my $where_clause = '';
-    if (ref $where eq 'ARRAY' && !ref $where->[0]) {
-        $where_clause = "where " . $where->[0];
-        $where_param = $where->[1];
-    }
-    elsif (ref $where) {
-        $where = $self->_where_to_obj($where);
-        $where_param = keys %$where_param
-                     ? $self->merge_param($where_param, $where->param)
-                     : $where->param;
-        
-        # String where
-        $where_clause = $where->to_string;
-    }
-    elsif ($where) { $where_clause = "where $where" }
-    croak qq{"where" must be specified } . _subname
-      if $where_clause eq '' && !$allow_delete_all;
-
-    # Delete statement
-    my @sql;
-    push @sql, "delete";
-    push @sql, $prefix if defined $prefix;
-    push @sql, "from " . $self->_q($table) . " $where_clause";
-    push @sql, $append if defined $append;
-    my $sql = join(' ', @sql);
-    
-    # Execute query
-    return $self->execute($sql, $where_param, table => $table, %args);
-}
-
-sub delete_all { shift->delete(allow_delete_all => 1, @_) }
-
-sub DESTROY { }
-
-sub create_model {
-    my $self = shift;
-    
-    # Arguments
-    my $args = ref $_[0] eq 'HASH' ? $_[0] : {@_};
-    $args->{dbi} = $self;
-    my $model_class = delete $args->{model_class} || 'DBIx::Custom::Model';
-    my $model_name  = delete $args->{name};
-    my $model_table = delete $args->{table};
-    $model_name ||= $model_table;
-    
-    # Create model
-    my $model = $model_class->new($args);
-    $model->name($model_name) unless $model->name;
-    $model->table($model_table) unless $model->table;
-    
-    # Apply filter(DEPRECATED logic)
-    if ($model->{filter}) {
-        my $filter = ref $model->filter eq 'HASH'
-                   ? [%{$model->filter}]
-                   : $model->filter;
-        $filter ||= [];
-        warn "DBIx::Custom::Model filter method is DEPRECATED!"
-          if @$filter;
-        $self->_apply_filter($model->table, @$filter);
-    }
-    
-    # Set model
-    $self->model($model->name, $model);
-    
-    return $self->model($model->name);
-}
-
-sub each_column {
-    my ($self, $cb) = @_;
-    
-    # Iterate all tables
-    my $sth_tables = $self->dbh->table_info;
-    while (my $table_info = $sth_tables->fetchrow_hashref) {
-        
-        # Table
-        my $table = $table_info->{TABLE_NAME};
-        
-        # Iterate all columns
-        my $sth_columns = $self->dbh->column_info(undef, undef, $table, '%');
-        while (my $column_info = $sth_columns->fetchrow_hashref) {
-            my $column = $column_info->{COLUMN_NAME};
-            $self->$cb($table, $column, $column_info);
-        }
-    }
-}
-
-sub each_table {
-    my ($self, $cb) = @_;
-    
-    # Iterate all tables
-    my $sth_tables = $self->dbh->table_info;
-    while (my $table_info = $sth_tables->fetchrow_hashref) {
-        
-        # Table
-        my $table = $table_info->{TABLE_NAME};
-        $self->$cb($table, $table_info);
-    }
-}
-
-our %VALID_ARGS = map { $_ => 1 } qw/append allow_delete_all
-  allow_update_all bind_type column filter id join param prefix primary_key
-  query relation table table_alias type type_rule_off type_rule1_off
-  type_rule2_off wrap/;
-
-sub execute {
-    my $self = shift;
-    my $query = shift;
-    my $param;
-    $param = shift if @_ % 2;
-    my %args = @_;
-    
-    # Arguments
-    my $p = delete $args{param} || {};
-    $param ||= $p;
-    my $tables = delete $args{table} || [];
-    $tables = [$tables] unless ref $tables eq 'ARRAY';
-    my $filter = delete $args{filter};
-    $filter = _array_to_hash($filter);
-    my $bind_type = delete $args{bind_type} || delete $args{type};
-    $bind_type = _array_to_hash($bind_type);
-    my $type_rule_off = delete $args{type_rule_off};
-    my $type_rule_off_parts = {
-        1 => delete $args{type_rule1_off},
-        2 => delete $args{type_rule2_off}
-    };
-    my $query_return = delete $args{query};
-    my $table_alias = delete $args{table_alias} || {};
-    
-    # Check argument names
-    foreach my $name (keys %args) {
-        croak qq{"$name" is wrong option } . _subname
-          unless $VALID_ARGS{$name};
-    }
-    
-    # Create query
-    $query = $self->_create_query($query) unless ref $query;
-    
-    # Save query
-    $self->last_sql($query->sql);
-
-    return $query if $query_return;
-    
-    # DEPRECATED! Merge query filter
-    $filter ||= $query->{filter} || {};
-    
-    # Tables
-    unshift @$tables, @{$query->{tables} || []};
-    my $main_table = @{$tables}[-1];
-    
-    # DEPRECATED! Cleanup tables
-    $tables = $self->_remove_duplicate_table($tables, $main_table)
-      if @$tables > 1;
-    
-    # Type rule
-    my $type_filters = {};
-    unless ($type_rule_off) {
-        foreach my $i (1, 2) {
-            unless ($type_rule_off_parts->{$i}) {
-                $type_filters->{$i} = {};
-                foreach my $alias (keys %$table_alias) {
-                    my $table = $table_alias->{$alias};
-                    
-                    foreach my $column (keys %{$self->{"_into$i"}{key}{$table} || {}}) {
-                        $type_filters->{$i}->{"$alias.$column"} = $self->{"_into$i"}{key}{$table}{$column};
-                    }
-                }
-                $type_filters->{$i} = {%{$type_filters->{$i}}, %{$self->{"_into$i"}{key}{$main_table} || {}}}
-                  if $main_table;
-            }
-        }
-    }
-    
-    # DEPRECATED! Applied filter
-    if ($self->{filter}{on}) {
-        my $applied_filter = {};
-        foreach my $table (@$tables) {
-            $applied_filter = {
-                %$applied_filter,
-                %{$self->{filter}{out}->{$table} || {}}
-            }
-        }
-        $filter = {%$applied_filter, %$filter};
-    }
-    
-    # Replace filter name to code
-    foreach my $column (keys %$filter) {
-        my $name = $filter->{$column};
-        if (!defined $name) {
-            $filter->{$column} = undef;
-        }
-        elsif (ref $name ne 'CODE') {
-          croak qq{Filter "$name" is not registered" } . _subname
-            unless exists $self->filters->{$name};
-          $filter->{$column} = $self->filters->{$name};
-        }
-    }
-    
-    # Create bind values
-    my $bind = $self->_create_bind_values(
-        $param,
-        $query->columns,
-        $filter,
-        $type_filters,
-        $bind_type
-    );
-    
-    # Execute
-    my $sth = $query->sth;
-    my $affected;
-    eval {
-        for (my $i = 0; $i < @$bind; $i++) {
-            my $bind_type = $bind->[$i]->{bind_type};
-            $sth->bind_param(
-                $i + 1,
-                $bind->[$i]->{value},
-                $bind_type ? $bind_type : ()
-            );
-        }
-        $affected = $sth->execute;
-    };
-    
-    $self->_croak($@, qq{. Following SQL is executed.\n}
-      . qq{$query->{sql}\n} . _subname) if $@;
-    
-    # DEBUG message
-    if (DEBUG) {
-        print STDERR "SQL:\n" . $query->sql . "\n";
-        my @output;
-        foreach my $b (@$bind) {
-            my $value = $b->{value};
-            $value = 'undef' unless defined $value;
-            $value = encode(DEBUG_ENCODING(), $value)
-              if utf8::is_utf8($value);
-            push @output, $value;
-        }
-        print STDERR "Bind values: " . join(', ', @output) . "\n\n";
-    }
-    
-    # Select statement
-    if ($sth->{NUM_OF_FIELDS}) {
-        
-        # DEPRECATED! Filter
-        my $filter = {};
-        if ($self->{filter}{on}) {
-            $filter->{in}  = {};
-            $filter->{end} = {};
-            push @$tables, $main_table if $main_table;
-            foreach my $table (@$tables) {
-                foreach my $way (qw/in end/) {
-                    $filter->{$way} = {
-                        %{$filter->{$way}},
-                        %{$self->{filter}{$way}{$table} || {}}
-                    };
-                }
-            }
-        }
-        
-        # Result
-        my $result = $self->result_class->new(
-            sth => $sth,
-            dbi => $self,
-            default_filter => $self->{default_in_filter},
-            filter => $filter->{in} || {},
-            end_filter => $filter->{end} || {},
-            type_rule => {
-                from1 => $self->type_rule->{from1},
-                from2 => $self->type_rule->{from2}
-            },
-        );
-
-        return $result;
-    }
-    
-    # Not select statement
-    else { return $affected }
-}
-
-sub insert {
-    my $self = shift;
-    
-    # Arguments
-    my $param;
-    $param = shift if @_ % 2;
-    my %args = @_;
-    my $table  = delete $args{table};
-    croak qq{"table" option must be specified } . _subname
-      unless defined $table;
-    my $p = delete $args{param} || {};
-    $param  ||= $p;
-    my $append = delete $args{append} || '';
-    my $id = delete $args{id};
-    my $primary_key = delete $args{primary_key};
-    croak "insert method primary_key option " .
-          "must be specified when id is specified " . _subname
-      if defined $id && !defined $primary_key;
-    $primary_key = [$primary_key] unless ref $primary_key eq 'ARRAY';
-    my $prefix = delete $args{prefix};
-
-    # Merge parameter
-    if (defined $id) {
-        my $id_param = $self->_create_param_from_id($id, $primary_key);
-        $param = $self->merge_param($id_param, $param);
-    }
-
-    # Insert statement
-    my @sql;
-    push @sql, "insert";
-    push @sql, $prefix if defined $prefix;
-    push @sql, "into " . $self->_q($table) . " " . $self->insert_param($param);
-    push @sql, $append if defined $append;
-    my $sql = join (' ', @sql);
-    
-    # Execute query
-    return $self->execute($sql, $param, table => $table, %args);
-}
-
-sub insert_param {
-    my ($self, $param) = @_;
-    
-    # Create insert parameter tag
-    my $safety = $self->safety_character;
-    my @columns;
-    my @placeholders;
-    foreach my $column (sort keys %$param) {
-        croak qq{"$column" is not safety column name } . _subname
-          unless $column =~ /^[$safety\.]+$/;
-        my $column_quote = $self->_q($column);
-        $column_quote =~ s/\./$self->_q(".")/e;
-        push @columns, $column_quote;
-        push @placeholders, ref $param->{$column} eq 'SCALAR'
-          ? ${$param->{$column}} : ":$column";
-    }
-    
-    return '(' . join(', ', @columns) . ') ' . 'values ' .
-           '(' . join(', ', @placeholders) . ')'
-}
-
-sub include_model {
-    my ($self, $name_space, $model_infos) = @_;
-    
-    # Name space
-    $name_space ||= '';
-    
-    # Get Model infomations
-    unless ($model_infos) {
-
-        # Load name space module
-        croak qq{"$name_space" is invalid class name } . _subname
-          if $name_space =~ /[^\w:]/;
-        eval "use $name_space";
-        croak qq{Name space module "$name_space.pm" is needed. $@ }
-            . _subname
-          if $@;
-        
-        # Search model modules
-        my $path = $INC{"$name_space.pm"};
-        $path =~ s/\.pm$//;
-        opendir my $dh, $path
-          or croak qq{Can't open directory "$path": $! } . _subname
-        $model_infos = [];
-        while (my $module = readdir $dh) {
-            push @$model_infos, $module
-              if $module =~ s/\.pm$//;
-        }
-        close $dh;
-    }
-    
-    # Include models
-    foreach my $model_info (@$model_infos) {
-        
-        # Load model
-        my $model_class;
-        my $model_name;
-        my $model_table;
-        if (ref $model_info eq 'HASH') {
-            $model_class = $model_info->{class};
-            $model_name  = $model_info->{name};
-            $model_table = $model_info->{table};
-            
-            $model_name  ||= $model_class;
-            $model_table ||= $model_name;
-        }
-        else { $model_class = $model_name = $model_table = $model_info }
-        my $mclass = "${name_space}::$model_class";
-        croak qq{"$mclass" is invalid class name } . _subname
-          if $mclass =~ /[^\w:]/;
-        unless ($mclass->can('isa')) {
-            eval "use $mclass";
-            croak "$@ " . _subname if $@;
-        }
-        
-        # Create model
-        my $args = {};
-        $args->{model_class} = $mclass if $mclass;
-        $args->{name}        = $model_name if $model_name;
-        $args->{table}       = $model_table if $model_table;
-        $self->create_model($args);
-    }
-    
-    return $self;
-}
-
-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) = @_;
-    
-    # Merge parameters
-    my $merge = {};
-    foreach my $param (@params) {
-        foreach my $column (keys %$param) {
-            my $param_is_array = ref $param->{$column} eq 'ARRAY' ? 1 : 0;
-            
-            if (exists $merge->{$column}) {
-                $merge->{$column} = [$merge->{$column}]
-                  unless ref $merge->{$column} eq 'ARRAY';
-                push @{$merge->{$column}},
-                  ref $param->{$column} ? @{$param->{$column}} : $param->{$column};
-            }
-            else {
-                $merge->{$column} = $param->{$column};
-            }
-        }
-    }
-    
-    return $merge;
-}
-
-sub method {
-    my $self = shift;
-    
-    # Register method
-    my $methods = ref $_[0] eq 'HASH' ? $_[0] : {@_};
-    $self->{_methods} = {%{$self->{_methods} || {}}, %$methods};
-    
-    return $self;
-}
-
-sub model {
-    my ($self, $name, $model) = @_;
-    
-    # Set model
-    if ($model) {
-        $self->models->{$name} = $model;
-        return $self;
-    }
-    
-    # Check model existance
-    croak qq{Model "$name" is not included } . _subname
-      unless $self->models->{$name};
-    
-    # Get model
-    return $self->models->{$name};
-}
-
-sub mycolumn {
-    my ($self, $table, $columns) = @_;
-    
-    # Create column clause
-    my @column;
-    $columns ||= [];
-    push @column, $self->_q($table) . "." . $self->_q($_) .
-      " as " . $self->_q($_)
-      for @$columns;
-    
-    return join (', ', @column);
-}
-
-sub new {
-    my $self = shift->SUPER::new(@_);
-    
-    # Check attributes
-    my @attrs = keys %$self;
-    foreach my $attr (@attrs) {
-        croak qq{"$attr" is wrong name } . _subname
-          unless $self->can($attr);
-    }
-    
-    # DEPRECATED!
-    $self->query_builder->{tags} = {
-        '?'     => \&DBIx::Custom::Tag::placeholder,
-        '='     => \&DBIx::Custom::Tag::equal,
-        '<>'    => \&DBIx::Custom::Tag::not_equal,
-        '>'     => \&DBIx::Custom::Tag::greater_than,
-        '<'     => \&DBIx::Custom::Tag::lower_than,
-        '>='    => \&DBIx::Custom::Tag::greater_than_equal,
-        '<='    => \&DBIx::Custom::Tag::lower_than_equal,
-        'like'  => \&DBIx::Custom::Tag::like,
-        'in'    => \&DBIx::Custom::Tag::in,
-        'insert_param' => \&DBIx::Custom::Tag::insert_param,
-        'update_param' => \&DBIx::Custom::Tag::update_param
-    };
-    
-    return $self;
-}
-
-sub not_exists { bless {}, 'DBIx::Custom::NotExists' }
-
-sub order {
-    my $self = shift;
-    return DBIx::Custom::Order->new(dbi => $self, @_);
-}
-
-sub register_filter {
-    my $self = shift;
-    
-    # Register filter
-    my $filters = ref $_[0] eq 'HASH' ? $_[0] : {@_};
-    $self->filters({%{$self->filters}, %$filters});
-    
-    return $self;
-}
-
-sub select {
-    my ($self, %args) = @_;
-
-    # Arguments
-    my $table = delete $args{table};
-    my $tables = ref $table eq 'ARRAY' ? $table
-               : defined $table ? [$table]
-               : [];
-    my $columns   = delete $args{column};
-    my $where     = delete $args{where} || {};
-    my $append    = delete $args{append};
-    my $join      = delete $args{join} || [];
-    croak qq{"join" must be array reference } . _subname
-      unless ref $join eq 'ARRAY';
-    my $relation = delete $args{relation};
-    warn "select() relation option is DEPRECATED!"
-      if $relation;
-    my $param = delete $args{param} || {}; # DEPRECATED!
-    warn "select() param option is DEPRECATED!"
-      if keys %$param;
-    my $where_param = delete $args{where_param} || $param || {};
-    my $wrap = delete $args{wrap};
-    my $id = delete $args{id};
-    my $primary_key = delete $args{primary_key};
-    croak "update method primary_key option " .
-          "must be specified when id is specified " . _subname
-      if defined $id && !defined $primary_key;
-    $primary_key = [$primary_key] unless ref $primary_key eq 'ARRAY';
-    my $prefix = delete $args{prefix};
-    
-    # Add relation tables(DEPRECATED!);
-    $self->_add_relation_table($tables, $relation);
-    
-    # Select statement
-    my @sql;
-    push @sql, 'select';
-    
-    # Prefix
-    push @sql, $prefix if defined $prefix;
-    
-    # Column clause
-    if ($columns) {
-        $columns = [$columns] unless ref $columns eq 'ARRAY';
-        foreach my $column (@$columns) {
-            if (ref $column eq 'HASH') {
-                $column = $self->column(%$column) if ref $column eq 'HASH';
-            }
-            elsif (ref $column eq 'ARRAY') {
-                if (@$column == 3 && $column->[1] eq 'as') {
-                    warn "[COLUMN, as => ALIAS] is DEPRECATED! use [COLUMN => ALIAS]";
-                    splice @$column, 1, 1;
-                }
-                
-                $column = join(' ', $column->[0], 'as', $self->_q($column->[1]));
-            }
-            unshift @$tables, @{$self->_search_tables($column)};
-            push @sql, ($column, ',');
-        }
-        pop @sql if $sql[-1] eq ',';
-    }
-    else { push @sql, '*' }
-    
-    # Table
-    push @sql, 'from';
-    if ($relation) {
-        my $found = {};
-        foreach my $table (@$tables) {
-            push @sql, ($self->_q($table), ',') unless $found->{$table};
-            $found->{$table} = 1;
-        }
-    }
-    else {
-        my $main_table = $tables->[-1] || '';
-        push @sql, $self->_q($main_table);
-    }
-    pop @sql if ($sql[-1] || '') eq ',';
-    croak "Not found table name " . _subname
-      unless $tables->[-1];
-
-    # Add tables in parameter
-    unshift @$tables,
-            @{$self->_search_tables(join(' ', keys %$where_param) || '')};
-    
-    # Where
-    my $where_clause = '';
-    $where = $self->_create_param_from_id($id, $primary_key) if defined $id;
-    if (ref $where eq 'ARRAY' && !ref $where->[0]) {
-        $where_clause = "where " . $where->[0];
-        $where_param = $where->[1];
-    }
-    elsif (ref $where) {
-        $where = $self->_where_to_obj($where);
-        $where_param = keys %$where_param
-                     ? $self->merge_param($where_param, $where->param)
-                     : $where->param;
-        
-        # String where
-        $where_clause = $where->to_string;
-    }
-    elsif ($where) { $where_clause = "where $where" }
-    
-    # Add table names in where clause
-    unshift @$tables, @{$self->_search_tables($where_clause)};
-    
-    # Push join
-    $self->_push_join(\@sql, $join, $tables);
-    
-    # Add where clause
-    push @sql, $where_clause;
-    
-    # Relation(DEPRECATED!);
-    $self->_push_relation(\@sql, $tables, $relation, $where_clause eq '' ? 1 : 0);
-    
-    # Append
-    push @sql, $append if defined $append;
-    
-    # Wrap
-    if ($wrap) {
-        croak "wrap option must be array refrence " . _subname
-          unless ref $wrap eq 'ARRAY';
-        unshift @sql, $wrap->[0];
-        push @sql, $wrap->[1];
-    }
-    
-    # SQL
-    my $sql = join (' ', @sql);
-    
-    # Execute query
-    my $result = $self->execute($sql, $where_param, table => $tables, %args);
-    
-    return $result;
-}
-
-sub separator {
-    my $self = shift;
-    
-    if (@_) {
-        my $separator = $_[0] || '';
-        croak qq{Separator must be "." or "__" or "-" } . _subname
-          unless $separator eq '.' || $separator eq '__'
-              || $separator eq '-';
-        
-        $self->{separator} = $separator;
-    
-        return $self;
-    }
-    return $self->{separator} ||= '.';
-}
-
-sub setup_model {
-    my $self = shift;
-    
-    # Setup model
-    $self->each_column(
-        sub {
-            my ($self, $table, $column, $column_info) = @_;
-            if (my $model = $self->models->{$table}) {
-                push @{$model->columns}, $column;
-            }
-        }
-    );
-    return $self;
-}
-
-sub available_data_type {
-    my $self = shift;
-    
-    my $data_types = '';
-    foreach my $i (-1000 .. 1000) {
-         my $type_info = $self->dbh->type_info($i);
-         my $data_type = $type_info->{DATA_TYPE};
-         my $type_name = $type_info->{TYPE_NAME};
-         $data_types .= "$data_type ($type_name)\n"
-           if defined $data_type;
-    }
-    return "Data Type maybe equal to Type Name" unless $data_types;
-    $data_types = "Data Type (Type name)\n" . $data_types;
-    return $data_types;
-}
-
-sub available_type_name {
-    my $self = shift;
-    
-    # Type Names
-    my $type_names = {};
-    $self->each_column(sub {
-        my ($self, $table, $column, $column_info) = @_;
-        $type_names->{$column_info->{TYPE_NAME}} = 1
-          if $column_info->{TYPE_NAME};
-    });
-    my @output = sort keys %$type_names;
-    unshift @output, "Type Name";
-    return join "\n", @output;
-}
-
-sub type_rule {
-    my $self = shift;
-    
-    if (@_) {
-        my $type_rule = ref $_[0] eq 'HASH' ? $_[0] : {@_};
-        
-        # Into
-        foreach my $i (1 .. 2) {
-            my $into = "into$i";
-            $type_rule->{$into} = _array_to_hash($type_rule->{$into});
-            $self->{type_rule} = $type_rule;
-            $self->{"_$into"} = {};
-            foreach my $type_name (keys %{$type_rule->{$into} || {}}) {
-                croak qq{type name of $into section must be lower case}
-                  if $type_name =~ /[A-Z]/;
-            }
-            $self->each_column(sub {
-                my ($dbi, $table, $column, $column_info) = @_;
-                
-                my $type_name = lc $column_info->{TYPE_NAME};
-                if ($type_rule->{$into} &&
-                    (my $filter = $type_rule->{$into}->{$type_name}))
-                {
-                    return unless exists $type_rule->{$into}->{$type_name};
-                    if  (defined $filter && ref $filter ne 'CODE') 
-                    {
-                        my $fname = $filter;
-                        croak qq{Filter "$fname" is not registered" } . _subname
-                          unless exists $self->filters->{$fname};
-                        
-                        $filter = $self->filters->{$fname};
-                    }
-
-                    $self->{"_$into"}{key}{$table}{$column} = $filter;
-                    $self->{"_$into"}{dot}{"$table.$column"} = $filter;
-                }
-            });
-        }
-
-        # From
-        foreach my $i (1 .. 2) {
-            $type_rule->{"from$i"} = _array_to_hash($type_rule->{"from$i"});
-            foreach my $data_type (keys %{$type_rule->{"from$i"} || {}}) {
-                croak qq{data type of from$i section must be lower case or number}
-                  if $data_type =~ /[A-Z]/;
-                my $fname = $type_rule->{"from$i"}{$data_type};
-                if (defined $fname && ref $fname ne 'CODE') {
-                    croak qq{Filter "$fname" is not registered" } . _subname
-                      unless exists $self->filters->{$fname};
-                    
-                    $type_rule->{"from$i"}{$data_type} = $self->filters->{$fname};
-                }
-            }
-        }
-        
-        return $self;
-    }
-    
-    return $self->{type_rule} || {};
-}
-
-sub update {
-    my $self = shift;
-
-    # Arguments
-    my $param;
-    $param = shift if @_ % 2;
-    my %args = @_;
-    my $table = delete $args{table} || '';
-    croak qq{"table" option must be specified } . _subname
-      unless $table;
-    my $p = delete $args{param} || {};
-    $param  ||= $p;
-    my $where = delete $args{where} || {};
-    my $where_param = delete $args{where_param} || {};
-    my $append = delete $args{append} || '';
-    my $allow_update_all = delete $args{allow_update_all};
-    my $id = delete $args{id};
-    my $primary_key = delete $args{primary_key};
-    croak "update method primary_key option " .
-          "must be specified when id is specified " . _subname
-      if defined $id && !defined $primary_key;
-    $primary_key = [$primary_key] unless ref $primary_key eq 'ARRAY';
-    my $prefix = delete $args{prefix};
-
-    # Update clause
-    my $update_clause = $self->update_param($param);
-
-    # Where
-    $where = $self->_create_param_from_id($id, $primary_key) if defined $id;
-    my $where_clause = '';
-    if (ref $where eq 'ARRAY' && !ref $where->[0]) {
-        $where_clause = "where " . $where->[0];
-        $where_param = $where->[1];
-    }
-    elsif (ref $where) {
-        $where = $self->_where_to_obj($where);
-        $where_param = keys %$where_param
-                     ? $self->merge_param($where_param, $where->param)
-                     : $where->param;
-        
-        # String where
-        $where_clause = $where->to_string;
-    }
-    elsif ($where) { $where_clause = "where $where" }
-    croak qq{"where" must be specified } . _subname
-      if "$where_clause" eq '' && !$allow_update_all;
-    
-    # Merge param
-    $param = $self->merge_param($param, $where_param) if keys %$where_param;
-    
-    # Update statement
-    my @sql;
-    push @sql, "update";
-    push @sql, $prefix if defined $prefix;
-    push @sql, $self->_q($table) . " $update_clause $where_clause";
-    push @sql, $append if defined $append;
-    
-    # SQL
-    my $sql = join(' ', @sql);
-    
-    # Execute query
-    return $self->execute($sql, $param, table => $table, %args);
-}
-
-sub update_all { shift->update(allow_update_all => 1, @_) };
-
-sub update_param {
-    my ($self, $param, $opt) = @_;
-    
-    # Create update parameter tag
-    my $tag = $self->assign_param($param);
-    $tag = "set $tag" unless $opt->{no_set};
-
-    return $tag;
-}
-
-sub where { DBIx::Custom::Where->new(dbi => shift, @_) }
-
-sub _create_query {
-    
-    my ($self, $source) = @_;
-    
-    # Cache
-    my $cache = $self->cache;
-    
-    # Query
-    my $query;
-    
-    # Get cached query
-    if ($cache) {
-        
-        # Get query
-        my $q = $self->cache_method->($self, $source);
-        
-        # Create query
-        if ($q) {
-            $query = DBIx::Custom::Query->new($q);
-            $query->{filters} = $self->filters;
-        }
-    }
-    
-    # Create query
-    unless ($query) {
-
-        # Create query
-        my $builder = $self->query_builder;
-        $query = $builder->build_query($source);
-
-        # Remove reserved word quote
-        if (my $q = $self->_quote) {
-            $q = quotemeta($q);
-            $_ =~ s/[$q]//g for @{$query->columns}
-        }
-
-        # Save query to cache
-        $self->cache_method->(
-            $self, $source,
-            {
-                sql     => $query->sql, 
-                columns => $query->columns,
-                tables  => $query->{tables} || []
-            }
-        ) if $cache;
-    }
-    
-    # Save sql
-    $self->last_sql($query->sql);
-    
-    # Prepare statement handle
-    my $sth;
-    eval { $sth = $self->dbh->prepare($query->{sql})};
-    
-    if ($@) {
-        $self->_croak($@, qq{. Following SQL is executed.\n}
-                        . qq{$query->{sql}\n} . _subname);
-    }
-    
-    # Set statement handle
-    $query->sth($sth);
-    
-    # Set filters
-    $query->{filters} = $self->filters;
-    
-    return $query;
-}
-
-sub _create_bind_values {
-    my ($self, $params, $columns, $filter, $type_filters, $bind_type) = @_;
-    
-    # Create bind values
-    my $bind = [];
-    my $count = {};
-    my $not_exists = {};
-    foreach my $column (@$columns) {
-        
-        # Value
-        my $value;
-        if(ref $params->{$column} eq 'ARRAY') {
-            my $i = $count->{$column} || 0;
-            $i += $not_exists->{$column} || 0;
-            my $found;
-            for (my $k = $i; $i < @{$params->{$column}}; $k++) {
-                if (ref $params->{$column}->[$k] eq 'DBIx::Custom::NotExists') {
-                    $not_exists->{$column}++;
-                }
-                else  {
-                    $value = $params->{$column}->[$k];
-                    $found = 1;
-                    last
-                }
-            }
-            next unless $found;
-        }
-        else { $value = $params->{$column} }
-        
-        # Filter
-        my $f = $filter->{$column} || $self->{default_out_filter} || '';
-        $value = $f->($value) if $f;
-        
-        # Type rule
-        foreach my $i (1 .. 2) {
-            my $type_filter = $type_filters->{$i};
-            my $tf = $self->{"_into$i"}->{dot}->{$column} || $type_filter->{$column};
-            $value = $tf->($value) if $tf;
-        }
-        
-        # Bind values
-        push @$bind, {value => $value, bind_type => $bind_type->{$column}};
-        
-        # Count up 
-        $count->{$column}++;
-    }
-    
-    return $bind;
-}
-
-sub _create_param_from_id {
-    my ($self, $id, $primary_keys) = @_;
-    
-    # Create parameter
-    my $param = {};
-    if (defined $id) {
-        $id = [$id] unless ref $id;
-        croak qq{"id" must be constant value or array reference}
-            . " (" . (caller 1)[3] . ")"
-          unless !ref $id || ref $id eq 'ARRAY';
-        croak qq{"id" must contain values same count as primary key}
-            . " (" . (caller 1)[3] . ")"
-          unless @$primary_keys eq @$id;
-        for(my $i = 0; $i < @$primary_keys; $i ++) {
-           $param->{$primary_keys->[$i]} = $id->[$i];
-        }
-    }
-    
-    return $param;
-}
-
-sub _connect {
-    my $self = shift;
-    
-    # Attributes
-    my $dsn = $self->data_source;
-    warn "data_source is DEPRECATED!\n"
-      if $dsn;
-    $dsn ||= $self->dsn;
-    croak qq{"dsn" must be specified } . _subname
-      unless $dsn;
-    my $user        = $self->user;
-    my $password    = $self->password;
-    my $dbi_option = {%{$self->dbi_options}, %{$self->dbi_option}};
-    warn "dbi_options is DEPRECATED! use dbi_option instead\n"
-      if keys %{$self->dbi_options};
-    
-    # Connect
-    my $dbh = eval {DBI->connect(
-        $dsn,
-        $user,
-        $password,
-        {
-            %{$self->default_dbi_option},
-            %$dbi_option
-        }
-    )};
-    
-    # Connect error
-    croak "$@ " . _subname if $@;
-    
-    return $dbh;
-}
-
-sub _croak {
-    my ($self, $error, $append) = @_;
-    
-    # Append
-    $append ||= "";
-    
-    # Verbose
-    if ($Carp::Verbose) { croak $error }
-    
-    # Not verbose
-    else {
-        
-        # Remove line and module infromation
-        my $at_pos = rindex($error, ' at ');
-        $error = substr($error, 0, $at_pos);
-        $error =~ s/\s+$//;
-        croak "$error$append";
-    }
-}
-
-sub _need_tables {
-    my ($self, $tree, $need_tables, $tables) = @_;
-    
-    # Get needed tables
-    foreach my $table (@$tables) {
-        if ($tree->{$table}) {
-            $need_tables->{$table} = 1;
-            $self->_need_tables($tree, $need_tables, [$tree->{$table}{parent}])
-        }
-    }
-}
-
-sub _push_join {
-    my ($self, $sql, $join, $join_tables) = @_;
-    
-    # No join
-    return unless @$join;
-    
-    # Push join clause
-    my $tree = {};
-    for (my $i = 0; $i < @$join; $i++) {
-        
-        # Arrange
-        my $join_clause;;
-        my $option;
-        if (ref $join->[$i] eq 'HASH') {
-            $join_clause = $join->[$i]->{clause};
-            $option = {table => $join->[$i]->{table}};
-        }
-        else {
-            $join_clause = $join->[$i];
-            $option = {};
-        };
-
-        # Find tables in join clause
-        my $table1;
-        my $table2;
-        if (my $table = $option->{table}) {
-            $table1 = $table->[0];
-            $table2 = $table->[1];
-        }
-        else {
-            my $q = $self->_quote;
-            my $j_clause = (split /\s+on\s+/, $join_clause)[-1];
-            $j_clause =~ s/'.+?'//g;
-            my $q_re = quotemeta($q);
-            $j_clause =~ s/[$q_re]//g;
-            my $c = $self->safety_character;
-            my $join_re = qr/(?:^|\s)($c+)\.$c+\s+=\s+($c+)\.$c+/;
-            if ($j_clause =~ $join_re) {
-                $table1 = $1;
-                $table2 = $2;
-            }
-        }
-        croak qq{join clause must have two table name after "on" keyword. } .
-              qq{"$join_clause" is passed }  . _subname
-          unless defined $table1 && defined $table2;
-        croak qq{right side table of "$join_clause" must be unique }
-            . _subname
-          if exists $tree->{$table2};
-        croak qq{Same table "$table1" is specified} . _subname
-          if $table1 eq $table2;
-        $tree->{$table2}
-          = {position => $i, parent => $table1, join => $join_clause};
-    }
-    
-    # Search need tables
-    my $need_tables = {};
-    $self->_need_tables($tree, $need_tables, $join_tables);
-    my @need_tables = sort { $tree->{$a}{position} <=> $tree->{$b}{position} } keys %$need_tables;
-    
-    # Add join clause
-    foreach my $need_table (@need_tables) {
-        push @$sql, $tree->{$need_table}{join};
-    }
-}
-
-sub _quote {
-    my $self = shift;
-    
-    return defined $self->reserved_word_quote ? $self->reserved_word_quote
-         : defined $self->quote ? $self->quote
-         : '';
-}
-
-sub _q {
-    my ($self, $value) = @_;
-    
-    my $quote = $self->_quote;
-    my $q = substr($quote, 0, 1) || '';
-    my $p;
-    if (defined $quote && length $quote > 1) {
-        $p = substr($quote, 1, 1);
-    }
-    else { $p = $q }
-    
-    return "$q$value$p";
-}
-
-sub _remove_duplicate_table {
-    my ($self, $tables, $main_table) = @_;
-    
-    # Remove duplicate table
-    my %tables = map {defined $_ ? ($_ => 1) : ()} @$tables;
-    delete $tables{$main_table} if $main_table;
-    
-    my $new_tables = [keys %tables, $main_table ? $main_table : ()];
-    if (my $q = $self->_quote) {
-        $q = quotemeta($q);
-        $_ =~ s/[$q]//g for @$new_tables;
-    }
-
-    return $new_tables;
-}
-
-sub _search_tables {
-    my ($self, $source) = @_;
-    
-    # Search tables
-    my $tables = [];
-    my $safety_character = $self->safety_character;
-    my $q = $self->_quote;
-    my $q_re = quotemeta($q);
-    my $quoted_safety_character_re = $self->_q("?([$safety_character]+)");
-    my $table_re = $q ? qr/(?:^|[^$safety_character])$quoted_safety_character_re?\./
-                      : qr/(?:^|[^$safety_character])([$safety_character]+)\./;
-    while ($source =~ /$table_re/g) {
-        push @$tables, $1;
-    }
-    
-    return $tables;
-}
-
-sub _where_to_obj {
-    my ($self, $where) = @_;
-    
-    my $obj;
-    
-    # Hash
-    if (ref $where eq 'HASH') {
-        my $clause = ['and'];
-        my $q = $self->_quote;
-        foreach my $column (keys %$where) {
-            my $column_quote = $self->_q($column);
-            $column_quote =~ s/\./$self->_q(".")/e;
-            push @$clause, "$column_quote = :$column" for keys %$where;
-        }
-        $obj = $self->where(clause => $clause, param => $where);
-    }
-    
-    # DBIx::Custom::Where object
-    elsif (ref $where eq 'DBIx::Custom::Where') {
-        $obj = $where;
-    }
-    
-    # Array
-    elsif (ref $where eq 'ARRAY') {
-        $obj = $self->where(
-            clause => $where->[0],
-            param  => $where->[1]
-        );
-    }
-    
-    # Check where argument
-    croak qq{"where" must be hash reference or DBIx::Custom::Where object}
-        . qq{or array reference, which contains where clause and parameter}
-        . _subname
-      unless ref $obj eq 'DBIx::Custom::Where';
-    
-    return $obj;
-}
-
-sub _apply_filter {
-    my ($self, $table, @cinfos) = @_;
-
-    # Initialize filters
-    $self->{filter} ||= {};
-    $self->{filter}{on} = 1;
-    $self->{filter}{out} ||= {};
-    $self->{filter}{in} ||= {};
-    $self->{filter}{end} ||= {};
-    
-    # Usage
-    my $usage = "Usage: \$dbi->apply_filter(" .
-                "TABLE, COLUMN1, {in => INFILTER1, out => OUTFILTER1, end => ENDFILTER1}, " .
-                "COLUMN2, {in => INFILTER2, out => OUTFILTER2, end => ENDFILTER2}, ...)";
-    
-    # Apply filter
-    for (my $i = 0; $i < @cinfos; $i += 2) {
-        
-        # Column
-        my $column = $cinfos[$i];
-        if (ref $column eq 'ARRAY') {
-            foreach my $c (@$column) {
-                push @cinfos, $c, $cinfos[$i + 1];
-            }
-            next;
-        }
-        
-        # Filter infomation
-        my $finfo = $cinfos[$i + 1] || {};
-        croak "$usage (table: $table) " . _subname
-          unless  ref $finfo eq 'HASH';
-        foreach my $ftype (keys %$finfo) {
-            croak "$usage (table: $table) " . _subname
-              unless $ftype eq 'in' || $ftype eq 'out' || $ftype eq 'end'; 
-        }
-        
-        # Set filters
-        foreach my $way (qw/in out end/) {
-        
-            # Filter
-            my $filter = $finfo->{$way};
-            
-            # Filter state
-            my $state = !exists $finfo->{$way} ? 'not_exists'
-                      : !defined $filter        ? 'not_defined'
-                      : ref $filter eq 'CODE'   ? 'code'
-                      : 'name';
-            
-            # Filter is not exists
-            next if $state eq 'not_exists';
-            
-            # Check filter name
-            croak qq{Filter "$filter" is not registered } . _subname
-              if  $state eq 'name'
-               && ! exists $self->filters->{$filter};
-            
-            # Set filter
-            my $f = $state eq 'not_defined' ? undef
-                  : $state eq 'code'        ? $filter
-                  : $self->filters->{$filter};
-            $self->{filter}{$way}{$table}{$column} = $f;
-            $self->{filter}{$way}{$table}{"$table.$column"} = $f;
-            $self->{filter}{$way}{$table}{"${table}__$column"} = $f;
-            $self->{filter}{$way}{$table}{"${table}-$column"} = $f;
-        }
-    }
-    
-    return $self;
-}
-
-# DEPRECATED!
-sub create_query {
-    warn "create_query is DEPRECATED! use query option of each method";
-    shift->_create_query(@_);
-}
-
-# DEPRECATED!
-sub apply_filter {
-    my $self = shift;
-    
-    warn "apply_filter is DEPRECATED!";
-    return $self->_apply_filter(@_);
-}
-
-# DEPRECATED!
-our %SELECT_AT_ARGS = (%VALID_ARGS, where => 1, primary_key => 1);
-sub select_at {
-    my ($self, %args) = @_;
-
-    warn "select_at is DEPRECATED! use update and id option instead";
-
-    # Arguments
-    my $primary_keys = delete $args{primary_key};
-    $primary_keys = [$primary_keys] unless ref $primary_keys;
-    my $where = delete $args{where};
-    my $param = delete $args{param};
-    
-    # Check arguments
-    foreach my $name (keys %args) {
-        croak qq{"$name" is wrong option } . _subname
-          unless $SELECT_AT_ARGS{$name};
-    }
-    
-    # Table
-    croak qq{"table" option must be specified } . _subname
-      unless $args{table};
-    my $table = ref $args{table} ? $args{table}->[-1] : $args{table};
-    
-    # Create where parameter
-    my $where_param = $self->_create_param_from_id($where, $primary_keys);
-    
-    return $self->select(where => $where_param, %args);
-}
-
-# DEPRECATED!
-our %DELETE_AT_ARGS = (%VALID_ARGS, where => 1, primary_key => 1);
-sub delete_at {
-    my ($self, %args) = @_;
-
-    warn "delete_at is DEPRECATED! use update and id option instead";
-    
-    # Arguments
-    my $primary_keys = delete $args{primary_key};
-    $primary_keys = [$primary_keys] unless ref $primary_keys;
-    my $where = delete $args{where};
-    
-    # Check arguments
-    foreach my $name (keys %args) {
-        croak qq{"$name" is wrong option } . _subname
-          unless $DELETE_AT_ARGS{$name};
-    }
-    
-    # Create where parameter
-    my $where_param = $self->_create_param_from_id($where, $primary_keys);
-    
-    return $self->delete(where => $where_param, %args);
-}
-
-# DEPRECATED!
-our %UPDATE_AT_ARGS = (%VALID_ARGS, where => 1, primary_key => 1);
-sub update_at {
-    my $self = shift;
-
-    warn "update_at is DEPRECATED! use update and id option instead";
-    
-    # Arguments
-    my $param;
-    $param = shift if @_ % 2;
-    my %args = @_;
-    my $primary_keys = delete $args{primary_key};
-    $primary_keys = [$primary_keys] unless ref $primary_keys;
-    my $where = delete $args{where};
-    my $p = delete $args{param} || {};
-    $param  ||= $p;
-    
-    # Check arguments
-    foreach my $name (keys %args) {
-        croak qq{"$name" is wrong option } . _subname
-          unless $UPDATE_AT_ARGS{$name};
-    }
-    
-    # Create where parameter
-    my $where_param = $self->_create_param_from_id($where, $primary_keys);
-    
-    return $self->update(where => $where_param, param => $param, %args);
-}
-
-# DEPRECATED!
-our %INSERT_AT_ARGS = (%VALID_ARGS, where => 1, primary_key => 1);
-sub insert_at {
-    my $self = shift;
-    
-    warn "insert_at is DEPRECATED! use insert and id option instead";
-    
-    # Arguments
-    my $param;
-    $param = shift if @_ % 2;
-    my %args = @_;
-    my $primary_key = delete $args{primary_key};
-    $primary_key = [$primary_key] unless ref $primary_key;
-    my $where = delete $args{where};
-    my $p = delete $args{param} || {};
-    $param  ||= $p;
-    
-    # Check arguments
-    foreach my $name (keys %args) {
-        croak qq{"$name" is wrong option } . _subname
-          unless $INSERT_AT_ARGS{$name};
-    }
-    
-    # Create where parameter
-    my $where_param = $self->_create_param_from_id($where, $primary_key);
-    $param = $self->merge_param($where_param, $param);
-    
-    return $self->insert(param => $param, %args);
-}
-
-# DEPRECATED!
-sub register_tag {
-    warn "register_tag is DEPRECATED!";
-    shift->query_builder->register_tag(@_)
-}
-
-# DEPRECATED!
-has 'data_source';
-has dbi_options => sub { {} };
-has filter_check  => 1;
-has 'reserved_word_quote';
-
-# DEPRECATED!
-sub default_bind_filter {
-    my $self = shift;
-    
-    warn "default_bind_filter is DEPRECATED!";
-    
-    if (@_) {
-        my $fname = $_[0];
-        
-        if (@_ && !$fname) {
-            $self->{default_out_filter} = undef;
-        }
-        else {
-            croak qq{Filter "$fname" is not registered}
-              unless exists $self->filters->{$fname};
-        
-            $self->{default_out_filter} = $self->filters->{$fname};
-        }
-        return $self;
-    }
-    
-    return $self->{default_out_filter};
-}
-
-# DEPRECATED!
-sub default_fetch_filter {
-    my $self = shift;
-
-    warn "default_fetch_filter is DEPRECATED!";
-    
-    if (@_) {
-        my $fname = $_[0];
-
-        if (@_ && !$fname) {
-            $self->{default_in_filter} = undef;
-        }
-        else {
-            croak qq{Filter "$fname" is not registered}
-              unless exists $self->filters->{$fname};
-        
-            $self->{default_in_filter} = $self->filters->{$fname};
-        }
-        
-        return $self;
-    }
-    
-    return $self->{default_in_filter};
-}
-
-# DEPRECATED!
-sub insert_param_tag {
-    warn "insert_param_tag is DEPRECATED! " .
-         "use insert_param instead!";
-    return shift->insert_param(@_);
-}
-
-# DEPRECATED!
-sub register_tag_processor {
-    warn "register_tag_processor is DEPRECATED!";
-    return shift->query_builder->register_tag_processor(@_);
-}
-
-# DEPRECATED!
-sub update_param_tag {
-    warn "update_param_tag is DEPRECATED! " .
-         "use update_param instead";
-    return shift->update_param(@_);
-}
-# DEPRECATED!
-sub _push_relation {
-    my ($self, $sql, $tables, $relation, $need_where) = @_;
-    
-    if (keys %{$relation || {}}) {
-        push @$sql, $need_where ? 'where' : 'and';
-        foreach my $rcolumn (keys %$relation) {
-            my $table1 = (split (/\./, $rcolumn))[0];
-            my $table2 = (split (/\./, $relation->{$rcolumn}))[0];
-            push @$tables, ($table1, $table2);
-            push @$sql, ("$rcolumn = " . $relation->{$rcolumn},  'and');
-        }
-    }
-    pop @$sql if $sql->[-1] eq 'and';    
-}
-
-# DEPRECATED!
-sub _add_relation_table {
-    my ($self, $tables, $relation) = @_;
-    
-    if (keys %{$relation || {}}) {
-        foreach my $rcolumn (keys %$relation) {
-            my $table1 = (split (/\./, $rcolumn))[0];
-            my $table2 = (split (/\./, $relation->{$rcolumn}))[0];
-            my $table1_exists;
-            my $table2_exists;
-            foreach my $table (@$tables) {
-                $table1_exists = 1 if $table eq $table1;
-                $table2_exists = 1 if $table eq $table2;
-            }
-            unshift @$tables, $table1 unless $table1_exists;
-            unshift @$tables, $table2 unless $table2_exists;
-        }
-    }
-}
-
-1;
-
-=head1 NAME
-
-DBIx::Custom - Execute insert, update, delete, and select statement easily
-
-=head1 SYNOPSYS
-
-    use DBIx::Custom;
-    
-    # Connect
-    my $dbi = DBIx::Custom->connect(
-        dsn => "dbi:mysql:database=dbname",
-        user => 'ken',
-        password => '!LFKD%$&',
-        dbi_option => {mysql_enable_utf8 => 1}
-    );
-
-    # Insert 
-    $dbi->insert({title => 'Perl', author => 'Ken'}, table  => 'book');
-    
-    # Update 
-    $dbi->update({title => 'Perl', author => 'Ken'}, table  => 'book',
-      where  => {id => 5});
-    
-    # Delete
-    $dbi->delete(table  => 'book', where => {author => 'Ken'});
-
-    # Select
-    my $result = $dbi->select(table  => 'book',
-      column => ['title', 'author'], where  => {author => 'Ken'});
-
-    # Select, more complex
-    my $result = $dbi->select(
-        table  => 'book',
-        column => [
-            {book => [qw/title author/]},
-            {company => ['name']}
-        ],
-        where  => {'book.author' => 'Ken'},
-        join => ['left outer join company on book.company_id = company.id'],
-        append => 'order by id limit 5'
-    );
-    
-    # Fetch
-    while (my $row = $result->fetch) {
-        
-    }
-    
-    # Fetch as hash
-    while (my $row = $result->fetch_hash) {
-        
-    }
-    
-    # Execute SQL with parameter.
-    $dbi->execute(
-        "select id from book where author = :author and title like :title",
-        {author => 'ken', title => '%Perl%'}
-    );
-    
-=head1 DESCRIPTIONS
-
-L<DBIx::Custom> is L<DBI> wrapper module to execute SQL easily.
-This module have the following features.
-
-=over 4
-
-=item *
-
-Execute C<insert>, C<update>, C<delete>, or C<select> statement easily
-
-=item *
-
-Create C<where> clause flexibly
-
-=item *
-
-Named place holder support
-
-=item *
-
-Model support
-
-=item *
-
-Connection manager support
-
-=item *
-
-Choice your favorite relational database management system,
-C<MySQL>, C<SQLite>, C<PostgreSQL>, C<Oracle>,
-C<Microsoft SQL Server>, C<Microsoft Access>, C<DB2> or anything, 
-
-=item *
-
-Filtering by data type or column name(EXPERIMENTAL)
-
-=item *
-
-Create C<order by> clause flexibly(EXPERIMENTAL)
-
-=back
-
-=head1 DOCUMENTATIONS
-
-L<DBIx::Custom::Guide> - How to use L<DBIx::Custom>
-
-L<DBIx::Custom Wiki|https://github.com/yuki-kimoto/DBIx-Custom/wiki>
-- Theare are various examples.
-
-Module documentations - 
-L<DBIx::Custom::Result>,
-L<DBIx::Custom::Query>,
-L<DBIx::Custom::Where>,
-L<DBIx::Custom::Model>,
-L<DBIx::Custom::Order>
-
-=head1 ATTRIBUTES
-
-=head2 C<connector>
-
-    my $connector = $dbi->connector;
-    $dbi = $dbi->connector($connector);
-
-Connection manager object. if C<connector> is set, you can get C<dbh>
-through connection manager. Conection manager object must have C<dbh> mehtod.
-
-This is L<DBIx::Connector> example. Please pass
-C<default_dbi_option> to L<DBIx::Connector> C<new> method.
-
-    my $connector = DBIx::Connector->new(
-        "dbi:mysql:database=$DATABASE",
-        $USER,
-        $PASSWORD,
-        DBIx::Custom->new->default_dbi_option
-    );
-    
-    my $dbi = DBIx::Custom->connect(connector => $connector);
-
-=head2 C<dsn>
-
-    my $dsn = $dbi->dsn;
-    $dbi = $dbi->dsn("DBI:mysql:database=dbname");
-
-Data source name, used when C<connect> method is executed.
-
-=head2 C<dbi_option>
-
-    my $dbi_option = $dbi->dbi_option;
-    $dbi = $dbi->dbi_option($dbi_option);
-
-L<DBI> option, used when C<connect> method is executed.
-Each value in option override the value of C<default_dbi_option>.
-
-=head2 C<default_dbi_option>
-
-    my $default_dbi_option = $dbi->default_dbi_option;
-    $dbi = $dbi->default_dbi_option($default_dbi_option);
-
-L<DBI> default option, used when C<connect> method is executed,
-default to the following values.
-
-    {
-        RaiseError => 1,
-        PrintError => 0,
-        AutoCommit => 1,
-    }
-
-=head2 C<filters>
-
-    my $filters = $dbi->filters;
-    $dbi = $dbi->filters(\%filters);
-
-Filters, registered by C<register_filter> method.
-
-=head2 C<last_sql>
-
-    my $last_sql = $dbi->last_sql;
-    $dbi = $dbi->last_sql($last_sql);
-
-Get last successed SQL executed by C<execute> method.
-
-=head2 C<models>
-
-    my $models = $dbi->models;
-    $dbi = $dbi->models(\%models);
-
-Models, included by C<include_model> method.
-
-=head2 C<password>
-
-    my $password = $dbi->password;
-    $dbi = $dbi->password('lkj&le`@s');
-
-Password, used when C<connect> method is executed.
-
-=head2 C<query_builder>
-
-    my $sql_class = $dbi->query_builder;
-    $dbi = $dbi->query_builder(DBIx::Custom::QueryBuilder->new);
-
-Query builder, default to L<DBIx::Custom::QueryBuilder> object.
-
-=head2 C<quote>
-
-     my quote = $dbi->quote;
-     $dbi = $dbi->quote('"');
-
-Reserved word quote.
-Default to double quote '"' except for mysql.
-In mysql, default to back quote '`'
-
-You can set quote pair.
-
-    $dbi->quote('[]');
-
-=head2 C<result_class>
-
-    my $result_class = $dbi->result_class;
-    $dbi = $dbi->result_class('DBIx::Custom::Result');
-
-Result class, default to L<DBIx::Custom::Result>.
-
-=head2 C<safety_character>
-
-    my $safety_character = $self->safety_character;
-    $dbi = $self->safety_character($character);
-
-Regex of safety character for table and column name, default to '\w'.
-Note that you don't have to specify like '[\w]'.
-
-=head2 C<tag_parse>
-
-    my $tag_parse = $dbi->tag_parse(0);
-    $dbi = $dbi->tag_parse;
-
-Enable DEPRECATED tag parsing functionality, default to 1.
-If you want to disable tag parsing functionality, set to 0.
-
-=head2 C<user>
-
-    my $user = $dbi->user;
-    $dbi = $dbi->user('Ken');
-
-User name, used when C<connect> method is executed.
-
-=head1 METHODS
-
-L<DBIx::Custom> inherits all methods from L<Object::Simple>
-and use all methods of L<DBI>
-and implements the following new ones.
-
-=head2 C<available_data_type> EXPERIMENTAL
-
-    print $dbi->available_data_type;
-
-Get available data types. You can use these data types
-in C<type rule>'s C<from1> and C<from2> section.
-
-=head2 C<available_type_name> EXPERIMENTAL
-
-    print $dbi->available_type_name;
-
-Get available type names. You can use these type names in
-C<type_rule>'s C<into1> and C<into2> section.
-
-=head2 C<assign_param> EXPERIMENTAL
-
-    my $assign_param = $dbi->assign_param({title => 'a', age => 2});
-
-Create assign parameter.
-
-    title = :title, author = :author
-
-This is equal to C<update_param> exept that set is not added.
-
-=head2 C<column>
-
-    my $column = $dbi->column(book => ['author', 'title']);
-
-Create column clause. The follwoing column clause is created.
-
-    book.author as "book.author",
-    book.title as "book.title"
-
-You can change separator by C<separator> method.
-
-    # Separator is double underbar
-    $dbi->separator('__');
-    
-    book.author as "book__author",
-    book.title as "book__title"
-
-    # Separator is hyphen
-    $dbi->separator('-');
-    
-    book.author as "book-author",
-    book.title as "book-title"
-    
-=head2 C<connect>
-
-    my $dbi = DBIx::Custom->connect(
-        dsn => "dbi:mysql:database=dbname",
-        user => 'ken',
-        password => '!LFKD%$&',
-        dbi_option => {mysql_enable_utf8 => 1}
-    );
-
-Connect to the database and create a new L<DBIx::Custom> object.
-
-L<DBIx::Custom> is a wrapper of L<DBI>.
-C<AutoCommit> and C<RaiseError> options are true, 
-and C<PrintError> option is false by default.
-
-=head2 create_model
-
-    my $model = $dbi->create_model(
-        table => 'book',
-        primary_key => 'id',
-        join => [
-            'inner join company on book.comparny_id = company.id'
-        ],
-    );
-
-Create L<DBIx::Custom::Model> object and initialize model.
-the module is also used from C<model> method.
-
-   $dbi->model('book')->select(...);
-
-=head2 C<dbh>
-
-    my $dbh = $dbi->dbh;
-
-Get L<DBI> database handle. if C<connector> is set, you can get
-database handle through C<connector> object.
-
-=head2 C<each_column>
-
-    $dbi->each_column(
-        sub {
-            my ($dbi, $table, $column, $column_info) = @_;
-            
-            my $type = $column_info->{TYPE_NAME};
-            
-            if ($type eq 'DATE') {
-                # ...
-            }
-        }
-    );
-
-Iterate all column informations of all table from database.
-Argument is callback when one column is found.
-Callback receive four arguments, dbi object, table name,
-column name and column information.
-
-=head2 C<each_table>
-
-    $dbi->each_table(
-        sub {
-            my ($dbi, $table, $table_info) = @_;
-            
-            my $table_name = $table_info->{TABLE_NAME};
-        }
-    );
-
-Iterate all table informationsfrom database.
-Argument is callback when one table is found.
-Callback receive three arguments, dbi object, table name,
-table information.
-
-=head2 C<execute>
-
-    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%'}
-    );
-
-Execute SQL. SQL can contain column parameter such as :author and :title.
-You can append table name to column name such as :book.title and :book.author.
-Second argunet is data, embedded into column parameter.
-Return value is L<DBIx::Custom::Result> object when select statement is executed,
-or the count of affected rows when insert, update, delete statement is executed.
-
-Named placeholder such as C<:title> is replaced by placeholder C<?>.
-    
-    # Original
-    select * from book where title = :title and author like :author
-    
-    # Replaced
-    select * from where title = ? and author like ?;
-
-You can specify operator with named placeholder
- by C<name{operator}> syntax.
-
-    # Original
-    select * from book where :title{=} and :author{like}
-    
-    # Replaced
-    select * from where title = ? and author like ?;
-
-Note that colons in time format such as 12:13:15 is exeption,
-it is not parsed as named placeholder.
-If you want to use colon generally, you must escape it by C<\\>
-
-    select * from where title = "aa\\:bb";
-
-The following opitons are available.
-
-=over 4
-
-=item C<filter>
-    
-    filter => {
-        title  => sub { uc $_[0] }
-        author => sub { uc $_[0] }
-    }
-
-    # Filter name
-    filter => {
-        title  => 'upper_case',
-        author => 'upper_case'
-    }
-        
-    # At once
-    filter => [
-        [qw/title author/]  => sub { uc $_[0] }
-    ]
-
-Filter. You can set subroutine or filter name
-registered by by C<register_filter>.
-This filter is executed before data is saved into database.
-and before type rule filter is executed.
-
-=item C<query>
-
-    query => 1
-
-C<execute> method return L<DBIx::Custom::Query> object, not executing SQL.
-You can check SQL or get statment handle.
-
-    my $sql = $query->sql;
-    my $sth = $query->sth;
-    my $columns = $query->columns;
-    
-If you want to execute SQL fast, you can do the following way.
-
-    my $query;
-    foreach my $row (@$rows) {
-      $query ||= $dbi->insert($row, table => 'table1', query => 1);
-      $dbi->execute($query, $row, filter => {ab => sub { $_[0] * 2 }});
-    }
-
-Statement handle is reused and SQL parsing is finished,
-so you can get more performance than normal way.
-
-If you want to execute SQL as possible as fast and don't need filtering.
-You can do the following way.
-    
-    my $query;
-    my $sth;
-    foreach my $row (@$rows) {
-      $query ||= $dbi->insert($row, table => 'book', query => 1);
-      $sth ||= $query->sth;
-      $sth->execute(map { $row->{$_} } sort keys %$row);
-    }
-
-Note that $row must be simple hash reference, such as
-{title => 'Perl', author => 'Ken'}.
-and don't forget to sort $row values by $row key asc order.
-
-=item C<table>
-    
-    table => 'author'
-
-If you want to omit table name in column name
-and enable C<into1> and C<into2> type filter,
-You must set C<table> option.
-
-    $dbi->execute("select * from book where title = :title and author = :author",
-        {title => 'Perl', author => 'Ken', table => 'book');
-
-    # Same
-    $dbi->execute(
-      "select * from book where title = :book.title and author = :book.author",
-      {title => 'Perl', author => 'Ken');
-
-=item C<bind_type>
-
-Specify database bind data type.
-
-    bind_type => [image => DBI::SQL_BLOB]
-    bind_type => [[qw/image audio/] => DBI::SQL_BLOB]
-
-This is used to bind parameter by C<bind_param> of statment handle.
-
-    $sth->bind_param($pos, $value, DBI::SQL_BLOB);
-
-=item C<table_alias> EXPERIMENTAL
-
-    table_alias => {user => 'hiker'}
-
-Table alias. Key is real table name, value is alias table name.
-If you set C<table_alias>, you can enable C<into1> and C<into2> type rule
-on alias table name.
-
-=item C<type_rule_off> EXPERIMENTAL
-
-    type_rule_off => 1
-
-Turn C<into1> and C<into2> type rule off.
-
-=item C<type_rule1_off> EXPERIMENTAL
-
-    type_rule1_off => 1
-
-Turn C<into1> type rule off.
-
-=item C<type_rule2_off> EXPERIMENTAL
-
-    type_rule2_off => 1
-
-Turn C<into2> type rule off.
-
-=back
-
-=head2 C<delete>
-
-    $dbi->delete(table => 'book', where => {title => 'Perl'});
-
-Execute delete statement.
-
-The following opitons are available.
-
-=over 4
-
-=item C<append>
-
-Same as C<select> method's C<append> option.
-
-=item C<filter>
-
-Same as C<execute> method's C<filter> option.
-
-=item C<id>
-
-    id => 4
-    id => [4, 5]
-
-ID corresponding to C<primary_key>.
-You can delete rows by C<id> and C<primary_key>.
-
-    $dbi->delete(
-        parimary_key => ['id1', 'id2'],
-        id => [4, 5],
-        table => 'book',
-    );
-
-The above is same as the followin one.
-
-    $dbi->delete(where => {id1 => 4, id2 => 5}, table => 'book');
-
-=item C<prefix>
-
-    prefix => 'some'
-
-prefix before table name section.
-
-    delete some from book
-
-=item C<query>
-
-Same as C<execute> method's C<query> option.
-
-=item C<table>
-
-    table => 'book'
-
-Table name.
-
-=item C<where>
-
-Same as C<select> method's C<where> option.
-
-=item C<primary_key>
-
-See C<id> option.
-
-=item C<bind_type>
-
-Same as C<execute> method's C<bind_type> option.
-
-=item C<type_rule_off> EXPERIMENTAL
-
-Same as C<execute> method's C<type_rule_off> option.
-
-=item C<type_rule1_off> EXPERIMENTAL
-
-    type_rule1_off => 1
-
-Same as C<execute> method's C<type_rule1_off> option.
-
-=item C<type_rule2_off> EXPERIMENTAL
-
-    type_rule2_off => 1
-
-Same as C<execute> method's C<type_rule2_off> option.
-
-=back
-
-=head2 C<delete_all>
-
-    $dbi->delete_all(table => $table);
-
-Execute delete statement for all rows.
-Options is same as C<delete>.
-
-=head2 C<insert>
-
-    $dbi->insert({title => 'Perl', author => 'Ken'}, table  => 'book');
-
-Execute insert statement. First argument is row data. Return value is
-affected row count.
-
-If you want to set constant value to row data, use scalar reference
-as parameter value.
-
-    {date => \"NOW()"}
-
-The following opitons are available.
-
-=over 4
-
-=item C<append>
-
-Same as C<select> method's C<append> option.
-
-=item C<filter>
-
-Same as C<execute> method's C<filter> option.
-
-=item C<id>
-
-    id => 4
-    id => [4, 5]
-
-ID corresponding to C<primary_key>.
-You can insert a row by C<id> and C<primary_key>.
-
-    $dbi->insert(
-        {title => 'Perl', author => 'Ken'}
-        parimary_key => ['id1', 'id2'],
-        id => [4, 5],
-        table => 'book'
-    );
-
-The above is same as the followin one.
-
-    $dbi->insert(
-        {id1 => 4, id2 => 5, title => 'Perl', author => 'Ken'},
-        table => 'book'
-    );
-
-=item C<prefix>
-
-    prefix => 'or replace'
-
-prefix before table name section
-
-    insert or replace into book
-
-=item C<primary_key>
-
-    primary_key => 'id'
-    primary_key => ['id1', 'id2']
-
-Primary key. This is used by C<id> option.
-
-=item C<query>
-
-Same as C<execute> method's C<query> option.
-
-=item C<table>
-
-    table => 'book'
-
-Table name.
-
-=item C<bind_type>
-
-Same as C<execute> method's C<bind_type> option.
-
-=item C<type_rule_off> EXPERIMENTAL
-
-Same as C<execute> method's C<type_rule_off> option.
-
-=item C<type_rule1_off> EXPERIMENTAL
-
-    type_rule1_off => 1
-
-Same as C<execute> method's C<type_rule1_off> option.
-
-=item C<type_rule2_off> EXPERIMENTAL
-
-    type_rule2_off => 1
-
-Same as C<execute> method's C<type_rule2_off> option.
-
-=back
-
-=over 4
-
-=head2 C<insert_param>
-
-    my $insert_param = $dbi->insert_param({title => 'a', age => 2});
-
-Create insert parameters.
-
-    (title, author) values (title = :title, age = :age);
-
-=head2 C<include_model>
-
-    $dbi->include_model('MyModel');
-
-Include models from specified namespace,
-the following layout is needed to include models.
-
-    lib / MyModel.pm
-        / MyModel / book.pm
-                  / company.pm
-
-Name space module, extending L<DBIx::Custom::Model>.
-
-B<MyModel.pm>
-
-    package MyModel;
-    use DBIx::Custom::Model -base;
-    
-    1;
-
-Model modules, extending name space module.
-
-B<MyModel/book.pm>
-
-    package MyModel::book;
-    use MyModel -base;
-    
-    1;
-
-B<MyModel/company.pm>
-
-    package MyModel::company;
-    use MyModel -base;
-    
-    1;
-    
-MyModel::book and MyModel::company is included by C<include_model>.
-
-You can get model object by C<model>.
-
-    my $book_model = $dbi->model('book');
-    my $company_model = $dbi->model('company');
-
-See L<DBIx::Custom::Model> to know model features.
-
-=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});
-
-Merge parameters.
-
-    {key1 => [1, 1], key2 => 2}
-
-=head2 C<method>
-
-    $dbi->method(
-        update_or_insert => sub {
-            my $self = shift;
-            
-            # Process
-        },
-        find_or_create   => sub {
-            my $self = shift;
-            
-            # Process
-        }
-    );
-
-Register method. These method is called directly from L<DBIx::Custom> object.
-
-    $dbi->update_or_insert;
-    $dbi->find_or_create;
-
-=head2 C<model>
-
-    my $model = $dbi->model('book');
-
-Get a L<DBIx::Custom::Model> object,
-
-=head2 C<mycolumn>
-
-    my $column = $self->mycolumn(book => ['author', 'title']);
-
-Create column clause for myself. The follwoing column clause is created.
-
-    book.author as author,
-    book.title as title
-
-=head2 C<new>
-
-    my $dbi = DBIx::Custom->new(
-        dsn => "dbi:mysql:database=dbname",
-        user => 'ken',
-        password => '!LFKD%$&',
-        dbi_option => {mysql_enable_utf8 => 1}
-    );
-
-Create a new L<DBIx::Custom> object.
-
-=head2 C<not_exists>
-
-    my $not_exists = $dbi->not_exists;
-
-DBIx::Custom::NotExists object, indicating the column is not exists.
-This is used by C<clause> of L<DBIx::Custom::Where> .
-
-=head2 C<order> EXPERIMENTAL
-
-    my $order = $dbi->order;
-
-Create a new L<DBIx::Custom::Order> object.
-
-=head2 C<register_filter>
-
-    $dbi->register_filter(
-        # Time::Piece object to database DATE format
-        tp_to_date => sub {
-            my $tp = shift;
-            return $tp->strftime('%Y-%m-%d');
-        },
-        # database DATE format to Time::Piece object
-        date_to_tp => sub {
-           my $date = shift;
-           return Time::Piece->strptime($date, '%Y-%m-%d');
-        }
-    );
-    
-Register filters, used by C<filter> option of many methods.
-
-=head2 C<type_rule> EXPERIMENTAL
-
-    $dbi->type_rule(
-        into1 => {
-            date => sub { ... },
-            datetime => sub { ... }
-        },
-        into2 => {
-            date => sub { ... },
-            datetime => sub { ... }
-        },
-        from1 => {
-            # DATE
-            9 => sub { ... },
-            # DATETIME or TIMESTAMP
-            11 => sub { ... },
-        }
-        from2 => {
-            # DATE
-            9 => sub { ... },
-            # DATETIME or TIMESTAMP
-            11 => sub { ... },
-        }
-    );
-
-Filtering rule when data is send into and get from database.
-This has a little complex problem.
-
-In C<into1> and C<into2> you can specify
-type name as same as type name defined
-by create table, such as C<DATETIME> or C<DATE>.
-
-Note that type name and data type don't contain upper case.
-If these contain upper case charactor, you convert it to lower case.
-
-C<into2> is executed after C<into1>.
-
-Type rule of C<into1> and C<into2> is enabled on the following
-column name.
-
-=over 4
-
-=item 1. column name
-
-    issue_date
-    issue_datetime
-
-This need C<table> option in each method.
-
-=item 2. table name and column name, separator is dot
-
-    book.issue_date
-    book.issue_datetime
-
-=back
-
-You get all type name used in database by C<available_type_name>.
-
-    print $dbi->available_type_name;
-
-In C<from1> and C<from2> you specify data type, not type name.
-C<from2> is executed after C<from1>.
-You get all data type by C<available_data_type>.
-
-    print $dbi->available_data_type;
-
-You can also specify multiple types at once.
-
-    $dbi->type_rule(
-        into1 => [
-            [qw/DATE DATETIME/] => sub { ... },
-        ],
-    );
-
-=head2 C<select>
-
-    my $result = $dbi->select(
-        table  => 'book',
-        column => ['author', 'title'],
-        where  => {author => 'Ken'},
-    );
-    
-Execute select statement.
-
-The following opitons are available.
-
-=over 4
-
-=item C<append>
-
-    append => 'order by title'
-
-Append statement to last of SQL.
-    
-=item C<column>
-    
-    column => 'author'
-    column => ['author', 'title']
-
-Column clause.
-    
-if C<column> is not specified, '*' is set.
-
-    column => '*'
-
-You can specify hash of array reference.
-
-    column => [
-        {book => [qw/author title/]},
-        {person => [qw/name age/]}
-    ]
-
-This is expanded to the following one by using C<colomn> method.
-
-    book.author as "book.author",
-    book.title as "book.title",
-    person.name as "person.name",
-    person.age as "person.age"
-
-You can specify array of array reference, first argument is
-column name, second argument is alias.
-
-    column => [
-        ['date(book.register_datetime)' => 'book.register_date']
-    ];
-
-Alias is quoted properly and joined.
-
-    date(book.register_datetime) as "book.register_date"
-
-=item C<filter>
-
-Same as C<execute> method's C<filter> option.
-
-=item C<id>
-
-    id => 4
-    id => [4, 5]
-
-ID corresponding to C<primary_key>.
-You can select rows by C<id> and C<primary_key>.
-
-    $dbi->select(
-        parimary_key => ['id1', 'id2'],
-        id => [4, 5],
-        table => 'book'
-    );
-
-The above is same as the followin one.
-
-    $dbi->select(
-        where => {id1 => 4, id2 => 5},
-        table => 'book'
-    );
-    
-=item C<param> EXPERIMETNAL
-
-    param => {'table2.key3' => 5}
-
-Parameter shown before where clause.
-    
-For example, if you want to contain tag in join clause, 
-you can pass parameter by C<param> option.
-
-    join  => ['inner join (select * from table2 where table2.key3 = :table2.key3)' . 
-              ' as table2 on table1.key1 = table2.key1']
-
-=itme C<prefix>
-
-    prefix => 'SQL_CALC_FOUND_ROWS'
-
-Prefix of column cluase
-
-    select SQL_CALC_FOUND_ROWS title, author from book;
-
-=item C<join>
-
-    join => [
-        'left outer join company on book.company_id = company_id',
-        'left outer join location on company.location_id = location.id'
-    ]
-        
-Join clause. If column cluase or where clause contain table name like "company.name",
-join clausees needed when SQL is created is used automatically.
-
-    $dbi->select(
-        table => 'book',
-        column => ['company.location_id as location_id'],
-        where => {'company.name' => 'Orange'},
-        join => [
-            'left outer join company on book.company_id = company.id',
-            'left outer join location on company.location_id = location.id'
-        ]
-    );
-
-In above select, column and where clause contain "company" table,
-the following SQL is created
-
-    select company.location_id as location_id
-    from book
-      left outer join company on book.company_id = company.id
-    where company.name = ?;
-
-You can specify two table by yourself. This is useful when join parser can't parse
-the join clause correctly. This is EXPERIMENTAL.
-
-    $dbi->select(
-        table => 'book',
-        column => ['company.location_id as location_id'],
-        where => {'company.name' => 'Orange'},
-        join => [
-            {
-                clause => 'left outer join location on company.location_id = location.id',
-                table => ['company', 'location']
-            }
-        ]
-    );
-
-=item C<primary_key>
-
-    primary_key => 'id'
-    primary_key => ['id1', 'id2']
-
-Primary key. This is used by C<id> option.
-
-=item C<query>
-
-Same as C<execute> method's C<query> option.
-
-=item C<bind_type>
-
-Same as C<execute> method's C<bind_type> option.
-
-=item C<table>
-
-    table => 'book'
-
-Table name.
-
-=item C<type_rule_off> EXPERIMENTAL
-
-Same as C<execute> method's C<type_rule_off> option.
-
-=item C<type_rule1_off> EXPERIMENTAL
-
-    type_rule1_off => 1
-
-Same as C<execute> method's C<type_rule1_off> option.
-
-=item C<type_rule2_off> EXPERIMENTAL
-
-    type_rule2_off => 1
-
-Same as C<execute> method's C<type_rule2_off> option.
-
-=item C<where>
-    
-    # Hash refrence
-    where => {author => 'Ken', 'title' => 'Perl'}
-    
-    # DBIx::Custom::Where object
-    where => $dbi->where(
-        clause => ['and', 'author = :author', 'title like :title'],
-        param  => {author => 'Ken', title => '%Perl%'}
-    );
-    
-    # Array reference 1 (array reference, hash referenc). same as above
-    where => [
-        ['and', 'author = :author', 'title like :title'],
-        {author => 'Ken', title => '%Perl%'}
-    ];    
-    
-    # Array reference 2 (String, hash reference)
-    where => [
-        'title like :title',
-        {title => '%Perl%'}
-    ]
-    
-    # String
-    where => 'title is null'
-
-Where clause.
-    
-=item C<wrap> EXPERIMENTAL
-
-Wrap statement. This is array reference.
-
-    $dbi->select(wrap => ['select * from (', ') as t where ROWNUM < 10']);
-
-This option is for Oracle and SQL Server paging process.
-
-=back
-
-=head2 C<update>
-
-    $dbi->update({title => 'Perl'}, table  => 'book', where  => {id => 4});
-
-Execute update statement. First argument is update row data.
-
-If you want to set constant value to row data, use scalar reference
-as parameter value.
-
-    {date => \"NOW()"}
-
-The following opitons are available.
-
-=over 4
-
-=item C<append>
-
-Same as C<select> method's C<append> option.
-
-=item C<filter>
-
-Same as C<execute> method's C<filter> option.
-
-=item C<id>
-
-    id => 4
-    id => [4, 5]
-
-ID corresponding to C<primary_key>.
-You can update rows by C<id> and C<primary_key>.
-
-    $dbi->update(
-        {title => 'Perl', author => 'Ken'}
-        parimary_key => ['id1', 'id2'],
-        id => [4, 5],
-        table => 'book'
-    );
-
-The above is same as the followin one.
-
-    $dbi->update(
-        {title => 'Perl', author => 'Ken'}
-        where => {id1 => 4, id2 => 5},
-        table => 'book'
-    );
-
-=item C<prefix>
-
-    prefix => 'or replace'
-
-prefix before table name section
-
-    update or replace book
-
-=item C<primary_key>
-
-    primary_key => 'id'
-    primary_key => ['id1', 'id2']
-
-Primary key. This is used by C<id> option.
-
-=item C<query>
-
-Same as C<execute> method's C<query> option.
-
-=item C<table>
-
-    table => 'book'
-
-Table name.
-
-=item C<where>
-
-Same as C<select> method's C<where> option.
-
-=item C<bind_type>
-
-Same as C<execute> method's C<bind_type> option.
-
-=item C<type_rule_off> EXPERIMENTAL
-
-Same as C<execute> method's C<type_rule_off> option.
-
-=item C<type_rule1_off> EXPERIMENTAL
-
-    type_rule1_off => 1
-
-Same as C<execute> method's C<type_rule1_off> option.
-
-=item C<type_rule2_off> EXPERIMENTAL
-
-    type_rule2_off => 1
-
-Same as C<execute> method's C<type_rule2_off> option.
-
-=back
-
-=head2 C<update_all>
-
-    $dbi->update_all({title => 'Perl'}, table => 'book', );
-
-Execute update statement for all rows.
-Options is same as C<update> method.
-
-=head2 C<update_param>
-
-    my $update_param = $dbi->update_param({title => 'a', age => 2});
-
-Create update parameter tag.
-
-    set title = :title, author = :author
-
-=head2 C<where>
-
-    my $where = $dbi->where(
-        clause => ['and', 'title = :title', 'author = :author'],
-        param => {title => 'Perl', author => 'Ken'}
-    );
-
-Create a new L<DBIx::Custom::Where> object.
-
-=head2 C<setup_model>
-
-    $dbi->setup_model;
-
-Setup all model objects.
-C<columns> of model object is automatically set, parsing database information.
-
-=head1 ENVIRONMENT VARIABLE
-
-=head2 C<DBIX_CUSTOM_DEBUG>
-
-If environment variable C<DBIX_CUSTOM_DEBUG> is set to true,
-executed SQL and bind values are printed to STDERR.
-
-=head2 C<DBIX_CUSTOM_DEBUG_ENCODING>
-
-DEBUG output encoding. Default to UTF-8.
-
-=head1 DEPRECATED FUNCTIONALITIES
-
-L<DBIx::Custom>
-
-    # Attribute methods
-    data_source # will be removed at 2017/1/1
-    dbi_options # will be removed at 2017/1/1
-    filter_check # will be removed at 2017/1/1
-    reserved_word_quote # will be removed at 2017/1/1
-    cache_method # will be removed at 2017/1/1
-    
-    # Methods
-    create_query # will be removed at 2017/1/1
-    apply_filter # will be removed at 2017/1/1
-    select_at # will be removed at 2017/1/1
-    delete_at # will be removed at 2017/1/1
-    update_at # will be removed at 2017/1/1
-    insert_at # will be removed at 2017/1/1
-    register_tag # will be removed at 2017/1/1
-    default_bind_filter # will be removed at 2017/1/1
-    default_fetch_filter # will be removed at 2017/1/1
-    insert_param_tag # will be removed at 2017/1/1
-    register_tag_processor # will be removed at 2017/1/1
-    update_param_tag # will be removed at 2017/1/1
-    
-    # Options
-    select method relation option # will be removed at 2017/1/1
-    select method param option # will be removed at 2017/1/1
-    select method column option [COLUMN, as => ALIAS] format
-      # will be removed at 2017/1/1
-    
-    # Others
-    execute("select * from {= title}"); # execute method's
-                                        # tag parsing functionality
-                                        # will be removed at 2017/1/1
-    Query caching # will be removed at 2017/1/1
-
-L<DBIx::Custom::Model>
-
-    # Attribute methods
-    filter # will be removed at 2017/1/1
-    name # will be removed at 2017/1/1
-    type # will be removed at 2017/1/1
-
-L<DBIx::Custom::Query>
-    
-    # Attribute methods
-    default_filter # will be removed at 2017/1/1
-    table # will be removed at 2017/1/1
-    filters # will be removed at 2017/1/1
-    
-    # Methods
-    filter # will be removed at 2017/1/1
-
-L<DBIx::Custom::QueryBuilder>
-    
-    # Attribute methods
-    tags # will be removed at 2017/1/1
-    tag_processors # will be removed at 2017/1/1
-    
-    # Methods
-    register_tag # will be removed at 2017/1/1
-    register_tag_processor # will be removed at 2017/1/1
-    
-    # Others
-    build_query("select * from {= title}"); # tag parsing functionality
-                                            # will be removed at 2017/1/1
-
-L<DBIx::Custom::Result>
-    
-    # Attribute methods
-    filter_check # will be removed at 2017/1/1
-    
-    # Methods
-    end_filter # will be removed at 2017/1/1
-    remove_end_filter # will be removed at 2017/1/1
-    remove_filter # will be removed at 2017/1/1
-    default_filter # will be removed at 2017/1/1
-
-L<DBIx::Custom::Tag>
-
-    This module is DEPRECATED! # will be removed at 2017/1/1
-
-=head1 BACKWORD COMPATIBLE POLICY
-
-If a functionality is DEPRECATED, you can know it by DEPRECATED warnings
-except for attribute method.
-You can check all DEPRECATED functionalities by document.
-DEPRECATED functionality is removed after five years,
-but if at least one person use the functionality and tell me that thing
-I extend one year each time he tell me it.
-
-EXPERIMENTAL functionality will be changed without warnings.
-
-This policy was changed at 2011/6/28
-
-=head1 BUGS
-
-Please tell me bugs if found.
-
-C<< <kimoto.yuki at gmail.com> >>
-
-L<http://github.com/yuki-kimoto/DBIx-Custom>
-
-=head1 AUTHOR
-
-Yuki Kimoto, C<< <kimoto.yuki at gmail.com> >>
-
-=head1 COPYRIGHT & LICENSE
-
-Copyright 2009-2011 Yuki Kimoto, all rights reserved.
-
-This program is free software; you can redistribute it and/or modify it
-under the same terms as Perl itself.
-
-=cut

-603

DBIx-Custom-0.1711/blib/lib/DBIx/Custom/Guide.pod

View

@@ -1,603 +0,0 @@
-=encoding utf8
-
-=head1 NAME
-
-DBIx::Custom::Guide - DBIx::Custom Guide
-
-=head1 FEATURES
-
-L<DBIx::Custom> is the wrapper class of L<DBI> to execute SQL easily.
-This module have the following features.
-
-=over 4
-
-=item * Execute INSERT, UPDATE, DELETE, SELECT statement easily
-
-=item * You can specify bind values by hash reference
-
-=item * Filtering by data type. and you can set filter to any column
-
-=item * Creating where clause and order by clause flexibly
-
-=item * Support model
-
-=back
-
-=head1 GUIDE
-
-=head2 Connect to database
-
-    use DBIx::Custom;
-    my $dbi = DBIx::Custom->connect(
-        dsn => "dbi:mysql:database=bookshop",
-        user => 'ken',
-        password => '!LFKD%$&',
-        dbi_option => {mysql_enable_utf8 => 1}
-    );
-
-You can connect to database by C<connect> method.
-C<dsn> is data source name, C<user> is user name, C<password> is password.
-
-C<dbi_option> is L<DBI> option.
-By default, the following option is set.
-Exeption is thrown when fatal error occur and commit mode is auto commit.
-
-    {
-        RaiseError  =>  1
-        PrintError  =>  0
-        AutoCommit  =>  1
-    }
-
-=head2 Execute query
-
-=head3 Insert Statement : C<insert>
-
-If you want to execute insert statement, use C<insert> method.
-
-    $dbi->insert({title => 'Perl', author => 'Ken'}, table  => 'book');
-
-First argument is insert row data, C<table>  is table name.
-
-=head3 Update Statement : C<update>
-
-If you want to execute update stateimuse, use C<update> method.
-
-    $dbi->update(
-        {title => 'Perl', author => 'Ken'},
-        table  => 'book', 
-        where  => {id => 5}
-    );
-
-First argument is update row data, C<table> is table name, C<where> is condition.
-
-Note that you can't execute C<update> method without C<where>.
-If you want to update all rows, use update_all.
-
-    $dbi->update_all({title => 'Perl', author => 'Ken'}, table  => 'book');
-
-=head3 Delete Statement : C<delete>
-
-If you want to execute delete statement, use C<delete> method.
-
-    $dbi->delete(table  => 'book', where  => {author => 'Ken'});
-
-C<table> is table name, C<where> is condition.
-
-Note that you can't execute C<delete> method without C<where>.
-If you want to delete all rows, use C<delete_all> method.
-
-    $dbi->delete_all(table  => 'book');
-
-=head3 Select Statement : C<select>
-
-If you want to execute select statement, use C<select> method.
-
-    my $result = $dbi->select(table => 'book');
-
-Return value is L<DBIx::Custom::Result> object.
-You can fetch rows by C<fetch> method.
-
-    while (my $row = $result->fetch) {
-        my $title  = $row->[0];
-        my $author = $row->[1];
-    }
-
-See also L<Fetch row/"Fetch row"> about L<DBIx::Custom::Result>.
-
-You can specify column names by C<column> option
-and condition by C<where> option.
-
-    my $result = $dbi->select(
-        table  => 'book',
-        column => ['author',  'title'],
-        where  => {author => 'Ken'}
-    );
-
-You can specify join clause by C<join> option.
-
-    my $result = $dbi->select(
-        table  => 'book',
-        column => ['company.name as company_name']
-        where  => {'book.name' => 'Perl'},
-        join   => ['left outer join company on book.company_id = company.id]
-    );
-
-Note that join clause is joined only when C<where> or C<column> option contains table name,
-such as book.name.
-
-You can append statement to the end of whole statement by C<append> option.
-
-    my $result = $dbi->select(
-        table  => 'book',
-        where  => {author => 'Ken'},
-        append => 'for update',
-    );
-
-=head3 C<execute>
-
-If you want to execute SQL, use C<execute> method.
-
-    $dbi->execute("select * from book;");
-
-You can specify named placeholder.
-
-    $dbi->execute(
-        "select * from book title = :title and author = :author;"
-        {title => 'Perl', author => 'Ken'}
-    );
-
-:title and :author is named placeholder, which is replaced to placeholers.
-
-    select * from book title = ? and author = ?;
-
-=head3 C<dbh>
-
-    my $dbh = $dbi->dbh;
-
-Get get database handle object of L<DBI>.
-
-=head3 C<DBI> methods
-
-    $dbi->do(...);
-    $dbi->begin_work;
-
-You can call all methods of L<DBI> from L<DBIx::Custom> object.
-
-=head2 Fetch Rows
-
-C<select> method return value is L<DBIx::Custom::Result> object.
-You can fetch a row or rows by various methods.
-
-=head3 Fetch a row (array) : C<fetch>
-
-    my $row = $result->fetch;
-
-C<fetch> method fetch a row and put it into array reference.
-You can continue to fetch 
-
-    while (my $row = $result->fetch) {
-        my $title  = $row->[0];
-        my $author = $row->[1];
-    }
-
-=head3 Fetch only first row (array) : C<fetch_first>
-
-    my $row = $result->fetch_first;
-
-C<fetch_first> fetch a only first row and finish statment handle,
-and put it into array refrence.
-
-=head3 Fetch all rows (array) : C<fetch_all>
-
-    my $rows = $result->fetch_all;
-
-C<fetch_all> fetch all rows and put them into array of array reference.
-
-=head3 Fetch a row (hash) : C<fetch_hash>
-
-    my $row = $result->fetch_hash;
-
-C<fetch_hash> fetch a row and put it into hash reference.
-You can fetch a row while row exists.
-
-    while (my $row = $result->fetch_hash) {
-        my $title  = $row->{title};
-        my $author = $row->{author};
-    }
-
-=head3 Fetch only a first row (hash) : C<fetch_hash_first>
-
-    my $row = $result->fetch_hash_first;
-
-C<fetch_hash_first> fetch only a first row and finish statement handle,
-and put them into hash refrence.
-
-C<one> is C<fetch_hash_first> synonym to save word typing.
-
-    my $row = $result->one;
-
-=head3 Fetch all rows (hash) : C<fetch_hash_all>
-
-    my $rows = $result->fetch_hash_all;
-
-C<fetch_hash_all> fetch all rows and put them into array of hash reference.
-
-=head3 Statement Handle : C<sth>
-
-    my $sth = $result->sth;
-
-If you want to get statment handle, use <sth> method.
-
-=head2 Named placeholder
-
-=head3 Basic of Parameter
-
-You can embedd named placeholder into SQL.
-
-    select * from book where title = :title and author like :author;
-
-:title and :author is named placeholder
-
-Named placeholder is replaced by place holder.
-
-    select * from book where title = ? and author like ?;
-
-use C<execute> to execute SQL.
-
-    my $sql = "select * from book where title = :title and author like :author;"
-    $dbi->execute($sql, {title => 'Perl', author => '%Ken%'});
-
-You can specify C<filter> at C<execute>.
-
-    $dbi->execute($sql, {title => 'Perl', author => '%Ken%'}
-                  filter => {title => 'to_something');
-
-=head3 Manipulate same name's columns
-
-It is ok if there are same name's columns.
-Let's think two date comparison.
-
-    my $sql = "select * from table where date > :date and date < :date;";
-
-In this case, You specify parameter values as array reference.
-
-    my $dbi->execute($sql, {date => ['2010-10-01', '2012-02-10']});
-
-=head2 Create where clause
-
-=head3 Dinamically create where clause : where
-
-You want to search multiple conditions in many times.
-Let's think the following three cases.
-
-Case1: Search only C<title>
-
-    where title = :title
-
-Case2: Search only C<author>
-
-    where author = :author
-
-Case3: Search C<title> and C<author>
-
-    where title = :title and author = :author
-
-L<DBIx::Custom> support dinamic where clause creating.
-At first, create L<DBIx::Custom::Where> object by C<where>.
-
-    my $where = $dbi->where;
-
-Set clause by C<clause>
-
-    $where->clause(
-        ['and', 'title = :title, 'author = :author']
-    );
-
-C<clause> is the following format.
-
-    ['or' or 'and', PART1, PART1, PART1]
-
-First argument is 'or' or 'and'.
-Later than first argument are part which contains named placeholder.
-
-You can write more complex format.
-
-    ['and', 
-      'title = :title', 
-      ['or', 'author = :author', 'date like :date']
-    ]
-
-This mean "title = :title and ( author = :author or date like :date )".
-
-After setting C<clause>, set C<param>.
-    
-    $where->param({title => 'Perl'});
-
-In this example, parameter contains only title.
-
-If you execute C<string_to>, you can get where clause
-which contain only named placeholder.
-
-    my $where_clause = $where->to_string;
-
-Parameter name is only title, the following where clause is created.
-
-    where title = :title
-
-You can also create where clause by stringification.
-
-    my $where_clause = "$where";
-
-This is useful to embbed it into SQL. 
-
-=head3 In case where clause contains same name columns
-
-Even if same name parameters exists, you can create where clause.
-Let's think that there are starting date and ending date.
-
-    my $param = {start_date => '2010-11-15', end_date => '2011-11-21'};
-
-In this case, you set parameter value as array reference.
-
-    my $p = {date => ['2010-11-15', '2011-11-21']};
-
-You can embbed these values into same name parameters.
-
-    $where->clause(
-        ['and', 'date > :date', 'date < :date']
-    );
-    $where->param($p);
-
-If starting date isn't exists, create the following parameter.
-
-    my $p = {date => [$dbi->not_exists, '2011-11-21']};
-
-You can get DBIx::Custom::NotExists object by C<not_exists>
-This mean correnspondinf value isn't exists.
-
-If ending date isn't exists, create the following parameter.
-
-    my $p = {date => ['2010-11-15']};
-
-If both date isn't exists, create the following parameter.
-
-    my $p = {date => []};
-
-This logic is a little difficut. See the following ones.
-
-    my @date;
-    push @date, exists $param->{start_date} ? $param->{start_date}
-                                            : $dbi->not_exists;
-    push @date, $param->{end_date} if exists $param->{end_date};
-    my $p = {date => \@date};
-
-=head3 With C<select>
-
-You can pass L<DBIx::Custom::Where> object to C<where> of C<select>.
-    
-    my $where = $dbi->where;
-    $where->clause(['and', 'title = :title', 'author = :author']);
-    $where->param({title => 'Perl'});
-    my $result = $dbi->select(table => 'book', where => $where);
-
-You can also pass it to C<where> of C<update>AC<delete>
-
-=head3 With C<execute>
-
-L<DBIx::Custom::Where> object is embedded into SQL.
-
-    my $where = $dbi->where;
-    $where->clause(['and', 'title = :title', 'author = :author']);
-    $where->param({title => 'Perl'});
-
-    my $sql = <<"EOS";
-    select * from book;
-    $where
-    EOS
-
-    $dbi->execute($sql, $param, table => 'book');
-
-=head2 Filtering
-
-=head3 Register filter : C<register_filter>
-
-If you want to register filter, use C<register_filter>.
-
-    $dbi->register_filter(
-        # Time::Piece object to DATE format
-        tp_to_date => sub {
-            my $date = shift;
-            return $tp->strftime('%Y-%m-%d');
-        },
-        
-        # DATE to Time::Piece object
-        date_to_tp => sub {
-            my $date = shift;
-            return Time::Piece->strptime($date, '%Y-%m-%d');
-        },
-    );
-
-=head3 Filter before sending data into database : C<filter> option
-
-If you filter sending data, use C<filter> option.
-
-    $dbi->execute(
-        'insert into book (date) values (:date)',
-        {date => $tp},
-        filter => {date => 'tp_to_date'}
-    );
-
-You can use C<filter> option in C<insert>, C<update>, C<delete>, C<select> method.
-
-    $dbi->insert(
-        {date => $tp},
-        table => 'book',
-        filter => {date => 'tp_to_date'}
-    );
-
-=head3 Filter after fetching data from database.
-
-If you filter fetch data, use L<DBIx::Custom::Result>'s C<filter> method.
-
-    my $result = $dbi->select(column => 'date', table => 'book');
-    $result->filter(date => 'date_to_tp');
-    my $row = $result->one;
-
-=head2 7. Model
-
-=head3 Model
-
-you can define model extending L<DBIx::Custom::Model>
-to improve source code view.
-
-At first, you create basic model class extending <DBIx::Custom::Model>.
-Each L<DBIx::Custom> class inherit L<Object::Simple>.
-so you can inherit the following way.
-
-    package MyModel;
-    use DBIx::Custom::Model -base;
-
-Next, you create each model classes.
-
-MyModel::book
-
-    package MyModel::book;
-    use MyModel -base;
-    
-    sub insert { ... }
-    sub list { ... }
-
-MyModel::company
-
-    package MyModel::company;
-    use MyModel -base;
-    
-    sub insert { ... }
-    sub list { ... }
-
-The follwoing modules location is needed.
-
-    MyModel.pm
-    MyModel / book.pm
-            / company.pm
-
-You can include these models by C<include_model>
-
-    $dbi->include_model('MyModel');
-
-First argument is name space of model.
-
-You can use model like this.
-
-    my $result = $dbi->model('book')->list;
-
-In mode, You can use such as methods,
-C<insert>, C<update>, C<update_all>,
-C<delete>, C<delete_all>, C<select>
-without C<table> option.
-
-    $dbi->model('book')->insert($param);
-
-Model is L<DBIx::Custom::Model>.
-
-If you need table nameAyou can get it by C<table>.
-
-    my $table = $model->table;
-
-You can get L<DBIx::Custom>.
-
-    my $dbi = $model->dbi;
-
-You can also call all methods of L<DBIx::Custom> and L<DBI>. 
-
-    # DBIx::Custom method
-    $model->execute($sql);
-    
-    # DBI method
-    $model->begin_work;
-    $model->commit;
-
-If you want to get all models, you can get them by keys of C<models>.
-
-    my @models = keys %{$self->models};
-
-You can set primary key to model.
-
-   $model->primary_key(['id', 'number_id']);
-
-Primary key is used by C<insert>, C<update>, C<delete>,
-and C<select> methods.
-
-You can set column names
-
-    $model->columns(['id', 'number_id']);
-
-Column names is automarically set by C<setup_model>.
-This method is needed to be call after C<include_model>.
-
-    $dbi->setup_model;
-
-You can set C<join>
-
-    $model->join(['left outer join company on book.company_id = company.id']);
-
-C<join> is used by C<select> method.
-
-=head2 Create column clause automatically : mycolumn, column
-
-To create column clause automatically, use C<mycolumn>.
-Valude of C<table> and C<columns> is used.
-
-    my $mycolumns = $model->mycolumn;
-
-If C<table> is 'book'AC<column> is ['id', 'name'],
-the following clause is created.
-
-    book.id as id, book.name as name
-
-These column name is for removing column name ambiguities.
-
-You can create column clause from columns of other table.
-
-    my $columns = $model->column('company');
-
-If C<table> is "company", C<column> return ['id', 'name'],
-the following clause is created.
-
-    company.id as "company.id", company.name as "company.name"
-
-=head2 Model Examples
-
-Model examples
-
-    package MyDBI;
-    use DBIx::Custom -base;
-    
-    sub connect {
-        my $self = shift->SUPER::connect(@_);
-        
-        $self->include_model(
-            MyModel => [
-                'book',
-                'company'
-            ]
-        );
-    }
-    
-    package MyModel::book;
-    use DBIx::Custom::Model -base;
-    
-    has primary_key => sub { ['id'] };
-    
-    sub insert { ... }
-    sub list { ... }
-    
-    package MyModel::company;
-    use DBIx::Custom::Model -base;
-
-    has primary_key => sub { ['id'] };
-    
-    sub insert { ... }
-    sub list { ... }
-
-=cut

-13

DBIx-Custom-0.1711/blib/lib/DBIx/Custom/Guide/Ja.pod

View

...	...	@@ -1,13 +0,0 @@
1		-=encoding utf8
2		-
3		-=head1 NAME
4		-
5		-DBIx::Custom::Guide - DBIx::Customガイド
6		-
7		-=head1 LINK
8		-
9		-ドキュメントは以下のリンクに移動しました。
10		-
11		-L<http://d.hatena.ne.jp/perlcodesample/20110401/1305597081>
12		-
13		-=cut

-247

DBIx-Custom-0.1711/blib/lib/DBIx/Custom/Model.pm

View

@@ -1,247 +0,0 @@
-package DBIx::Custom::Model;
-use Object::Simple -base;
-
-use Carp 'croak';
-use DBIx::Custom::Util '_subname';
-
-# Carp trust relationship
-push @DBIx::Custom::CARP_NOT, __PACKAGE__;
-
-has [qw/dbi table/],
-    bind_type => sub { [] },
-    columns => sub { [] },
-    join => sub { [] },
-    primary_key => sub { [] };
-
-our $AUTOLOAD;
-
-sub AUTOLOAD {
-    my $self = shift;
-
-    # Method name
-    my ($package, $mname) = $AUTOLOAD =~ /^([\w\:]+)\:\:(\w+)$/;
-
-    # Method
-    $self->{_methods} ||= {};
-    if (my $method = $self->{_methods}->{$mname}) {
-        return $self->$method(@_)
-    }
-    elsif (my $dbi_method = $self->dbi->can($mname)) {
-        $self->dbi->$dbi_method(@_);
-    }
-    elsif ($self->{dbh} && (my $dbh_method = $self->dbh->can($mname))) {
-        $self->dbi->dbh->$dbh_method(@_);
-    }
-    else {
-        croak qq{Can't locate object method "$mname" via "$package" }
-            . _subname;
-    }
-}
-
-my @methods = qw/insert insert_at update update_at update_all
-                 delete delete_at delete_all select select_at/;
-foreach my $method (@methods) {
-
-    my $code = sub {
-        my $self = shift;
-
-        my @args = (
-            table => $self->table,
-            bind_type => $self->bind_type,
-            primary_key => $self->primary_key,
-            type => $self->type, # DEPRECATED!
-        );
-        push @args, (join => $self->join) if $method =~ /^select/;
-        unshift @args, shift if @_ % 2;
-        
-        $self->dbi->$method(@args, @_);
-    };
-    
-    no strict 'refs';
-    my $class = __PACKAGE__;
-    *{"${class}::$method"} = $code;
-}
-
-sub DESTROY { }
-
-sub method {
-    my $self = shift;
-    
-    # Merge
-    my $methods = ref $_[0] eq 'HASH' ? $_[0] : {@_};
-    $self->{_methods} = {%{$self->{_methods} || {}}, %$methods};
-    
-    return $self;
-}
-
-sub mycolumn {
-    my $self = shift;
-    my $table = shift unless ref $_[0];
-    my $columns = shift;
-    
-    $table ||= $self->table || '';
-    $columns ||= $self->columns;
-    
-    return $self->dbi->mycolumn($table, $columns);
-}
-
-sub new {
-    my $self = shift->SUPER::new(@_);
-    
-    # Check attribute names
-    my @attrs = keys %$self;
-    foreach my $attr (@attrs) {
-        croak qq{"$attr" is invalid attribute name } . _subname
-          unless $self->can($attr);
-    }
-    
-    return $self;
-}
-
-# DEPRECATED!
-has 'filter';
-has 'name';
-has type => sub { [] };
-
-1;
-
-=head1 NAME
-
-DBIx::Custom::Model - Model
-
-=head1 SYNOPSIS
-
-use DBIx::Custom::Table;
-
-my $table = DBIx::Custom::Model->new(table => 'books');
-
-=head1 ATTRIBUTES
-
-=head2 C<dbi>
-
-    my $dbi = $model->dbi;
-    $model = $model->dbi($dbi);
-
-L<DBIx::Custom> object.
-
-=head2 C<join>
-
-    my $join = $model->join;
-    $model = $model->join(
-        ['left outer join company on book.company_id = company.id']
-    );
-    
-Join clause, this value is passed to C<select> method.
-
-=head2 C<primary_key>
-
-    my $primary_key = $model->primary_key;
-    $model = $model->primary_key(['id', 'number']);
-
-Primary key,this is passed to C<insert>, C<update>,
-C<delete>, and C<select> method.
-
-=head2 C<table>
-
-    my $table = $model->table;
-    $model = $model->table('book');
-
-Table name, this is passed to C<select> method.
-
-=head2 C<bind_type>
-
-    my $type = $model->bind_type;
-    $model = $model->bind_type(['image' => DBI::SQL_BLOB]);
-    
-Database data type, this is used as type optioon of C<insert>, 
-C<update>, C<update_all>, C<delete>, C<delete_all>,
-C<select>, and C<execute> method
-
-=head1 METHODS
-
-L<DBIx::Custom::Model> inherits all methods from L<Object::Simple>,
-and you can use all methods of L<DBIx::Custom> and L<DBI>
-and implements the following new ones.
-
-=head2 C<delete>
-
-    $table->delete(...);
-    
-Same as C<delete> of L<DBIx::Custom> except that
-you don't have to specify C<table> option.
-
-=head2 C<delete_all>
-
-    $table->delete_all(...);
-    
-Same as C<delete_all> of L<DBIx::Custom> except that
-you don't have to specify C<table> option.
-
-=head2 C<insert>
-
-    $table->insert(...);
-    
-Same as C<insert> of L<DBIx::Custom> except that
-you don't have to specify C<table> option.
-
-=head2 C<method>
-
-    $model->method(
-        update_or_insert => sub {
-            my $self = shift;
-            
-            # ...
-        },
-        find_or_create   => sub {
-            my $self = shift;
-            
-            # ...
-    );
-
-Register method. These method is called directly from L<DBIx::Custom::Model> object.
-
-    $model->update_or_insert;
-    $model->find_or_create;
-
-=head2 C<mycolumn>
-
-    my $column = $self->mycolumn;
-    my $column = $self->mycolumn(book => ['author', 'title']);
-    my $column = $self->mycolumn(['author', 'title']);
-
-Create column clause for myself. The follwoing column clause is created.
-
-    book.author as author,
-    book.title as title
-
-If table name is ommited, C<table> attribute of the model is used.
-If column names is omitted, C<columns> attribute of the model is used.
-
-=head2 C<new>
-
-    my $table = DBIx::Custom::Table->new;
-
-Create a L<DBIx::Custom::Table> object.
-
-=head2 C<select>
-
-    $table->select(...);
-    
-Same as C<select> of L<DBIx::Custom> except that
-you don't have to specify C<table> option.
-
-=head2 C<update>
-
-    $table->update(...);
-    
-Same as C<update> of L<DBIx::Custom> except that
-you don't have to specify C<table> option.
-
-=head2 C<update_all>
-
-    $table->update_all(param => \%param);
-    
-Same as C<update_all> of L<DBIx::Custom> except that
-you don't have to specify table name.
-
-=cut

-108

DBIx-Custom-0.1711/blib/lib/DBIx/Custom/Order.pm

View

@@ -1,108 +0,0 @@
-package DBIx::Custom::Order;
-use Object::Simple -base;
-use overload
-  'bool'   => sub {1},
-  '""'     => sub { shift->to_string },
-  fallback => 1;
-
-has 'dbi',
-    orders => sub { [] };
-
-sub prepend {
-    my $self = shift;
-    
-    foreach my $order (reverse @_) {
-        if (ref $order eq 'ARRAY') {
-            my $column = shift @$order;
-            $column = $self->dbi->_q($column) if defined $column;
-            my $derection = shift @$order;
-            $order = $column;
-            $order .= " $derection" if $derection;
-        }
-        unshift @{$self->orders}, $order;
-    }
-    
-    return $self;
-}
-
-sub to_string {
-    my $self = shift;
-    
-    my $exists = {};
-    my @orders;
-    foreach my $order (@{$self->orders}) {
-        next unless defined $order;
-        $order =~ s/^\s+//;
-        $order =~ s/\s+$//;
-        my ($column, $direction) = split /\s+/, $order;
-        push @orders, $order unless $exists->{$column};
-        $exists->{$column} = 1;
-    }
-    
-    return '' unless @orders;
-    return 'order by ' . join(', ', @orders);
-}
-
-1;
-
-=head1 NAME
-
-DBIx::Custom::Order - Order by EXPERIMENTAL
-
-=head1 SYNOPSIS
-
-    # Result
-    my $order = DBIx::Custom::Order->new;
-    $order->prepend('title', 'author desc');
-    my $order_by = "$order";
-    
-=head1 ATTRIBUTES
-
-=head2 C<dbi>
-
-    my $dbi = $order->dbi;
-    $order = $order->dbi($dbi);
-
-L<DBIx::Custom> object.
-
-=head2 C<orders>
-
-    my $orders = $result->orders;
-    $result = $result->orders(\%orders);
-
-Parts of order by clause
-
-=head1 METHODS
-
-L<DBIx::Custom::Result> inherits all methods from L<Object::Simple>
-and implements the following new ones.
-
-=head2 C<prepend>
-
-    $order->prepend('title', 'author desc');
-
-Prepend order parts to C<orders>.
-
-You can pass array reference, which contain column name and direction.
-Column name is quoted properly
-    
-    # Column name and direction
-    $order->prepend(['book-title']);
-    $order->prepend([qw/book-title desc/]);
-
-This is expanded to the following way.
-
-    "book-title"
-    "book-title" desc
-
-=head2 C<to_string>
-
-    my $order_by = $order->to_string;
-
-Create order by clause. If column name is duplicated, First one is used.
-C<to_string> override stringification. so you can write the follwoing way.
-
-    my $order_by = "$order";
-
-=cut
-

-116

DBIx-Custom-0.1711/blib/lib/DBIx/Custom/Query.pm

View

@@ -1,116 +0,0 @@
-package DBIx::Custom::Query;
-use Object::Simple -base;
-
-use Carp 'croak';
-use DBIx::Custom::Util '_subname';
-
-has 'sth',
-    sql => '',
-    columns => sub { [] };
-
-# DEPRECATED!
-has 'default_filter';
-sub filters {
-    warn "DBIx::Custom::Query filters attribute method is DEPRECATED!";
-    my $self = shift;
-    if (@_) {
-        $self->{filters} = $_[0];
-        return $self;
-    }
-    return $self->{filters};
-}
-
-# DEPRECATED!
-sub tables {
-    warn "DBIx::Custom::Query tables attribute method is DEPRECATED!";
-    my $self = shift;
-    if (@_) {
-        $self->{tables} = $_[0];
-        return $self;
-    }
-    return $self->{tables} ||= [];
-}
-
-#DEPRECATED!
-sub filter {
-    Carp::carp "DBIx::Custom::Query filter method is DEPRECATED!";
-    my $self = shift;
-    if (@_) {
-        my $filter = {};
-        if (ref $_[0] eq 'HASH') {
-            $filter = $_[0];
-        }
-        else {
-            my $ef = @_ > 1 ? [@_] : $_[0];
-            for (my $i = 0; $i < @$ef; $i += 2) {
-                my $column = $ef->[$i];
-                my $f = $ef->[$i + 1];
-                if (ref $column eq 'ARRAY') {
-                    foreach my $c (@$column) {
-                        $filter->{$c} = $f;
-                    }
-                }
-                else {
-                    $filter->{$column} = $f;
-                }
-            }
-        }
-        foreach my $column (keys %$filter) {
-            my $fname = $filter->{$column};
-            if  (exists $filter->{$column}
-              && defined $fname
-              && ref $fname ne 'CODE') 
-            {
-                my $filters = $self->{filters} || {};
-                croak qq{Filter "$fname" is not registered" } . _subname
-                  unless exists $filters->{$fname};
-                $filter->{$column} = $filters->{$fname};
-            }
-        }
-        $self->{filter} = {%{$self->{filter} || {}}, %$filter};
-        return $self;
-    }
-    return $self->{filter} ||= {};
-}
-
-1;
-
-=head1 NAME
-
-DBIx::Custom::Query - Query
-
-=head1 SYNOPSIS
-    
-    my $query = DBIx::Custom::Query->new;
-    my $sth = $query->sth;
-    my $sql = $query->sql;
-    my $columns = $query->columns;
-    
-=head1 ATTRIBUTES
-
-=head2 C<columns>
-
-    my $columns = $query->columns;
-    $query      = $query->columns(['auhtor', 'title']);
-
-Column names.
-
-=head2 C<sql>
-
-    my $sql = $query->sql;
-    $query  = $query->sql('select * from books where author = ?;');
-
-SQL statement.
-
-=head2 C<sth>
-
-    my $sth = $query->sth;
-    $query  = $query->sth($sth);
-
-Statement handle of L<DBI>
-
-=head1 METHODS
-
-L<DBIx::Custom::Query> inherits all methods from L<Object::Simple>.
-
-=cut

-329

DBIx-Custom-0.1711/blib/lib/DBIx/Custom/QueryBuilder.pm

View

@@ -1,329 +0,0 @@
-package DBIx::Custom::QueryBuilder;
-
-use Object::Simple -base;
-
-use Carp 'croak';
-use DBIx::Custom::Query;
-use DBIx::Custom::Util '_subname';
-
-# Carp trust relationship
-push @DBIx::Custom::CARP_NOT, __PACKAGE__;
-push @DBIx::Custom::Where::CARP_NOT, __PACKAGE__;
-
-has 'dbi';
-
-sub build_query {
-    my ($self, $source) = @_;
-    
-    my $query;
-    
-    # Parse tag. tag is DEPRECATED!
-    if ($self->dbi->tag_parse && $source =~ /(\s|^)\{/) {
-        $query = $self->_parse_tag($source);
-        my $tag_count = delete $query->{tag_count};
-        warn qq/Tag system such as {? name} is DEPRECATED! / .
-             qq/use parameter system such as :name instead/
-          if $tag_count;
-        my $query2 = $self->_parse_parameter($query->sql);
-        $query->sql($query2->sql);
-        for (my $i =0; $i < @{$query->columns}; $i++) {
-            my $column = $query->columns->[$i];
-            if ($column eq 'RESERVED_PARAMETER') {
-                my $column2 = shift @{$query2->columns};
-                croak ":name syntax is wrong"
-                  unless defined $column2;
-                $query->columns->[$i] = $column2;
-            }
-        }
-    }
-    
-    # Parse parameter
-    else { $query = $self->_parse_parameter($source) }
-    
-    my $sql = $query->sql;
-    $sql .= ';' unless $source =~ /;$/;
-    $query->sql($sql);
-
-    # Check placeholder count
-    croak qq{Placeholder count in "$sql" must be same as column count}
-        . _subname
-      unless $self->_placeholder_count($sql) eq @{$query->columns};
-        
-    return $query;
-}
-
-sub _placeholder_count {
-    my ($self, $sql) = @_;
-    
-    # Count
-    $sql ||= '';
-    my $count = 0;
-    my $pos   = -1;
-    while (($pos = index($sql, '?', $pos + 1)) != -1) {
-        $count++;
-    }
-    return $count;
-}
-
-sub _parse_parameter {
-    my ($self, $source) = @_;
-    
-    # Get and replace parameters
-    my $sql = $source || '';
-    my $columns = [];
-    my $c = $self->dbi->safety_character;
-    # Parameter regex
-    $sql =~ s/([^:]):(\d+):([^:])/$1\\:$2\\:$3/g;
-    my $re = qr/(^|.*?[^\\]):([$c\.]+)(?:\{(.*?)\})?(.*)/s;
-    while ($sql =~ /$re/g) {
-        push @$columns, $2;
-        $sql = defined $3 ? "$1$2 $3 ?$4" : "$1?$4";
-    }
-    $sql =~ s/\\:/:/g;
-
-    # Create query
-    my $query = DBIx::Custom::Query->new(
-        sql => $sql,
-        columns => $columns
-    );
-    
-    return $query;
-}
-    
-# DEPRECATED!
-has tags => sub { {} };
-
-# DEPRECATED!
-sub register_tag {
-    my $self = shift;
-    
-    warn "register_tag is DEPRECATED!";
-    
-    # Merge tag
-    my $tags = ref $_[0] eq 'HASH' ? $_[0] : {@_};
-    $self->tags({%{$self->tags}, %$tags});
-    
-    return $self;
-}
-
-# DEPRECATED!
-sub _parse_tag {
-    my ($self, $source) = @_;
-    # Source
-    $source ||= '';
-    # Tree
-    my @tree;
-    # Value
-    my $value = '';
-    # State
-    my $state = 'text';
-    # Before charactor
-    my $before = '';
-    # Position
-    my $pos = 0;
-    # Parse
-    my $original = $source;
-    my $tag_count = 0;
-    while (defined(my $c = substr($source, $pos, 1))) {
-        # Last
-        last unless length $c;
-        # Parameter
-        if ($c eq ':' && (substr($source, $pos + 1, 1) || '') =~ /\w/) {
-            push @tree, {type => 'param'};;
-        }
-        # State is text
-        if ($state eq 'text') {
-            # Tag start charactor
-            if ($c eq '{') {
-                # Escaped charactor
-                if ($before eq "\\") {
-                    substr($value, -1, 1, '');
-                    $value .= $c;
-                }
-                # Tag start
-                else {
-                    # Change state
-                    $state = 'tag';
-                    # Add text
-                    push @tree, {type => 'text', value => $value}
-                      if $value;
-                    # Clear
-                    $value = '';
-                }
-            }
-            # Tag end charactor
-            elsif ($c eq '}') {
-                # Escaped charactor
-                if ($before eq "\\") {
-                    substr($value, -1, 1, '');
-                    $value .= $c;
-                }
-                # Unexpected
-                else {
-                    croak qq{Parsing error. unexpected "\}". }
-                        . qq{pos $pos of "$original" } . _subname
-                }
-            }
-            # Normal charactor
-            else { $value .= $c }
-        }
-        # State is tags
-        else {
-            # Tag start charactor
-            if ($c eq '{') {
-                # Escaped charactor
-                if ($before eq "\\") {
-                    substr($value, -1, 1, '');
-                    $value .= $c;
-                }
-                # Unexpected
-                else {
-                    croak qq{Parsing error. unexpected "\{". }
-                        . qq{pos $pos of "$original" } . _subname
-                }
-            }
-            # Tag end charactor
-            elsif ($c eq '}') {
-                # Escaped charactor
-                if ($before eq "\\") {
-                    substr($value, -1, 1, '');
-                    $value .= $c;
-                }
-                # Tag end
-                else {
-                    # Change state
-                    $state = 'text';
-                    # Add tag
-                    my ($tag_name, @tag_args) = split /\s+/, $value;
-                    push @tree, {type => 'tag', tag_name => $tag_name, 
-                                 tag_args => \@tag_args};
-                    # Clear
-                    $value = '';
-                    # Countup
-                    $tag_count++;
-                }
-            }
-            # Normal charactor
-            else { $value .= $c }
-        }
-        # Save before charactor
-        $before = $c;
-        # increment position
-        $pos++;
-    }
-    # Tag not finished
-    croak qq{Tag not finished. "$original" } . _subname
-      if $state eq 'tag';
-    # Not contains tag
-    return DBIx::Custom::Query->new(sql => $source, tag_count => $tag_count)
-      if $tag_count == 0;
-    # Add rest text
-    push @tree, {type => 'text', value => $value}
-      if $value;
-    # SQL
-    my $sql = '';
-    # All Columns
-    my $all_columns = [];
-    # Tables
-    my $tables = [];
-    # Build SQL 
-    foreach my $node (@tree) {
-        # Text
-        if ($node->{type} eq 'text') { $sql .= $node->{value} }
-        # Parameter
-        elsif ($node->{type} eq 'param') {
-            push @$all_columns, 'RESERVED_PARAMETER';
-        }
-        # Tag
-        else {
-            # Tag name
-            my $tag_name = $node->{tag_name};
-            # Tag arguments
-            my $tag_args = $node->{tag_args};
-            # Table
-            if ($tag_name eq 'table') {
-                my $table = $tag_args->[0];
-                push @$tables, $table;
-                $sql .= $table;
-                next;
-            }
-            # Get tag
-            my $tag = $self->tag_processors->{$tag_name}
-                             || $self->tags->{$tag_name};
-            # Tag is not registered
-            croak qq{Tag "$tag_name" is not registered } . _subname
-              unless $tag;
-            # Tag not sub reference
-            croak qq{Tag "$tag_name" must be sub reference } . _subname
-              unless ref $tag eq 'CODE';
-            # Execute tag
-            my $r = $tag->(@$tag_args);
-            # Check tag return value
-            croak qq{Tag "$tag_name" must return [STRING, ARRAY_REFERENCE] }
-                . _subname
-              unless ref $r eq 'ARRAY' && defined $r->[0] && ref $r->[1] eq 'ARRAY';
-            # Part of SQL statement and colum names
-            my ($part, $columns) = @$r;
-            # Add columns
-            push @$all_columns, @$columns;
-            # Join part tag to SQL
-            $sql .= $part;
-        }
-    }
-    # Query
-    my $query = DBIx::Custom::Query->new(
-        sql => $sql,
-        columns => $all_columns,
-        tables => $tables,
-        tag_count => $tag_count
-    );
-    return $query;
-}
-
-# DEPRECATED!
-has tag_processors => sub { {} };
-
-# DEPRECATED!
-sub register_tag_processor {
-    my $self = shift;
-    warn "register_tag_processor is DEPRECATED!";
-    # Merge tag
-    my $tag_processors = ref $_[0] eq 'HASH' ? $_[0] : {@_};
-    $self->tag_processors({%{$self->tag_processors}, %{$tag_processors}});
-    return $self;
-}
-
-1;
-
-=head1 NAME
-
-DBIx::Custom::QueryBuilder - Query builder
-
-=head1 SYNOPSIS
-    
-    my $builder = DBIx::Custom::QueryBuilder->new;
-    my $query = $builder->build_query(
-        "select from table title = :title and author = :author"
-    );
-
-=head1 ATTRIBUTES
-
-=head2 C<dbi>
-
-    my $dbi = $builder->dbi;
-    $builder = $builder->dbi($dbi);
-
-L<DBIx::Custom> object.
-
-=head1 METHODS
-
-L<DBIx::Custom::QueryBuilder> inherits all methods from L<Object::Simple>
-and implements the following new ones.
-
-=head2 C<build_query>
-    
-    my $query = $builder->build_query($source);
-
-Create a new L<DBIx::Custom::Query> object from SQL source.
-
-=cut

-573

DBIx-Custom-0.1711/blib/lib/DBIx/Custom/Result.pm

View

@@ -1,573 +0,0 @@
-package DBIx::Custom::Result;
-use Object::Simple -base;
-
-use Carp 'croak';
-use DBIx::Custom::Util qw/_array_to_hash _subname/;
-
-has [qw/dbi sth/],
-    stash => sub { {} };
-
-*all = \&fetch_hash_all;
-
-sub filter {
-    my $self = shift;
-    
-    # Set
-    if (@_) {
-        
-        # Convert filter name to subroutine
-        my $filter = @_ == 1 ? $_[0] : [@_];
-        $filter = _array_to_hash($filter);
-        foreach my $column (keys %$filter) {
-            my $fname = $filter->{$column};
-            if  (exists $filter->{$column}
-              && defined $fname
-              && ref $fname ne 'CODE') 
-            {
-              croak qq{Filter "$fname" is not registered" } . _subname
-                unless exists $self->dbi->filters->{$fname};
-              $filter->{$column} = $self->dbi->filters->{$fname};
-            }
-        }
-        
-        # Merge
-        $self->{filter} = {%{$self->filter}, %$filter};
-        
-        return $self;
-    }
-    
-    return $self->{filter} ||= {};
-}
-
-sub filter_off {
-    my $self = shift;
-    $self->{filter_off} = 1;
-    return $self;
-}
-
-sub filter_on {
-    my $self = shift;
-    $self->{filter_off} = 0;
-    return $self;
-}
-
-sub fetch {
-    my $self = shift;
-    
-    # Info
-    my $columns = $self->{sth}->{NAME};
-    my $types = $self->{sth}->{TYPE};
-    
-    # Fetch
-    my @row = $self->{sth}->fetchrow_array;
-    return unless @row;
-    
-    # Filtering
-    my $type_rule1 = $self->type_rule->{from1} || {};
-    my $type_rule2 = $self->type_rule->{from2} || {};
-    my $filter = $self->filter;
-    my $end_filter = $self->{end_filter} || {};
-    for (my $i = 0; $i < @$columns; $i++) {
-        
-        # Column
-        my $column = $columns->[$i];
-        
-        # Type rule
-        my $type_filter1 = $type_rule1->{lc($types->[$i])};
-        $row[$i] = $type_filter1->($row[$i])
-          if  $type_filter1 && !$self->{type_rule_off}
-           && !$self->{type_rule1_off};
-        my $type_filter2 = $type_rule2->{lc($types->[$i])};
-        $row[$i] = $type_filter2->($row[$i])
-          if  $type_filter2 && !$self->{type_rule_off}
-           && !$self->{type_rule2_off};
-        
-        # Filter
-        my $filter  = $filter->{$column} || $self->{default_filter};
-        $row[$i] = $filter->($row[$i])
-          if $filter && !$self->{filter_off};
-        $row[$i] = $end_filter->{$column}->($row[$i])
-          if $end_filter->{$column} && !$self->{filter_off};
-    }
-
-    return \@row;
-}
-
-sub fetch_all {
-    my $self = shift;
-    
-    # Fetch all rows
-    my $rows = [];
-    while(my $row = $self->fetch) { push @$rows, $row}
-    
-    return $rows;
-}
-
-sub fetch_first {
-    my $self = shift;
-    
-    # Fetch
-    my $row = $self->fetch;
-    return unless $row;
-    
-    # Finish statement handle
-    $self->sth->finish;
-    
-    return $row;
-}
-
-sub fetch_hash {
-    my $self = shift;
-    
-    # Info
-    my $columns = $self->{sth}->{NAME};
-    my $types = $self->{sth}->{TYPE};
-    
-    # Fetch
-    my $row = $self->{sth}->fetchrow_arrayref;
-    return unless $row;
-
-    # Filter
-    my $hash_row = {};
-    my $filter  = $self->filter;
-    my $end_filter = $self->{end_filter} || {};
-    my $type_rule1 = $self->type_rule->{from1} || {};
-    my $type_rule2 = $self->type_rule->{from2} || {};
-    for (my $i = 0; $i < @$columns; $i++) {
-        
-        # Column
-        my $column = $columns->[$i];
-        $hash_row->{$column} = $row->[$i];
-        
-        # Type rule
-        my $type_filter1 = $type_rule1->{lc($types->[$i])};
-        $hash_row->{$column} = $type_filter1->($hash_row->{$column})
-        if  !$self->{type_rule_off} && !$self->{type_rule1_off}
-         && $type_filter1;
-        my $type_filter2 = $type_rule2->{lc($types->[$i])};
-        $hash_row->{$column} = $type_filter2->($hash_row->{$column})
-        if  !$self->{type_rule_off} && !$self->{type_rule2_off}
-         && $type_filter2;
-        
-        # Filter
-        my $f = $filter->{$column} || $self->{default_filter};
-        $hash_row->{$column} = $f->($hash_row->{$column})
-          if $f && !$self->{filter_off};
-        $hash_row->{$column} = $end_filter->{$column}->($hash_row->{$column})
-          if $end_filter->{$column} && !$self->{filter_off};
-    }
-    
-    return $hash_row;
-}
-
-sub fetch_hash_all {
-    my $self = shift;
-    
-    # Fetch all rows as hash
-    my $rows = [];
-    while(my $row = $self->fetch_hash) { push @$rows, $row }
-    
-    return $rows;
-}
-
-sub fetch_hash_first {
-    my $self = shift;
-    
-    # Fetch hash
-    my $row = $self->fetch_hash;
-    return unless $row;
-    
-    # Finish statement handle
-    $self->sth->finish;
-    
-    return $row;
-}
-
-sub fetch_hash_multi {
-    my ($self, $count) = @_;
-    
-    # Fetch multiple rows
-    croak 'Row count must be specified ' . _subname
-      unless $count;
-    my $rows = [];
-    for (my $i = 0; $i < $count; $i++) {
-        my $row = $self->fetch_hash;
-        last unless $row;
-        push @$rows, $row;
-    }
-    
-    return unless @$rows;
-    return $rows;
-}
-
-sub fetch_multi {
-    my ($self, $count) = @_;
-    
-    # Row count not specifed
-    croak 'Row count must be specified ' . _subname
-      unless $count;
-    
-    # Fetch multi rows
-    my $rows = [];
-    for (my $i = 0; $i < $count; $i++) {
-        my $row = $self->fetch;
-        last unless $row;
-        push @$rows, $row;
-    }
-    
-    return unless @$rows;
-    return $rows;
-}
-
-sub header { shift->sth->{NAME} }
-
-*one = \&fetch_hash_first;
-
-sub type_rule {
-    my $self = shift;
-    
-    if (@_) {
-        my $type_rule = ref $_[0] eq 'HASH' ? $_[0] : {@_};
-
-        # From
-        foreach my $i (1 .. 2) {
-            $type_rule->{"from$i"} = _array_to_hash($type_rule->{"from$i"});
-            foreach my $data_type (keys %{$type_rule->{"from$i"} || {}}) {
-                croak qq{data type of from$i section must be lower case or number}
-                  if $data_type =~ /[A-Z]/;
-                my $fname = $type_rule->{"from$i"}{$data_type};
-                if (defined $fname && ref $fname ne 'CODE') {
-                    croak qq{Filter "$fname" is not registered" } . _subname
-                      unless exists $self->dbi->filters->{$fname};
-                    
-                    $type_rule->{"from$i"}{$data_type} = $self->dbi->filters->{$fname};
-                }
-            }
-        }
-        $self->{type_rule} = $type_rule;
-        
-        return $self;
-    }
-    
-    return $self->{type_rule} || {};
-}
-
-sub type_rule_off {
-    my $self = shift;
-    $self->{type_rule_off} = 1;
-    return $self;
-}
-
-sub type_rule_on {
-    my $self = shift;
-    $self->{type_rule_off} = 0;
-    return $self;
-}
-
-sub type_rule1_off {
-    my $self = shift;
-    $self->{type_rule1_off} = 1;
-    return $self;
-}
-
-sub type_rule1_on {
-    my $self = shift;
-    $self->{type_rule1_off} = 0;
-    return $self;
-}
-
-sub type_rule2_off {
-    my $self = shift;
-    $self->{type_rule2_off} = 1;
-    return $self;
-}
-
-sub type_rule2_on {
-    my $self = shift;
-    $self->{type_rule2_off} = 0;
-    return $self;
-}
-
-# DEPRECATED!
-sub end_filter {
-    warn "end_filter method is DEPRECATED!";
-    my $self = shift;
-    if (@_) {
-        my $end_filter = {};
-        if (ref $_[0] eq 'HASH') { $end_filter = $_[0] }
-        else { 
-            $end_filter = _array_to_hash(
-                @_ > 1 ? [@_] : $_[0]
-            );
-        }
-        foreach my $column (keys %$end_filter) {
-            my $fname = $end_filter->{$column};
-            if  (exists $end_filter->{$column}
-              && defined $fname
-              && ref $fname ne 'CODE') 
-            {
-              croak qq{Filter "$fname" is not registered" } . _subname
-                unless exists $self->dbi->filters->{$fname};
-              $end_filter->{$column} = $self->dbi->filters->{$fname};
-            }
-        }
-        $self->{end_filter} = {%{$self->end_filter}, %$end_filter};
-        return $self;
-    }
-    return $self->{end_filter} ||= {};
-}
-# DEPRECATED!
-sub remove_end_filter {
-    warn "remove_end_filter is DEPRECATED!";
-    my $self = shift;
-    $self->{end_filter} = {};
-    return $self;
-}
-# DEPRECATED!
-sub remove_filter {
-    warn "remove_filter is DEPRECATED!";
-    my $self = shift;
-    $self->{filter} = {};
-    return $self;
-}
-# DEPRECATED!
-sub default_filter {
-    warn "default_filter is DEPRECATED!";
-    my $self = shift;
-    if (@_) {
-        my $fname = $_[0];
-        if (@_ && !$fname) {
-            $self->{default_filter} = undef;
-        }
-        else {
-            croak qq{Filter "$fname" is not registered}
-              unless exists $self->dbi->filters->{$fname};
-            $self->{default_filter} = $self->dbi->filters->{$fname};
-        }
-        return $self;
-    }
-    return $self->{default_filter};
-}
-# DEPRECATED!
-has 'filter_check'; 
-
-1;
-
-=head1 NAME
-
-DBIx::Custom::Result - Result of select statement
-
-=head1 SYNOPSIS
-
-    # Result
-    my $result = $dbi->select(table => 'book');
-
-    # Fetch a row and put it into array reference
-    while (my $row = $result->fetch) {
-        my $author = $row->[0];
-        my $title  = $row->[1];
-    }
-    
-    # Fetch only a first row and put it into array reference
-    my $row = $result->fetch_first;
-    
-    # Fetch all rows and put them into array of array reference
-    my $rows = $result->fetch_all;
-
-    # Fetch a row and put it into hash reference
-    while (my $row = $result->fetch_hash) {
-        my $title  = $row->{title};
-        my $author = $row->{author};
-    }
-    
-    # Fetch only a first row and put it into hash reference
-    my $row = $result->fetch_hash_first;
-    my $row = $result->one; # Same as fetch_hash_first
-    
-    # Fetch all rows and put them into array of hash reference
-    my $rows = $result->fetch_hash_all;
-    my $rows = $result->all; # Same as fetch_hash_all
-
-=head1 ATTRIBUTES
-
-=head2 C<dbi>
-
-    my $dbi = $result->dbi;
-    $result = $result->dbi($dbi);
-
-L<DBIx::Custom> object.
-
-=head2 C<sth>
-
-    my $sth = $reuslt->sth
-    $result = $result->sth($sth);
-
-Statement handle of L<DBI>.
-
-=head1 METHODS
-
-L<DBIx::Custom::Result> inherits all methods from L<Object::Simple>
-and implements the following new ones.
-
-=head2 C<all>
-
-    my $rows = $result->all;
-
-Same as C<fetch_hash_all>.
-
-=head2 C<fetch>
-
-    my $row = $result->fetch;
-
-Fetch a row and put it into array reference.
-
-=head2 C<fetch_all>
-
-    my $rows = $result->fetch_all;
-
-Fetch all rows and put them into array of array reference.
-
-=head2 C<fetch_first>
-
-    my $row = $result->fetch_first;
-
-Fetch only a first row and put it into array reference,
-and finish statment handle.
-
-=head2 C<fetch_hash>
-
-    my $row = $result->fetch_hash;
-
-Fetch a row and put it into hash reference.
-
-=head2 C<fetch_hash_all>
-
-    my $rows = $result->fetch_hash_all;
-
-Fetch all rows and put them into array of hash reference.
-
-=head2 C<fetch_hash_first>
-    
-    my $row = $result->fetch_hash_first;
-
-Fetch only a first row and put it into hash reference,
-and finish statment handle.
-
-=head2 C<fetch_hash_multi>
-
-    my $rows = $result->fetch_hash_multi(5);
-    
-Fetch multiple rows and put them into array of hash reference.
-
-=head2 C<fetch_multi>
-
-    my $rows = $result->fetch_multi(5);
-    
-Fetch multiple rows and put them into array of array reference.
-
-=head2 C<filter>
-
-    $result->filter(title  => sub { uc $_[0] }, author => 'to_upper');
-    $result->filter([qw/title author/] => 'to_upper');
-
-Set filter for column.
-You can use subroutine or filter name as filter.
-This filter is executed after C<type_rule> filter.
-
-=head2 C<filter_off> EXPERIMENTAL
-
-    $result = $result->filter_off;
-
-Turn filtering by C<filter> method off.
-By default, filterin is on.
-
-=head2 C<filter_on> EXPERIMENTAL
-
-    $result = $resutl->filter_on;
-
-Turn filtering by C<filter> method on.
-By default, filterin is on.
-
-=head2 C<header>
-
-    my $header = $result->header;
-
-Get header column names.
-
-=head2 C<one>
-
-    my $row = $result->one;
-
-Same as C<fetch_hash_first>.
-
-=head2 C<stash>
-
-    my $stash = $result->stash;
-    my $foo = $result->stash->{foo};
-    $result->stash->{foo} = $foo;
-
-Stash is hash reference for data.
-
-=head2 C<type_rule> EXPERIMENTAL
-    
-    # Merge type rule
-    $result->type_rule(
-        # DATE
-        9 => sub { ... },
-        # DATETIME or TIMESTAMP
-        11 => sub { ... }
-    );
-
-    # Replace type rule(by reference)
-    $result->type_rule([
-        # DATE
-        9 => sub { ... },
-        # DATETIME or TIMESTAMP
-        11 => sub { ... }
-    ]);
-
-This is same as L<DBIx::Custom>'s C<type_rule>'s <from>.
-
-=head2 C<type_rule_off> EXPERIMENTAL
-
-    $result = $result->type_rule_off;
-
-Turn C<from1> and C<from2> type rule off.
-By default, type rule is on.
-
-=head2 C<type_rule_on> EXPERIMENTAL
-
-    $result = $result->type_rule_on;
-
-Turn C<from1> and C<from2> type rule on.
-By default, type rule is on.
-
-=head2 C<type_rule1_off> EXPERIMENTAL
-
-    $result = $result->type_rule1_off;
-
-Turn C<from1> type rule off.
-By default, type rule is on.
-
-=head2 C<type_rule1_on> EXPERIMENTAL
-
-    $result = $result->type_rule1_on;
-
-Turn C<from1> type rule on.
-By default, type rule is on.
-
-=head2 C<type_rule2_off> EXPERIMENTAL
-
-    $result = $result->type_rule2_off;
-
-Turn C<from2> type rule off.
-By default, type rule is on.
-
-=head2 C<type_rule2_on> EXPERIMENTAL
-
-    $result = $result->type_rule2_on;
-
-Turn C<from2> type rule on.
-By default, type rule is on.
-
-=cut

-98

DBIx-Custom-0.1711/blib/lib/DBIx/Custom/Tag.pm

View

@@ -1,98 +0,0 @@
-package DBIx::Custom::Tag;
-
-use strict;
-use warnings;
-
-use Carp 'croak';
-use DBIx::Custom::Util '_subname';
-
-# Carp trust relationship
-push @DBIx::Custom::QueryBuilder::CARP_NOT, __PACKAGE__;
-
-sub equal              { _basic('=',  @_) }
-sub greater_than_equal { _basic('>=', @_) }
-sub greater_than       { _basic('>',  @_) }
-
-sub in {
-    my ($column, $count) = @_;
-    
-    # Check arguments
-    croak qq{Column name and count of values must be specified in tag "{in }" }
-        . _subname
-      unless $column && $count && $count =~ /^\d+$/;
-
-    # Part of statement
-    my $s = "$column in (";
-    for (my $i = 0; $i < $count; $i++) {
-        $s .= '?, ';
-    }
-    $s =~ s/, $//;
-    $s .= ')';
-    
-    # Columns
-    my $columns = [];
-    push @$columns, $column for (0 .. $count - 1);
-    
-    return [$s, $columns];
-}
-
-sub insert_param {
-    my @columns = @_;
-    
-    # Insert parameters
-    my $s = '(';
-    $s .= "$_, " for @columns;
-    $s =~ s/, $//;
-    $s .= ') ';
-    $s .= 'values (';
-    $s .= "?, " for @columns;
-    $s =~ s/, $//;
-    $s .= ')';
-    
-    return [$s, \@columns];
-}
-
-sub like               { _basic('like', @_) }
-sub lower_than_equal   { _basic('<=',   @_) }
-sub lower_than         { _basic('<',    @_) }
-sub not_equal          { _basic('<>',   @_) }
-
-sub placeholder {
-    my $column = shift;
-    
-    # Check arguments
-    croak qq{Column name must be specified in tag "{? }" } . _subname
-      unless $column;
-    
-    return ['?', [$column]];
-}
-
-sub update_param {
-    my @columns = @_;
-    
-    # Update parameters
-    my $s = 'set ';
-    $s .= "$_ = ?, " for @columns;
-    $s =~ s/, $//;
-    
-    return [$s, \@columns];
-}
-
-sub _basic {
-    my ($name, $column) = @_;
-    
-    # Check arguments
-    croak qq{Column name must be specified in tag "{$name }" } . _subname
-      unless $column;
-    
-    return ["$column $name ?", [$column]];
-}
-
-1;
-
-=head1 NAME
-
-DBIx::Custom::Tag - DEPRECATED!
-
-=cut
-

-41

DBIx-Custom-0.1711/blib/lib/DBIx/Custom/Util.pm

View

@@ -1,41 +0,0 @@
-package DBIx::Custom::Util;
-
-use strict;
-use warnings;
-
-use base 'Exporter';
-
-our @EXPORT_OK = qw/_array_to_hash _subname/;
-
-sub _array_to_hash {
-    my $array = shift;
-    
-    return $array if ref $array eq 'HASH';
-    return unless $array;
-    
-    my $hash = {};
-    
-    for (my $i = 0; $i < @$array; $i += 2) {
-        my $key = $array->[$i];
-        my $f = $array->[$i + 1];
-        
-        if (ref $key eq 'ARRAY') {
-            foreach my $k (@$key) {
-                $hash->{$k} = $f;
-            }
-        }
-        else {
-            $hash->{$key} = $f;
-        }
-    }
-    return $hash;
-}
-
-sub _subname { '(' . (caller 1)[3] . ')' }
-
-1;
-
-=head1 NAME
-
-DBIx::Custom::Util - Utility class
-

-208

DBIx-Custom-0.1711/blib/lib/DBIx/Custom/Where.pm

View

@@ -1,208 +0,0 @@
-package DBIx::Custom::Where;
-use Object::Simple -base;
-
-use Carp 'croak';
-use DBIx::Custom::Util '_subname';
-use overload 'bool' => sub {1}, fallback => 1;
-use overload '""' => sub { shift->to_string }, fallback => 1;
-
-# Carp trust relationship
-push @DBIx::Custom::CARP_NOT, __PACKAGE__;
-
-has [qw/dbi param/],
-    clause => sub { [] };
-
-sub new {
-    my $self = shift->SUPER::new(@_);
-    
-    # Check attribute names
-    my @attrs = keys %$self;
-    foreach my $attr (@attrs) {
-        croak qq{"$attr" is invalid attribute name (} . _subname . ")"
-          unless $self->can($attr);
-    }
-    
-    return $self;
-}
-
-sub to_string {
-    my $self = shift;
-    
-    # Check if column name is safety character;
-    my $safety = $self->dbi->safety_character;
-    if (ref $self->param eq 'HASH') {
-        foreach my $column (keys %{$self->param}) {
-            croak qq{"$column" is not safety column name (} . _subname . ")"
-              unless $column =~ /^[$safety\.]+$/;
-        }
-    }
-    # Clause
-    my $clause = $self->clause;
-    $clause = ['and', $clause] unless ref $clause eq 'ARRAY';
-    $clause->[0] = 'and' unless @$clause;
-
-    # Parse
-    my $where = [];
-    my $count = {};
-    $self->_parse($clause, $where, $count, 'and');
-    
-    # Stringify
-    unshift @$where, 'where' if @$where;
-    return join(' ', @$where);
-}
-
-our %VALID_OPERATIONS = map { $_ => 1 } qw/and or/;
-sub _parse {
-    my ($self, $clause, $where, $count, $op) = @_;
-    
-    # Array
-    if (ref $clause eq 'ARRAY') {
-        
-        # Start
-        push @$where, '(';
-        
-        # Operation
-        my $op = $clause->[0] || '';
-        croak qq{First argument must be "and" or "or" in where clause } .
-              qq{"$op" is passed} . _subname . ")"
-          unless $VALID_OPERATIONS{$op};
-        
-        my $pushed_array;
-        # Parse internal clause
-        for (my $i = 1; $i < @$clause; $i++) {
-            my $pushed = $self->_parse($clause->[$i], $where, $count, $op);
-            push @$where, $op if $pushed;
-            $pushed_array = 1 if $pushed;
-        }
-        pop @$where if $where->[-1] eq $op;
-        
-        # Undo
-        if ($where->[-1] eq '(') {
-            pop @$where;
-            pop @$where if ($where->[-1] || '') eq $op;
-        }
-        # End
-        else { push @$where, ')' }
-        
-        return $pushed_array;
-    }
-    
-    # String
-    else {
-        # Pushed
-        my $pushed;
-        
-        # Column
-        my $columns = $self->dbi->query_builder->build_query($clause)->columns;
-        if (@$columns == 0) {
-            push @$where, $clause;
-            $pushed = 1;
-            return $pushed;
-        }
-        elsif (@$columns != 1) {
-            croak qq{Each part contains one column name: "$clause" (}
-                  . _subname . ")";
-        }
-        
-        # Remove quote
-        my $column = $columns->[0];
-        if (my $q = $self->dbi->_quote) {
-            $q = quotemeta($q);
-            $column =~ s/[$q]//g;
-        }
-        
-        # Check safety
-        my $safety = $self->dbi->safety_character;
-        croak qq{"$column" is not safety column name (} . _subname . ")"
-          unless $column =~ /^[$safety\.]+$/;
-        
-        # Column count up
-        my $count = ++$count->{$column};
-        
-        # Push
-        my $param = $self->param;
-        if (ref $param eq 'HASH') {
-            if (exists $param->{$column}) {
-                if (ref $param->{$column} eq 'ARRAY') {
-                    $pushed = 1
-                      if  exists $param->{$column}->[$count - 1]
-                       && ref $param->{$column}->[$count - 1] ne 'DBIx::Custom::NotExists';
-                } 
-                elsif ($count == 1) {
-                    $pushed = 1;
-                }
-            }
-            push @$where, $clause if $pushed;
-        }
-        elsif (!defined $param) {
-            push @$where, $clause;
-            $pushed = 1;
-        }
-        else {
-            croak "Parameter must be hash reference or undfined value ("
-                . _subname . ")"
-        }
-        return $pushed;
-    }
-    return;
-}
-
-1;
-
-=head1 NAME
-
-DBIx::Custom::Where - Where clause
-
-=head1 SYNOPSYS
-
-    my $where = DBIx::Custom::Where->new;
-    my $string_where = "$where";
-
-=head1 ATTRIBUTES
-
-=head2 C<clause>
-
-    my $clause = $where->clause;
-    $where = $where->clause(
-        ['and',
-            'title = :title', 
-            ['or', 'date < :date', 'date > :date']
-        ]
-    );
-
-Where clause. Above one is expanded to the following SQL by to_string
-If all parameter names is exists.
-
-    "where ( title = :title and ( date < :date or date > :date ) )"
-
-=head2 C<param>
-
-    my $param = $where->param;
-    $where = $where->param({
-        title => 'Perl',
-        date => ['2010-11-11', '2011-03-05'],
-    });
-
-=head2 C<dbi>
-
-    my $dbi = $where->dbi;
-    $where = $where->dbi($dbi);
-
-L<DBIx::Custom> object.
-
-=head1 METHODS
-
-L<DBIx::Custom::Where> inherits all methods from L<Object::Simple>
-and implements the following new ones.
-
-=head2 C<to_string>
-
-    $where->to_string;
-
-Convert where clause to string.
-
-double quote is override to execute C<to_string> method.
-
-    my $string_where = "$where";
-
-=cut

DBIx-Custom-0.1711/blib/lib/auto/DBIx/Custom/.exists

View

No changes.

DBIx-Custom-0.1711/blib/man1/.exists

View

No changes.

DBIx-Custom-0.1711/blib/man3/.exists

View

No changes.

-1894

DBIx-Custom-0.1711/blib/man3/DBIx::Custom.3pm

View

@@ -1,1894 +0,0 @@
-.\" Automatically generated by Pod::Man v1.37, Pod::Parser v1.32
-.\"
-.\" Standard preamble:
-.\" ========================================================================
-.de Sh \" Subsection heading
-.br
-.if t .Sp
-.ne 5
-.PP
-\fB\\$1\fR
-.PP
-..
-.de Sp \" Vertical space (when we can't use .PP)
-.if t .sp .5v
-.if n .sp
-..
-.de Vb \" Begin verbatim text
-.ft CW
-.nf
-.ne \\$1
-..
-.de Ve \" End verbatim text
-.ft R
-.fi
-..
-.\" Set up some character translations and predefined strings.  \*(-- will
-.\" give an unbreakable dash, \*(PI will give pi, \*(L" will give a left
-.\" double quote, and \*(R" will give a right double quote.  | will give a
-.\" real vertical bar.  \*(C+ will give a nicer C++.  Capital omega is used to
-.\" do unbreakable dashes and therefore won't be available.  \*(C` and \*(C'
-.\" expand to `' in nroff, nothing in troff, for use with C<>.
-.tr \(*W-|\(bv\*(Tr
-.ds C+ C\v'-.1v'\h'-1p'\s-2+\h'-1p'+\s0\v'.1v'\h'-1p'
-.ie n \{\
-.    ds -- \(*W-
-.    ds PI pi
-.    if (\n(.H=4u)&(1m=24u) .ds -- \(*W\h'-12u'\(*W\h'-12u'-\" diablo 10 pitch
-.    if (\n(.H=4u)&(1m=20u) .ds -- \(*W\h'-12u'\(*W\h'-8u'-\"  diablo 12 pitch
-.    ds L" ""
-.    ds R" ""
-.    ds C` ""
-.    ds C' ""
-'br\}
-.el\{\
-.    ds -- \|\(em\|
-.    ds PI \(*p
-.    ds L" ``
-.    ds R" ''
-'br\}
-.\"
-.\" If the F register is turned on, we'll generate index entries on stderr for
-.\" titles (.TH), headers (.SH), subsections (.Sh), items (.Ip), and index
-.\" entries marked with X<> in POD.  Of course, you'll have to process the
-.\" output yourself in some meaningful fashion.
-.if \nF \{\
-.    de IX
-.    tm Index:\\$1\t\\n%\t"\\$2"
-..
-.    nr % 0
-.    rr F
-.\}
-.\"
-.\" For nroff, turn off justification.  Always turn off hyphenation; it makes
-.\" way too many mistakes in technical documents.
-.hy 0
-.if n .na
-.\"
-.\" Accent mark definitions (@(#)ms.acc 1.5 88/02/08 SMI; from UCB 4.2).
-.\" Fear.  Run.  Save yourself.  No user-serviceable parts.
-.    \" fudge factors for nroff and troff
-.if n \{\
-.    ds #H 0
-.    ds #V .8m
-.    ds #F .3m
-.    ds #[ \f1
-.    ds #] \fP
-.\}
-.if t \{\
-.    ds #H ((1u-(\\\\n(.fu%2u))*.13m)
-.    ds #V .6m
-.    ds #F 0
-.    ds #[ \&
-.    ds #] \&
-.\}
-.    \" simple accents for nroff and troff
-.if n \{\
-.    ds ' \&
-.    ds ` \&
-.    ds ^ \&
-.    ds , \&
-.    ds ~ ~
-.    ds /
-.\}
-.if t \{\
-.    ds ' \\k:\h'-(\\n(.wu*8/10-\*(#H)'\'\h"|\\n:u"
-.    ds ` \\k:\h'-(\\n(.wu*8/10-\*(#H)'\`\h'|\\n:u'
-.    ds ^ \\k:\h'-(\\n(.wu*10/11-\*(#H)'^\h'|\\n:u'
-.    ds , \\k:\h'-(\\n(.wu*8/10)',\h'|\\n:u'
-.    ds ~ \\k:\h'-(\\n(.wu-\*(#H-.1m)'~\h'|\\n:u'
-.    ds / \\k:\h'-(\\n(.wu*8/10-\*(#H)'\z\(sl\h'|\\n:u'
-.\}
-.    \" troff and (daisy-wheel) nroff accents
-.ds : \\k:\h'-(\\n(.wu*8/10-\*(#H+.1m+\*(#F)'\v'-\*(#V'\z.\h'.2m+\*(#F'.\h'|\\n:u'\v'\*(#V'
-.ds 8 \h'\*(#H'\(*b\h'-\*(#H'
-.ds o \\k:\h'-(\\n(.wu+\w'\(de'u-\*(#H)/2u'\v'-.3n'\*(#[\z\(de\v'.3n'\h'|\\n:u'\*(#]
-.ds d- \h'\*(#H'\(pd\h'-\w'~'u'\v'-.25m'\f2\(hy\fP\v'.25m'\h'-\*(#H'
-.ds D- D\\k:\h'-\w'D'u'\v'-.11m'\z\(hy\v'.11m'\h'|\\n:u'
-.ds th \*(#[\v'.3m'\s+1I\s-1\v'-.3m'\h'-(\w'I'u*2/3)'\s-1o\s+1\*(#]
-.ds Th \*(#[\s+2I\s-2\h'-\w'I'u*3/5'\v'-.3m'o\v'.3m'\*(#]
-.ds ae a\h'-(\w'a'u*4/10)'e
-.ds Ae A\h'-(\w'A'u*4/10)'E
-.    \" corrections for vroff
-.if v .ds ~ \\k:\h'-(\\n(.wu*9/10-\*(#H)'\s-2\u~\d\s+2\h'|\\n:u'
-.if v .ds ^ \\k:\h'-(\\n(.wu*10/11-\*(#H)'\v'-.4m'^\v'.4m'\h'|\\n:u'
-.    \" for low resolution devices (crt and lpr)
-.if \n(.H>23 .if \n(.V>19 \
-\{\
-.    ds : e
-.    ds 8 ss
-.    ds o a
-.    ds d- d\h'-1'\(ga
-.    ds D- D\h'-1'\(hy
-.    ds th \o'bp'
-.    ds Th \o'LP'
-.    ds ae ae
-.    ds Ae AE
-.\}
-.rm #[ #] #H #V #F C
-.\" ========================================================================
-.\"
-.IX Title "DBIx::Custom 3"
-.TH DBIx::Custom 3 "2011-08-06" "perl v5.8.8" "User Contributed Perl Documentation"
-.SH "NAME"
-DBIx::Custom \- Execute insert, update, delete, and select statement easily
-.SH "SYNOPSYS"
-.IX Header "SYNOPSYS"
-.Vb 1
-\&    use DBIx::Custom;
-.Ve
-.PP
-.Vb 7
-\&    # Connect
-\&    my $dbi = DBIx::Custom->connect(
-\&        dsn => "dbi:mysql:database=dbname",
-\&        user => 'ken',
-\&        password => '!LFKD%$&',
-\&        dbi_option => {mysql_enable_utf8 => 1}
-\&    );
-.Ve
-.PP
-.Vb 2
-\&    # Insert 
-\&    $dbi->insert({title => 'Perl', author => 'Ken'}, table  => 'book');
-.Ve
-.PP
-.Vb 3
-\&    # Update 
-\&    $dbi->update({title => 'Perl', author => 'Ken'}, table  => 'book',
-\&      where  => {id => 5});
-.Ve
-.PP
-.Vb 2
-\&    # Delete
-\&    $dbi->delete(table  => 'book', where => {author => 'Ken'});
-.Ve
-.PP
-.Vb 3
-\&    # Select
-\&    my $result = $dbi->select(table  => 'book',
-\&      column => ['title', 'author'], where  => {author => 'Ken'});
-.Ve
-.PP
-.Vb 11
-\&    # Select, more complex
-\&    my $result = $dbi->select(
-\&        table  => 'book',
-\&        column => [
-\&            {book => [qw/title author/]},
-\&            {company => ['name']}
-\&        ],
-\&        where  => {'book.author' => 'Ken'},
-\&        join => ['left outer join company on book.company_id = company.id'],
-\&        append => 'order by id limit 5'
-\&    );
-.Ve
-.PP
-.Vb 2
-\&    # Fetch
-\&    while (my $row = $result->fetch) {
-.Ve
-.PP
-.Vb 1
-\&    }
-.Ve
-.PP
-.Vb 2
-\&    # Fetch as hash
-\&    while (my $row = $result->fetch_hash) {
-.Ve
-.PP
-.Vb 1
-\&    }
-.Ve
-.PP
-.Vb 5
-\&    # Execute SQL with parameter.
-\&    $dbi->execute(
-\&        "select id from book where author = :author and title like :title",
-\&        {author => 'ken', title => '%Perl%'}
-\&    );
-.Ve
-.SH "DESCRIPTIONS"
-.IX Header "DESCRIPTIONS"
-DBIx::Custom is \s-1DBI\s0 wrapper module to execute \s-1SQL\s0 easily.
-This module have the following features.
-.IP "\(bu" 4
-Execute \f(CW\*(C`insert\*(C'\fR, \f(CW\*(C`update\*(C'\fR, \f(CW\*(C`delete\*(C'\fR, or \f(CW\*(C`select\*(C'\fR statement easily
-.IP "\(bu" 4
-Create \f(CW\*(C`where\*(C'\fR clause flexibly
-.IP "\(bu" 4
-Named place holder support
-.IP "\(bu" 4
-Model support
-.IP "\(bu" 4
-Connection manager support
-.IP "\(bu" 4
-Choice your favorite relational database management system,
-\&\f(CW\*(C`MySQL\*(C'\fR, \f(CW\*(C`SQLite\*(C'\fR, \f(CW\*(C`PostgreSQL\*(C'\fR, \f(CW\*(C`Oracle\*(C'\fR,
-\&\f(CW\*(C`Microsoft SQL Server\*(C'\fR, \f(CW\*(C`Microsoft Access\*(C'\fR, \f(CW\*(C`DB2\*(C'\fR or anything, 
-.IP "\(bu" 4
-Filtering by data type or column name(\s-1EXPERIMENTAL\s0)
-.IP "\(bu" 4
-Create \f(CW\*(C`order by\*(C'\fR clause flexibly(\s-1EXPERIMENTAL\s0)
-.SH "DOCUMENTATIONS"
-.IX Header "DOCUMENTATIONS"
-DBIx::Custom::Guide \- How to use DBIx::Custom
-.PP
-DBIx::Custom Wiki
-\&\- Theare are various examples.
-.PP
-Module documentations \- 
-DBIx::Custom::Result,
-DBIx::Custom::Query,
-DBIx::Custom::Where,
-DBIx::Custom::Model,
-DBIx::Custom::Order
-.SH "ATTRIBUTES"
-.IX Header "ATTRIBUTES"
-.ie n .Sh """connector"""
-.el .Sh "\f(CWconnector\fP"
-.IX Subsection "connector"
-.Vb 2
-\&    my $connector = $dbi->connector;
-\&    $dbi = $dbi->connector($connector);
-.Ve
-.PP
-Connection manager object. if \f(CW\*(C`connector\*(C'\fR is set, you can get \f(CW\*(C`dbh\*(C'\fR
-through connection manager. Conection manager object must have \f(CW\*(C`dbh\*(C'\fR mehtod.
-.PP
-This is DBIx::Connector example. Please pass
-\&\f(CW\*(C`default_dbi_option\*(C'\fR to DBIx::Connector \f(CW\*(C`new\*(C'\fR method.
-.PP
-.Vb 6
-\&    my $connector = DBIx::Connector->new(
-\&        "dbi:mysql:database=$DATABASE",
-\&        $USER,
-\&        $PASSWORD,
-\&        DBIx::Custom->new->default_dbi_option
-\&    );
-.Ve
-.PP
-.Vb 1
-\&    my $dbi = DBIx::Custom->connect(connector => $connector);
-.Ve
-.ie n .Sh """dsn"""
-.el .Sh "\f(CWdsn\fP"
-.IX Subsection "dsn"
-.Vb 2
-\&    my $dsn = $dbi->dsn;
-\&    $dbi = $dbi->dsn("DBI:mysql:database=dbname");
-.Ve
-.PP
-Data source name, used when \f(CW\*(C`connect\*(C'\fR method is executed.
-.ie n .Sh """dbi_option"""
-.el .Sh "\f(CWdbi_option\fP"
-.IX Subsection "dbi_option"
-.Vb 2
-\&    my $dbi_option = $dbi->dbi_option;
-\&    $dbi = $dbi->dbi_option($dbi_option);
-.Ve
-.PP
-\&\s-1DBI\s0 option, used when \f(CW\*(C`connect\*(C'\fR method is executed.
-Each value in option override the value of \f(CW\*(C`default_dbi_option\*(C'\fR.
-.ie n .Sh """default_dbi_option"""
-.el .Sh "\f(CWdefault_dbi_option\fP"
-.IX Subsection "default_dbi_option"
-.Vb 2
-\&    my $default_dbi_option = $dbi->default_dbi_option;
-\&    $dbi = $dbi->default_dbi_option($default_dbi_option);
-.Ve
-.PP
-\&\s-1DBI\s0 default option, used when \f(CW\*(C`connect\*(C'\fR method is executed,
-default to the following values.
-.PP
-.Vb 5
-\&    {
-\&        RaiseError => 1,
-\&        PrintError => 0,
-\&        AutoCommit => 1,
-\&    }
-.Ve
-.ie n .Sh """filters"""
-.el .Sh "\f(CWfilters\fP"
-.IX Subsection "filters"
-.Vb 2
-\&    my $filters = $dbi->filters;
-\&    $dbi = $dbi->filters(\e%filters);
-.Ve
-.PP
-Filters, registered by \f(CW\*(C`register_filter\*(C'\fR method.
-.ie n .Sh """last_sql"""
-.el .Sh "\f(CWlast_sql\fP"
-.IX Subsection "last_sql"
-.Vb 2
-\&    my $last_sql = $dbi->last_sql;
-\&    $dbi = $dbi->last_sql($last_sql);
-.Ve
-.PP
-Get last successed \s-1SQL\s0 executed by \f(CW\*(C`execute\*(C'\fR method.
-.ie n .Sh """models"""
-.el .Sh "\f(CWmodels\fP"
-.IX Subsection "models"
-.Vb 2
-\&    my $models = $dbi->models;
-\&    $dbi = $dbi->models(\e%models);
-.Ve
-.PP
-Models, included by \f(CW\*(C`include_model\*(C'\fR method.
-.ie n .Sh """password"""
-.el .Sh "\f(CWpassword\fP"
-.IX Subsection "password"
-.Vb 2
-\&    my $password = $dbi->password;
-\&    $dbi = $dbi->password('lkj&le`@s');
-.Ve
-.PP
-Password, used when \f(CW\*(C`connect\*(C'\fR method is executed.
-.ie n .Sh """query_builder"""
-.el .Sh "\f(CWquery_builder\fP"
-.IX Subsection "query_builder"
-.Vb 2
-\&    my $sql_class = $dbi->query_builder;
-\&    $dbi = $dbi->query_builder(DBIx::Custom::QueryBuilder->new);
-.Ve
-.PP
-Query builder, default to DBIx::Custom::QueryBuilder object.
-.ie n .Sh """quote"""
-.el .Sh "\f(CWquote\fP"
-.IX Subsection "quote"
-.Vb 2
-\&     my quote = $dbi->quote;
-\&     $dbi = $dbi->quote('"');
-.Ve
-.PP
-Reserved word quote.
-Default to double quote '"' except for mysql.
-In mysql, default to back quote '`'
-.PP
-You can set quote pair.
-.PP
-.Vb 1
-\&    $dbi->quote('[]');
-.Ve
-.ie n .Sh """result_class"""
-.el .Sh "\f(CWresult_class\fP"
-.IX Subsection "result_class"
-.Vb 2
-\&    my $result_class = $dbi->result_class;
-\&    $dbi = $dbi->result_class('DBIx::Custom::Result');
-.Ve
-.PP
-Result class, default to DBIx::Custom::Result.
-.ie n .Sh """safety_character"""
-.el .Sh "\f(CWsafety_character\fP"
-.IX Subsection "safety_character"
-.Vb 2
-\&    my $safety_character = $self->safety_character;
-\&    $dbi = $self->safety_character($character);
-.Ve
-.PP
-Regex of safety character for table and column name, default to '\ew'.
-Note that you don't have to specify like '[\ew]'.
-.ie n .Sh """tag_parse"""
-.el .Sh "\f(CWtag_parse\fP"
-.IX Subsection "tag_parse"
-.Vb 2
-\&    my $tag_parse = $dbi->tag_parse(0);
-\&    $dbi = $dbi->tag_parse;
-.Ve
-.PP
-Enable \s-1DEPRECATED\s0 tag parsing functionality, default to 1.
-If you want to disable tag parsing functionality, set to 0.
-.ie n .Sh """user"""
-.el .Sh "\f(CWuser\fP"
-.IX Subsection "user"
-.Vb 2
-\&    my $user = $dbi->user;
-\&    $dbi = $dbi->user('Ken');
-.Ve
-.PP
-User name, used when \f(CW\*(C`connect\*(C'\fR method is executed.
-.SH "METHODS"
-.IX Header "METHODS"
-DBIx::Custom inherits all methods from Object::Simple
-and use all methods of \s-1DBI\s0
-and implements the following new ones.
-.ie n .Sh """available_data_type"" \s-1EXPERIMENTAL\s0"
-.el .Sh "\f(CWavailable_data_type\fP \s-1EXPERIMENTAL\s0"
-.IX Subsection "available_data_type EXPERIMENTAL"
-.Vb 1
-\&    print $dbi->available_data_type;
-.Ve
-.PP
-Get available data types. You can use these data types
-in \f(CW\*(C`type rule\*(C'\fR's \f(CW\*(C`from1\*(C'\fR and \f(CW\*(C`from2\*(C'\fR section.
-.ie n .Sh """available_type_name"" \s-1EXPERIMENTAL\s0"
-.el .Sh "\f(CWavailable_type_name\fP \s-1EXPERIMENTAL\s0"
-.IX Subsection "available_type_name EXPERIMENTAL"
-.Vb 1
-\&    print $dbi->available_type_name;
-.Ve
-.PP
-Get available type names. You can use these type names in
-\&\f(CW\*(C`type_rule\*(C'\fR's \f(CW\*(C`into1\*(C'\fR and \f(CW\*(C`into2\*(C'\fR section.
-.ie n .Sh """assign_param"" \s-1EXPERIMENTAL\s0"
-.el .Sh "\f(CWassign_param\fP \s-1EXPERIMENTAL\s0"
-.IX Subsection "assign_param EXPERIMENTAL"
-.Vb 1
-\&    my $assign_param = $dbi->assign_param({title => 'a', age => 2});
-.Ve
-.PP
-Create assign parameter.
-.PP
-.Vb 1
-\&    title = :title, author = :author
-.Ve
-.PP
-This is equal to \f(CW\*(C`update_param\*(C'\fR exept that set is not added.
-.ie n .Sh """column"""
-.el .Sh "\f(CWcolumn\fP"
-.IX Subsection "column"
-.Vb 1
-\&    my $column = $dbi->column(book => ['author', 'title']);
-.Ve
-.PP
-Create column clause. The follwoing column clause is created.
-.PP
-.Vb 2
-\&    book.author as "book.author",
-\&    book.title as "book.title"
-.Ve
-.PP
-You can change separator by \f(CW\*(C`separator\*(C'\fR method.
-.PP
-.Vb 2
-\&    # Separator is double underbar
-\&    $dbi->separator('__');
-.Ve
-.PP
-.Vb 2
-\&    book.author as "book__author",
-\&    book.title as "book__title"
-.Ve
-.PP
-.Vb 2
-\&    # Separator is hyphen
-\&    $dbi->separator('-');
-.Ve
-.PP
-.Vb 2
-\&    book.author as "book-author",
-\&    book.title as "book-title"
-.Ve
-.ie n .Sh """connect"""
-.el .Sh "\f(CWconnect\fP"
-.IX Subsection "connect"
-.Vb 6
-\&    my $dbi = DBIx::Custom->connect(
-\&        dsn => "dbi:mysql:database=dbname",
-\&        user => 'ken',
-\&        password => '!LFKD%$&',
-\&        dbi_option => {mysql_enable_utf8 => 1}
-\&    );
-.Ve
-.PP
-Connect to the database and create a new DBIx::Custom object.
-.PP
-DBIx::Custom is a wrapper of \s-1DBI\s0.
-\&\f(CW\*(C`AutoCommit\*(C'\fR and \f(CW\*(C`RaiseError\*(C'\fR options are true, 
-and \f(CW\*(C`PrintError\*(C'\fR option is false by default.
-.Sh "create_model"
-.IX Subsection "create_model"
-.Vb 7
-\&    my $model = $dbi->create_model(
-\&        table => 'book',
-\&        primary_key => 'id',
-\&        join => [
-\&            'inner join company on book.comparny_id = company.id'
-\&        ],
-\&    );
-.Ve
-.PP
-Create DBIx::Custom::Model object and initialize model.
-the module is also used from \f(CW\*(C`model\*(C'\fR method.
-.PP
-.Vb 1
-\&   $dbi->model('book')->select(...);
-.Ve
-.ie n .Sh """dbh"""
-.el .Sh "\f(CWdbh\fP"
-.IX Subsection "dbh"
-.Vb 1
-\&    my $dbh = $dbi->dbh;
-.Ve
-.PP
-Get \s-1DBI\s0 database handle. if \f(CW\*(C`connector\*(C'\fR is set, you can get
-database handle through \f(CW\*(C`connector\*(C'\fR object.
-.ie n .Sh """each_column"""
-.el .Sh "\f(CWeach_column\fP"
-.IX Subsection "each_column"
-.Vb 3
-\&    $dbi->each_column(
-\&        sub {
-\&            my ($dbi, $table, $column, $column_info) = @_;
-.Ve
-.PP
-.Vb 1
-\&            my $type = $column_info->{TYPE_NAME};
-.Ve
-.PP
-.Vb 5
-\&            if ($type eq 'DATE') {
-\&                # ...
-\&            }
-\&        }
-\&    );
-.Ve
-.PP
-Iterate all column informations of all table from database.
-Argument is callback when one column is found.
-Callback receive four arguments, dbi object, table name,
-column name and column information.
-.ie n .Sh """each_table"""
-.el .Sh "\f(CWeach_table\fP"
-.IX Subsection "each_table"
-.Vb 3
-\&    $dbi->each_table(
-\&        sub {
-\&            my ($dbi, $table, $table_info) = @_;
-.Ve
-.PP
-.Vb 3
-\&            my $table_name = $table_info->{TABLE_NAME};
-\&        }
-\&    );
-.Ve
-.PP
-Iterate all table informationsfrom database.
-Argument is callback when one table is found.
-Callback receive three arguments, dbi object, table name,
-table information.
-.ie n .Sh """execute"""
-.el .Sh "\f(CWexecute\fP"
-.IX Subsection "execute"
-.Vb 4
-\&    my $result = $dbi->execute(
-\&      "select * from book where title = :title and author like :author",
-\&      {title => 'Perl', author => '%Ken%'}
-\&    );
-.Ve
-.PP
-.Vb 4
-\&    my $result = $dbi->execute(
-\&      "select * from book where title = :book.title and author like :book.author",
-\&      {'book.title' => 'Perl', 'book.author' => '%Ken%'}
-\&    );
-.Ve
-.PP
-Execute \s-1SQL\s0. \s-1SQL\s0 can contain column parameter such as :author and :title.
-You can append table name to column name such as :book.title and :book.author.
-Second argunet is data, embedded into column parameter.
-Return value is DBIx::Custom::Result object when select statement is executed,
-or the count of affected rows when insert, update, delete statement is executed.
-.PP
-Named placeholder such as \f(CW\*(C`:title\*(C'\fR is replaced by placeholder \f(CW\*(C`?\*(C'\fR.
-.PP
-.Vb 2
-\&    # Original
-\&    select * from book where title = :title and author like :author
-.Ve
-.PP
-.Vb 2
-\&    # Replaced
-\&    select * from where title = ? and author like ?;
-.Ve
-.PP
-You can specify operator with named placeholder
- by \f(CW\*(C`name{operator}\*(C'\fR syntax.
-.PP
-.Vb 2
-\&    # Original
-\&    select * from book where :title{=} and :author{like}
-.Ve
-.PP
-.Vb 2
-\&    # Replaced
-\&    select * from where title = ? and author like ?;
-.Ve
-.PP
-Note that colons in time format such as 12:13:15 is exeption,
-it is not parsed as named placeholder.
-If you want to use colon generally, you must escape it by \f(CW\*(C`\e\e\*(C'\fR
-.PP
-.Vb 1
-\&    select * from where title = "aa\e\e:bb";
-.Ve
-.PP
-The following opitons are available.
-.ie n .IP """filter""" 4
-.el .IP "\f(CWfilter\fR" 4
-.IX Item "filter"
-.Vb 4
-\&    filter => {
-\&        title  => sub { uc $_[0] }
-\&        author => sub { uc $_[0] }
-\&    }
-.Ve
-.Sp
-.Vb 5
-\&    # Filter name
-\&    filter => {
-\&        title  => 'upper_case',
-\&        author => 'upper_case'
-\&    }
-.Ve
-.Sp
-.Vb 4
-\&    # At once
-\&    filter => [
-\&        [qw/title author/]  => sub { uc $_[0] }
-\&    ]
-.Ve
-.Sp
-Filter. You can set subroutine or filter name
-registered by by \f(CW\*(C`register_filter\*(C'\fR.
-This filter is executed before data is saved into database.
-and before type rule filter is executed.
-.ie n .IP """query""" 4
-.el .IP "\f(CWquery\fR" 4
-.IX Item "query"
-.Vb 1
-\&    query => 1
-.Ve
-.Sp
-\&\f(CW\*(C`execute\*(C'\fR method return DBIx::Custom::Query object, not executing \s-1SQL\s0.
-You can check \s-1SQL\s0 or get statment handle.
-.Sp
-.Vb 3
-\&    my $sql = $query->sql;
-\&    my $sth = $query->sth;
-\&    my $columns = $query->columns;
-.Ve
-.Sp
-If you want to execute \s-1SQL\s0 fast, you can do the following way.
-.Sp
-.Vb 5
-\&    my $query;
-\&    foreach my $row (@$rows) {
-\&      $query ||= $dbi->insert($row, table => 'table1', query => 1);
-\&      $dbi->execute($query, $row, filter => {ab => sub { $_[0] * 2 }});
-\&    }
-.Ve
-.Sp
-Statement handle is reused and \s-1SQL\s0 parsing is finished,
-so you can get more performance than normal way.
-.Sp
-If you want to execute \s-1SQL\s0 as possible as fast and don't need filtering.
-You can do the following way.
-.Sp
-.Vb 7
-\&    my $query;
-\&    my $sth;
-\&    foreach my $row (@$rows) {
-\&      $query ||= $dbi->insert($row, table => 'book', query => 1);
-\&      $sth ||= $query->sth;
-\&      $sth->execute(map { $row->{$_} } sort keys %$row);
-\&    }
-.Ve
-.Sp
-Note that \f(CW$row\fR must be simple hash reference, such as
-{title => 'Perl', author => 'Ken'}.
-and don't forget to sort \f(CW$row\fR values by \f(CW$row\fR key asc order.
-.ie n .IP """table""" 4
-.el .IP "\f(CWtable\fR" 4
-.IX Item "table"
-.Vb 1
-\&    table => 'author'
-.Ve
-.Sp
-If you want to omit table name in column name
-and enable \f(CW\*(C`into1\*(C'\fR and \f(CW\*(C`into2\*(C'\fR type filter,
-You must set \f(CW\*(C`table\*(C'\fR option.
-.Sp
-.Vb 2
-\&    $dbi->execute("select * from book where title = :title and author = :author",
-\&        {title => 'Perl', author => 'Ken', table => 'book');
-.Ve
-.Sp
-.Vb 4
-\&    # Same
-\&    $dbi->execute(
-\&      "select * from book where title = :book.title and author = :book.author",
-\&      {title => 'Perl', author => 'Ken');
-.Ve
-.ie n .IP """bind_type""" 4
-.el .IP "\f(CWbind_type\fR" 4
-.IX Item "bind_type"
-Specify database bind data type.
-.Sp
-.Vb 2
-\&    bind_type => [image => DBI::SQL_BLOB]
-\&    bind_type => [[qw/image audio/] => DBI::SQL_BLOB]
-.Ve
-.Sp
-This is used to bind parameter by \f(CW\*(C`bind_param\*(C'\fR of statment handle.
-.Sp
-.Vb 1
-\&    $sth->bind_param($pos, $value, DBI::SQL_BLOB);
-.Ve
-.ie n .IP """table_alias"" \s-1EXPERIMENTAL\s0" 4
-.el .IP "\f(CWtable_alias\fR \s-1EXPERIMENTAL\s0" 4
-.IX Item "table_alias EXPERIMENTAL"
-.Vb 1
-\&    table_alias => {user => 'hiker'}
-.Ve
-.Sp
-Table alias. Key is real table name, value is alias table name.
-If you set \f(CW\*(C`table_alias\*(C'\fR, you can enable \f(CW\*(C`into1\*(C'\fR and \f(CW\*(C`into2\*(C'\fR type rule
-on alias table name.
-.ie n .IP """type_rule_off"" \s-1EXPERIMENTAL\s0" 4
-.el .IP "\f(CWtype_rule_off\fR \s-1EXPERIMENTAL\s0" 4
-.IX Item "type_rule_off EXPERIMENTAL"
-.Vb 1
-\&    type_rule_off => 1
-.Ve
-.Sp
-Turn \f(CW\*(C`into1\*(C'\fR and \f(CW\*(C`into2\*(C'\fR type rule off.
-.ie n .IP """type_rule1_off"" \s-1EXPERIMENTAL\s0" 4
-.el .IP "\f(CWtype_rule1_off\fR \s-1EXPERIMENTAL\s0" 4
-.IX Item "type_rule1_off EXPERIMENTAL"
-.Vb 1
-\&    type_rule1_off => 1
-.Ve
-.Sp
-Turn \f(CW\*(C`into1\*(C'\fR type rule off.
-.ie n .IP """type_rule2_off"" \s-1EXPERIMENTAL\s0" 4
-.el .IP "\f(CWtype_rule2_off\fR \s-1EXPERIMENTAL\s0" 4
-.IX Item "type_rule2_off EXPERIMENTAL"
-.Vb 1
-\&    type_rule2_off => 1
-.Ve
-.Sp
-Turn \f(CW\*(C`into2\*(C'\fR type rule off.
-.ie n .Sh """delete"""
-.el .Sh "\f(CWdelete\fP"
-.IX Subsection "delete"
-.Vb 1
-\&    $dbi->delete(table => 'book', where => {title => 'Perl'});
-.Ve
-.PP
-Execute delete statement.
-.PP
-The following opitons are available.
-.ie n .IP """append""" 4
-.el .IP "\f(CWappend\fR" 4
-.IX Item "append"
-Same as \f(CW\*(C`select\*(C'\fR method's \f(CW\*(C`append\*(C'\fR option.
-.ie n .IP """filter""" 4
-.el .IP "\f(CWfilter\fR" 4
-.IX Item "filter"
-Same as \f(CW\*(C`execute\*(C'\fR method's \f(CW\*(C`filter\*(C'\fR option.
-.ie n .IP """id""" 4
-.el .IP "\f(CWid\fR" 4
-.IX Item "id"
-.Vb 2
-\&    id => 4
-\&    id => [4, 5]
-.Ve
-.Sp
-\&\s-1ID\s0 corresponding to \f(CW\*(C`primary_key\*(C'\fR.
-You can delete rows by \f(CW\*(C`id\*(C'\fR and \f(CW\*(C`primary_key\*(C'\fR.
-.Sp
-.Vb 5
-\&    $dbi->delete(
-\&        parimary_key => ['id1', 'id2'],
-\&        id => [4, 5],
-\&        table => 'book',
-\&    );
-.Ve
-.Sp
-The above is same as the followin one.
-.Sp
-.Vb 1
-\&    $dbi->delete(where => {id1 => 4, id2 => 5}, table => 'book');
-.Ve
-.ie n .IP """prefix""" 4
-.el .IP "\f(CWprefix\fR" 4
-.IX Item "prefix"
-.Vb 1
-\&    prefix => 'some'
-.Ve
-.Sp
-prefix before table name section.
-.Sp
-.Vb 1
-\&    delete some from book
-.Ve
-.ie n .IP """query""" 4
-.el .IP "\f(CWquery\fR" 4
-.IX Item "query"
-Same as \f(CW\*(C`execute\*(C'\fR method's \f(CW\*(C`query\*(C'\fR option.
-.ie n .IP """table""" 4
-.el .IP "\f(CWtable\fR" 4
-.IX Item "table"
-.Vb 1
-\&    table => 'book'
-.Ve
-.Sp
-Table name.
-.ie n .IP """where""" 4
-.el .IP "\f(CWwhere\fR" 4
-.IX Item "where"
-Same as \f(CW\*(C`select\*(C'\fR method's \f(CW\*(C`where\*(C'\fR option.
-.ie n .IP """primary_key""" 4
-.el .IP "\f(CWprimary_key\fR" 4
-.IX Item "primary_key"
-See \f(CW\*(C`id\*(C'\fR option.
-.ie n .IP """bind_type""" 4
-.el .IP "\f(CWbind_type\fR" 4
-.IX Item "bind_type"
-Same as \f(CW\*(C`execute\*(C'\fR method's \f(CW\*(C`bind_type\*(C'\fR option.
-.ie n .IP """type_rule_off"" \s-1EXPERIMENTAL\s0" 4
-.el .IP "\f(CWtype_rule_off\fR \s-1EXPERIMENTAL\s0" 4
-.IX Item "type_rule_off EXPERIMENTAL"
-Same as \f(CW\*(C`execute\*(C'\fR method's \f(CW\*(C`type_rule_off\*(C'\fR option.
-.ie n .IP """type_rule1_off"" \s-1EXPERIMENTAL\s0" 4
-.el .IP "\f(CWtype_rule1_off\fR \s-1EXPERIMENTAL\s0" 4
-.IX Item "type_rule1_off EXPERIMENTAL"
-.Vb 1
-\&    type_rule1_off => 1
-.Ve
-.Sp
-Same as \f(CW\*(C`execute\*(C'\fR method's \f(CW\*(C`type_rule1_off\*(C'\fR option.
-.ie n .IP """type_rule2_off"" \s-1EXPERIMENTAL\s0" 4
-.el .IP "\f(CWtype_rule2_off\fR \s-1EXPERIMENTAL\s0" 4
-.IX Item "type_rule2_off EXPERIMENTAL"
-.Vb 1
-\&    type_rule2_off => 1
-.Ve
-.Sp
-Same as \f(CW\*(C`execute\*(C'\fR method's \f(CW\*(C`type_rule2_off\*(C'\fR option.
-.ie n .Sh """delete_all"""
-.el .Sh "\f(CWdelete_all\fP"
-.IX Subsection "delete_all"
-.Vb 1
-\&    $dbi->delete_all(table => $table);
-.Ve
-.PP
-Execute delete statement for all rows.
-Options is same as \f(CW\*(C`delete\*(C'\fR.
-.ie n .Sh """insert"""
-.el .Sh "\f(CWinsert\fP"
-.IX Subsection "insert"
-.Vb 1
-\&    $dbi->insert({title => 'Perl', author => 'Ken'}, table  => 'book');
-.Ve
-.PP
-Execute insert statement. First argument is row data. Return value is
-affected row count.
-.PP
-If you want to set constant value to row data, use scalar reference
-as parameter value.
-.PP
-.Vb 1
-\&    {date => \e"NOW()"}
-.Ve
-.PP
-The following opitons are available.
-.ie n .IP """append""" 4
-.el .IP "\f(CWappend\fR" 4
-.IX Item "append"
-Same as \f(CW\*(C`select\*(C'\fR method's \f(CW\*(C`append\*(C'\fR option.
-.ie n .IP """filter""" 4
-.el .IP "\f(CWfilter\fR" 4
-.IX Item "filter"
-Same as \f(CW\*(C`execute\*(C'\fR method's \f(CW\*(C`filter\*(C'\fR option.
-.ie n .IP """id""" 4
-.el .IP "\f(CWid\fR" 4
-.IX Item "id"
-.Vb 2
-\&    id => 4
-\&    id => [4, 5]
-.Ve
-.Sp
-\&\s-1ID\s0 corresponding to \f(CW\*(C`primary_key\*(C'\fR.
-You can insert a row by \f(CW\*(C`id\*(C'\fR and \f(CW\*(C`primary_key\*(C'\fR.
-.Sp
-.Vb 6
-\&    $dbi->insert(
-\&        {title => 'Perl', author => 'Ken'}
-\&        parimary_key => ['id1', 'id2'],
-\&        id => [4, 5],
-\&        table => 'book'
-\&    );
-.Ve
-.Sp
-The above is same as the followin one.
-.Sp
-.Vb 4
-\&    $dbi->insert(
-\&        {id1 => 4, id2 => 5, title => 'Perl', author => 'Ken'},
-\&        table => 'book'
-\&    );
-.Ve
-.ie n .IP """prefix""" 4
-.el .IP "\f(CWprefix\fR" 4
-.IX Item "prefix"
-.Vb 1
-\&    prefix => 'or replace'
-.Ve
-.Sp
-prefix before table name section
-.Sp
-.Vb 1
-\&    insert or replace into book
-.Ve
-.ie n .IP """primary_key""" 4
-.el .IP "\f(CWprimary_key\fR" 4
-.IX Item "primary_key"
-.Vb 2
-\&    primary_key => 'id'
-\&    primary_key => ['id1', 'id2']
-.Ve
-.Sp
-Primary key. This is used by \f(CW\*(C`id\*(C'\fR option.
-.ie n .IP """query""" 4
-.el .IP "\f(CWquery\fR" 4
-.IX Item "query"
-Same as \f(CW\*(C`execute\*(C'\fR method's \f(CW\*(C`query\*(C'\fR option.
-.ie n .IP """table""" 4
-.el .IP "\f(CWtable\fR" 4
-.IX Item "table"
-.Vb 1
-\&    table => 'book'
-.Ve
-.Sp
-Table name.
-.ie n .IP """bind_type""" 4
-.el .IP "\f(CWbind_type\fR" 4
-.IX Item "bind_type"
-Same as \f(CW\*(C`execute\*(C'\fR method's \f(CW\*(C`bind_type\*(C'\fR option.
-.ie n .IP """type_rule_off"" \s-1EXPERIMENTAL\s0" 4
-.el .IP "\f(CWtype_rule_off\fR \s-1EXPERIMENTAL\s0" 4
-.IX Item "type_rule_off EXPERIMENTAL"
-Same as \f(CW\*(C`execute\*(C'\fR method's \f(CW\*(C`type_rule_off\*(C'\fR option.
-.ie n .IP """type_rule1_off"" \s-1EXPERIMENTAL\s0" 4
-.el .IP "\f(CWtype_rule1_off\fR \s-1EXPERIMENTAL\s0" 4
-.IX Item "type_rule1_off EXPERIMENTAL"
-.Vb 1
-\&    type_rule1_off => 1
-.Ve
-.Sp
-Same as \f(CW\*(C`execute\*(C'\fR method's \f(CW\*(C`type_rule1_off\*(C'\fR option.
-.ie n .IP """type_rule2_off"" \s-1EXPERIMENTAL\s0" 4
-.el .IP "\f(CWtype_rule2_off\fR \s-1EXPERIMENTAL\s0" 4
-.IX Item "type_rule2_off EXPERIMENTAL"
-.Vb 1
-\&    type_rule2_off => 1
-.Ve
-.Sp
-Same as \f(CW\*(C`execute\*(C'\fR method's \f(CW\*(C`type_rule2_off\*(C'\fR option.
-.ie n .Sh """insert_param"""
-.el .Sh "\f(CWinsert_param\fP"
-.IX Subsection "insert_param"
-.Vb 1
-\&    my $insert_param = $dbi->insert_param({title => 'a', age => 2});
-.Ve
-.Sp
-.RS 4
-Create insert parameters.
-.Sp
-.Vb 1
-\&    (title, author) values (title = :title, age = :age);
-.Ve
-.ie n .Sh """include_model"""
-.el .Sh "\f(CWinclude_model\fP"
-.IX Subsection "include_model"
-.Vb 1
-\&    $dbi->include_model('MyModel');
-.Ve
-.Sp
-Include models from specified namespace,
-the following layout is needed to include models.
-.Sp
-.Vb 3
-\&    lib / MyModel.pm
-\&        / MyModel / book.pm
-\&                  / company.pm
-.Ve
-.Sp
-Name space module, extending DBIx::Custom::Model.
-.Sp
-\&\fBMyModel.pm\fR
-.Sp
-.Vb 2
-\&    package MyModel;
-\&    use DBIx::Custom::Model -base;
-.Ve
-.Sp
-.Vb 1
-\&    1;
-.Ve
-.Sp
-Model modules, extending name space module.
-.Sp
-\&\fBMyModel/book.pm\fR
-.Sp
-.Vb 2
-\&    package MyModel::book;
-\&    use MyModel -base;
-.Ve
-.Sp
-.Vb 1
-\&    1;
-.Ve
-.Sp
-\&\fBMyModel/company.pm\fR
-.Sp
-.Vb 2
-\&    package MyModel::company;
-\&    use MyModel -base;
-.Ve
-.Sp
-.Vb 1
-\&    1;
-.Ve
-.Sp
-MyModel::book and MyModel::company is included by \f(CW\*(C`include_model\*(C'\fR.
-.Sp
-You can get model object by \f(CW\*(C`model\*(C'\fR.
-.Sp
-.Vb 2
-\&    my $book_model = $dbi->model('book');
-\&    my $company_model = $dbi->model('company');
-.Ve
-.Sp
-See DBIx::Custom::Model to know model features.
-.ie n .Sh """map_param"" \s-1EXPERIMENTAL\s0"
-.el .Sh "\f(CWmap_param\fP \s-1EXPERIMENTAL\s0"
-.IX Subsection "map_param EXPERIMENTAL"
-.Vb 8
-\&    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] }}
-\&        ]
-\&    );
-.Ve
-.Sp
-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.
-.IP "Key mapping" 4
-.IX Item "Key mapping"
-.Vb 1
-\&    'id' => 'book.id'
-.Ve
-.Sp
-This is only key mapping. Value is same as original one.
-.Sp
-.Vb 1
-\&    (id => 1) is mapped to ('book.id' => 1) if value length is not zero.
-.Ve
-.IP "Key and value mapping" 4
-.IX Item "Key and value mapping"
-.Vb 1
-\&    'author' => ['book.author' => sub { '%' . $_[0] . '%' }]
-.Ve
-.Sp
-This is key and value mapping. Frist element of array reference
-is mapped key name, second element is code reference to map the value.
-.Sp
-.Vb 2
-\&    (author => 'Ken') is mapped to ('book.author' => '%Ken%')
-\&      if value length is not zero.
-.Ve
-.IP "Condition" 4
-.IX Item "Condition"
-.Vb 3
-\&    'price' => ['book.price', {if => 'exists'}]
-\&    'price' => ['book.price', sub { '%' . $_[0] . '%' }, {if => 'exists'}]
-\&    'price' => ['book.price', {if => sub { defined shift }}]
-.Ve
-.Sp
-If you need condition, you can sepecify it. this is code reference
-or 'exists'. By default, condition is the following one.
-.Sp
-.Vb 1
-\&    sub { defined $_[0] && length $_[0] }
-.Ve
-.RE
-.RS 4
-.ie n .Sh """merge_param"""
-.el .Sh "\f(CWmerge_param\fP"
-.IX Subsection "merge_param"
-.Vb 1
-\&    my $param = $dbi->merge_param({key1 => 1}, {key1 => 1, key2 => 2});
-.Ve
-.Sp
-Merge parameters.
-.Sp
-.Vb 1
-\&    {key1 => [1, 1], key2 => 2}
-.Ve
-.ie n .Sh """method"""
-.el .Sh "\f(CWmethod\fP"
-.IX Subsection "method"
-.Vb 3
-\&    $dbi->method(
-\&        update_or_insert => sub {
-\&            my $self = shift;
-.Ve
-.Sp
-.Vb 4
-\&            # Process
-\&        },
-\&        find_or_create   => sub {
-\&            my $self = shift;
-.Ve
-.Sp
-.Vb 3
-\&            # Process
-\&        }
-\&    );
-.Ve
-.Sp
-Register method. These method is called directly from DBIx::Custom object.
-.Sp
-.Vb 2
-\&    $dbi->update_or_insert;
-\&    $dbi->find_or_create;
-.Ve
-.ie n .Sh """model"""
-.el .Sh "\f(CWmodel\fP"
-.IX Subsection "model"
-.Vb 1
-\&    my $model = $dbi->model('book');
-.Ve
-.Sp
-Get a DBIx::Custom::Model object,
-.ie n .Sh """mycolumn"""
-.el .Sh "\f(CWmycolumn\fP"
-.IX Subsection "mycolumn"
-.Vb 1
-\&    my $column = $self->mycolumn(book => ['author', 'title']);
-.Ve
-.Sp
-Create column clause for myself. The follwoing column clause is created.
-.Sp
-.Vb 2
-\&    book.author as author,
-\&    book.title as title
-.Ve
-.ie n .Sh """new"""
-.el .Sh "\f(CWnew\fP"
-.IX Subsection "new"
-.Vb 6
-\&    my $dbi = DBIx::Custom->new(
-\&        dsn => "dbi:mysql:database=dbname",
-\&        user => 'ken',
-\&        password => '!LFKD%$&',
-\&        dbi_option => {mysql_enable_utf8 => 1}
-\&    );
-.Ve
-.Sp
-Create a new DBIx::Custom object.
-.ie n .Sh """not_exists"""
-.el .Sh "\f(CWnot_exists\fP"
-.IX Subsection "not_exists"
-.Vb 1
-\&    my $not_exists = $dbi->not_exists;
-.Ve
-.Sp
-DBIx::Custom::NotExists object, indicating the column is not exists.
-This is used by \f(CW\*(C`clause\*(C'\fR of DBIx::Custom::Where .
-.ie n .Sh """order"" \s-1EXPERIMENTAL\s0"
-.el .Sh "\f(CWorder\fP \s-1EXPERIMENTAL\s0"
-.IX Subsection "order EXPERIMENTAL"
-.Vb 1
-\&    my $order = $dbi->order;
-.Ve
-.Sp
-Create a new DBIx::Custom::Order object.
-.ie n .Sh """register_filter"""
-.el .Sh "\f(CWregister_filter\fP"
-.IX Subsection "register_filter"
-.Vb 12
-\&    $dbi->register_filter(
-\&        # Time::Piece object to database DATE format
-\&        tp_to_date => sub {
-\&            my $tp = shift;
-\&            return $tp->strftime('%Y-%m-%d');
-\&        },
-\&        # database DATE format to Time::Piece object
-\&        date_to_tp => sub {
-\&           my $date = shift;
-\&           return Time::Piece->strptime($date, '%Y-%m-%d');
-\&        }
-\&    );
-.Ve
-.Sp
-Register filters, used by \f(CW\*(C`filter\*(C'\fR option of many methods.
-.ie n .Sh """type_rule"" \s-1EXPERIMENTAL\s0"
-.el .Sh "\f(CWtype_rule\fP \s-1EXPERIMENTAL\s0"
-.IX Subsection "type_rule EXPERIMENTAL"
-.Vb 22
-\&    $dbi->type_rule(
-\&        into1 => {
-\&            date => sub { ... },
-\&            datetime => sub { ... }
-\&        },
-\&        into2 => {
-\&            date => sub { ... },
-\&            datetime => sub { ... }
-\&        },
-\&        from1 => {
-\&            # DATE
-\&            9 => sub { ... },
-\&            # DATETIME or TIMESTAMP
-\&            11 => sub { ... },
-\&        }
-\&        from2 => {
-\&            # DATE
-\&            9 => sub { ... },
-\&            # DATETIME or TIMESTAMP
-\&            11 => sub { ... },
-\&        }
-\&    );
-.Ve
-.Sp
-Filtering rule when data is send into and get from database.
-This has a little complex problem.
-.Sp
-In \f(CW\*(C`into1\*(C'\fR and \f(CW\*(C`into2\*(C'\fR you can specify
-type name as same as type name defined
-by create table, such as \f(CW\*(C`DATETIME\*(C'\fR or \f(CW\*(C`DATE\*(C'\fR.
-.Sp
-Note that type name and data type don't contain upper case.
-If these contain upper case charactor, you convert it to lower case.
-.Sp
-\&\f(CW\*(C`into2\*(C'\fR is executed after \f(CW\*(C`into1\*(C'\fR.
-.Sp
-Type rule of \f(CW\*(C`into1\*(C'\fR and \f(CW\*(C`into2\*(C'\fR is enabled on the following
-column name.
-.IP "1. column name" 4
-.IX Item "1. column name"
-.Vb 2
-\&    issue_date
-\&    issue_datetime
-.Ve
-.Sp
-This need \f(CW\*(C`table\*(C'\fR option in each method.
-.IP "2. table name and column name, separator is dot" 4
-.IX Item "2. table name and column name, separator is dot"
-.Vb 2
-\&    book.issue_date
-\&    book.issue_datetime
-.Ve
-.RE
-.RS 4
-.Sp
-You get all type name used in database by \f(CW\*(C`available_type_name\*(C'\fR.
-.Sp
-.Vb 1
-\&    print $dbi->available_type_name;
-.Ve
-.Sp
-In \f(CW\*(C`from1\*(C'\fR and \f(CW\*(C`from2\*(C'\fR you specify data type, not type name.
-\&\f(CW\*(C`from2\*(C'\fR is executed after \f(CW\*(C`from1\*(C'\fR.
-You get all data type by \f(CW\*(C`available_data_type\*(C'\fR.
-.Sp
-.Vb 1
-\&    print $dbi->available_data_type;
-.Ve
-.Sp
-You can also specify multiple types at once.
-.Sp
-.Vb 5
-\&    $dbi->type_rule(
-\&        into1 => [
-\&            [qw/DATE DATETIME/] => sub { ... },
-\&        ],
-\&    );
-.Ve
-.ie n .Sh """select"""
-.el .Sh "\f(CWselect\fP"
-.IX Subsection "select"
-.Vb 5
-\&    my $result = $dbi->select(
-\&        table  => 'book',
-\&        column => ['author', 'title'],
-\&        where  => {author => 'Ken'},
-\&    );
-.Ve
-.Sp
-Execute select statement.
-.Sp
-The following opitons are available.
-.ie n .IP """append""" 4
-.el .IP "\f(CWappend\fR" 4
-.IX Item "append"
-.Vb 1
-\&    append => 'order by title'
-.Ve
-.Sp
-Append statement to last of \s-1SQL\s0.
-.ie n .IP """column""" 4
-.el .IP "\f(CWcolumn\fR" 4
-.IX Item "column"
-.Vb 2
-\&    column => 'author'
-\&    column => ['author', 'title']
-.Ve
-.Sp
-Column clause.
-.Sp
-if \f(CW\*(C`column\*(C'\fR is not specified, '*' is set.
-.Sp
-.Vb 1
-\&    column => '*'
-.Ve
-.Sp
-You can specify hash of array reference.
-.Sp
-.Vb 4
-\&    column => [
-\&        {book => [qw/author title/]},
-\&        {person => [qw/name age/]}
-\&    ]
-.Ve
-.Sp
-This is expanded to the following one by using \f(CW\*(C`colomn\*(C'\fR method.
-.Sp
-.Vb 4
-\&    book.author as "book.author",
-\&    book.title as "book.title",
-\&    person.name as "person.name",
-\&    person.age as "person.age"
-.Ve
-.Sp
-You can specify array of array reference, first argument is
-column name, second argument is alias.
-.Sp
-.Vb 3
-\&    column => [
-\&        ['date(book.register_datetime)' => 'book.register_date']
-\&    ];
-.Ve
-.Sp
-Alias is quoted properly and joined.
-.Sp
-.Vb 1
-\&    date(book.register_datetime) as "book.register_date"
-.Ve
-.ie n .IP """filter""" 4
-.el .IP "\f(CWfilter\fR" 4
-.IX Item "filter"
-Same as \f(CW\*(C`execute\*(C'\fR method's \f(CW\*(C`filter\*(C'\fR option.
-.ie n .IP """id""" 4
-.el .IP "\f(CWid\fR" 4
-.IX Item "id"
-.Vb 2
-\&    id => 4
-\&    id => [4, 5]
-.Ve
-.Sp
-\&\s-1ID\s0 corresponding to \f(CW\*(C`primary_key\*(C'\fR.
-You can select rows by \f(CW\*(C`id\*(C'\fR and \f(CW\*(C`primary_key\*(C'\fR.
-.Sp
-.Vb 5
-\&    $dbi->select(
-\&        parimary_key => ['id1', 'id2'],
-\&        id => [4, 5],
-\&        table => 'book'
-\&    );
-.Ve
-.Sp
-The above is same as the followin one.
-.Sp
-.Vb 4
-\&    $dbi->select(
-\&        where => {id1 => 4, id2 => 5},
-\&        table => 'book'
-\&    );
-.Ve
-.ie n .IP """param"" \s-1EXPERIMETNAL\s0" 4
-.el .IP "\f(CWparam\fR \s-1EXPERIMETNAL\s0" 4
-.IX Item "param EXPERIMETNAL"
-.Vb 1
-\&    param => {'table2.key3' => 5}
-.Ve
-.Sp
-Parameter shown before where clause.
-.Sp
-For example, if you want to contain tag in join clause, 
-you can pass parameter by \f(CW\*(C`param\*(C'\fR option.
-.Sp
-.Vb 2
-\&    join  => ['inner join (select * from table2 where table2.key3 = :table2.key3)' . 
-\&              ' as table2 on table1.key1 = table2.key1']
-.Ve
-.Sp
-.Vb 1
-\&    prefix => 'SQL_CALC_FOUND_ROWS'
-.Ve
-.Sp
-Prefix of column cluase
-.Sp
-.Vb 1
-\&    select SQL_CALC_FOUND_ROWS title, author from book;
-.Ve
-.ie n .IP """join""" 4
-.el .IP "\f(CWjoin\fR" 4
-.IX Item "join"
-.Vb 4
-\&    join => [
-\&        'left outer join company on book.company_id = company_id',
-\&        'left outer join location on company.location_id = location.id'
-\&    ]
-.Ve
-.Sp
-Join clause. If column cluase or where clause contain table name like \*(L"company.name\*(R",
-join clausees needed when \s-1SQL\s0 is created is used automatically.
-.Sp
-.Vb 9
-\&    $dbi->select(
-\&        table => 'book',
-\&        column => ['company.location_id as location_id'],
-\&        where => {'company.name' => 'Orange'},
-\&        join => [
-\&            'left outer join company on book.company_id = company.id',
-\&            'left outer join location on company.location_id = location.id'
-\&        ]
-\&    );
-.Ve
-.Sp
-In above select, column and where clause contain \*(L"company\*(R" table,
-the following \s-1SQL\s0 is created
-.Sp
-.Vb 4
-\&    select company.location_id as location_id
-\&    from book
-\&      left outer join company on book.company_id = company.id
-\&    where company.name = ?;
-.Ve
-.Sp
-You can specify two table by yourself. This is useful when join parser can't parse
-the join clause correctly. This is \s-1EXPERIMENTAL\s0.
-.Sp
-.Vb 11
-\&    $dbi->select(
-\&        table => 'book',
-\&        column => ['company.location_id as location_id'],
-\&        where => {'company.name' => 'Orange'},
-\&        join => [
-\&            {
-\&                clause => 'left outer join location on company.location_id = location.id',
-\&                table => ['company', 'location']
-\&            }
-\&        ]
-\&    );
-.Ve
-.ie n .IP """primary_key""" 4
-.el .IP "\f(CWprimary_key\fR" 4
-.IX Item "primary_key"
-.Vb 2
-\&    primary_key => 'id'
-\&    primary_key => ['id1', 'id2']
-.Ve
-.Sp
-Primary key. This is used by \f(CW\*(C`id\*(C'\fR option.
-.ie n .IP """query""" 4
-.el .IP "\f(CWquery\fR" 4
-.IX Item "query"
-Same as \f(CW\*(C`execute\*(C'\fR method's \f(CW\*(C`query\*(C'\fR option.
-.ie n .IP """bind_type""" 4
-.el .IP "\f(CWbind_type\fR" 4
-.IX Item "bind_type"
-Same as \f(CW\*(C`execute\*(C'\fR method's \f(CW\*(C`bind_type\*(C'\fR option.
-.ie n .IP """table""" 4
-.el .IP "\f(CWtable\fR" 4
-.IX Item "table"
-.Vb 1
-\&    table => 'book'
-.Ve
-.Sp
-Table name.
-.ie n .IP """type_rule_off"" \s-1EXPERIMENTAL\s0" 4
-.el .IP "\f(CWtype_rule_off\fR \s-1EXPERIMENTAL\s0" 4
-.IX Item "type_rule_off EXPERIMENTAL"
-Same as \f(CW\*(C`execute\*(C'\fR method's \f(CW\*(C`type_rule_off\*(C'\fR option.
-.ie n .IP """type_rule1_off"" \s-1EXPERIMENTAL\s0" 4
-.el .IP "\f(CWtype_rule1_off\fR \s-1EXPERIMENTAL\s0" 4
-.IX Item "type_rule1_off EXPERIMENTAL"
-.Vb 1
-\&    type_rule1_off => 1
-.Ve
-.Sp
-Same as \f(CW\*(C`execute\*(C'\fR method's \f(CW\*(C`type_rule1_off\*(C'\fR option.
-.ie n .IP """type_rule2_off"" \s-1EXPERIMENTAL\s0" 4
-.el .IP "\f(CWtype_rule2_off\fR \s-1EXPERIMENTAL\s0" 4
-.IX Item "type_rule2_off EXPERIMENTAL"
-.Vb 1
-\&    type_rule2_off => 1
-.Ve
-.Sp
-Same as \f(CW\*(C`execute\*(C'\fR method's \f(CW\*(C`type_rule2_off\*(C'\fR option.
-.ie n .IP """where""" 4
-.el .IP "\f(CWwhere\fR" 4
-.IX Item "where"
-.Vb 2
-\&    # Hash refrence
-\&    where => {author => 'Ken', 'title' => 'Perl'}
-.Ve
-.Sp
-.Vb 5
-\&    # DBIx::Custom::Where object
-\&    where => $dbi->where(
-\&        clause => ['and', 'author = :author', 'title like :title'],
-\&        param  => {author => 'Ken', title => '%Perl%'}
-\&    );
-.Ve
-.Sp
-.Vb 5
-\&    # Array reference 1 (array reference, hash referenc). same as above
-\&    where => [
-\&        ['and', 'author = :author', 'title like :title'],
-\&        {author => 'Ken', title => '%Perl%'}
-\&    ];
-.Ve
-.Sp
-.Vb 5
-\&    # Array reference 2 (String, hash reference)
-\&    where => [
-\&        'title like :title',
-\&        {title => '%Perl%'}
-\&    ]
-.Ve
-.Sp
-.Vb 2
-\&    # String
-\&    where => 'title is null'
-.Ve
-.Sp
-Where clause.
-.ie n .IP """wrap"" \s-1EXPERIMENTAL\s0" 4
-.el .IP "\f(CWwrap\fR \s-1EXPERIMENTAL\s0" 4
-.IX Item "wrap EXPERIMENTAL"
-Wrap statement. This is array reference.
-.Sp
-.Vb 1
-\&    $dbi->select(wrap => ['select * from (', ') as t where ROWNUM < 10']);
-.Ve
-.Sp
-This option is for Oracle and \s-1SQL\s0 Server paging process.
-.RE
-.RS 4
-.ie n .Sh """update"""
-.el .Sh "\f(CWupdate\fP"
-.IX Subsection "update"
-.Vb 1
-\&    $dbi->update({title => 'Perl'}, table  => 'book', where  => {id => 4});
-.Ve
-.Sp
-Execute update statement. First argument is update row data.
-.Sp
-If you want to set constant value to row data, use scalar reference
-as parameter value.
-.Sp
-.Vb 1
-\&    {date => \e"NOW()"}
-.Ve
-.Sp
-The following opitons are available.
-.ie n .IP """append""" 4
-.el .IP "\f(CWappend\fR" 4
-.IX Item "append"
-Same as \f(CW\*(C`select\*(C'\fR method's \f(CW\*(C`append\*(C'\fR option.
-.ie n .IP """filter""" 4
-.el .IP "\f(CWfilter\fR" 4
-.IX Item "filter"
-Same as \f(CW\*(C`execute\*(C'\fR method's \f(CW\*(C`filter\*(C'\fR option.
-.ie n .IP """id""" 4
-.el .IP "\f(CWid\fR" 4
-.IX Item "id"
-.Vb 2
-\&    id => 4
-\&    id => [4, 5]
-.Ve
-.Sp
-\&\s-1ID\s0 corresponding to \f(CW\*(C`primary_key\*(C'\fR.
-You can update rows by \f(CW\*(C`id\*(C'\fR and \f(CW\*(C`primary_key\*(C'\fR.
-.Sp
-.Vb 6
-\&    $dbi->update(
-\&        {title => 'Perl', author => 'Ken'}
-\&        parimary_key => ['id1', 'id2'],
-\&        id => [4, 5],
-\&        table => 'book'
-\&    );
-.Ve
-.Sp
-The above is same as the followin one.
-.Sp
-.Vb 5
-\&    $dbi->update(
-\&        {title => 'Perl', author => 'Ken'}
-\&        where => {id1 => 4, id2 => 5},
-\&        table => 'book'
-\&    );
-.Ve
-.ie n .IP """prefix""" 4
-.el .IP "\f(CWprefix\fR" 4
-.IX Item "prefix"
-.Vb 1
-\&    prefix => 'or replace'
-.Ve
-.Sp
-prefix before table name section
-.Sp
-.Vb 1
-\&    update or replace book
-.Ve
-.ie n .IP """primary_key""" 4
-.el .IP "\f(CWprimary_key\fR" 4
-.IX Item "primary_key"
-.Vb 2
-\&    primary_key => 'id'
-\&    primary_key => ['id1', 'id2']
-.Ve
-.Sp
-Primary key. This is used by \f(CW\*(C`id\*(C'\fR option.
-.ie n .IP """query""" 4
-.el .IP "\f(CWquery\fR" 4
-.IX Item "query"
-Same as \f(CW\*(C`execute\*(C'\fR method's \f(CW\*(C`query\*(C'\fR option.
-.ie n .IP """table""" 4
-.el .IP "\f(CWtable\fR" 4
-.IX Item "table"
-.Vb 1
-\&    table => 'book'
-.Ve
-.Sp
-Table name.
-.ie n .IP """where""" 4
-.el .IP "\f(CWwhere\fR" 4
-.IX Item "where"
-Same as \f(CW\*(C`select\*(C'\fR method's \f(CW\*(C`where\*(C'\fR option.
-.ie n .IP """bind_type""" 4
-.el .IP "\f(CWbind_type\fR" 4
-.IX Item "bind_type"
-Same as \f(CW\*(C`execute\*(C'\fR method's \f(CW\*(C`bind_type\*(C'\fR option.
-.ie n .IP """type_rule_off"" \s-1EXPERIMENTAL\s0" 4
-.el .IP "\f(CWtype_rule_off\fR \s-1EXPERIMENTAL\s0" 4
-.IX Item "type_rule_off EXPERIMENTAL"
-Same as \f(CW\*(C`execute\*(C'\fR method's \f(CW\*(C`type_rule_off\*(C'\fR option.
-.ie n .IP """type_rule1_off"" \s-1EXPERIMENTAL\s0" 4
-.el .IP "\f(CWtype_rule1_off\fR \s-1EXPERIMENTAL\s0" 4
-.IX Item "type_rule1_off EXPERIMENTAL"
-.Vb 1
-\&    type_rule1_off => 1
-.Ve
-.Sp
-Same as \f(CW\*(C`execute\*(C'\fR method's \f(CW\*(C`type_rule1_off\*(C'\fR option.
-.ie n .IP """type_rule2_off"" \s-1EXPERIMENTAL\s0" 4
-.el .IP "\f(CWtype_rule2_off\fR \s-1EXPERIMENTAL\s0" 4
-.IX Item "type_rule2_off EXPERIMENTAL"
-.Vb 1
-\&    type_rule2_off => 1
-.Ve
-.Sp
-Same as \f(CW\*(C`execute\*(C'\fR method's \f(CW\*(C`type_rule2_off\*(C'\fR option.
-.RE
-.RS 4
-.ie n .Sh """update_all"""
-.el .Sh "\f(CWupdate_all\fP"
-.IX Subsection "update_all"
-.Vb 1
-\&    $dbi->update_all({title => 'Perl'}, table => 'book', );
-.Ve
-.Sp
-Execute update statement for all rows.
-Options is same as \f(CW\*(C`update\*(C'\fR method.
-.ie n .Sh """update_param"""
-.el .Sh "\f(CWupdate_param\fP"
-.IX Subsection "update_param"
-.Vb 1
-\&    my $update_param = $dbi->update_param({title => 'a', age => 2});
-.Ve
-.Sp
-Create update parameter tag.
-.Sp
-.Vb 1
-\&    set title = :title, author = :author
-.Ve
-.ie n .Sh """where"""
-.el .Sh "\f(CWwhere\fP"
-.IX Subsection "where"
-.Vb 4
-\&    my $where = $dbi->where(
-\&        clause => ['and', 'title = :title', 'author = :author'],
-\&        param => {title => 'Perl', author => 'Ken'}
-\&    );
-.Ve
-.Sp
-Create a new DBIx::Custom::Where object.
-.ie n .Sh """setup_model"""
-.el .Sh "\f(CWsetup_model\fP"
-.IX Subsection "setup_model"
-.Vb 1
-\&    $dbi->setup_model;
-.Ve
-.Sp
-Setup all model objects.
-\&\f(CW\*(C`columns\*(C'\fR of model object is automatically set, parsing database information.
-.SH "ENVIRONMENT VARIABLE"
-.IX Header "ENVIRONMENT VARIABLE"
-.ie n .Sh """DBIX_CUSTOM_DEBUG"""
-.el .Sh "\f(CWDBIX_CUSTOM_DEBUG\fP"
-.IX Subsection "DBIX_CUSTOM_DEBUG"
-If environment variable \f(CW\*(C`DBIX_CUSTOM_DEBUG\*(C'\fR is set to true,
-executed \s-1SQL\s0 and bind values are printed to \s-1STDERR\s0.
-.ie n .Sh """DBIX_CUSTOM_DEBUG_ENCODING"""
-.el .Sh "\f(CWDBIX_CUSTOM_DEBUG_ENCODING\fP"
-.IX Subsection "DBIX_CUSTOM_DEBUG_ENCODING"
-\&\s-1DEBUG\s0 output encoding. Default to \s-1UTF\-8\s0.
-.SH "DEPRECATED FUNCTIONALITIES"
-.IX Header "DEPRECATED FUNCTIONALITIES"
-DBIx::Custom
-.Sp
-.Vb 6
-\&    # Attribute methods
-\&    data_source # will be removed at 2017/1/1
-\&    dbi_options # will be removed at 2017/1/1
-\&    filter_check # will be removed at 2017/1/1
-\&    reserved_word_quote # will be removed at 2017/1/1
-\&    cache_method # will be removed at 2017/1/1
-.Ve
-.Sp
-.Vb 13
-\&    # Methods
-\&    create_query # will be removed at 2017/1/1
-\&    apply_filter # will be removed at 2017/1/1
-\&    select_at # will be removed at 2017/1/1
-\&    delete_at # will be removed at 2017/1/1
-\&    update_at # will be removed at 2017/1/1
-\&    insert_at # will be removed at 2017/1/1
-\&    register_tag # will be removed at 2017/1/1
-\&    default_bind_filter # will be removed at 2017/1/1
-\&    default_fetch_filter # will be removed at 2017/1/1
-\&    insert_param_tag # will be removed at 2017/1/1
-\&    register_tag_processor # will be removed at 2017/1/1
-\&    update_param_tag # will be removed at 2017/1/1
-.Ve
-.Sp
-.Vb 5
-\&    # Options
-\&    select method relation option # will be removed at 2017/1/1
-\&    select method param option # will be removed at 2017/1/1
-\&    select method column option [COLUMN, as => ALIAS] format
-\&      # will be removed at 2017/1/1
-.Ve
-.Sp
-.Vb 5
-\&    # Others
-\&    execute("select * from {= title}"); # execute method's
-\&                                        # tag parsing functionality
-\&                                        # will be removed at 2017/1/1
-\&    Query caching # will be removed at 2017/1/1
-.Ve
-.Sp
-DBIx::Custom::Model
-.Sp
-.Vb 4
-\&    # Attribute methods
-\&    filter # will be removed at 2017/1/1
-\&    name # will be removed at 2017/1/1
-\&    type # will be removed at 2017/1/1
-.Ve
-.Sp
-DBIx::Custom::Query
-.Sp
-.Vb 4
-\&    # Attribute methods
-\&    default_filter # will be removed at 2017/1/1
-\&    table # will be removed at 2017/1/1
-\&    filters # will be removed at 2017/1/1
-.Ve
-.Sp
-.Vb 2
-\&    # Methods
-\&    filter # will be removed at 2017/1/1
-.Ve
-.Sp
-DBIx::Custom::QueryBuilder
-.Sp
-.Vb 3
-\&    # Attribute methods
-\&    tags # will be removed at 2017/1/1
-\&    tag_processors # will be removed at 2017/1/1
-.Ve
-.Sp
-.Vb 3
-\&    # Methods
-\&    register_tag # will be removed at 2017/1/1
-\&    register_tag_processor # will be removed at 2017/1/1
-.Ve
-.Sp
-.Vb 3
-\&    # Others
-\&    build_query("select * from {= title}"); # tag parsing functionality
-\&                                            # will be removed at 2017/1/1
-.Ve
-.Sp
-DBIx::Custom::Result
-.Sp
-.Vb 2
-\&    # Attribute methods
-\&    filter_check # will be removed at 2017/1/1
-.Ve
-.Sp
-.Vb 5
-\&    # Methods
-\&    end_filter # will be removed at 2017/1/1
-\&    remove_end_filter # will be removed at 2017/1/1
-\&    remove_filter # will be removed at 2017/1/1
-\&    default_filter # will be removed at 2017/1/1
-.Ve
-.Sp
-DBIx::Custom::Tag
-.Sp
-.Vb 1
-\&    This module is DEPRECATED! # will be removed at 2017/1/1
-.Ve
-.SH "BACKWORD COMPATIBLE POLICY"
-.IX Header "BACKWORD COMPATIBLE POLICY"
-If a functionality is \s-1DEPRECATED\s0, you can know it by \s-1DEPRECATED\s0 warnings
-except for attribute method.
-You can check all \s-1DEPRECATED\s0 functionalities by document.
-\&\s-1DEPRECATED\s0 functionality is removed after five years,
-but if at least one person use the functionality and tell me that thing
-I extend one year each time he tell me it.
-.Sp
-\&\s-1EXPERIMENTAL\s0 functionality will be changed without warnings.
-.Sp
-This policy was changed at 2011/6/28
-.SH "BUGS"
-.IX Header "BUGS"
-Please tell me bugs if found.
-.Sp
-\&\f(CW\*(C`<kimoto.yuki at gmail.com>\*(C'\fR
-.Sp
-<http://github.com/yuki\-kimoto/DBIx\-Custom>
-.SH "AUTHOR"
-.IX Header "AUTHOR"
-Yuki Kimoto, \f(CW\*(C`<kimoto.yuki at gmail.com>\*(C'\fR
-.SH "COPYRIGHT & LICENSE"
-.IX Header "COPYRIGHT & LICENSE"
-Copyright 2009\-2011 Yuki Kimoto, all rights reserved.
-.Sp
-This program is free software; you can redistribute it and/or modify it
-under the same terms as Perl itself.

-924

DBIx-Custom-0.1711/blib/man3/DBIx::Custom::Guide.3pm

View

@@ -1,924 +0,0 @@
-.\" Automatically generated by Pod::Man v1.37, Pod::Parser v1.32
-.\"
-.\" Standard preamble:
-.\" ========================================================================
-.de Sh \" Subsection heading
-.br
-.if t .Sp
-.ne 5
-.PP
-\fB\\$1\fR
-.PP
-..
-.de Sp \" Vertical space (when we can't use .PP)
-.if t .sp .5v
-.if n .sp
-..
-.de Vb \" Begin verbatim text
-.ft CW
-.nf
-.ne \\$1
-..
-.de Ve \" End verbatim text
-.ft R
-.fi
-..
-.\" Set up some character translations and predefined strings.  \*(-- will
-.\" give an unbreakable dash, \*(PI will give pi, \*(L" will give a left
-.\" double quote, and \*(R" will give a right double quote.  | will give a
-.\" real vertical bar.  \*(C+ will give a nicer C++.  Capital omega is used to
-.\" do unbreakable dashes and therefore won't be available.  \*(C` and \*(C'
-.\" expand to `' in nroff, nothing in troff, for use with C<>.
-.tr \(*W-|\(bv\*(Tr
-.ds C+ C\v'-.1v'\h'-1p'\s-2+\h'-1p'+\s0\v'.1v'\h'-1p'
-.ie n \{\
-.    ds -- \(*W-
-.    ds PI pi
-.    if (\n(.H=4u)&(1m=24u) .ds -- \(*W\h'-12u'\(*W\h'-12u'-\" diablo 10 pitch
-.    if (\n(.H=4u)&(1m=20u) .ds -- \(*W\h'-12u'\(*W\h'-8u'-\"  diablo 12 pitch
-.    ds L" ""
-.    ds R" ""
-.    ds C` ""
-.    ds C' ""
-'br\}
-.el\{\
-.    ds -- \|\(em\|
-.    ds PI \(*p
-.    ds L" ``
-.    ds R" ''
-'br\}
-.\"
-.\" If the F register is turned on, we'll generate index entries on stderr for
-.\" titles (.TH), headers (.SH), subsections (.Sh), items (.Ip), and index
-.\" entries marked with X<> in POD.  Of course, you'll have to process the
-.\" output yourself in some meaningful fashion.
-.if \nF \{\
-.    de IX
-.    tm Index:\\$1\t\\n%\t"\\$2"
-..
-.    nr % 0
-.    rr F
-.\}
-.\"
-.\" For nroff, turn off justification.  Always turn off hyphenation; it makes
-.\" way too many mistakes in technical documents.
-.hy 0
-.if n .na
-.\"
-.\" Accent mark definitions (@(#)ms.acc 1.5 88/02/08 SMI; from UCB 4.2).
-.\" Fear.  Run.  Save yourself.  No user-serviceable parts.
-.    \" fudge factors for nroff and troff
-.if n \{\
-.    ds #H 0
-.    ds #V .8m
-.    ds #F .3m
-.    ds #[ \f1
-.    ds #] \fP
-.\}
-.if t \{\
-.    ds #H ((1u-(\\\\n(.fu%2u))*.13m)
-.    ds #V .6m
-.    ds #F 0
-.    ds #[ \&
-.    ds #] \&
-.\}
-.    \" simple accents for nroff and troff
-.if n \{\
-.    ds ' \&
-.    ds ` \&
-.    ds ^ \&
-.    ds , \&
-.    ds ~ ~
-.    ds /
-.\}
-.if t \{\
-.    ds ' \\k:\h'-(\\n(.wu*8/10-\*(#H)'\'\h"|\\n:u"
-.    ds ` \\k:\h'-(\\n(.wu*8/10-\*(#H)'\`\h'|\\n:u'
-.    ds ^ \\k:\h'-(\\n(.wu*10/11-\*(#H)'^\h'|\\n:u'
-.    ds , \\k:\h'-(\\n(.wu*8/10)',\h'|\\n:u'
-.    ds ~ \\k:\h'-(\\n(.wu-\*(#H-.1m)'~\h'|\\n:u'
-.    ds / \\k:\h'-(\\n(.wu*8/10-\*(#H)'\z\(sl\h'|\\n:u'
-.\}
-.    \" troff and (daisy-wheel) nroff accents
-.ds : \\k:\h'-(\\n(.wu*8/10-\*(#H+.1m+\*(#F)'\v'-\*(#V'\z.\h'.2m+\*(#F'.\h'|\\n:u'\v'\*(#V'
-.ds 8 \h'\*(#H'\(*b\h'-\*(#H'
-.ds o \\k:\h'-(\\n(.wu+\w'\(de'u-\*(#H)/2u'\v'-.3n'\*(#[\z\(de\v'.3n'\h'|\\n:u'\*(#]
-.ds d- \h'\*(#H'\(pd\h'-\w'~'u'\v'-.25m'\f2\(hy\fP\v'.25m'\h'-\*(#H'
-.ds D- D\\k:\h'-\w'D'u'\v'-.11m'\z\(hy\v'.11m'\h'|\\n:u'
-.ds th \*(#[\v'.3m'\s+1I\s-1\v'-.3m'\h'-(\w'I'u*2/3)'\s-1o\s+1\*(#]
-.ds Th \*(#[\s+2I\s-2\h'-\w'I'u*3/5'\v'-.3m'o\v'.3m'\*(#]
-.ds ae a\h'-(\w'a'u*4/10)'e
-.ds Ae A\h'-(\w'A'u*4/10)'E
-.    \" corrections for vroff
-.if v .ds ~ \\k:\h'-(\\n(.wu*9/10-\*(#H)'\s-2\u~\d\s+2\h'|\\n:u'
-.if v .ds ^ \\k:\h'-(\\n(.wu*10/11-\*(#H)'\v'-.4m'^\v'.4m'\h'|\\n:u'
-.    \" for low resolution devices (crt and lpr)
-.if \n(.H>23 .if \n(.V>19 \
-\{\
-.    ds : e
-.    ds 8 ss
-.    ds o a
-.    ds d- d\h'-1'\(ga
-.    ds D- D\h'-1'\(hy
-.    ds th \o'bp'
-.    ds Th \o'LP'
-.    ds ae ae
-.    ds Ae AE
-.\}
-.rm #[ #] #H #V #F C
-.\" ========================================================================
-.\"
-.IX Title "DBIx::Custom::Guide 3"
-.TH DBIx::Custom::Guide 3 "2011-07-30" "perl v5.8.8" "User Contributed Perl Documentation"
-.SH "NAME"
-DBIx::Custom::Guide \- DBIx::Custom Guide
-.SH "FEATURES"
-.IX Header "FEATURES"
-DBIx::Custom is the wrapper class of \s-1DBI\s0 to execute \s-1SQL\s0 easily.
-This module have the following features.
-.IP "* Execute \s-1INSERT\s0, \s-1UPDATE\s0, \s-1DELETE\s0, \s-1SELECT\s0 statement easily" 4
-.IX Item "Execute INSERT, UPDATE, DELETE, SELECT statement easily"
-.PD 0
-.IP "* You can specify bind values by hash reference" 4
-.IX Item "You can specify bind values by hash reference"
-.IP "* Filtering by data type. and you can set filter to any column" 4
-.IX Item "Filtering by data type. and you can set filter to any column"
-.IP "* Creating where clause and order by clause flexibly" 4
-.IX Item "Creating where clause and order by clause flexibly"
-.IP "* Support model" 4
-.IX Item "Support model"
-.PD
-.SH "GUIDE"
-.IX Header "GUIDE"
-.Sh "Connect to database"
-.IX Subsection "Connect to database"
-.Vb 7
-\&    use DBIx::Custom;
-\&    my $dbi = DBIx::Custom->connect(
-\&        dsn => "dbi:mysql:database=bookshop",
-\&        user => 'ken',
-\&        password => '!LFKD%$&',
-\&        dbi_option => {mysql_enable_utf8 => 1}
-\&    );
-.Ve
-.PP
-You can connect to database by \f(CW\*(C`connect\*(C'\fR method.
-\&\f(CW\*(C`dsn\*(C'\fR is data source name, \f(CW\*(C`user\*(C'\fR is user name, \f(CW\*(C`password\*(C'\fR is password.
-.PP
-\&\f(CW\*(C`dbi_option\*(C'\fR is \s-1DBI\s0 option.
-By default, the following option is set.
-Exeption is thrown when fatal error occur and commit mode is auto commit.
-.PP
-.Vb 5
-\&    {
-\&        RaiseError  =>  1
-\&        PrintError  =>  0
-\&        AutoCommit  =>  1
-\&    }
-.Ve
-.Sh "Execute query"
-.IX Subsection "Execute query"
-\fIInsert Statement : \f(CI\*(C`insert\*(C'\fI\fR
-.IX Subsection "Insert Statement : insert"
-.PP
-If you want to execute insert statement, use \f(CW\*(C`insert\*(C'\fR method.
-.PP
-.Vb 1
-\&    $dbi->insert({title => 'Perl', author => 'Ken'}, table  => 'book');
-.Ve
-.PP
-First argument is insert row data, \f(CW\*(C`table\*(C'\fR  is table name.
-.PP
-\fIUpdate Statement : \f(CI\*(C`update\*(C'\fI\fR
-.IX Subsection "Update Statement : update"
-.PP
-If you want to execute update stateimuse, use \f(CW\*(C`update\*(C'\fR method.
-.PP
-.Vb 5
-\&    $dbi->update(
-\&        {title => 'Perl', author => 'Ken'},
-\&        table  => 'book', 
-\&        where  => {id => 5}
-\&    );
-.Ve
-.PP
-First argument is update row data, \f(CW\*(C`table\*(C'\fR is table name, \f(CW\*(C`where\*(C'\fR is condition.
-.PP
-Note that you can't execute \f(CW\*(C`update\*(C'\fR method without \f(CW\*(C`where\*(C'\fR.
-If you want to update all rows, use update_all.
-.PP
-.Vb 1
-\&    $dbi->update_all({title => 'Perl', author => 'Ken'}, table  => 'book');
-.Ve
-.PP
-\fIDelete Statement : \f(CI\*(C`delete\*(C'\fI\fR
-.IX Subsection "Delete Statement : delete"
-.PP
-If you want to execute delete statement, use \f(CW\*(C`delete\*(C'\fR method.
-.PP
-.Vb 1
-\&    $dbi->delete(table  => 'book', where  => {author => 'Ken'});
-.Ve
-.PP
-\&\f(CW\*(C`table\*(C'\fR is table name, \f(CW\*(C`where\*(C'\fR is condition.
-.PP
-Note that you can't execute \f(CW\*(C`delete\*(C'\fR method without \f(CW\*(C`where\*(C'\fR.
-If you want to delete all rows, use \f(CW\*(C`delete_all\*(C'\fR method.
-.PP
-.Vb 1
-\&    $dbi->delete_all(table  => 'book');
-.Ve
-.PP
-\fISelect Statement : \f(CI\*(C`select\*(C'\fI\fR
-.IX Subsection "Select Statement : select"
-.PP
-If you want to execute select statement, use \f(CW\*(C`select\*(C'\fR method.
-.PP
-.Vb 1
-\&    my $result = $dbi->select(table => 'book');
-.Ve
-.PP
-Return value is DBIx::Custom::Result object.
-You can fetch rows by \f(CW\*(C`fetch\*(C'\fR method.
-.PP
-.Vb 4
-\&    while (my $row = $result->fetch) {
-\&        my $title  = $row->[0];
-\&        my $author = $row->[1];
-\&    }
-.Ve
-.PP
-See also \*(L"Fetch row\*(R" in Fetch row about DBIx::Custom::Result.
-.PP
-You can specify column names by \f(CW\*(C`column\*(C'\fR option
-and condition by \f(CW\*(C`where\*(C'\fR option.
-.PP
-.Vb 5
-\&    my $result = $dbi->select(
-\&        table  => 'book',
-\&        column => ['author',  'title'],
-\&        where  => {author => 'Ken'}
-\&    );
-.Ve
-.PP
-You can specify join clause by \f(CW\*(C`join\*(C'\fR option.
-.PP
-.Vb 6
-\&    my $result = $dbi->select(
-\&        table  => 'book',
-\&        column => ['company.name as company_name']
-\&        where  => {'book.name' => 'Perl'},
-\&        join   => ['left outer join company on book.company_id = company.id]
-\&    );
-.Ve
-.PP
-Note that join clause is joined only when \f(CW\*(C`where\*(C'\fR or \f(CW\*(C`column\*(C'\fR option contains table name,
-such as book.name.
-.PP
-You can append statement to the end of whole statement by \f(CW\*(C`append\*(C'\fR option.
-.PP
-.Vb 5
-\&    my $result = $dbi->select(
-\&        table  => 'book',
-\&        where  => {author => 'Ken'},
-\&        append => 'for update',
-\&    );
-.Ve
-.PP
-\fI\f(CI\*(C`execute\*(C'\fI\fR
-.IX Subsection "execute"
-.PP
-If you want to execute \s-1SQL\s0, use \f(CW\*(C`execute\*(C'\fR method.
-.PP
-.Vb 1
-\&    $dbi->execute("select * from book;");
-.Ve
-.PP
-You can specify named placeholder.
-.PP
-.Vb 4
-\&    $dbi->execute(
-\&        "select * from book title = :title and author = :author;"
-\&        {title => 'Perl', author => 'Ken'}
-\&    );
-.Ve
-.PP
-:title and :author is named placeholder, which is replaced to placeholers.
-.PP
-.Vb 1
-\&    select * from book title = ? and author = ?;
-.Ve
-.PP
-\fI\f(CI\*(C`dbh\*(C'\fI\fR
-.IX Subsection "dbh"
-.PP
-.Vb 1
-\&    my $dbh = $dbi->dbh;
-.Ve
-.PP
-Get get database handle object of \s-1DBI\s0.
-.PP
-\fI\f(CI\*(C`DBI\*(C'\fI methods\fR
-.IX Subsection "DBI methods"
-.PP
-.Vb 2
-\&    $dbi->do(...);
-\&    $dbi->begin_work;
-.Ve
-.PP
-You can call all methods of \s-1DBI\s0 from DBIx::Custom object.
-.Sh "Fetch Rows"
-.IX Subsection "Fetch Rows"
-\&\f(CW\*(C`select\*(C'\fR method return value is DBIx::Custom::Result object.
-You can fetch a row or rows by various methods.
-.PP
-\fIFetch a row (array) : \f(CI\*(C`fetch\*(C'\fI\fR
-.IX Subsection "Fetch a row (array) : fetch"
-.PP
-.Vb 1
-\&    my $row = $result->fetch;
-.Ve
-.PP
-\&\f(CW\*(C`fetch\*(C'\fR method fetch a row and put it into array reference.
-You can continue to fetch 
-.PP
-.Vb 4
-\&    while (my $row = $result->fetch) {
-\&        my $title  = $row->[0];
-\&        my $author = $row->[1];
-\&    }
-.Ve
-.PP
-\fIFetch only first row (array) : \f(CI\*(C`fetch_first\*(C'\fI\fR
-.IX Subsection "Fetch only first row (array) : fetch_first"
-.PP
-.Vb 1
-\&    my $row = $result->fetch_first;
-.Ve
-.PP
-\&\f(CW\*(C`fetch_first\*(C'\fR fetch a only first row and finish statment handle,
-and put it into array refrence.
-.PP
-\fIFetch all rows (array) : \f(CI\*(C`fetch_all\*(C'\fI\fR
-.IX Subsection "Fetch all rows (array) : fetch_all"
-.PP
-.Vb 1
-\&    my $rows = $result->fetch_all;
-.Ve
-.PP
-\&\f(CW\*(C`fetch_all\*(C'\fR fetch all rows and put them into array of array reference.
-.PP
-\fIFetch a row (hash) : \f(CI\*(C`fetch_hash\*(C'\fI\fR
-.IX Subsection "Fetch a row (hash) : fetch_hash"
-.PP
-.Vb 1
-\&    my $row = $result->fetch_hash;
-.Ve
-.PP
-\&\f(CW\*(C`fetch_hash\*(C'\fR fetch a row and put it into hash reference.
-You can fetch a row while row exists.
-.PP
-.Vb 4
-\&    while (my $row = $result->fetch_hash) {
-\&        my $title  = $row->{title};
-\&        my $author = $row->{author};
-\&    }
-.Ve
-.PP
-\fIFetch only a first row (hash) : \f(CI\*(C`fetch_hash_first\*(C'\fI\fR
-.IX Subsection "Fetch only a first row (hash) : fetch_hash_first"
-.PP
-.Vb 1
-\&    my $row = $result->fetch_hash_first;
-.Ve
-.PP
-\&\f(CW\*(C`fetch_hash_first\*(C'\fR fetch only a first row and finish statement handle,
-and put them into hash refrence.
-.PP
-\&\f(CW\*(C`one\*(C'\fR is \f(CW\*(C`fetch_hash_first\*(C'\fR synonym to save word typing.
-.PP
-.Vb 1
-\&    my $row = $result->one;
-.Ve
-.PP
-\fIFetch all rows (hash) : \f(CI\*(C`fetch_hash_all\*(C'\fI\fR
-.IX Subsection "Fetch all rows (hash) : fetch_hash_all"
-.PP
-.Vb 1
-\&    my $rows = $result->fetch_hash_all;
-.Ve
-.PP
-\&\f(CW\*(C`fetch_hash_all\*(C'\fR fetch all rows and put them into array of hash reference.
-.PP
-\fIStatement Handle : \f(CI\*(C`sth\*(C'\fI\fR
-.IX Subsection "Statement Handle : sth"
-.PP
-.Vb 1
-\&    my $sth = $result->sth;
-.Ve
-.PP
-If you want to get statment handle, use <sth> method.
-.Sh "Named placeholder"
-.IX Subsection "Named placeholder"
-\fIBasic of Parameter\fR
-.IX Subsection "Basic of Parameter"
-.PP
-You can embedd named placeholder into \s-1SQL\s0.
-.PP
-.Vb 1
-\&    select * from book where title = :title and author like :author;
-.Ve
-.PP
-:title and :author is named placeholder
-.PP
-Named placeholder is replaced by place holder.
-.PP
-.Vb 1
-\&    select * from book where title = ? and author like ?;
-.Ve
-.PP
-use \f(CW\*(C`execute\*(C'\fR to execute \s-1SQL\s0.
-.PP
-.Vb 2
-\&    my $sql = "select * from book where title = :title and author like :author;"
-\&    $dbi->execute($sql, {title => 'Perl', author => '%Ken%'});
-.Ve
-.PP
-You can specify \f(CW\*(C`filter\*(C'\fR at \f(CW\*(C`execute\*(C'\fR.
-.PP
-.Vb 2
-\&    $dbi->execute($sql, {title => 'Perl', author => '%Ken%'}
-\&                  filter => {title => 'to_something');
-.Ve
-.PP
-\fIManipulate same name's columns\fR
-.IX Subsection "Manipulate same name's columns"
-.PP
-It is ok if there are same name's columns.
-Let's think two date comparison.
-.PP
-.Vb 1
-\&    my $sql = "select * from table where date > :date and date < :date;";
-.Ve
-.PP
-In this case, You specify parameter values as array reference.
-.PP
-.Vb 1
-\&    my $dbi->execute($sql, {date => ['2010-10-01', '2012-02-10']});
-.Ve
-.Sh "Create where clause"
-.IX Subsection "Create where clause"
-\fIDinamically create where clause : where\fR
-.IX Subsection "Dinamically create where clause : where"
-.PP
-You want to search multiple conditions in many times.
-Let's think the following three cases.
-.PP
-Case1: Search only \f(CW\*(C`title\*(C'\fR
-.PP
-.Vb 1
-\&    where title = :title
-.Ve
-.PP
-Case2: Search only \f(CW\*(C`author\*(C'\fR
-.PP
-.Vb 1
-\&    where author = :author
-.Ve
-.PP
-Case3: Search \f(CW\*(C`title\*(C'\fR and \f(CW\*(C`author\*(C'\fR
-.PP
-.Vb 1
-\&    where title = :title and author = :author
-.Ve
-.PP
-DBIx::Custom support dinamic where clause creating.
-At first, create DBIx::Custom::Where object by \f(CW\*(C`where\*(C'\fR.
-.PP
-.Vb 1
-\&    my $where = $dbi->where;
-.Ve
-.PP
-Set clause by \f(CW\*(C`clause\*(C'\fR
-.PP
-.Vb 3
-\&    $where->clause(
-\&        ['and', 'title = :title, 'author = :author']
-\&    );
-.Ve
-.PP
-\&\f(CW\*(C`clause\*(C'\fR is the following format.
-.PP
-.Vb 1
-\&    ['or' or 'and', PART1, PART1, PART1]
-.Ve
-.PP
-First argument is 'or' or 'and'.
-Later than first argument are part which contains named placeholder.
-.PP
-You can write more complex format.
-.PP
-.Vb 4
-\&    ['and', 
-\&      'title = :title', 
-\&      ['or', 'author = :author', 'date like :date']
-\&    ]
-.Ve
-.PP
-This mean \*(L"title = :title and ( author = :author or date like :date )\*(R".
-.PP
-After setting \f(CW\*(C`clause\*(C'\fR, set \f(CW\*(C`param\*(C'\fR.
-.PP
-.Vb 1
-\&    $where->param({title => 'Perl'});
-.Ve
-.PP
-In this example, parameter contains only title.
-.PP
-If you execute \f(CW\*(C`string_to\*(C'\fR, you can get where clause
-which contain only named placeholder.
-.PP
-.Vb 1
-\&    my $where_clause = $where->to_string;
-.Ve
-.PP
-Parameter name is only title, the following where clause is created.
-.PP
-.Vb 1
-\&    where title = :title
-.Ve
-.PP
-You can also create where clause by stringification.
-.PP
-.Vb 1
-\&    my $where_clause = "$where";
-.Ve
-.PP
-This is useful to embbed it into \s-1SQL\s0. 
-.PP
-\fIIn case where clause contains same name columns\fR
-.IX Subsection "In case where clause contains same name columns"
-.PP
-Even if same name parameters exists, you can create where clause.
-Let's think that there are starting date and ending date.
-.PP
-.Vb 1
-\&    my $param = {start_date => '2010-11-15', end_date => '2011-11-21'};
-.Ve
-.PP
-In this case, you set parameter value as array reference.
-.PP
-.Vb 1
-\&    my $p = {date => ['2010-11-15', '2011-11-21']};
-.Ve
-.PP
-You can embbed these values into same name parameters.
-.PP
-.Vb 4
-\&    $where->clause(
-\&        ['and', 'date > :date', 'date < :date']
-\&    );
-\&    $where->param($p);
-.Ve
-.PP
-If starting date isn't exists, create the following parameter.
-.PP
-.Vb 1
-\&    my $p = {date => [$dbi->not_exists, '2011-11-21']};
-.Ve
-.PP
-You can get DBIx::Custom::NotExists object by \f(CW\*(C`not_exists\*(C'\fR
-This mean correnspondinf value isn't exists.
-.PP
-If ending date isn't exists, create the following parameter.
-.PP
-.Vb 1
-\&    my $p = {date => ['2010-11-15']};
-.Ve
-.PP
-If both date isn't exists, create the following parameter.
-.PP
-.Vb 1
-\&    my $p = {date => []};
-.Ve
-.PP
-This logic is a little difficut. See the following ones.
-.PP
-.Vb 5
-\&    my @date;
-\&    push @date, exists $param->{start_date} ? $param->{start_date}
-\&                                            : $dbi->not_exists;
-\&    push @date, $param->{end_date} if exists $param->{end_date};
-\&    my $p = {date => \e@date};
-.Ve
-.PP
-\fIWith \f(CI\*(C`select\*(C'\fI\fR
-.IX Subsection "With select"
-.PP
-You can pass DBIx::Custom::Where object to \f(CW\*(C`where\*(C'\fR of \f(CW\*(C`select\*(C'\fR.
-.PP
-.Vb 4
-\&    my $where = $dbi->where;
-\&    $where->clause(['and', 'title = :title', 'author = :author']);
-\&    $where->param({title => 'Perl'});
-\&    my $result = $dbi->select(table => 'book', where => $where);
-.Ve
-.PP
-You can also pass it to \f(CW\*(C`where\*(C'\fR of \f(CW\*(C`update\*(C'\fRA\f(CW\*(C`delete\*(C'\fR
-.PP
-\fIWith \f(CI\*(C`execute\*(C'\fI\fR
-.IX Subsection "With execute"
-.PP
-DBIx::Custom::Where object is embedded into \s-1SQL\s0.
-.PP
-.Vb 3
-\&    my $where = $dbi->where;
-\&    $where->clause(['and', 'title = :title', 'author = :author']);
-\&    $where->param({title => 'Perl'});
-.Ve
-.PP
-.Vb 4
-\&    my $sql = <<"EOS";
-\&    select * from book;
-\&    $where
-\&    EOS
-.Ve
-.PP
-.Vb 1
-\&    $dbi->execute($sql, $param, table => 'book');
-.Ve
-.Sh "Filtering"
-.IX Subsection "Filtering"
-\fIRegister filter : \f(CI\*(C`register_filter\*(C'\fI\fR
-.IX Subsection "Register filter : register_filter"
-.PP
-If you want to register filter, use \f(CW\*(C`register_filter\*(C'\fR.
-.PP
-.Vb 6
-\&    $dbi->register_filter(
-\&        # Time::Piece object to DATE format
-\&        tp_to_date => sub {
-\&            my $date = shift;
-\&            return $tp->strftime('%Y-%m-%d');
-\&        },
-.Ve
-.PP
-.Vb 6
-\&        # DATE to Time::Piece object
-\&        date_to_tp => sub {
-\&            my $date = shift;
-\&            return Time::Piece->strptime($date, '%Y-%m-%d');
-\&        },
-\&    );
-.Ve
-.PP
-\fIFilter before sending data into database : \f(CI\*(C`filter\*(C'\fI option\fR
-.IX Subsection "Filter before sending data into database : filter option"
-.PP
-If you filter sending data, use \f(CW\*(C`filter\*(C'\fR option.
-.PP
-.Vb 5
-\&    $dbi->execute(
-\&        'insert into book (date) values (:date)',
-\&        {date => $tp},
-\&        filter => {date => 'tp_to_date'}
-\&    );
-.Ve
-.PP
-You can use \f(CW\*(C`filter\*(C'\fR option in \f(CW\*(C`insert\*(C'\fR, \f(CW\*(C`update\*(C'\fR, \f(CW\*(C`delete\*(C'\fR, \f(CW\*(C`select\*(C'\fR method.
-.PP
-.Vb 5
-\&    $dbi->insert(
-\&        {date => $tp},
-\&        table => 'book',
-\&        filter => {date => 'tp_to_date'}
-\&    );
-.Ve
-.PP
-\fIFilter after fetching data from database.\fR
-.IX Subsection "Filter after fetching data from database."
-.PP
-If you filter fetch data, use DBIx::Custom::Result's \f(CW\*(C`filter\*(C'\fR method.
-.PP
-.Vb 3
-\&    my $result = $dbi->select(column => 'date', table => 'book');
-\&    $result->filter(date => 'date_to_tp');
-\&    my $row = $result->one;
-.Ve
-.Sh "7. Model"
-.IX Subsection "7. Model"
-\fIModel\fR
-.IX Subsection "Model"
-.PP
-you can define model extending DBIx::Custom::Model
-to improve source code view.
-.PP
-At first, you create basic model class extending <DBIx::Custom::Model>.
-Each DBIx::Custom class inherit Object::Simple.
-so you can inherit the following way.
-.PP
-.Vb 2
-\&    package MyModel;
-\&    use DBIx::Custom::Model -base;
-.Ve
-.PP
-Next, you create each model classes.
-.PP
-MyModel::book
-.PP
-.Vb 2
-\&    package MyModel::book;
-\&    use MyModel -base;
-.Ve
-.PP
-.Vb 2
-\&    sub insert { ... }
-\&    sub list { ... }
-.Ve
-.PP
-MyModel::company
-.PP
-.Vb 2
-\&    package MyModel::company;
-\&    use MyModel -base;
-.Ve
-.PP
-.Vb 2
-\&    sub insert { ... }
-\&    sub list { ... }
-.Ve
-.PP
-The follwoing modules location is needed.
-.PP
-.Vb 3
-\&    MyModel.pm
-\&    MyModel / book.pm
-\&            / company.pm
-.Ve
-.PP
-You can include these models by \f(CW\*(C`include_model\*(C'\fR
-.PP
-.Vb 1
-\&    $dbi->include_model('MyModel');
-.Ve
-.PP
-First argument is name space of model.
-.PP
-You can use model like this.
-.PP
-.Vb 1
-\&    my $result = $dbi->model('book')->list;
-.Ve
-.PP
-In mode, You can use such as methods,
-\&\f(CW\*(C`insert\*(C'\fR, \f(CW\*(C`update\*(C'\fR, \f(CW\*(C`update_all\*(C'\fR,
-\&\f(CW\*(C`delete\*(C'\fR, \f(CW\*(C`delete_all\*(C'\fR, \f(CW\*(C`select\*(C'\fR
-without \f(CW\*(C`table\*(C'\fR option.
-.PP
-.Vb 1
-\&    $dbi->model('book')->insert($param);
-.Ve
-.PP
-Model is DBIx::Custom::Model.
-.PP
-If you need table nameAyou can get it by \f(CW\*(C`table\*(C'\fR.
-.PP
-.Vb 1
-\&    my $table = $model->table;
-.Ve
-.PP
-You can get DBIx::Custom.
-.PP
-.Vb 1
-\&    my $dbi = $model->dbi;
-.Ve
-.PP
-You can also call all methods of DBIx::Custom and \s-1DBI\s0. 
-.PP
-.Vb 2
-\&    # DBIx::Custom method
-\&    $model->execute($sql);
-.Ve
-.PP
-.Vb 3
-\&    # DBI method
-\&    $model->begin_work;
-\&    $model->commit;
-.Ve
-.PP
-If you want to get all models, you can get them by keys of \f(CW\*(C`models\*(C'\fR.
-.PP
-.Vb 1
-\&    my @models = keys %{$self->models};
-.Ve
-.PP
-You can set primary key to model.
-.PP
-.Vb 1
-\&   $model->primary_key(['id', 'number_id']);
-.Ve
-.PP
-Primary key is used by \f(CW\*(C`insert\*(C'\fR, \f(CW\*(C`update\*(C'\fR, \f(CW\*(C`delete\*(C'\fR,
-and \f(CW\*(C`select\*(C'\fR methods.
-.PP
-You can set column names
-.PP
-.Vb 1
-\&    $model->columns(['id', 'number_id']);
-.Ve
-.PP
-Column names is automarically set by \f(CW\*(C`setup_model\*(C'\fR.
-This method is needed to be call after \f(CW\*(C`include_model\*(C'\fR.
-.PP
-.Vb 1
-\&    $dbi->setup_model;
-.Ve
-.PP
-You can set \f(CW\*(C`join\*(C'\fR
-.PP
-.Vb 1
-\&    $model->join(['left outer join company on book.company_id = company.id']);
-.Ve
-.PP
-\&\f(CW\*(C`join\*(C'\fR is used by \f(CW\*(C`select\*(C'\fR method.
-.Sh "Create column clause automatically : mycolumn, column"
-.IX Subsection "Create column clause automatically : mycolumn, column"
-To create column clause automatically, use \f(CW\*(C`mycolumn\*(C'\fR.
-Valude of \f(CW\*(C`table\*(C'\fR and \f(CW\*(C`columns\*(C'\fR is used.
-.PP
-.Vb 1
-\&    my $mycolumns = $model->mycolumn;
-.Ve
-.PP
-If \f(CW\*(C`table\*(C'\fR is 'book'A\f(CW\*(C`column\*(C'\fR is ['id', 'name'],
-the following clause is created.
-.PP
-.Vb 1
-\&    book.id as id, book.name as name
-.Ve
-.PP
-These column name is for removing column name ambiguities.
-.PP
-You can create column clause from columns of other table.
-.PP
-.Vb 1
-\&    my $columns = $model->column('company');
-.Ve
-.PP
-If \f(CW\*(C`table\*(C'\fR is \*(L"company\*(R", \f(CW\*(C`column\*(C'\fR return ['id', 'name'],
-the following clause is created.
-.PP
-.Vb 1
-\&    company.id as "company.id", company.name as "company.name"
-.Ve
-.Sh "Model Examples"
-.IX Subsection "Model Examples"
-Model examples
-.PP
-.Vb 2
-\&    package MyDBI;
-\&    use DBIx::Custom -base;
-.Ve
-.PP
-.Vb 2
-\&    sub connect {
-\&        my $self = shift->SUPER::connect(@_);
-.Ve
-.PP
-.Vb 7
-\&        $self->include_model(
-\&            MyModel => [
-\&                'book',
-\&                'company'
-\&            ]
-\&        );
-\&    }
-.Ve
-.PP
-.Vb 2
-\&    package MyModel::book;
-\&    use DBIx::Custom::Model -base;
-.Ve
-.PP
-.Vb 1
-\&    has primary_key => sub { ['id'] };
-.Ve
-.PP
-.Vb 2
-\&    sub insert { ... }
-\&    sub list { ... }
-.Ve
-.PP
-.Vb 2
-\&    package MyModel::company;
-\&    use DBIx::Custom::Model -base;
-.Ve
-.PP
-.Vb 1
-\&    has primary_key => sub { ['id'] };
-.Ve
-.PP
-.Vb 2
-\&    sub insert { ... }
-\&    sub list { ... }
-.Ve

-139

DBIx-Custom-0.1711/blib/man3/DBIx::Custom::Guide::Ja.3pm

View

...	...	@@ -1,139 +0,0 @@
1		-.\" Automatically generated by Pod::Man v1.37, Pod::Parser v1.32
2		-.\"
3		-.\" Standard preamble:
4		-.\" ========================================================================
5		-.de Sh \" Subsection heading
6		-.br
7		-.if t .Sp
8		-.ne 5
9		-.PP
10		-\fB\\$1\fR
11		-.PP
12		-..
13		-.de Sp \" Vertical space (when we can't use .PP)
14		-.if t .sp .5v
15		-.if n .sp
16		-..
17		-.de Vb \" Begin verbatim text
18		-.ft CW
19		-.nf
20		-.ne \\$1
21		-..
22		-.de Ve \" End verbatim text
23		-.ft R
24		-.fi
25		-..
26		-.\" Set up some character translations and predefined strings. \*(-- will
27		-.\" give an unbreakable dash, \(PI will give pi, \(L" will give a left
28		-.\" double quote, and \*(R" will give a right double quote. \| will give a
29		-.\" real vertical bar. \*(C+ will give a nicer C++. Capital omega is used to
30		-.\" do unbreakable dashes and therefore won't be available. \(C` and \(C'
31		-.\" expand to `' in nroff, nothing in troff, for use with C<>.
32		-.tr \(W-\|\(bv\(Tr
33		-.ds C+ C\v'-.1v'\h'-1p'\s-2+\h'-1p'+\s0\v'.1v'\h'-1p'
34		-.ie n \{\
35		-. ds -- \(*W-
36		-. ds PI pi
37		-. if (\n(.H=4u)&(1m=24u) .ds -- \(W\h'-12u'\(W\h'-12u'-\" diablo 10 pitch
38		-. if (\n(.H=4u)&(1m=20u) .ds -- \(W\h'-12u'\(W\h'-8u'-\" diablo 12 pitch
39		-. ds L" ""
40		-. ds R" ""
41		-. ds C` ""
42		-. ds C' ""
43		-'br\}
44		-.el\{\
45		-. ds -- \\|\(em\\|
46		-. ds PI \(*p
47		-. ds L" ``
48		-. ds R" ''
49		-'br\}
50		-.\"
51		-.\" If the F register is turned on, we'll generate index entries on stderr for
52		-.\" titles (.TH), headers (.SH), subsections (.Sh), items (.Ip), and index
53		-.\" entries marked with X<> in POD. Of course, you'll have to process the
54		-.\" output yourself in some meaningful fashion.
55		-.if \nF \{\
56		-. de IX
57		-. tm Index:\\$1\t\\n%\t"\\$2"
58		-..
59		-. nr % 0
60		-. rr F
61		-.\}
62		-.\"
63		-.\" For nroff, turn off justification. Always turn off hyphenation; it makes
64		-.\" way too many mistakes in technical documents.
65		-.hy 0
66		-.if n .na
67		-.\"
68		-.\" Accent mark definitions (@(#)ms.acc 1.5 88/02/08 SMI; from UCB 4.2).
69		-.\" Fear. Run. Save yourself. No user-serviceable parts.
70		-. \" fudge factors for nroff and troff
71		-.if n \{\
72		-. ds #H 0
73		-. ds #V .8m
74		-. ds #F .3m
75		-. ds #[ \f1
76		-. ds #] \fP
77		-.\}
78		-.if t \{\
79		-. ds #H ((1u-(\\\\n(.fu%2u))*.13m)
80		-. ds #V .6m
81		-. ds #F 0
82		-. ds #[ \&
83		-. ds #] \&
84		-.\}
85		-. \" simple accents for nroff and troff
86		-.if n \{\
87		-. ds ' \&
88		-. ds ` \&
89		-. ds ^ \&
90		-. ds , \&
91		-. ds ~ ~
92		-. ds /
93		-.\}
94		-.if t \{\
95		-. ds ' \\k:\h'-(\\n(.wu8/10-\(#H)'\'\h"\|\\n:u"
96		-. ds ` \\k:\h'-(\\n(.wu8/10-\(#H)'\`\h'\|\\n:u'
97		-. ds ^ \\k:\h'-(\\n(.wu10/11-\(#H)'^\h'\|\\n:u'
98		-. ds , \\k:\h'-(\\n(.wu*8/10)',\h'\|\\n:u'
99		-. ds ~ \\k:\h'-(\\n(.wu-\*(#H-.1m)'~\h'\|\\n:u'
100		-. ds / \\k:\h'-(\\n(.wu8/10-\(#H)'\z\(sl\h'\|\\n:u'
101		-.\}
102		-. \" troff and (daisy-wheel) nroff accents
103		-.ds : \\k:\h'-(\\n(.wu8/10-\(#H+.1m+\(#F)'\v'-\(#V'\z.\h'.2m+\(#F'.\h'\|\\n:u'\v'\(#V'
104		-.ds 8 \h'\(#H'\(b\h'-\*(#H'
105		-.ds o \\k:\h'-(\\n(.wu+\w'\(de'u-\(#H)/2u'\v'-.3n'\(#[\z\(de\v'.3n'\h'\|\\n:u'\*(#]
106		-.ds d- \h'\(#H'\(pd\h'-\w'~'u'\v'-.25m'\f2\(hy\fP\v'.25m'\h'-\(#H'
107		-.ds D- D\\k:\h'-\w'D'u'\v'-.11m'\z\(hy\v'.11m'\h'\|\\n:u'
108		-.ds th \(#[\v'.3m'\s+1I\s-1\v'-.3m'\h'-(\w'I'u2/3)'\s-1o\s+1\*(#]
109		-.ds Th \(#[\s+2I\s-2\h'-\w'I'u3/5'\v'-.3m'o\v'.3m'\*(#]
110		-.ds ae a\h'-(\w'a'u*4/10)'e
111		-.ds Ae A\h'-(\w'A'u*4/10)'E
112		-. \" corrections for vroff
113		-.if v .ds ~ \\k:\h'-(\\n(.wu9/10-\(#H)'\s-2\u~\d\s+2\h'\|\\n:u'
114		-.if v .ds ^ \\k:\h'-(\\n(.wu10/11-\(#H)'\v'-.4m'^\v'.4m'\h'\|\\n:u'
115		-. \" for low resolution devices (crt and lpr)
116		-.if \n(.H>23 .if \n(.V>19 \
117		-\{\
118		-. ds : e
119		-. ds 8 ss
120		-. ds o a
121		-. ds d- d\h'-1'\(ga
122		-. ds D- D\h'-1'\(hy
123		-. ds th \o'bp'
124		-. ds Th \o'LP'
125		-. ds ae ae
126		-. ds Ae AE
127		-.\}
128		-.rm #[ #] #H #V #F C
129		-.\" ========================================================================
130		-.\"
131		-.IX Title "DBIx::Custom::Guide::Ja 3"
132		-.TH DBIx::Custom::Guide::Ja 3 "2011-07-11" "perl v5.8.8" "User Contributed Perl Documentation"
133		-.SH "NAME"
134		-DBIx::Custom::Guide \- DBIx::Customガイド
135		-.SH "LINK"
136		-.IX Header "LINK"
137		-ドキュメントは以下のリンクに移動しました。
138		-.PP
139		-<http://d.hatena.ne.jp/perlcodesample/20110401/1305597081>

-303

DBIx-Custom-0.1711/blib/man3/DBIx::Custom::Model.3pm

View

...	...	@@ -1,303 +0,0 @@
1		-.\" Automatically generated by Pod::Man v1.37, Pod::Parser v1.32
2		-.\"
3		-.\" Standard preamble:
4		-.\" ========================================================================
5		-.de Sh \" Subsection heading
6		-.br
7		-.if t .Sp
8		-.ne 5
9		-.PP
10		-\fB\\$1\fR
11		-.PP
12		-..
13		-.de Sp \" Vertical space (when we can't use .PP)
14		-.if t .sp .5v
15		-.if n .sp
16		-..
17		-.de Vb \" Begin verbatim text
18		-.ft CW
19		-.nf
20		-.ne \\$1
21		-..
22		-.de Ve \" End verbatim text
23		-.ft R
24		-.fi
25		-..
26		-.\" Set up some character translations and predefined strings. \*(-- will
27		-.\" give an unbreakable dash, \(PI will give pi, \(L" will give a left
28		-.\" double quote, and \*(R" will give a right double quote. \| will give a
29		-.\" real vertical bar. \*(C+ will give a nicer C++. Capital omega is used to
30		-.\" do unbreakable dashes and therefore won't be available. \(C` and \(C'
31		-.\" expand to `' in nroff, nothing in troff, for use with C<>.
32		-.tr \(W-\|\(bv\(Tr
33		-.ds C+ C\v'-.1v'\h'-1p'\s-2+\h'-1p'+\s0\v'.1v'\h'-1p'
34		-.ie n \{\
35		-. ds -- \(*W-
36		-. ds PI pi
37		-. if (\n(.H=4u)&(1m=24u) .ds -- \(W\h'-12u'\(W\h'-12u'-\" diablo 10 pitch
38		-. if (\n(.H=4u)&(1m=20u) .ds -- \(W\h'-12u'\(W\h'-8u'-\" diablo 12 pitch
39		-. ds L" ""
40		-. ds R" ""
41		-. ds C` ""
42		-. ds C' ""
43		-'br\}
44		-.el\{\
45		-. ds -- \\|\(em\\|
46		-. ds PI \(*p
47		-. ds L" ``
48		-. ds R" ''
49		-'br\}
50		-.\"
51		-.\" If the F register is turned on, we'll generate index entries on stderr for
52		-.\" titles (.TH), headers (.SH), subsections (.Sh), items (.Ip), and index
53		-.\" entries marked with X<> in POD. Of course, you'll have to process the
54		-.\" output yourself in some meaningful fashion.
55		-.if \nF \{\
56		-. de IX
57		-. tm Index:\\$1\t\\n%\t"\\$2"
58		-..
59		-. nr % 0
60		-. rr F
61		-.\}
62		-.\"
63		-.\" For nroff, turn off justification. Always turn off hyphenation; it makes
64		-.\" way too many mistakes in technical documents.
65		-.hy 0
66		-.if n .na
67		-.\"
68		-.\" Accent mark definitions (@(#)ms.acc 1.5 88/02/08 SMI; from UCB 4.2).
69		-.\" Fear. Run. Save yourself. No user-serviceable parts.
70		-. \" fudge factors for nroff and troff
71		-.if n \{\
72		-. ds #H 0
73		-. ds #V .8m
74		-. ds #F .3m
75		-. ds #[ \f1
76		-. ds #] \fP
77		-.\}
78		-.if t \{\
79		-. ds #H ((1u-(\\\\n(.fu%2u))*.13m)
80		-. ds #V .6m
81		-. ds #F 0
82		-. ds #[ \&
83		-. ds #] \&
84		-.\}
85		-. \" simple accents for nroff and troff
86		-.if n \{\
87		-. ds ' \&
88		-. ds ` \&
89		-. ds ^ \&
90		-. ds , \&
91		-. ds ~ ~
92		-. ds /
93		-.\}
94		-.if t \{\
95		-. ds ' \\k:\h'-(\\n(.wu8/10-\(#H)'\'\h"\|\\n:u"
96		-. ds ` \\k:\h'-(\\n(.wu8/10-\(#H)'\`\h'\|\\n:u'
97		-. ds ^ \\k:\h'-(\\n(.wu10/11-\(#H)'^\h'\|\\n:u'
98		-. ds , \\k:\h'-(\\n(.wu*8/10)',\h'\|\\n:u'
99		-. ds ~ \\k:\h'-(\\n(.wu-\*(#H-.1m)'~\h'\|\\n:u'
100		-. ds / \\k:\h'-(\\n(.wu8/10-\(#H)'\z\(sl\h'\|\\n:u'
101		-.\}
102		-. \" troff and (daisy-wheel) nroff accents
103		-.ds : \\k:\h'-(\\n(.wu8/10-\(#H+.1m+\(#F)'\v'-\(#V'\z.\h'.2m+\(#F'.\h'\|\\n:u'\v'\(#V'
104		-.ds 8 \h'\(#H'\(b\h'-\*(#H'
105		-.ds o \\k:\h'-(\\n(.wu+\w'\(de'u-\(#H)/2u'\v'-.3n'\(#[\z\(de\v'.3n'\h'\|\\n:u'\*(#]
106		-.ds d- \h'\(#H'\(pd\h'-\w'~'u'\v'-.25m'\f2\(hy\fP\v'.25m'\h'-\(#H'
107		-.ds D- D\\k:\h'-\w'D'u'\v'-.11m'\z\(hy\v'.11m'\h'\|\\n:u'
108		-.ds th \(#[\v'.3m'\s+1I\s-1\v'-.3m'\h'-(\w'I'u2/3)'\s-1o\s+1\*(#]
109		-.ds Th \(#[\s+2I\s-2\h'-\w'I'u3/5'\v'-.3m'o\v'.3m'\*(#]
110		-.ds ae a\h'-(\w'a'u*4/10)'e
111		-.ds Ae A\h'-(\w'A'u*4/10)'E
112		-. \" corrections for vroff
113		-.if v .ds ~ \\k:\h'-(\\n(.wu9/10-\(#H)'\s-2\u~\d\s+2\h'\|\\n:u'
114		-.if v .ds ^ \\k:\h'-(\\n(.wu10/11-\(#H)'\v'-.4m'^\v'.4m'\h'\|\\n:u'
115		-. \" for low resolution devices (crt and lpr)
116		-.if \n(.H>23 .if \n(.V>19 \
117		-\{\
118		-. ds : e
119		-. ds 8 ss
120		-. ds o a
121		-. ds d- d\h'-1'\(ga
122		-. ds D- D\h'-1'\(hy
123		-. ds th \o'bp'
124		-. ds Th \o'LP'
125		-. ds ae ae
126		-. ds Ae AE
127		-.\}
128		-.rm #[ #] #H #V #F C
129		-.\" ========================================================================
130		-.\"
131		-.IX Title "DBIx::Custom::Model 3"
132		-.TH DBIx::Custom::Model 3 "2011-07-30" "perl v5.8.8" "User Contributed Perl Documentation"
133		-.SH "NAME"
134		-DBIx::Custom::Model \- Model
135		-.SH "SYNOPSIS"
136		-.IX Header "SYNOPSIS"
137		-use DBIx::Custom::Table;
138		-.PP
139		-my \f(CW$table\fR = DBIx::Custom::Model\->new(table => 'books');
140		-.SH "ATTRIBUTES"
141		-.IX Header "ATTRIBUTES"
142		-.ie n .Sh """dbi"""
143		-.el .Sh "\f(CWdbi\fP"
144		-.IX Subsection "dbi"
145		-.Vb 2
146		-\& my $dbi = $model->dbi;
147		-\& $model = $model->dbi($dbi);
148		-.Ve
149		-.PP
150		-DBIx::Custom object.
151		-.ie n .Sh """join"""
152		-.el .Sh "\f(CWjoin\fP"
153		-.IX Subsection "join"
154		-.Vb 4
155		-\& my $join = $model->join;
156		-\& $model = $model->join(
157		-\& ['left outer join company on book.company_id = company.id']
158		-\& );
159		-.Ve
160		-.PP
161		-Join clause, this value is passed to \f(CW\(C`select\(C'\fR method.
162		-.ie n .Sh """primary_key"""
163		-.el .Sh "\f(CWprimary_key\fP"
164		-.IX Subsection "primary_key"
165		-.Vb 2
166		-\& my $primary_key = $model->primary_key;
167		-\& $model = $model->primary_key(['id', 'number']);
168		-.Ve
169		-.PP
170		-Primary key,this is passed to \f(CW\(C`insert\(C'\fR, \f(CW\(C`update\(C'\fR,
171		-\&\f(CW\(C`delete\(C'\fR, and \f(CW\(C`select\(C'\fR method.
172		-.ie n .Sh """table"""
173		-.el .Sh "\f(CWtable\fP"
174		-.IX Subsection "table"
175		-.Vb 2
176		-\& my $table = $model->table;
177		-\& $model = $model->table('book');
178		-.Ve
179		-.PP
180		-Table name, this is passed to \f(CW\(C`select\(C'\fR method.
181		-.ie n .Sh """bind_type"""
182		-.el .Sh "\f(CWbind_type\fP"
183		-.IX Subsection "bind_type"
184		-.Vb 2
185		-\& my $type = $model->bind_type;
186		-\& $model = $model->bind_type(['image' => DBI::SQL_BLOB]);
187		-.Ve
188		-.PP
189		-Database data type, this is used as type optioon of \f(CW\(C`insert\(C'\fR,
190		-\&\f(CW\(C`update\(C'\fR, \f(CW\(C`update_all\(C'\fR, \f(CW\(C`delete\(C'\fR, \f(CW\(C`delete_all\(C'\fR,
191		-\&\f(CW\(C`select\(C'\fR, and \f(CW\(C`execute\(C'\fR method
192		-.SH "METHODS"
193		-.IX Header "METHODS"
194		-DBIx::Custom::Model inherits all methods from Object::Simple,
195		-and you can use all methods of DBIx::Custom and \s-1DBI\s0
196		-and implements the following new ones.
197		-.ie n .Sh """delete"""
198		-.el .Sh "\f(CWdelete\fP"
199		-.IX Subsection "delete"
200		-.Vb 1
201		-\& $table->delete(...);
202		-.Ve
203		-.PP
204		-Same as \f(CW\(C`delete\(C'\fR of DBIx::Custom except that
205		-you don't have to specify \f(CW\(C`table\(C'\fR option.
206		-.ie n .Sh """delete_all"""
207		-.el .Sh "\f(CWdelete_all\fP"
208		-.IX Subsection "delete_all"
209		-.Vb 1
210		-\& $table->delete_all(...);
211		-.Ve
212		-.PP
213		-Same as \f(CW\(C`delete_all\(C'\fR of DBIx::Custom except that
214		-you don't have to specify \f(CW\(C`table\(C'\fR option.
215		-.ie n .Sh """insert"""
216		-.el .Sh "\f(CWinsert\fP"
217		-.IX Subsection "insert"
218		-.Vb 1
219		-\& $table->insert(...);
220		-.Ve
221		-.PP
222		-Same as \f(CW\(C`insert\(C'\fR of DBIx::Custom except that
223		-you don't have to specify \f(CW\(C`table\(C'\fR option.
224		-.ie n .Sh """method"""
225		-.el .Sh "\f(CWmethod\fP"
226		-.IX Subsection "method"
227		-.Vb 3
228		-\& $model->method(
229		-\& update_or_insert => sub {
230		-\& my $self = shift;
231		-.Ve
232		-.PP
233		-.Vb 4
234		-\& # ...
235		-\& },
236		-\& find_or_create => sub {
237		-\& my $self = shift;
238		-.Ve
239		-.PP
240		-.Vb 2
241		-\& # ...
242		-\& );
243		-.Ve
244		-.PP
245		-Register method. These method is called directly from DBIx::Custom::Model object.
246		-.PP
247		-.Vb 2
248		-\& $model->update_or_insert;
249		-\& $model->find_or_create;
250		-.Ve
251		-.ie n .Sh """mycolumn"""
252		-.el .Sh "\f(CWmycolumn\fP"
253		-.IX Subsection "mycolumn"
254		-.Vb 3
255		-\& my $column = $self->mycolumn;
256		-\& my $column = $self->mycolumn(book => ['author', 'title']);
257		-\& my $column = $self->mycolumn(['author', 'title']);
258		-.Ve
259		-.PP
260		-Create column clause for myself. The follwoing column clause is created.
261		-.PP
262		-.Vb 2
263		-\& book.author as author,
264		-\& book.title as title
265		-.Ve
266		-.PP
267		-If table name is ommited, \f(CW\(C`table\(C'\fR attribute of the model is used.
268		-If column names is omitted, \f(CW\(C`columns\(C'\fR attribute of the model is used.
269		-.ie n .Sh """new"""
270		-.el .Sh "\f(CWnew\fP"
271		-.IX Subsection "new"
272		-.Vb 1
273		-\& my $table = DBIx::Custom::Table->new;
274		-.Ve
275		-.PP
276		-Create a DBIx::Custom::Table object.
277		-.ie n .Sh """select"""
278		-.el .Sh "\f(CWselect\fP"
279		-.IX Subsection "select"
280		-.Vb 1
281		-\& $table->select(...);
282		-.Ve
283		-.PP
284		-Same as \f(CW\(C`select\(C'\fR of DBIx::Custom except that
285		-you don't have to specify \f(CW\(C`table\(C'\fR option.
286		-.ie n .Sh """update"""
287		-.el .Sh "\f(CWupdate\fP"
288		-.IX Subsection "update"
289		-.Vb 1
290		-\& $table->update(...);
291		-.Ve
292		-.PP
293		-Same as \f(CW\(C`update\(C'\fR of DBIx::Custom except that
294		-you don't have to specify \f(CW\(C`table\(C'\fR option.
295		-.ie n .Sh """update_all"""
296		-.el .Sh "\f(CWupdate_all\fP"
297		-.IX Subsection "update_all"
298		-.Vb 1
299		-\& $table->update_all(param => \e%param);
300		-.Ve
301		-.PP
302		-Same as \f(CW\(C`update_all\(C'\fR of DBIx::Custom except that
303		-you don't have to specify table name.

-203

DBIx-Custom-0.1711/blib/man3/DBIx::Custom::Order.3pm

View

...	...	@@ -1,203 +0,0 @@
1		-.\" Automatically generated by Pod::Man v1.37, Pod::Parser v1.32
2		-.\"
3		-.\" Standard preamble:
4		-.\" ========================================================================
5		-.de Sh \" Subsection heading
6		-.br
7		-.if t .Sp
8		-.ne 5
9		-.PP
10		-\fB\\$1\fR
11		-.PP
12		-..
13		-.de Sp \" Vertical space (when we can't use .PP)
14		-.if t .sp .5v
15		-.if n .sp
16		-..
17		-.de Vb \" Begin verbatim text
18		-.ft CW
19		-.nf
20		-.ne \\$1
21		-..
22		-.de Ve \" End verbatim text
23		-.ft R
24		-.fi
25		-..
26		-.\" Set up some character translations and predefined strings. \*(-- will
27		-.\" give an unbreakable dash, \(PI will give pi, \(L" will give a left
28		-.\" double quote, and \*(R" will give a right double quote. \| will give a
29		-.\" real vertical bar. \*(C+ will give a nicer C++. Capital omega is used to
30		-.\" do unbreakable dashes and therefore won't be available. \(C` and \(C'
31		-.\" expand to `' in nroff, nothing in troff, for use with C<>.
32		-.tr \(W-\|\(bv\(Tr
33		-.ds C+ C\v'-.1v'\h'-1p'\s-2+\h'-1p'+\s0\v'.1v'\h'-1p'
34		-.ie n \{\
35		-. ds -- \(*W-
36		-. ds PI pi
37		-. if (\n(.H=4u)&(1m=24u) .ds -- \(W\h'-12u'\(W\h'-12u'-\" diablo 10 pitch
38		-. if (\n(.H=4u)&(1m=20u) .ds -- \(W\h'-12u'\(W\h'-8u'-\" diablo 12 pitch
39		-. ds L" ""
40		-. ds R" ""
41		-. ds C` ""
42		-. ds C' ""
43		-'br\}
44		-.el\{\
45		-. ds -- \\|\(em\\|
46		-. ds PI \(*p
47		-. ds L" ``
48		-. ds R" ''
49		-'br\}
50		-.\"
51		-.\" If the F register is turned on, we'll generate index entries on stderr for
52		-.\" titles (.TH), headers (.SH), subsections (.Sh), items (.Ip), and index
53		-.\" entries marked with X<> in POD. Of course, you'll have to process the
54		-.\" output yourself in some meaningful fashion.
55		-.if \nF \{\
56		-. de IX
57		-. tm Index:\\$1\t\\n%\t"\\$2"
58		-..
59		-. nr % 0
60		-. rr F
61		-.\}
62		-.\"
63		-.\" For nroff, turn off justification. Always turn off hyphenation; it makes
64		-.\" way too many mistakes in technical documents.
65		-.hy 0
66		-.if n .na
67		-.\"
68		-.\" Accent mark definitions (@(#)ms.acc 1.5 88/02/08 SMI; from UCB 4.2).
69		-.\" Fear. Run. Save yourself. No user-serviceable parts.
70		-. \" fudge factors for nroff and troff
71		-.if n \{\
72		-. ds #H 0
73		-. ds #V .8m
74		-. ds #F .3m
75		-. ds #[ \f1
76		-. ds #] \fP
77		-.\}
78		-.if t \{\
79		-. ds #H ((1u-(\\\\n(.fu%2u))*.13m)
80		-. ds #V .6m
81		-. ds #F 0
82		-. ds #[ \&
83		-. ds #] \&
84		-.\}
85		-. \" simple accents for nroff and troff
86		-.if n \{\
87		-. ds ' \&
88		-. ds ` \&
89		-. ds ^ \&
90		-. ds , \&
91		-. ds ~ ~
92		-. ds /
93		-.\}
94		-.if t \{\
95		-. ds ' \\k:\h'-(\\n(.wu8/10-\(#H)'\'\h"\|\\n:u"
96		-. ds ` \\k:\h'-(\\n(.wu8/10-\(#H)'\`\h'\|\\n:u'
97		-. ds ^ \\k:\h'-(\\n(.wu10/11-\(#H)'^\h'\|\\n:u'
98		-. ds , \\k:\h'-(\\n(.wu*8/10)',\h'\|\\n:u'
99		-. ds ~ \\k:\h'-(\\n(.wu-\*(#H-.1m)'~\h'\|\\n:u'
100		-. ds / \\k:\h'-(\\n(.wu8/10-\(#H)'\z\(sl\h'\|\\n:u'
101		-.\}
102		-. \" troff and (daisy-wheel) nroff accents
103		-.ds : \\k:\h'-(\\n(.wu8/10-\(#H+.1m+\(#F)'\v'-\(#V'\z.\h'.2m+\(#F'.\h'\|\\n:u'\v'\(#V'
104		-.ds 8 \h'\(#H'\(b\h'-\*(#H'
105		-.ds o \\k:\h'-(\\n(.wu+\w'\(de'u-\(#H)/2u'\v'-.3n'\(#[\z\(de\v'.3n'\h'\|\\n:u'\*(#]
106		-.ds d- \h'\(#H'\(pd\h'-\w'~'u'\v'-.25m'\f2\(hy\fP\v'.25m'\h'-\(#H'
107		-.ds D- D\\k:\h'-\w'D'u'\v'-.11m'\z\(hy\v'.11m'\h'\|\\n:u'
108		-.ds th \(#[\v'.3m'\s+1I\s-1\v'-.3m'\h'-(\w'I'u2/3)'\s-1o\s+1\*(#]
109		-.ds Th \(#[\s+2I\s-2\h'-\w'I'u3/5'\v'-.3m'o\v'.3m'\*(#]
110		-.ds ae a\h'-(\w'a'u*4/10)'e
111		-.ds Ae A\h'-(\w'A'u*4/10)'E
112		-. \" corrections for vroff
113		-.if v .ds ~ \\k:\h'-(\\n(.wu9/10-\(#H)'\s-2\u~\d\s+2\h'\|\\n:u'
114		-.if v .ds ^ \\k:\h'-(\\n(.wu10/11-\(#H)'\v'-.4m'^\v'.4m'\h'\|\\n:u'
115		-. \" for low resolution devices (crt and lpr)
116		-.if \n(.H>23 .if \n(.V>19 \
117		-\{\
118		-. ds : e
119		-. ds 8 ss
120		-. ds o a
121		-. ds d- d\h'-1'\(ga
122		-. ds D- D\h'-1'\(hy
123		-. ds th \o'bp'
124		-. ds Th \o'LP'
125		-. ds ae ae
126		-. ds Ae AE
127		-.\}
128		-.rm #[ #] #H #V #F C
129		-.\" ========================================================================
130		-.\"
131		-.IX Title "DBIx::Custom::Order 3"
132		-.TH DBIx::Custom::Order 3 "2011-08-02" "perl v5.8.8" "User Contributed Perl Documentation"
133		-.SH "NAME"
134		-DBIx::Custom::Order \- Order by EXPERIMENTAL
135		-.SH "SYNOPSIS"
136		-.IX Header "SYNOPSIS"
137		-.Vb 4
138		-\& # Result
139		-\& my $order = DBIx::Custom::Order->new;
140		-\& $order->prepend('title', 'author desc');
141		-\& my $order_by = "$order";
142		-.Ve
143		-.SH "ATTRIBUTES"
144		-.IX Header "ATTRIBUTES"
145		-.ie n .Sh """dbi"""
146		-.el .Sh "\f(CWdbi\fP"
147		-.IX Subsection "dbi"
148		-.Vb 2
149		-\& my $dbi = $order->dbi;
150		-\& $order = $order->dbi($dbi);
151		-.Ve
152		-.PP
153		-DBIx::Custom object.
154		-.ie n .Sh """orders"""
155		-.el .Sh "\f(CWorders\fP"
156		-.IX Subsection "orders"
157		-.Vb 2
158		-\& my $orders = $result->orders;
159		-\& $result = $result->orders(\e%orders);
160		-.Ve
161		-.PP
162		-Parts of order by clause
163		-.SH "METHODS"
164		-.IX Header "METHODS"
165		-DBIx::Custom::Result inherits all methods from Object::Simple
166		-and implements the following new ones.
167		-.ie n .Sh """prepend"""
168		-.el .Sh "\f(CWprepend\fP"
169		-.IX Subsection "prepend"
170		-.Vb 1
171		-\& $order->prepend('title', 'author desc');
172		-.Ve
173		-.PP
174		-Prepend order parts to \f(CW\(C`orders\(C'\fR.
175		-.PP
176		-You can pass array reference, which contain column name and direction.
177		-Column name is quoted properly
178		-.PP
179		-.Vb 3
180		-\& # Column name and direction
181		-\& $order->prepend(['book-title']);
182		-\& $order->prepend([qw/book-title desc/]);
183		-.Ve
184		-.PP
185		-This is expanded to the following way.
186		-.PP
187		-.Vb 2
188		-\& "book-title"
189		-\& "book-title" desc
190		-.Ve
191		-.ie n .Sh """to_string"""
192		-.el .Sh "\f(CWto_string\fP"
193		-.IX Subsection "to_string"
194		-.Vb 1
195		-\& my $order_by = $order->to_string;
196		-.Ve
197		-.PP
198		-Create order by clause. If column name is duplicated, First one is used.
199		-\&\f(CW\(C`to_string\(C'\fR override stringification. so you can write the follwoing way.
200		-.PP
201		-.Vb 1
202		-\& my $order_by = "$order";
203		-.Ve

-174

DBIx-Custom-0.1711/blib/man3/DBIx::Custom::Query.3pm

View

...	...	@@ -1,174 +0,0 @@
1		-.\" Automatically generated by Pod::Man v1.37, Pod::Parser v1.32
2		-.\"
3		-.\" Standard preamble:
4		-.\" ========================================================================
5		-.de Sh \" Subsection heading
6		-.br
7		-.if t .Sp
8		-.ne 5
9		-.PP
10		-\fB\\$1\fR
11		-.PP
12		-..
13		-.de Sp \" Vertical space (when we can't use .PP)
14		-.if t .sp .5v
15		-.if n .sp
16		-..
17		-.de Vb \" Begin verbatim text
18		-.ft CW
19		-.nf
20		-.ne \\$1
21		-..
22		-.de Ve \" End verbatim text
23		-.ft R
24		-.fi
25		-..
26		-.\" Set up some character translations and predefined strings. \*(-- will
27		-.\" give an unbreakable dash, \(PI will give pi, \(L" will give a left
28		-.\" double quote, and \*(R" will give a right double quote. \| will give a
29		-.\" real vertical bar. \*(C+ will give a nicer C++. Capital omega is used to
30		-.\" do unbreakable dashes and therefore won't be available. \(C` and \(C'
31		-.\" expand to `' in nroff, nothing in troff, for use with C<>.
32		-.tr \(W-\|\(bv\(Tr
33		-.ds C+ C\v'-.1v'\h'-1p'\s-2+\h'-1p'+\s0\v'.1v'\h'-1p'
34		-.ie n \{\
35		-. ds -- \(*W-
36		-. ds PI pi
37		-. if (\n(.H=4u)&(1m=24u) .ds -- \(W\h'-12u'\(W\h'-12u'-\" diablo 10 pitch
38		-. if (\n(.H=4u)&(1m=20u) .ds -- \(W\h'-12u'\(W\h'-8u'-\" diablo 12 pitch
39		-. ds L" ""
40		-. ds R" ""
41		-. ds C` ""
42		-. ds C' ""
43		-'br\}
44		-.el\{\
45		-. ds -- \\|\(em\\|
46		-. ds PI \(*p
47		-. ds L" ``
48		-. ds R" ''
49		-'br\}
50		-.\"
51		-.\" If the F register is turned on, we'll generate index entries on stderr for
52		-.\" titles (.TH), headers (.SH), subsections (.Sh), items (.Ip), and index
53		-.\" entries marked with X<> in POD. Of course, you'll have to process the
54		-.\" output yourself in some meaningful fashion.
55		-.if \nF \{\
56		-. de IX
57		-. tm Index:\\$1\t\\n%\t"\\$2"
58		-..
59		-. nr % 0
60		-. rr F
61		-.\}
62		-.\"
63		-.\" For nroff, turn off justification. Always turn off hyphenation; it makes
64		-.\" way too many mistakes in technical documents.
65		-.hy 0
66		-.if n .na
67		-.\"
68		-.\" Accent mark definitions (@(#)ms.acc 1.5 88/02/08 SMI; from UCB 4.2).
69		-.\" Fear. Run. Save yourself. No user-serviceable parts.
70		-. \" fudge factors for nroff and troff
71		-.if n \{\
72		-. ds #H 0
73		-. ds #V .8m
74		-. ds #F .3m
75		-. ds #[ \f1
76		-. ds #] \fP
77		-.\}
78		-.if t \{\
79		-. ds #H ((1u-(\\\\n(.fu%2u))*.13m)
80		-. ds #V .6m
81		-. ds #F 0
82		-. ds #[ \&
83		-. ds #] \&
84		-.\}
85		-. \" simple accents for nroff and troff
86		-.if n \{\
87		-. ds ' \&
88		-. ds ` \&
89		-. ds ^ \&
90		-. ds , \&
91		-. ds ~ ~
92		-. ds /
93		-.\}
94		-.if t \{\
95		-. ds ' \\k:\h'-(\\n(.wu8/10-\(#H)'\'\h"\|\\n:u"
96		-. ds ` \\k:\h'-(\\n(.wu8/10-\(#H)'\`\h'\|\\n:u'
97		-. ds ^ \\k:\h'-(\\n(.wu10/11-\(#H)'^\h'\|\\n:u'
98		-. ds , \\k:\h'-(\\n(.wu*8/10)',\h'\|\\n:u'
99		-. ds ~ \\k:\h'-(\\n(.wu-\*(#H-.1m)'~\h'\|\\n:u'
100		-. ds / \\k:\h'-(\\n(.wu8/10-\(#H)'\z\(sl\h'\|\\n:u'
101		-.\}
102		-. \" troff and (daisy-wheel) nroff accents
103		-.ds : \\k:\h'-(\\n(.wu8/10-\(#H+.1m+\(#F)'\v'-\(#V'\z.\h'.2m+\(#F'.\h'\|\\n:u'\v'\(#V'
104		-.ds 8 \h'\(#H'\(b\h'-\*(#H'
105		-.ds o \\k:\h'-(\\n(.wu+\w'\(de'u-\(#H)/2u'\v'-.3n'\(#[\z\(de\v'.3n'\h'\|\\n:u'\*(#]
106		-.ds d- \h'\(#H'\(pd\h'-\w'~'u'\v'-.25m'\f2\(hy\fP\v'.25m'\h'-\(#H'
107		-.ds D- D\\k:\h'-\w'D'u'\v'-.11m'\z\(hy\v'.11m'\h'\|\\n:u'
108		-.ds th \(#[\v'.3m'\s+1I\s-1\v'-.3m'\h'-(\w'I'u2/3)'\s-1o\s+1\*(#]
109		-.ds Th \(#[\s+2I\s-2\h'-\w'I'u3/5'\v'-.3m'o\v'.3m'\*(#]
110		-.ds ae a\h'-(\w'a'u*4/10)'e
111		-.ds Ae A\h'-(\w'A'u*4/10)'E
112		-. \" corrections for vroff
113		-.if v .ds ~ \\k:\h'-(\\n(.wu9/10-\(#H)'\s-2\u~\d\s+2\h'\|\\n:u'
114		-.if v .ds ^ \\k:\h'-(\\n(.wu10/11-\(#H)'\v'-.4m'^\v'.4m'\h'\|\\n:u'
115		-. \" for low resolution devices (crt and lpr)
116		-.if \n(.H>23 .if \n(.V>19 \
117		-\{\
118		-. ds : e
119		-. ds 8 ss
120		-. ds o a
121		-. ds d- d\h'-1'\(ga
122		-. ds D- D\h'-1'\(hy
123		-. ds th \o'bp'
124		-. ds Th \o'LP'
125		-. ds ae ae
126		-. ds Ae AE
127		-.\}
128		-.rm #[ #] #H #V #F C
129		-.\" ========================================================================
130		-.\"
131		-.IX Title "DBIx::Custom::Query 3"
132		-.TH DBIx::Custom::Query 3 "2011-07-30" "perl v5.8.8" "User Contributed Perl Documentation"
133		-.SH "NAME"
134		-DBIx::Custom::Query \- Query
135		-.SH "SYNOPSIS"
136		-.IX Header "SYNOPSIS"
137		-.Vb 4
138		-\& my $query = DBIx::Custom::Query->new;
139		-\& my $sth = $query->sth;
140		-\& my $sql = $query->sql;
141		-\& my $columns = $query->columns;
142		-.Ve
143		-.SH "ATTRIBUTES"
144		-.IX Header "ATTRIBUTES"
145		-.ie n .Sh """columns"""
146		-.el .Sh "\f(CWcolumns\fP"
147		-.IX Subsection "columns"
148		-.Vb 2
149		-\& my $columns = $query->columns;
150		-\& $query = $query->columns(['auhtor', 'title']);
151		-.Ve
152		-.PP
153		-Column names.
154		-.ie n .Sh """sql"""
155		-.el .Sh "\f(CWsql\fP"
156		-.IX Subsection "sql"
157		-.Vb 2
158		-\& my $sql = $query->sql;
159		-\& $query = $query->sql('select * from books where author = ?;');
160		-.Ve
161		-.PP
162		-\&\s-1SQL\s0 statement.
163		-.ie n .Sh """sth"""
164		-.el .Sh "\f(CWsth\fP"
165		-.IX Subsection "sth"
166		-.Vb 2
167		-\& my $sth = $query->sth;
168		-\& $query = $query->sth($sth);
169		-.Ve
170		-.PP
171		-Statement handle of \s-1DBI\s0
172		-.SH "METHODS"
173		-.IX Header "METHODS"
174		-DBIx::Custom::Query inherits all methods from Object::Simple.

-165

DBIx-Custom-0.1711/blib/man3/DBIx::Custom::QueryBuilder.3pm

View

...	...	@@ -1,165 +0,0 @@
1		-.\" Automatically generated by Pod::Man v1.37, Pod::Parser v1.32
2		-.\"
3		-.\" Standard preamble:
4		-.\" ========================================================================
5		-.de Sh \" Subsection heading
6		-.br
7		-.if t .Sp
8		-.ne 5
9		-.PP
10		-\fB\\$1\fR
11		-.PP
12		-..
13		-.de Sp \" Vertical space (when we can't use .PP)
14		-.if t .sp .5v
15		-.if n .sp
16		-..
17		-.de Vb \" Begin verbatim text
18		-.ft CW
19		-.nf
20		-.ne \\$1
21		-..
22		-.de Ve \" End verbatim text
23		-.ft R
24		-.fi
25		-..
26		-.\" Set up some character translations and predefined strings. \*(-- will
27		-.\" give an unbreakable dash, \(PI will give pi, \(L" will give a left
28		-.\" double quote, and \*(R" will give a right double quote. \| will give a
29		-.\" real vertical bar. \*(C+ will give a nicer C++. Capital omega is used to
30		-.\" do unbreakable dashes and therefore won't be available. \(C` and \(C'
31		-.\" expand to `' in nroff, nothing in troff, for use with C<>.
32		-.tr \(W-\|\(bv\(Tr
33		-.ds C+ C\v'-.1v'\h'-1p'\s-2+\h'-1p'+\s0\v'.1v'\h'-1p'
34		-.ie n \{\
35		-. ds -- \(*W-
36		-. ds PI pi
37		-. if (\n(.H=4u)&(1m=24u) .ds -- \(W\h'-12u'\(W\h'-12u'-\" diablo 10 pitch
38		-. if (\n(.H=4u)&(1m=20u) .ds -- \(W\h'-12u'\(W\h'-8u'-\" diablo 12 pitch
39		-. ds L" ""
40		-. ds R" ""
41		-. ds C` ""
42		-. ds C' ""
43		-'br\}
44		-.el\{\
45		-. ds -- \\|\(em\\|
46		-. ds PI \(*p
47		-. ds L" ``
48		-. ds R" ''
49		-'br\}
50		-.\"
51		-.\" If the F register is turned on, we'll generate index entries on stderr for
52		-.\" titles (.TH), headers (.SH), subsections (.Sh), items (.Ip), and index
53		-.\" entries marked with X<> in POD. Of course, you'll have to process the
54		-.\" output yourself in some meaningful fashion.
55		-.if \nF \{\
56		-. de IX
57		-. tm Index:\\$1\t\\n%\t"\\$2"
58		-..
59		-. nr % 0
60		-. rr F
61		-.\}
62		-.\"
63		-.\" For nroff, turn off justification. Always turn off hyphenation; it makes
64		-.\" way too many mistakes in technical documents.
65		-.hy 0
66		-.if n .na
67		-.\"
68		-.\" Accent mark definitions (@(#)ms.acc 1.5 88/02/08 SMI; from UCB 4.2).
69		-.\" Fear. Run. Save yourself. No user-serviceable parts.
70		-. \" fudge factors for nroff and troff
71		-.if n \{\
72		-. ds #H 0
73		-. ds #V .8m
74		-. ds #F .3m
75		-. ds #[ \f1
76		-. ds #] \fP
77		-.\}
78		-.if t \{\
79		-. ds #H ((1u-(\\\\n(.fu%2u))*.13m)
80		-. ds #V .6m
81		-. ds #F 0
82		-. ds #[ \&
83		-. ds #] \&
84		-.\}
85		-. \" simple accents for nroff and troff
86		-.if n \{\
87		-. ds ' \&
88		-. ds ` \&
89		-. ds ^ \&
90		-. ds , \&
91		-. ds ~ ~
92		-. ds /
93		-.\}
94		-.if t \{\
95		-. ds ' \\k:\h'-(\\n(.wu8/10-\(#H)'\'\h"\|\\n:u"
96		-. ds ` \\k:\h'-(\\n(.wu8/10-\(#H)'\`\h'\|\\n:u'
97		-. ds ^ \\k:\h'-(\\n(.wu10/11-\(#H)'^\h'\|\\n:u'
98		-. ds , \\k:\h'-(\\n(.wu*8/10)',\h'\|\\n:u'
99		-. ds ~ \\k:\h'-(\\n(.wu-\*(#H-.1m)'~\h'\|\\n:u'
100		-. ds / \\k:\h'-(\\n(.wu8/10-\(#H)'\z\(sl\h'\|\\n:u'
101		-.\}
102		-. \" troff and (daisy-wheel) nroff accents
103		-.ds : \\k:\h'-(\\n(.wu8/10-\(#H+.1m+\(#F)'\v'-\(#V'\z.\h'.2m+\(#F'.\h'\|\\n:u'\v'\(#V'
104		-.ds 8 \h'\(#H'\(b\h'-\*(#H'
105		-.ds o \\k:\h'-(\\n(.wu+\w'\(de'u-\(#H)/2u'\v'-.3n'\(#[\z\(de\v'.3n'\h'\|\\n:u'\*(#]
106		-.ds d- \h'\(#H'\(pd\h'-\w'~'u'\v'-.25m'\f2\(hy\fP\v'.25m'\h'-\(#H'
107		-.ds D- D\\k:\h'-\w'D'u'\v'-.11m'\z\(hy\v'.11m'\h'\|\\n:u'
108		-.ds th \(#[\v'.3m'\s+1I\s-1\v'-.3m'\h'-(\w'I'u2/3)'\s-1o\s+1\*(#]
109		-.ds Th \(#[\s+2I\s-2\h'-\w'I'u3/5'\v'-.3m'o\v'.3m'\*(#]
110		-.ds ae a\h'-(\w'a'u*4/10)'e
111		-.ds Ae A\h'-(\w'A'u*4/10)'E
112		-. \" corrections for vroff
113		-.if v .ds ~ \\k:\h'-(\\n(.wu9/10-\(#H)'\s-2\u~\d\s+2\h'\|\\n:u'
114		-.if v .ds ^ \\k:\h'-(\\n(.wu10/11-\(#H)'\v'-.4m'^\v'.4m'\h'\|\\n:u'
115		-. \" for low resolution devices (crt and lpr)
116		-.if \n(.H>23 .if \n(.V>19 \
117		-\{\
118		-. ds : e
119		-. ds 8 ss
120		-. ds o a
121		-. ds d- d\h'-1'\(ga
122		-. ds D- D\h'-1'\(hy
123		-. ds th \o'bp'
124		-. ds Th \o'LP'
125		-. ds ae ae
126		-. ds Ae AE
127		-.\}
128		-.rm #[ #] #H #V #F C
129		-.\" ========================================================================
130		-.\"
131		-.IX Title "DBIx::Custom::QueryBuilder 3"
132		-.TH DBIx::Custom::QueryBuilder 3 "2011-08-02" "perl v5.8.8" "User Contributed Perl Documentation"
133		-.SH "NAME"
134		-DBIx::Custom::QueryBuilder \- Query builder
135		-.SH "SYNOPSIS"
136		-.IX Header "SYNOPSIS"
137		-.Vb 4
138		-\& my $builder = DBIx::Custom::QueryBuilder->new;
139		-\& my $query = $builder->build_query(
140		-\& "select from table title = :title and author = :author"
141		-\& );
142		-.Ve
143		-.SH "ATTRIBUTES"
144		-.IX Header "ATTRIBUTES"
145		-.ie n .Sh """dbi"""
146		-.el .Sh "\f(CWdbi\fP"
147		-.IX Subsection "dbi"
148		-.Vb 2
149		-\& my $dbi = $builder->dbi;
150		-\& $builder = $builder->dbi($dbi);
151		-.Ve
152		-.PP
153		-DBIx::Custom object.
154		-.SH "METHODS"
155		-.IX Header "METHODS"
156		-DBIx::Custom::QueryBuilder inherits all methods from Object::Simple
157		-and implements the following new ones.
158		-.ie n .Sh """build_query"""
159		-.el .Sh "\f(CWbuild_query\fP"
160		-.IX Subsection "build_query"
161		-.Vb 1
162		-\& my $query = $builder->build_query($source);
163		-.Ve
164		-.PP
165		-Create a new DBIx::Custom::Query object from \s-1SQL\s0 source.

-409

DBIx-Custom-0.1711/blib/man3/DBIx::Custom::Result.3pm

View

...	...	@@ -1,409 +0,0 @@
1		-.\" Automatically generated by Pod::Man v1.37, Pod::Parser v1.32
2		-.\"
3		-.\" Standard preamble:
4		-.\" ========================================================================
5		-.de Sh \" Subsection heading
6		-.br
7		-.if t .Sp
8		-.ne 5
9		-.PP
10		-\fB\\$1\fR
11		-.PP
12		-..
13		-.de Sp \" Vertical space (when we can't use .PP)
14		-.if t .sp .5v
15		-.if n .sp
16		-..
17		-.de Vb \" Begin verbatim text
18		-.ft CW
19		-.nf
20		-.ne \\$1
21		-..
22		-.de Ve \" End verbatim text
23		-.ft R
24		-.fi
25		-..
26		-.\" Set up some character translations and predefined strings. \*(-- will
27		-.\" give an unbreakable dash, \(PI will give pi, \(L" will give a left
28		-.\" double quote, and \*(R" will give a right double quote. \| will give a
29		-.\" real vertical bar. \*(C+ will give a nicer C++. Capital omega is used to
30		-.\" do unbreakable dashes and therefore won't be available. \(C` and \(C'
31		-.\" expand to `' in nroff, nothing in troff, for use with C<>.
32		-.tr \(W-\|\(bv\(Tr
33		-.ds C+ C\v'-.1v'\h'-1p'\s-2+\h'-1p'+\s0\v'.1v'\h'-1p'
34		-.ie n \{\
35		-. ds -- \(*W-
36		-. ds PI pi
37		-. if (\n(.H=4u)&(1m=24u) .ds -- \(W\h'-12u'\(W\h'-12u'-\" diablo 10 pitch
38		-. if (\n(.H=4u)&(1m=20u) .ds -- \(W\h'-12u'\(W\h'-8u'-\" diablo 12 pitch
39		-. ds L" ""
40		-. ds R" ""
41		-. ds C` ""
42		-. ds C' ""
43		-'br\}
44		-.el\{\
45		-. ds -- \\|\(em\\|
46		-. ds PI \(*p
47		-. ds L" ``
48		-. ds R" ''
49		-'br\}
50		-.\"
51		-.\" If the F register is turned on, we'll generate index entries on stderr for
52		-.\" titles (.TH), headers (.SH), subsections (.Sh), items (.Ip), and index
53		-.\" entries marked with X<> in POD. Of course, you'll have to process the
54		-.\" output yourself in some meaningful fashion.
55		-.if \nF \{\
56		-. de IX
57		-. tm Index:\\$1\t\\n%\t"\\$2"
58		-..
59		-. nr % 0
60		-. rr F
61		-.\}
62		-.\"
63		-.\" For nroff, turn off justification. Always turn off hyphenation; it makes
64		-.\" way too many mistakes in technical documents.
65		-.hy 0
66		-.if n .na
67		-.\"
68		-.\" Accent mark definitions (@(#)ms.acc 1.5 88/02/08 SMI; from UCB 4.2).
69		-.\" Fear. Run. Save yourself. No user-serviceable parts.
70		-. \" fudge factors for nroff and troff
71		-.if n \{\
72		-. ds #H 0
73		-. ds #V .8m
74		-. ds #F .3m
75		-. ds #[ \f1
76		-. ds #] \fP
77		-.\}
78		-.if t \{\
79		-. ds #H ((1u-(\\\\n(.fu%2u))*.13m)
80		-. ds #V .6m
81		-. ds #F 0
82		-. ds #[ \&
83		-. ds #] \&
84		-.\}
85		-. \" simple accents for nroff and troff
86		-.if n \{\
87		-. ds ' \&
88		-. ds ` \&
89		-. ds ^ \&
90		-. ds , \&
91		-. ds ~ ~
92		-. ds /
93		-.\}
94		-.if t \{\
95		-. ds ' \\k:\h'-(\\n(.wu8/10-\(#H)'\'\h"\|\\n:u"
96		-. ds ` \\k:\h'-(\\n(.wu8/10-\(#H)'\`\h'\|\\n:u'
97		-. ds ^ \\k:\h'-(\\n(.wu10/11-\(#H)'^\h'\|\\n:u'
98		-. ds , \\k:\h'-(\\n(.wu*8/10)',\h'\|\\n:u'
99		-. ds ~ \\k:\h'-(\\n(.wu-\*(#H-.1m)'~\h'\|\\n:u'
100		-. ds / \\k:\h'-(\\n(.wu8/10-\(#H)'\z\(sl\h'\|\\n:u'
101		-.\}
102		-. \" troff and (daisy-wheel) nroff accents
103		-.ds : \\k:\h'-(\\n(.wu8/10-\(#H+.1m+\(#F)'\v'-\(#V'\z.\h'.2m+\(#F'.\h'\|\\n:u'\v'\(#V'
104		-.ds 8 \h'\(#H'\(b\h'-\*(#H'
105		-.ds o \\k:\h'-(\\n(.wu+\w'\(de'u-\(#H)/2u'\v'-.3n'\(#[\z\(de\v'.3n'\h'\|\\n:u'\*(#]
106		-.ds d- \h'\(#H'\(pd\h'-\w'~'u'\v'-.25m'\f2\(hy\fP\v'.25m'\h'-\(#H'
107		-.ds D- D\\k:\h'-\w'D'u'\v'-.11m'\z\(hy\v'.11m'\h'\|\\n:u'
108		-.ds th \(#[\v'.3m'\s+1I\s-1\v'-.3m'\h'-(\w'I'u2/3)'\s-1o\s+1\*(#]
109		-.ds Th \(#[\s+2I\s-2\h'-\w'I'u3/5'\v'-.3m'o\v'.3m'\*(#]
110		-.ds ae a\h'-(\w'a'u*4/10)'e
111		-.ds Ae A\h'-(\w'A'u*4/10)'E
112		-. \" corrections for vroff
113		-.if v .ds ~ \\k:\h'-(\\n(.wu9/10-\(#H)'\s-2\u~\d\s+2\h'\|\\n:u'
114		-.if v .ds ^ \\k:\h'-(\\n(.wu10/11-\(#H)'\v'-.4m'^\v'.4m'\h'\|\\n:u'
115		-. \" for low resolution devices (crt and lpr)
116		-.if \n(.H>23 .if \n(.V>19 \
117		-\{\
118		-. ds : e
119		-. ds 8 ss
120		-. ds o a
121		-. ds d- d\h'-1'\(ga
122		-. ds D- D\h'-1'\(hy
123		-. ds th \o'bp'
124		-. ds Th \o'LP'
125		-. ds ae ae
126		-. ds Ae AE
127		-.\}
128		-.rm #[ #] #H #V #F C
129		-.\" ========================================================================
130		-.\"
131		-.IX Title "DBIx::Custom::Result 3"
132		-.TH DBIx::Custom::Result 3 "2011-08-02" "perl v5.8.8" "User Contributed Perl Documentation"
133		-.SH "NAME"
134		-DBIx::Custom::Result \- Result of select statement
135		-.SH "SYNOPSIS"
136		-.IX Header "SYNOPSIS"
137		-.Vb 2
138		-\& # Result
139		-\& my $result = $dbi->select(table => 'book');
140		-.Ve
141		-.PP
142		-.Vb 5
143		-\& # Fetch a row and put it into array reference
144		-\& while (my $row = $result->fetch) {
145		-\& my $author = $row->[0];
146		-\& my $title = $row->[1];
147		-\& }
148		-.Ve
149		-.PP
150		-.Vb 2
151		-\& # Fetch only a first row and put it into array reference
152		-\& my $row = $result->fetch_first;
153		-.Ve
154		-.PP
155		-.Vb 2
156		-\& # Fetch all rows and put them into array of array reference
157		-\& my $rows = $result->fetch_all;
158		-.Ve
159		-.PP
160		-.Vb 5
161		-\& # Fetch a row and put it into hash reference
162		-\& while (my $row = $result->fetch_hash) {
163		-\& my $title = $row->{title};
164		-\& my $author = $row->{author};
165		-\& }
166		-.Ve
167		-.PP
168		-.Vb 3
169		-\& # Fetch only a first row and put it into hash reference
170		-\& my $row = $result->fetch_hash_first;
171		-\& my $row = $result->one; # Same as fetch_hash_first
172		-.Ve
173		-.PP
174		-.Vb 3
175		-\& # Fetch all rows and put them into array of hash reference
176		-\& my $rows = $result->fetch_hash_all;
177		-\& my $rows = $result->all; # Same as fetch_hash_all
178		-.Ve
179		-.SH "ATTRIBUTES"
180		-.IX Header "ATTRIBUTES"
181		-.ie n .Sh """dbi"""
182		-.el .Sh "\f(CWdbi\fP"
183		-.IX Subsection "dbi"
184		-.Vb 2
185		-\& my $dbi = $result->dbi;
186		-\& $result = $result->dbi($dbi);
187		-.Ve
188		-.PP
189		-DBIx::Custom object.
190		-.ie n .Sh """sth"""
191		-.el .Sh "\f(CWsth\fP"
192		-.IX Subsection "sth"
193		-.Vb 2
194		-\& my $sth = $reuslt->sth
195		-\& $result = $result->sth($sth);
196		-.Ve
197		-.PP
198		-Statement handle of \s-1DBI\s0.
199		-.SH "METHODS"
200		-.IX Header "METHODS"
201		-DBIx::Custom::Result inherits all methods from Object::Simple
202		-and implements the following new ones.
203		-.ie n .Sh """all"""
204		-.el .Sh "\f(CWall\fP"
205		-.IX Subsection "all"
206		-.Vb 1
207		-\& my $rows = $result->all;
208		-.Ve
209		-.PP
210		-Same as \f(CW\(C`fetch_hash_all\(C'\fR.
211		-.ie n .Sh """fetch"""
212		-.el .Sh "\f(CWfetch\fP"
213		-.IX Subsection "fetch"
214		-.Vb 1
215		-\& my $row = $result->fetch;
216		-.Ve
217		-.PP
218		-Fetch a row and put it into array reference.
219		-.ie n .Sh """fetch_all"""
220		-.el .Sh "\f(CWfetch_all\fP"
221		-.IX Subsection "fetch_all"
222		-.Vb 1
223		-\& my $rows = $result->fetch_all;
224		-.Ve
225		-.PP
226		-Fetch all rows and put them into array of array reference.
227		-.ie n .Sh """fetch_first"""
228		-.el .Sh "\f(CWfetch_first\fP"
229		-.IX Subsection "fetch_first"
230		-.Vb 1
231		-\& my $row = $result->fetch_first;
232		-.Ve
233		-.PP
234		-Fetch only a first row and put it into array reference,
235		-and finish statment handle.
236		-.ie n .Sh """fetch_hash"""
237		-.el .Sh "\f(CWfetch_hash\fP"
238		-.IX Subsection "fetch_hash"
239		-.Vb 1
240		-\& my $row = $result->fetch_hash;
241		-.Ve
242		-.PP
243		-Fetch a row and put it into hash reference.
244		-.ie n .Sh """fetch_hash_all"""
245		-.el .Sh "\f(CWfetch_hash_all\fP"
246		-.IX Subsection "fetch_hash_all"
247		-.Vb 1
248		-\& my $rows = $result->fetch_hash_all;
249		-.Ve
250		-.PP
251		-Fetch all rows and put them into array of hash reference.
252		-.ie n .Sh """fetch_hash_first"""
253		-.el .Sh "\f(CWfetch_hash_first\fP"
254		-.IX Subsection "fetch_hash_first"
255		-.Vb 1
256		-\& my $row = $result->fetch_hash_first;
257		-.Ve
258		-.PP
259		-Fetch only a first row and put it into hash reference,
260		-and finish statment handle.
261		-.ie n .Sh """fetch_hash_multi"""
262		-.el .Sh "\f(CWfetch_hash_multi\fP"
263		-.IX Subsection "fetch_hash_multi"
264		-.Vb 1
265		-\& my $rows = $result->fetch_hash_multi(5);
266		-.Ve
267		-.PP
268		-Fetch multiple rows and put them into array of hash reference.
269		-.ie n .Sh """fetch_multi"""
270		-.el .Sh "\f(CWfetch_multi\fP"
271		-.IX Subsection "fetch_multi"
272		-.Vb 1
273		-\& my $rows = $result->fetch_multi(5);
274		-.Ve
275		-.PP
276		-Fetch multiple rows and put them into array of array reference.
277		-.ie n .Sh """filter"""
278		-.el .Sh "\f(CWfilter\fP"
279		-.IX Subsection "filter"
280		-.Vb 2
281		-\& $result->filter(title => sub { uc $_[0] }, author => 'to_upper');
282		-\& $result->filter([qw/title author/] => 'to_upper');
283		-.Ve
284		-.PP
285		-Set filter for column.
286		-You can use subroutine or filter name as filter.
287		-This filter is executed after \f(CW\(C`type_rule\(C'\fR filter.
288		-.ie n .Sh """filter_off"" \s-1EXPERIMENTAL\s0"
289		-.el .Sh "\f(CWfilter_off\fP \s-1EXPERIMENTAL\s0"
290		-.IX Subsection "filter_off EXPERIMENTAL"
291		-.Vb 1
292		-\& $result = $result->filter_off;
293		-.Ve
294		-.PP
295		-Turn filtering by \f(CW\(C`filter\(C'\fR method off.
296		-By default, filterin is on.
297		-.ie n .Sh """filter_on"" \s-1EXPERIMENTAL\s0"
298		-.el .Sh "\f(CWfilter_on\fP \s-1EXPERIMENTAL\s0"
299		-.IX Subsection "filter_on EXPERIMENTAL"
300		-.Vb 1
301		-\& $result = $resutl->filter_on;
302		-.Ve
303		-.PP
304		-Turn filtering by \f(CW\(C`filter\(C'\fR method on.
305		-By default, filterin is on.
306		-.ie n .Sh """header"""
307		-.el .Sh "\f(CWheader\fP"
308		-.IX Subsection "header"
309		-.Vb 1
310		-\& my $header = $result->header;
311		-.Ve
312		-.PP
313		-Get header column names.
314		-.ie n .Sh """one"""
315		-.el .Sh "\f(CWone\fP"
316		-.IX Subsection "one"
317		-.Vb 1
318		-\& my $row = $result->one;
319		-.Ve
320		-.PP
321		-Same as \f(CW\(C`fetch_hash_first\(C'\fR.
322		-.ie n .Sh """stash"""
323		-.el .Sh "\f(CWstash\fP"
324		-.IX Subsection "stash"
325		-.Vb 3
326		-\& my $stash = $result->stash;
327		-\& my $foo = $result->stash->{foo};
328		-\& $result->stash->{foo} = $foo;
329		-.Ve
330		-.PP
331		-Stash is hash reference for data.
332		-.ie n .Sh """type_rule"" \s-1EXPERIMENTAL\s0"
333		-.el .Sh "\f(CWtype_rule\fP \s-1EXPERIMENTAL\s0"
334		-.IX Subsection "type_rule EXPERIMENTAL"
335		-.Vb 7
336		-\& # Merge type rule
337		-\& $result->type_rule(
338		-\& # DATE
339		-\& 9 => sub { ... },
340		-\& # DATETIME or TIMESTAMP
341		-\& 11 => sub { ... }
342		-\& );
343		-.Ve
344		-.PP
345		-.Vb 7
346		-\& # Replace type rule(by reference)
347		-\& $result->type_rule([
348		-\& # DATE
349		-\& 9 => sub { ... },
350		-\& # DATETIME or TIMESTAMP
351		-\& 11 => sub { ... }
352		-\& ]);
353		-.Ve
354		-.PP
355		-This is same as DBIx::Custom's \f(CW\(C`type_rule\(C'\fR's <from>.
356		-.ie n .Sh """type_rule_off"" \s-1EXPERIMENTAL\s0"
357		-.el .Sh "\f(CWtype_rule_off\fP \s-1EXPERIMENTAL\s0"
358		-.IX Subsection "type_rule_off EXPERIMENTAL"
359		-.Vb 1
360		-\& $result = $result->type_rule_off;
361		-.Ve
362		-.PP
363		-Turn \f(CW\(C`from1\(C'\fR and \f(CW\(C`from2\(C'\fR type rule off.
364		-By default, type rule is on.
365		-.ie n .Sh """type_rule_on"" \s-1EXPERIMENTAL\s0"
366		-.el .Sh "\f(CWtype_rule_on\fP \s-1EXPERIMENTAL\s0"
367		-.IX Subsection "type_rule_on EXPERIMENTAL"
368		-.Vb 1
369		-\& $result = $result->type_rule_on;
370		-.Ve
371		-.PP
372		-Turn \f(CW\(C`from1\(C'\fR and \f(CW\(C`from2\(C'\fR type rule on.
373		-By default, type rule is on.
374		-.ie n .Sh """type_rule1_off"" \s-1EXPERIMENTAL\s0"
375		-.el .Sh "\f(CWtype_rule1_off\fP \s-1EXPERIMENTAL\s0"
376		-.IX Subsection "type_rule1_off EXPERIMENTAL"
377		-.Vb 1
378		-\& $result = $result->type_rule1_off;
379		-.Ve
380		-.PP
381		-Turn \f(CW\(C`from1\(C'\fR type rule off.
382		-By default, type rule is on.
383		-.ie n .Sh """type_rule1_on"" \s-1EXPERIMENTAL\s0"
384		-.el .Sh "\f(CWtype_rule1_on\fP \s-1EXPERIMENTAL\s0"
385		-.IX Subsection "type_rule1_on EXPERIMENTAL"
386		-.Vb 1
387		-\& $result = $result->type_rule1_on;
388		-.Ve
389		-.PP
390		-Turn \f(CW\(C`from1\(C'\fR type rule on.
391		-By default, type rule is on.
392		-.ie n .Sh """type_rule2_off"" \s-1EXPERIMENTAL\s0"
393		-.el .Sh "\f(CWtype_rule2_off\fP \s-1EXPERIMENTAL\s0"
394		-.IX Subsection "type_rule2_off EXPERIMENTAL"
395		-.Vb 1
396		-\& $result = $result->type_rule2_off;
397		-.Ve
398		-.PP
399		-Turn \f(CW\(C`from2\(C'\fR type rule off.
400		-By default, type rule is on.
401		-.ie n .Sh """type_rule2_on"" \s-1EXPERIMENTAL\s0"
402		-.el .Sh "\f(CWtype_rule2_on\fP \s-1EXPERIMENTAL\s0"
403		-.IX Subsection "type_rule2_on EXPERIMENTAL"
404		-.Vb 1
405		-\& $result = $result->type_rule2_on;
406		-.Ve
407		-.PP
408		-Turn \f(CW\(C`from2\(C'\fR type rule on.
409		-By default, type rule is on.

-134

DBIx-Custom-0.1711/blib/man3/DBIx::Custom::Tag.3pm

View

...	...	@@ -1,134 +0,0 @@
1		-.\" Automatically generated by Pod::Man v1.37, Pod::Parser v1.32
2		-.\"
3		-.\" Standard preamble:
4		-.\" ========================================================================
5		-.de Sh \" Subsection heading
6		-.br
7		-.if t .Sp
8		-.ne 5
9		-.PP
10		-\fB\\$1\fR
11		-.PP
12		-..
13		-.de Sp \" Vertical space (when we can't use .PP)
14		-.if t .sp .5v
15		-.if n .sp
16		-..
17		-.de Vb \" Begin verbatim text
18		-.ft CW
19		-.nf
20		-.ne \\$1
21		-..
22		-.de Ve \" End verbatim text
23		-.ft R
24		-.fi
25		-..
26		-.\" Set up some character translations and predefined strings. \*(-- will
27		-.\" give an unbreakable dash, \(PI will give pi, \(L" will give a left
28		-.\" double quote, and \*(R" will give a right double quote. \| will give a
29		-.\" real vertical bar. \*(C+ will give a nicer C++. Capital omega is used to
30		-.\" do unbreakable dashes and therefore won't be available. \(C` and \(C'
31		-.\" expand to `' in nroff, nothing in troff, for use with C<>.
32		-.tr \(W-\|\(bv\(Tr
33		-.ds C+ C\v'-.1v'\h'-1p'\s-2+\h'-1p'+\s0\v'.1v'\h'-1p'
34		-.ie n \{\
35		-. ds -- \(*W-
36		-. ds PI pi
37		-. if (\n(.H=4u)&(1m=24u) .ds -- \(W\h'-12u'\(W\h'-12u'-\" diablo 10 pitch
38		-. if (\n(.H=4u)&(1m=20u) .ds -- \(W\h'-12u'\(W\h'-8u'-\" diablo 12 pitch
39		-. ds L" ""
40		-. ds R" ""
41		-. ds C` ""
42		-. ds C' ""
43		-'br\}
44		-.el\{\
45		-. ds -- \\|\(em\\|
46		-. ds PI \(*p
47		-. ds L" ``
48		-. ds R" ''
49		-'br\}
50		-.\"
51		-.\" If the F register is turned on, we'll generate index entries on stderr for
52		-.\" titles (.TH), headers (.SH), subsections (.Sh), items (.Ip), and index
53		-.\" entries marked with X<> in POD. Of course, you'll have to process the
54		-.\" output yourself in some meaningful fashion.
55		-.if \nF \{\
56		-. de IX
57		-. tm Index:\\$1\t\\n%\t"\\$2"
58		-..
59		-. nr % 0
60		-. rr F
61		-.\}
62		-.\"
63		-.\" For nroff, turn off justification. Always turn off hyphenation; it makes
64		-.\" way too many mistakes in technical documents.
65		-.hy 0
66		-.if n .na
67		-.\"
68		-.\" Accent mark definitions (@(#)ms.acc 1.5 88/02/08 SMI; from UCB 4.2).
69		-.\" Fear. Run. Save yourself. No user-serviceable parts.
70		-. \" fudge factors for nroff and troff
71		-.if n \{\
72		-. ds #H 0
73		-. ds #V .8m
74		-. ds #F .3m
75		-. ds #[ \f1
76		-. ds #] \fP
77		-.\}
78		-.if t \{\
79		-. ds #H ((1u-(\\\\n(.fu%2u))*.13m)
80		-. ds #V .6m
81		-. ds #F 0
82		-. ds #[ \&
83		-. ds #] \&
84		-.\}
85		-. \" simple accents for nroff and troff
86		-.if n \{\
87		-. ds ' \&
88		-. ds ` \&
89		-. ds ^ \&
90		-. ds , \&
91		-. ds ~ ~
92		-. ds /
93		-.\}
94		-.if t \{\
95		-. ds ' \\k:\h'-(\\n(.wu8/10-\(#H)'\'\h"\|\\n:u"
96		-. ds ` \\k:\h'-(\\n(.wu8/10-\(#H)'\`\h'\|\\n:u'
97		-. ds ^ \\k:\h'-(\\n(.wu10/11-\(#H)'^\h'\|\\n:u'
98		-. ds , \\k:\h'-(\\n(.wu*8/10)',\h'\|\\n:u'
99		-. ds ~ \\k:\h'-(\\n(.wu-\*(#H-.1m)'~\h'\|\\n:u'
100		-. ds / \\k:\h'-(\\n(.wu8/10-\(#H)'\z\(sl\h'\|\\n:u'
101		-.\}
102		-. \" troff and (daisy-wheel) nroff accents
103		-.ds : \\k:\h'-(\\n(.wu8/10-\(#H+.1m+\(#F)'\v'-\(#V'\z.\h'.2m+\(#F'.\h'\|\\n:u'\v'\(#V'
104		-.ds 8 \h'\(#H'\(b\h'-\*(#H'
105		-.ds o \\k:\h'-(\\n(.wu+\w'\(de'u-\(#H)/2u'\v'-.3n'\(#[\z\(de\v'.3n'\h'\|\\n:u'\*(#]
106		-.ds d- \h'\(#H'\(pd\h'-\w'~'u'\v'-.25m'\f2\(hy\fP\v'.25m'\h'-\(#H'
107		-.ds D- D\\k:\h'-\w'D'u'\v'-.11m'\z\(hy\v'.11m'\h'\|\\n:u'
108		-.ds th \(#[\v'.3m'\s+1I\s-1\v'-.3m'\h'-(\w'I'u2/3)'\s-1o\s+1\*(#]
109		-.ds Th \(#[\s+2I\s-2\h'-\w'I'u3/5'\v'-.3m'o\v'.3m'\*(#]
110		-.ds ae a\h'-(\w'a'u*4/10)'e
111		-.ds Ae A\h'-(\w'A'u*4/10)'E
112		-. \" corrections for vroff
113		-.if v .ds ~ \\k:\h'-(\\n(.wu9/10-\(#H)'\s-2\u~\d\s+2\h'\|\\n:u'
114		-.if v .ds ^ \\k:\h'-(\\n(.wu10/11-\(#H)'\v'-.4m'^\v'.4m'\h'\|\\n:u'
115		-. \" for low resolution devices (crt and lpr)
116		-.if \n(.H>23 .if \n(.V>19 \
117		-\{\
118		-. ds : e
119		-. ds 8 ss
120		-. ds o a
121		-. ds d- d\h'-1'\(ga
122		-. ds D- D\h'-1'\(hy
123		-. ds th \o'bp'
124		-. ds Th \o'LP'
125		-. ds ae ae
126		-. ds Ae AE
127		-.\}
128		-.rm #[ #] #H #V #F C
129		-.\" ========================================================================
130		-.\"
131		-.IX Title "DBIx::Custom::Tag 3"
132		-.TH DBIx::Custom::Tag 3 "2011-06-15" "perl v5.8.8" "User Contributed Perl Documentation"
133		-.SH "NAME"
134		-DBIx::Custom::Tag \- DEPRECATED!

-134

DBIx-Custom-0.1711/blib/man3/DBIx::Custom::Util.3pm

View

...	...	@@ -1,134 +0,0 @@
1		-.\" Automatically generated by Pod::Man v1.37, Pod::Parser v1.32
2		-.\"
3		-.\" Standard preamble:
4		-.\" ========================================================================
5		-.de Sh \" Subsection heading
6		-.br
7		-.if t .Sp
8		-.ne 5
9		-.PP
10		-\fB\\$1\fR
11		-.PP
12		-..
13		-.de Sp \" Vertical space (when we can't use .PP)
14		-.if t .sp .5v
15		-.if n .sp
16		-..
17		-.de Vb \" Begin verbatim text
18		-.ft CW
19		-.nf
20		-.ne \\$1
21		-..
22		-.de Ve \" End verbatim text
23		-.ft R
24		-.fi
25		-..
26		-.\" Set up some character translations and predefined strings. \*(-- will
27		-.\" give an unbreakable dash, \(PI will give pi, \(L" will give a left
28		-.\" double quote, and \*(R" will give a right double quote. \| will give a
29		-.\" real vertical bar. \*(C+ will give a nicer C++. Capital omega is used to
30		-.\" do unbreakable dashes and therefore won't be available. \(C` and \(C'
31		-.\" expand to `' in nroff, nothing in troff, for use with C<>.
32		-.tr \(W-\|\(bv\(Tr
33		-.ds C+ C\v'-.1v'\h'-1p'\s-2+\h'-1p'+\s0\v'.1v'\h'-1p'
34		-.ie n \{\
35		-. ds -- \(*W-
36		-. ds PI pi
37		-. if (\n(.H=4u)&(1m=24u) .ds -- \(W\h'-12u'\(W\h'-12u'-\" diablo 10 pitch
38		-. if (\n(.H=4u)&(1m=20u) .ds -- \(W\h'-12u'\(W\h'-8u'-\" diablo 12 pitch
39		-. ds L" ""
40		-. ds R" ""
41		-. ds C` ""
42		-. ds C' ""
43		-'br\}
44		-.el\{\
45		-. ds -- \\|\(em\\|
46		-. ds PI \(*p
47		-. ds L" ``
48		-. ds R" ''
49		-'br\}
50		-.\"
51		-.\" If the F register is turned on, we'll generate index entries on stderr for
52		-.\" titles (.TH), headers (.SH), subsections (.Sh), items (.Ip), and index
53		-.\" entries marked with X<> in POD. Of course, you'll have to process the
54		-.\" output yourself in some meaningful fashion.
55		-.if \nF \{\
56		-. de IX
57		-. tm Index:\\$1\t\\n%\t"\\$2"
58		-..
59		-. nr % 0
60		-. rr F
61		-.\}
62		-.\"
63		-.\" For nroff, turn off justification. Always turn off hyphenation; it makes
64		-.\" way too many mistakes in technical documents.
65		-.hy 0
66		-.if n .na
67		-.\"
68		-.\" Accent mark definitions (@(#)ms.acc 1.5 88/02/08 SMI; from UCB 4.2).
69		-.\" Fear. Run. Save yourself. No user-serviceable parts.
70		-. \" fudge factors for nroff and troff
71		-.if n \{\
72		-. ds #H 0
73		-. ds #V .8m
74		-. ds #F .3m
75		-. ds #[ \f1
76		-. ds #] \fP
77		-.\}
78		-.if t \{\
79		-. ds #H ((1u-(\\\\n(.fu%2u))*.13m)
80		-. ds #V .6m
81		-. ds #F 0
82		-. ds #[ \&
83		-. ds #] \&
84		-.\}
85		-. \" simple accents for nroff and troff
86		-.if n \{\
87		-. ds ' \&
88		-. ds ` \&
89		-. ds ^ \&
90		-. ds , \&
91		-. ds ~ ~
92		-. ds /
93		-.\}
94		-.if t \{\
95		-. ds ' \\k:\h'-(\\n(.wu8/10-\(#H)'\'\h"\|\\n:u"
96		-. ds ` \\k:\h'-(\\n(.wu8/10-\(#H)'\`\h'\|\\n:u'
97		-. ds ^ \\k:\h'-(\\n(.wu10/11-\(#H)'^\h'\|\\n:u'
98		-. ds , \\k:\h'-(\\n(.wu*8/10)',\h'\|\\n:u'
99		-. ds ~ \\k:\h'-(\\n(.wu-\*(#H-.1m)'~\h'\|\\n:u'
100		-. ds / \\k:\h'-(\\n(.wu8/10-\(#H)'\z\(sl\h'\|\\n:u'
101		-.\}
102		-. \" troff and (daisy-wheel) nroff accents
103		-.ds : \\k:\h'-(\\n(.wu8/10-\(#H+.1m+\(#F)'\v'-\(#V'\z.\h'.2m+\(#F'.\h'\|\\n:u'\v'\(#V'
104		-.ds 8 \h'\(#H'\(b\h'-\*(#H'
105		-.ds o \\k:\h'-(\\n(.wu+\w'\(de'u-\(#H)/2u'\v'-.3n'\(#[\z\(de\v'.3n'\h'\|\\n:u'\*(#]
106		-.ds d- \h'\(#H'\(pd\h'-\w'~'u'\v'-.25m'\f2\(hy\fP\v'.25m'\h'-\(#H'
107		-.ds D- D\\k:\h'-\w'D'u'\v'-.11m'\z\(hy\v'.11m'\h'\|\\n:u'
108		-.ds th \(#[\v'.3m'\s+1I\s-1\v'-.3m'\h'-(\w'I'u2/3)'\s-1o\s+1\*(#]
109		-.ds Th \(#[\s+2I\s-2\h'-\w'I'u3/5'\v'-.3m'o\v'.3m'\*(#]
110		-.ds ae a\h'-(\w'a'u*4/10)'e
111		-.ds Ae A\h'-(\w'A'u*4/10)'E
112		-. \" corrections for vroff
113		-.if v .ds ~ \\k:\h'-(\\n(.wu9/10-\(#H)'\s-2\u~\d\s+2\h'\|\\n:u'
114		-.if v .ds ^ \\k:\h'-(\\n(.wu10/11-\(#H)'\v'-.4m'^\v'.4m'\h'\|\\n:u'
115		-. \" for low resolution devices (crt and lpr)
116		-.if \n(.H>23 .if \n(.V>19 \
117		-\{\
118		-. ds : e
119		-. ds 8 ss
120		-. ds o a
121		-. ds d- d\h'-1'\(ga
122		-. ds D- D\h'-1'\(hy
123		-. ds th \o'bp'
124		-. ds Th \o'LP'
125		-. ds ae ae
126		-. ds Ae AE
127		-.\}
128		-.rm #[ #] #H #V #F C
129		-.\" ========================================================================
130		-.\"
131		-.IX Title "DBIx::Custom::Util 3"
132		-.TH DBIx::Custom::Util 3 "2011-04-25" "perl v5.8.8" "User Contributed Perl Documentation"
133		-.SH "NAME"
134		-DBIx::Custom::Util \- Utility class

-198

DBIx-Custom-0.1711/blib/man3/DBIx::Custom::Where.3pm

View

...	...	@@ -1,198 +0,0 @@
1		-.\" Automatically generated by Pod::Man v1.37, Pod::Parser v1.32
2		-.\"
3		-.\" Standard preamble:
4		-.\" ========================================================================
5		-.de Sh \" Subsection heading
6		-.br
7		-.if t .Sp
8		-.ne 5
9		-.PP
10		-\fB\\$1\fR
11		-.PP
12		-..
13		-.de Sp \" Vertical space (when we can't use .PP)
14		-.if t .sp .5v
15		-.if n .sp
16		-..
17		-.de Vb \" Begin verbatim text
18		-.ft CW
19		-.nf
20		-.ne \\$1
21		-..
22		-.de Ve \" End verbatim text
23		-.ft R
24		-.fi
25		-..
26		-.\" Set up some character translations and predefined strings. \*(-- will
27		-.\" give an unbreakable dash, \(PI will give pi, \(L" will give a left
28		-.\" double quote, and \*(R" will give a right double quote. \| will give a
29		-.\" real vertical bar. \*(C+ will give a nicer C++. Capital omega is used to
30		-.\" do unbreakable dashes and therefore won't be available. \(C` and \(C'
31		-.\" expand to `' in nroff, nothing in troff, for use with C<>.
32		-.tr \(W-\|\(bv\(Tr
33		-.ds C+ C\v'-.1v'\h'-1p'\s-2+\h'-1p'+\s0\v'.1v'\h'-1p'
34		-.ie n \{\
35		-. ds -- \(*W-
36		-. ds PI pi
37		-. if (\n(.H=4u)&(1m=24u) .ds -- \(W\h'-12u'\(W\h'-12u'-\" diablo 10 pitch
38		-. if (\n(.H=4u)&(1m=20u) .ds -- \(W\h'-12u'\(W\h'-8u'-\" diablo 12 pitch
39		-. ds L" ""
40		-. ds R" ""
41		-. ds C` ""
42		-. ds C' ""
43		-'br\}
44		-.el\{\
45		-. ds -- \\|\(em\\|
46		-. ds PI \(*p
47		-. ds L" ``
48		-. ds R" ''
49		-'br\}
50		-.\"
51		-.\" If the F register is turned on, we'll generate index entries on stderr for
52		-.\" titles (.TH), headers (.SH), subsections (.Sh), items (.Ip), and index
53		-.\" entries marked with X<> in POD. Of course, you'll have to process the
54		-.\" output yourself in some meaningful fashion.
55		-.if \nF \{\
56		-. de IX
57		-. tm Index:\\$1\t\\n%\t"\\$2"
58		-..
59		-. nr % 0
60		-. rr F
61		-.\}
62		-.\"
63		-.\" For nroff, turn off justification. Always turn off hyphenation; it makes
64		-.\" way too many mistakes in technical documents.
65		-.hy 0
66		-.if n .na
67		-.\"
68		-.\" Accent mark definitions (@(#)ms.acc 1.5 88/02/08 SMI; from UCB 4.2).
69		-.\" Fear. Run. Save yourself. No user-serviceable parts.
70		-. \" fudge factors for nroff and troff
71		-.if n \{\
72		-. ds #H 0
73		-. ds #V .8m
74		-. ds #F .3m
75		-. ds #[ \f1
76		-. ds #] \fP
77		-.\}
78		-.if t \{\
79		-. ds #H ((1u-(\\\\n(.fu%2u))*.13m)
80		-. ds #V .6m
81		-. ds #F 0
82		-. ds #[ \&
83		-. ds #] \&
84		-.\}
85		-. \" simple accents for nroff and troff
86		-.if n \{\
87		-. ds ' \&
88		-. ds ` \&
89		-. ds ^ \&
90		-. ds , \&
91		-. ds ~ ~
92		-. ds /
93		-.\}
94		-.if t \{\
95		-. ds ' \\k:\h'-(\\n(.wu8/10-\(#H)'\'\h"\|\\n:u"
96		-. ds ` \\k:\h'-(\\n(.wu8/10-\(#H)'\`\h'\|\\n:u'
97		-. ds ^ \\k:\h'-(\\n(.wu10/11-\(#H)'^\h'\|\\n:u'
98		-. ds , \\k:\h'-(\\n(.wu*8/10)',\h'\|\\n:u'
99		-. ds ~ \\k:\h'-(\\n(.wu-\*(#H-.1m)'~\h'\|\\n:u'
100		-. ds / \\k:\h'-(\\n(.wu8/10-\(#H)'\z\(sl\h'\|\\n:u'
101		-.\}
102		-. \" troff and (daisy-wheel) nroff accents
103		-.ds : \\k:\h'-(\\n(.wu8/10-\(#H+.1m+\(#F)'\v'-\(#V'\z.\h'.2m+\(#F'.\h'\|\\n:u'\v'\(#V'
104		-.ds 8 \h'\(#H'\(b\h'-\*(#H'
105		-.ds o \\k:\h'-(\\n(.wu+\w'\(de'u-\(#H)/2u'\v'-.3n'\(#[\z\(de\v'.3n'\h'\|\\n:u'\*(#]
106		-.ds d- \h'\(#H'\(pd\h'-\w'~'u'\v'-.25m'\f2\(hy\fP\v'.25m'\h'-\(#H'
107		-.ds D- D\\k:\h'-\w'D'u'\v'-.11m'\z\(hy\v'.11m'\h'\|\\n:u'
108		-.ds th \(#[\v'.3m'\s+1I\s-1\v'-.3m'\h'-(\w'I'u2/3)'\s-1o\s+1\*(#]
109		-.ds Th \(#[\s+2I\s-2\h'-\w'I'u3/5'\v'-.3m'o\v'.3m'\*(#]
110		-.ds ae a\h'-(\w'a'u*4/10)'e
111		-.ds Ae A\h'-(\w'A'u*4/10)'E
112		-. \" corrections for vroff
113		-.if v .ds ~ \\k:\h'-(\\n(.wu9/10-\(#H)'\s-2\u~\d\s+2\h'\|\\n:u'
114		-.if v .ds ^ \\k:\h'-(\\n(.wu10/11-\(#H)'\v'-.4m'^\v'.4m'\h'\|\\n:u'
115		-. \" for low resolution devices (crt and lpr)
116		-.if \n(.H>23 .if \n(.V>19 \
117		-\{\
118		-. ds : e
119		-. ds 8 ss
120		-. ds o a
121		-. ds d- d\h'-1'\(ga
122		-. ds D- D\h'-1'\(hy
123		-. ds th \o'bp'
124		-. ds Th \o'LP'
125		-. ds ae ae
126		-. ds Ae AE
127		-.\}
128		-.rm #[ #] #H #V #F C
129		-.\" ========================================================================
130		-.\"
131		-.IX Title "DBIx::Custom::Where 3"
132		-.TH DBIx::Custom::Where 3 "2011-08-02" "perl v5.8.8" "User Contributed Perl Documentation"
133		-.SH "NAME"
134		-DBIx::Custom::Where \- Where clause
135		-.SH "SYNOPSYS"
136		-.IX Header "SYNOPSYS"
137		-.Vb 2
138		-\& my $where = DBIx::Custom::Where->new;
139		-\& my $string_where = "$where";
140		-.Ve
141		-.SH "ATTRIBUTES"
142		-.IX Header "ATTRIBUTES"
143		-.ie n .Sh """clause"""
144		-.el .Sh "\f(CWclause\fP"
145		-.IX Subsection "clause"
146		-.Vb 7
147		-\& my $clause = $where->clause;
148		-\& $where = $where->clause(
149		-\& ['and',
150		-\& 'title = :title',
151		-\& ['or', 'date < :date', 'date > :date']
152		-\& ]
153		-\& );
154		-.Ve
155		-.PP
156		-Where clause. Above one is expanded to the following \s-1SQL\s0 by to_string
157		-If all parameter names is exists.
158		-.PP
159		-.Vb 1
160		-\& "where ( title = :title and ( date < :date or date > :date ) )"
161		-.Ve
162		-.ie n .Sh """param"""
163		-.el .Sh "\f(CWparam\fP"
164		-.IX Subsection "param"
165		-.Vb 5
166		-\& my $param = $where->param;
167		-\& $where = $where->param({
168		-\& title => 'Perl',
169		-\& date => ['2010-11-11', '2011-03-05'],
170		-\& });
171		-.Ve
172		-.ie n .Sh """dbi"""
173		-.el .Sh "\f(CWdbi\fP"
174		-.IX Subsection "dbi"
175		-.Vb 2
176		-\& my $dbi = $where->dbi;
177		-\& $where = $where->dbi($dbi);
178		-.Ve
179		-.PP
180		-DBIx::Custom object.
181		-.SH "METHODS"
182		-.IX Header "METHODS"
183		-DBIx::Custom::Where inherits all methods from Object::Simple
184		-and implements the following new ones.
185		-.ie n .Sh """to_string"""
186		-.el .Sh "\f(CWto_string\fP"
187		-.IX Subsection "to_string"
188		-.Vb 1
189		-\& $where->to_string;
190		-.Ve
191		-.PP
192		-Convert where clause to string.
193		-.PP
194		-double quote is override to execute \f(CW\(C`to_string\(C'\fR method.
195		-.PP
196		-.Vb 1
197		-\& my $string_where = "$where";
198		-.Ve

DBIx-Custom-0.1711/blib/script/.exists

View

No changes.

-3203

DBIx-Custom-0.1711/lib/DBIx/Custom.pm

View

@@ -1,3203 +0,0 @@
-package DBIx::Custom;
-use Object::Simple -base;
-
-our $VERSION = '0.1711';
-use 5.008001;
-
-use Carp 'croak';
-use DBI;
-use DBIx::Custom::Result;
-use DBIx::Custom::Query;
-use DBIx::Custom::QueryBuilder;
-use DBIx::Custom::Where;
-use DBIx::Custom::Model;
-use DBIx::Custom::Tag;
-use DBIx::Custom::Order;
-use DBIx::Custom::Util qw/_array_to_hash _subname/;
-use Encode qw/encode encode_utf8 decode_utf8/;
-
-use constant DEBUG => $ENV{DBIX_CUSTOM_DEBUG} || 0;
-use constant DEBUG_ENCODING => $ENV{DBIX_CUSTOM_DEBUG_ENCODING} || 'UTF-8';
-
-has [qw/connector dsn password quote user/],
-    cache => 0,
-    cache_method => sub {
-        sub {
-            my $self = shift;
-            
-            $self->{_cached} ||= {};
-            
-            if (@_ > 1) {
-                $self->{_cached}{$_[0]} = $_[1];
-            }
-            else {
-                return $self->{_cached}{$_[0]};
-            }
-        }
-    },
-    dbi_option => sub { {} },
-    default_dbi_option => sub {
-        {
-            RaiseError => 1,
-            PrintError => 0,
-            AutoCommit => 1
-        }
-    },
-    filters => sub {
-        {
-            encode_utf8 => sub { encode_utf8($_[0]) },
-            decode_utf8 => sub { decode_utf8($_[0]) }
-        }
-    },
-    last_sql => '',
-    models => sub { {} },
-    query_builder => sub { DBIx::Custom::QueryBuilder->new(dbi => shift) },
-    result_class  => 'DBIx::Custom::Result',
-    safety_character => '\w',
-    stash => sub { {} },
-    tag_parse => 1;
-
-our $AUTOLOAD;
-sub AUTOLOAD {
-    my $self = shift;
-
-    # Method name
-    my ($package, $mname) = $AUTOLOAD =~ /^([\w\:]+)\:\:(\w+)$/;
-
-    # Call method
-    $self->{_methods} ||= {};
-    if (my $method = $self->{_methods}->{$mname}) {
-        return $self->$method(@_)
-    }
-    elsif ($self->{dbh} && (my $dbh_method = $self->dbh->can($mname))) {
-        $self->dbh->$dbh_method(@_);
-    }
-    else {
-        croak qq{Can't locate object method "$mname" via "$package" }
-            . _subname;
-    }
-}
-
-sub assign_param {
-    my ($self, $param) = @_;
-    
-    # Create set tag
-    my @params;
-    my $safety = $self->safety_character;
-    foreach my $column (sort keys %$param) {
-        croak qq{"$column" is not safety column name } . _subname
-          unless $column =~ /^[$safety\.]+$/;
-        my $column_quote = $self->_q($column);
-        $column_quote =~ s/\./$self->_q(".")/e;
-        push @params, ref $param->{$column} eq 'SCALAR'
-          ? "$column_quote = " . ${$param->{$column}}
-          : "$column_quote = :$column";
-
-    }
-    my $tag = join(', ', @params);
-    
-    return $tag;
-}
-
-sub column {
-    my $self = shift;
-    my $option = pop if ref $_[-1] eq 'HASH';
-    my $real_table = shift;
-    my $columns = shift;
-    my $table = $option->{alias} || $real_table;
-    
-    # Columns
-    unless ($columns) {
-        $columns ||= $self->model($real_table)->columns;
-    }
-    
-    # Separator
-    my $separator = $self->separator;
-    
-    # Column clause
-    my @column;
-    $columns ||= [];
-    push @column, $self->_q($table) . "." . $self->_q($_) .
-      " as " . $self->_q("${table}${separator}$_")
-      for @$columns;
-    
-    return join (', ', @column);
-}
-
-sub connect {
-    my $self = ref $_[0] ? shift : shift->new(@_);;
-    
-    # Connect
-    $self->dbh;
-    
-    return $self;
-}
-
-sub dbh {
-    my $self = shift;
-    
-    # Set
-    if (@_) {
-        $self->{dbh} = $_[0];
-        
-        return $self;
-    }
-    
-    # Get
-    else {
-        # From Connction manager
-        if (my $connector = $self->connector) {
-            croak "connector must have dbh() method " . _subname
-              unless ref $connector && $connector->can('dbh');
-              
-            $self->{dbh} = $connector->dbh;
-        }
-        
-        # Connect
-        $self->{dbh} ||= $self->_connect;
-        
-        # Quote
-        if (!defined $self->reserved_word_quote && !defined $self->quote) {
-            my $driver = $self->{dbh}->{Driver}->{Name};
-            my $quote = $driver eq 'mysql' ? '`' : '"';
-            $self->quote($quote);
-        }
-        
-        return $self->{dbh};
-    }
-}
-
-sub delete {
-    my ($self, %args) = @_;
-
-    # Arguments
-    my $table = $args{table} || '';
-    croak qq{"table" option must be specified. } . _subname
-      unless $table;
-    my $where            = delete $args{where} || {};
-    my $append           = delete $args{append};
-    my $allow_delete_all = delete $args{allow_delete_all};
-    my $where_param      = delete $args{where_param} || {};
-    my $id = delete $args{id};
-    my $primary_key = delete $args{primary_key};
-    croak "update method primary_key option " .
-          "must be specified when id is specified " . _subname
-      if defined $id && !defined $primary_key;
-    $primary_key = [$primary_key] unless ref $primary_key eq 'ARRAY';
-    my $prefix = delete $args{prefix};
-    
-    # Where
-    $where = $self->_create_param_from_id($id, $primary_key) if defined $id;
-    my $where_clause = '';
-    if (ref $where eq 'ARRAY' && !ref $where->[0]) {
-        $where_clause = "where " . $where->[0];
-        $where_param = $where->[1];
-    }
-    elsif (ref $where) {
-        $where = $self->_where_to_obj($where);
-        $where_param = keys %$where_param
-                     ? $self->merge_param($where_param, $where->param)
-                     : $where->param;
-        
-        # String where
-        $where_clause = $where->to_string;
-    }
-    elsif ($where) { $where_clause = "where $where" }
-    croak qq{"where" must be specified } . _subname
-      if $where_clause eq '' && !$allow_delete_all;
-
-    # Delete statement
-    my @sql;
-    push @sql, "delete";
-    push @sql, $prefix if defined $prefix;
-    push @sql, "from " . $self->_q($table) . " $where_clause";
-    push @sql, $append if defined $append;
-    my $sql = join(' ', @sql);
-    
-    # Execute query
-    return $self->execute($sql, $where_param, table => $table, %args);
-}
-
-sub delete_all { shift->delete(allow_delete_all => 1, @_) }
-
-sub DESTROY { }
-
-sub create_model {
-    my $self = shift;
-    
-    # Arguments
-    my $args = ref $_[0] eq 'HASH' ? $_[0] : {@_};
-    $args->{dbi} = $self;
-    my $model_class = delete $args->{model_class} || 'DBIx::Custom::Model';
-    my $model_name  = delete $args->{name};
-    my $model_table = delete $args->{table};
-    $model_name ||= $model_table;
-    
-    # Create model
-    my $model = $model_class->new($args);
-    $model->name($model_name) unless $model->name;
-    $model->table($model_table) unless $model->table;
-    
-    # Apply filter(DEPRECATED logic)
-    if ($model->{filter}) {
-        my $filter = ref $model->filter eq 'HASH'
-                   ? [%{$model->filter}]
-                   : $model->filter;
-        $filter ||= [];
-        warn "DBIx::Custom::Model filter method is DEPRECATED!"
-          if @$filter;
-        $self->_apply_filter($model->table, @$filter);
-    }
-    
-    # Set model
-    $self->model($model->name, $model);
-    
-    return $self->model($model->name);
-}
-
-sub each_column {
-    my ($self, $cb) = @_;
-    
-    # Iterate all tables
-    my $sth_tables = $self->dbh->table_info;
-    while (my $table_info = $sth_tables->fetchrow_hashref) {
-        
-        # Table
-        my $table = $table_info->{TABLE_NAME};
-        
-        # Iterate all columns
-        my $sth_columns = $self->dbh->column_info(undef, undef, $table, '%');
-        while (my $column_info = $sth_columns->fetchrow_hashref) {
-            my $column = $column_info->{COLUMN_NAME};
-            $self->$cb($table, $column, $column_info);
-        }
-    }
-}
-
-sub each_table {
-    my ($self, $cb) = @_;
-    
-    # Iterate all tables
-    my $sth_tables = $self->dbh->table_info;
-    while (my $table_info = $sth_tables->fetchrow_hashref) {
-        
-        # Table
-        my $table = $table_info->{TABLE_NAME};
-        $self->$cb($table, $table_info);
-    }
-}
-
-our %VALID_ARGS = map { $_ => 1 } qw/append allow_delete_all
-  allow_update_all bind_type column filter id join param prefix primary_key
-  query relation table table_alias type type_rule_off type_rule1_off
-  type_rule2_off wrap/;
-
-sub execute {
-    my $self = shift;
-    my $query = shift;
-    my $param;
-    $param = shift if @_ % 2;
-    my %args = @_;
-    
-    # Arguments
-    my $p = delete $args{param} || {};
-    $param ||= $p;
-    my $tables = delete $args{table} || [];
-    $tables = [$tables] unless ref $tables eq 'ARRAY';
-    my $filter = delete $args{filter};
-    $filter = _array_to_hash($filter);
-    my $bind_type = delete $args{bind_type} || delete $args{type};
-    $bind_type = _array_to_hash($bind_type);
-    my $type_rule_off = delete $args{type_rule_off};
-    my $type_rule_off_parts = {
-        1 => delete $args{type_rule1_off},
-        2 => delete $args{type_rule2_off}
-    };
-    my $query_return = delete $args{query};
-    my $table_alias = delete $args{table_alias} || {};
-    
-    # Check argument names
-    foreach my $name (keys %args) {
-        croak qq{"$name" is wrong option } . _subname
-          unless $VALID_ARGS{$name};
-    }
-    
-    # Create query
-    $query = $self->_create_query($query) unless ref $query;
-    
-    # Save query
-    $self->last_sql($query->sql);
-
-    return $query if $query_return;
-    
-    # DEPRECATED! Merge query filter
-    $filter ||= $query->{filter} || {};
-    
-    # Tables
-    unshift @$tables, @{$query->{tables} || []};
-    my $main_table = @{$tables}[-1];
-    
-    # DEPRECATED! Cleanup tables
-    $tables = $self->_remove_duplicate_table($tables, $main_table)
-      if @$tables > 1;
-    
-    # Type rule
-    my $type_filters = {};
-    unless ($type_rule_off) {
-        foreach my $i (1, 2) {
-            unless ($type_rule_off_parts->{$i}) {
-                $type_filters->{$i} = {};
-                foreach my $alias (keys %$table_alias) {
-                    my $table = $table_alias->{$alias};
-                    
-                    foreach my $column (keys %{$self->{"_into$i"}{key}{$table} || {}}) {
-                        $type_filters->{$i}->{"$alias.$column"} = $self->{"_into$i"}{key}{$table}{$column};
-                    }
-                }
-                $type_filters->{$i} = {%{$type_filters->{$i}}, %{$self->{"_into$i"}{key}{$main_table} || {}}}
-                  if $main_table;
-            }
-        }
-    }
-    
-    # DEPRECATED! Applied filter
-    if ($self->{filter}{on}) {
-        my $applied_filter = {};
-        foreach my $table (@$tables) {
-            $applied_filter = {
-                %$applied_filter,
-                %{$self->{filter}{out}->{$table} || {}}
-            }
-        }
-        $filter = {%$applied_filter, %$filter};
-    }
-    
-    # Replace filter name to code
-    foreach my $column (keys %$filter) {
-        my $name = $filter->{$column};
-        if (!defined $name) {
-            $filter->{$column} = undef;
-        }
-        elsif (ref $name ne 'CODE') {
-          croak qq{Filter "$name" is not registered" } . _subname
-            unless exists $self->filters->{$name};
-          $filter->{$column} = $self->filters->{$name};
-        }
-    }
-    
-    # Create bind values
-    my $bind = $self->_create_bind_values(
-        $param,
-        $query->columns,
-        $filter,
-        $type_filters,
-        $bind_type
-    );
-    
-    # Execute
-    my $sth = $query->sth;
-    my $affected;
-    eval {
-        for (my $i = 0; $i < @$bind; $i++) {
-            my $bind_type = $bind->[$i]->{bind_type};
-            $sth->bind_param(
-                $i + 1,
-                $bind->[$i]->{value},
-                $bind_type ? $bind_type : ()
-            );
-        }
-        $affected = $sth->execute;
-    };
-    
-    $self->_croak($@, qq{. Following SQL is executed.\n}
-      . qq{$query->{sql}\n} . _subname) if $@;
-    
-    # DEBUG message
-    if (DEBUG) {
-        print STDERR "SQL:\n" . $query->sql . "\n";
-        my @output;
-        foreach my $b (@$bind) {
-            my $value = $b->{value};
-            $value = 'undef' unless defined $value;
-            $value = encode(DEBUG_ENCODING(), $value)
-              if utf8::is_utf8($value);
-            push @output, $value;
-        }
-        print STDERR "Bind values: " . join(', ', @output) . "\n\n";
-    }
-    
-    # Select statement
-    if ($sth->{NUM_OF_FIELDS}) {
-        
-        # DEPRECATED! Filter
-        my $filter = {};
-        if ($self->{filter}{on}) {
-            $filter->{in}  = {};
-            $filter->{end} = {};
-            push @$tables, $main_table if $main_table;
-            foreach my $table (@$tables) {
-                foreach my $way (qw/in end/) {
-                    $filter->{$way} = {
-                        %{$filter->{$way}},
-                        %{$self->{filter}{$way}{$table} || {}}
-                    };
-                }
-            }
-        }
-        
-        # Result
-        my $result = $self->result_class->new(
-            sth => $sth,
-            dbi => $self,
-            default_filter => $self->{default_in_filter},
-            filter => $filter->{in} || {},
-            end_filter => $filter->{end} || {},
-            type_rule => {
-                from1 => $self->type_rule->{from1},
-                from2 => $self->type_rule->{from2}
-            },
-        );
-
-        return $result;
-    }
-    
-    # Not select statement
-    else { return $affected }
-}
-
-sub insert {
-    my $self = shift;
-    
-    # Arguments
-    my $param;
-    $param = shift if @_ % 2;
-    my %args = @_;
-    my $table  = delete $args{table};
-    croak qq{"table" option must be specified } . _subname
-      unless defined $table;
-    my $p = delete $args{param} || {};
-    $param  ||= $p;
-    my $append = delete $args{append} || '';
-    my $id = delete $args{id};
-    my $primary_key = delete $args{primary_key};
-    croak "insert method primary_key option " .
-          "must be specified when id is specified " . _subname
-      if defined $id && !defined $primary_key;
-    $primary_key = [$primary_key] unless ref $primary_key eq 'ARRAY';
-    my $prefix = delete $args{prefix};
-
-    # Merge parameter
-    if (defined $id) {
-        my $id_param = $self->_create_param_from_id($id, $primary_key);
-        $param = $self->merge_param($id_param, $param);
-    }
-
-    # Insert statement
-    my @sql;
-    push @sql, "insert";
-    push @sql, $prefix if defined $prefix;
-    push @sql, "into " . $self->_q($table) . " " . $self->insert_param($param);
-    push @sql, $append if defined $append;
-    my $sql = join (' ', @sql);
-    
-    # Execute query
-    return $self->execute($sql, $param, table => $table, %args);
-}
-
-sub insert_param {
-    my ($self, $param) = @_;
-    
-    # Create insert parameter tag
-    my $safety = $self->safety_character;
-    my @columns;
-    my @placeholders;
-    foreach my $column (sort keys %$param) {
-        croak qq{"$column" is not safety column name } . _subname
-          unless $column =~ /^[$safety\.]+$/;
-        my $column_quote = $self->_q($column);
-        $column_quote =~ s/\./$self->_q(".")/e;
-        push @columns, $column_quote;
-        push @placeholders, ref $param->{$column} eq 'SCALAR'
-          ? ${$param->{$column}} : ":$column";
-    }
-    
-    return '(' . join(', ', @columns) . ') ' . 'values ' .
-           '(' . join(', ', @placeholders) . ')'
-}
-
-sub include_model {
-    my ($self, $name_space, $model_infos) = @_;
-    
-    # Name space
-    $name_space ||= '';
-    
-    # Get Model infomations
-    unless ($model_infos) {
-
-        # Load name space module
-        croak qq{"$name_space" is invalid class name } . _subname
-          if $name_space =~ /[^\w:]/;
-        eval "use $name_space";
-        croak qq{Name space module "$name_space.pm" is needed. $@ }
-            . _subname
-          if $@;
-        
-        # Search model modules
-        my $path = $INC{"$name_space.pm"};
-        $path =~ s/\.pm$//;
-        opendir my $dh, $path
-          or croak qq{Can't open directory "$path": $! } . _subname
-        $model_infos = [];
-        while (my $module = readdir $dh) {
-            push @$model_infos, $module
-              if $module =~ s/\.pm$//;
-        }
-        close $dh;
-    }
-    
-    # Include models
-    foreach my $model_info (@$model_infos) {
-        
-        # Load model
-        my $model_class;
-        my $model_name;
-        my $model_table;
-        if (ref $model_info eq 'HASH') {
-            $model_class = $model_info->{class};
-            $model_name  = $model_info->{name};
-            $model_table = $model_info->{table};
-            
-            $model_name  ||= $model_class;
-            $model_table ||= $model_name;
-        }
-        else { $model_class = $model_name = $model_table = $model_info }
-        my $mclass = "${name_space}::$model_class";
-        croak qq{"$mclass" is invalid class name } . _subname
-          if $mclass =~ /[^\w:]/;
-        unless ($mclass->can('isa')) {
-            eval "use $mclass";
-            croak "$@ " . _subname if $@;
-        }
-        
-        # Create model
-        my $args = {};
-        $args->{model_class} = $mclass if $mclass;
-        $args->{name}        = $model_name if $model_name;
-        $args->{table}       = $model_table if $model_table;
-        $self->create_model($args);
-    }
-    
-    return $self;
-}
-
-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) = @_;
-    
-    # Merge parameters
-    my $merge = {};
-    foreach my $param (@params) {
-        foreach my $column (keys %$param) {
-            my $param_is_array = ref $param->{$column} eq 'ARRAY' ? 1 : 0;
-            
-            if (exists $merge->{$column}) {
-                $merge->{$column} = [$merge->{$column}]
-                  unless ref $merge->{$column} eq 'ARRAY';
-                push @{$merge->{$column}},
-                  ref $param->{$column} ? @{$param->{$column}} : $param->{$column};
-            }
-            else {
-                $merge->{$column} = $param->{$column};
-            }
-        }
-    }
-    
-    return $merge;
-}
-
-sub method {
-    my $self = shift;
-    
-    # Register method
-    my $methods = ref $_[0] eq 'HASH' ? $_[0] : {@_};
-    $self->{_methods} = {%{$self->{_methods} || {}}, %$methods};
-    
-    return $self;
-}
-
-sub model {
-    my ($self, $name, $model) = @_;
-    
-    # Set model
-    if ($model) {
-        $self->models->{$name} = $model;
-        return $self;
-    }
-    
-    # Check model existance
-    croak qq{Model "$name" is not included } . _subname
-      unless $self->models->{$name};
-    
-    # Get model
-    return $self->models->{$name};
-}
-
-sub mycolumn {
-    my ($self, $table, $columns) = @_;
-    
-    # Create column clause
-    my @column;
-    $columns ||= [];
-    push @column, $self->_q($table) . "." . $self->_q($_) .
-      " as " . $self->_q($_)
-      for @$columns;
-    
-    return join (', ', @column);
-}
-
-sub new {
-    my $self = shift->SUPER::new(@_);
-    
-    # Check attributes
-    my @attrs = keys %$self;
-    foreach my $attr (@attrs) {
-        croak qq{"$attr" is wrong name } . _subname
-          unless $self->can($attr);
-    }
-    
-    # DEPRECATED!
-    $self->query_builder->{tags} = {
-        '?'     => \&DBIx::Custom::Tag::placeholder,
-        '='     => \&DBIx::Custom::Tag::equal,
-        '<>'    => \&DBIx::Custom::Tag::not_equal,
-        '>'     => \&DBIx::Custom::Tag::greater_than,
-        '<'     => \&DBIx::Custom::Tag::lower_than,
-        '>='    => \&DBIx::Custom::Tag::greater_than_equal,
-        '<='    => \&DBIx::Custom::Tag::lower_than_equal,
-        'like'  => \&DBIx::Custom::Tag::like,
-        'in'    => \&DBIx::Custom::Tag::in,
-        'insert_param' => \&DBIx::Custom::Tag::insert_param,
-        'update_param' => \&DBIx::Custom::Tag::update_param
-    };
-    
-    return $self;
-}
-
-sub not_exists { bless {}, 'DBIx::Custom::NotExists' }
-
-sub order {
-    my $self = shift;
-    return DBIx::Custom::Order->new(dbi => $self, @_);
-}
-
-sub register_filter {
-    my $self = shift;
-    
-    # Register filter
-    my $filters = ref $_[0] eq 'HASH' ? $_[0] : {@_};
-    $self->filters({%{$self->filters}, %$filters});
-    
-    return $self;
-}
-
-sub select {
-    my ($self, %args) = @_;
-
-    # Arguments
-    my $table = delete $args{table};
-    my $tables = ref $table eq 'ARRAY' ? $table
-               : defined $table ? [$table]
-               : [];
-    my $columns   = delete $args{column};
-    my $where     = delete $args{where} || {};
-    my $append    = delete $args{append};
-    my $join      = delete $args{join} || [];
-    croak qq{"join" must be array reference } . _subname
-      unless ref $join eq 'ARRAY';
-    my $relation = delete $args{relation};
-    warn "select() relation option is DEPRECATED!"
-      if $relation;
-    my $param = delete $args{param} || {}; # DEPRECATED!
-    warn "select() param option is DEPRECATED!"
-      if keys %$param;
-    my $where_param = delete $args{where_param} || $param || {};
-    my $wrap = delete $args{wrap};
-    my $id = delete $args{id};
-    my $primary_key = delete $args{primary_key};
-    croak "update method primary_key option " .
-          "must be specified when id is specified " . _subname
-      if defined $id && !defined $primary_key;
-    $primary_key = [$primary_key] unless ref $primary_key eq 'ARRAY';
-    my $prefix = delete $args{prefix};
-    
-    # Add relation tables(DEPRECATED!);
-    $self->_add_relation_table($tables, $relation);
-    
-    # Select statement
-    my @sql;
-    push @sql, 'select';
-    
-    # Prefix
-    push @sql, $prefix if defined $prefix;
-    
-    # Column clause
-    if ($columns) {
-        $columns = [$columns] unless ref $columns eq 'ARRAY';
-        foreach my $column (@$columns) {
-            if (ref $column eq 'HASH') {
-                $column = $self->column(%$column) if ref $column eq 'HASH';
-            }
-            elsif (ref $column eq 'ARRAY') {
-                if (@$column == 3 && $column->[1] eq 'as') {
-                    warn "[COLUMN, as => ALIAS] is DEPRECATED! use [COLUMN => ALIAS]";
-                    splice @$column, 1, 1;
-                }
-                
-                $column = join(' ', $column->[0], 'as', $self->_q($column->[1]));
-            }
-            unshift @$tables, @{$self->_search_tables($column)};
-            push @sql, ($column, ',');
-        }
-        pop @sql if $sql[-1] eq ',';
-    }
-    else { push @sql, '*' }
-    
-    # Table
-    push @sql, 'from';
-    if ($relation) {
-        my $found = {};
-        foreach my $table (@$tables) {
-            push @sql, ($self->_q($table), ',') unless $found->{$table};
-            $found->{$table} = 1;
-        }
-    }
-    else {
-        my $main_table = $tables->[-1] || '';
-        push @sql, $self->_q($main_table);
-    }
-    pop @sql if ($sql[-1] || '') eq ',';
-    croak "Not found table name " . _subname
-      unless $tables->[-1];
-
-    # Add tables in parameter
-    unshift @$tables,
-            @{$self->_search_tables(join(' ', keys %$where_param) || '')};
-    
-    # Where
-    my $where_clause = '';
-    $where = $self->_create_param_from_id($id, $primary_key) if defined $id;
-    if (ref $where eq 'ARRAY' && !ref $where->[0]) {
-        $where_clause = "where " . $where->[0];
-        $where_param = $where->[1];
-    }
-    elsif (ref $where) {
-        $where = $self->_where_to_obj($where);
-        $where_param = keys %$where_param
-                     ? $self->merge_param($where_param, $where->param)
-                     : $where->param;
-        
-        # String where
-        $where_clause = $where->to_string;
-    }
-    elsif ($where) { $where_clause = "where $where" }
-    
-    # Add table names in where clause
-    unshift @$tables, @{$self->_search_tables($where_clause)};
-    
-    # Push join
-    $self->_push_join(\@sql, $join, $tables);
-    
-    # Add where clause
-    push @sql, $where_clause;
-    
-    # Relation(DEPRECATED!);
-    $self->_push_relation(\@sql, $tables, $relation, $where_clause eq '' ? 1 : 0);
-    
-    # Append
-    push @sql, $append if defined $append;
-    
-    # Wrap
-    if ($wrap) {
-        croak "wrap option must be array refrence " . _subname
-          unless ref $wrap eq 'ARRAY';
-        unshift @sql, $wrap->[0];
-        push @sql, $wrap->[1];
-    }
-    
-    # SQL
-    my $sql = join (' ', @sql);
-    
-    # Execute query
-    my $result = $self->execute($sql, $where_param, table => $tables, %args);
-    
-    return $result;
-}
-
-sub separator {
-    my $self = shift;
-    
-    if (@_) {
-        my $separator = $_[0] || '';
-        croak qq{Separator must be "." or "__" or "-" } . _subname
-          unless $separator eq '.' || $separator eq '__'
-              || $separator eq '-';
-        
-        $self->{separator} = $separator;
-    
-        return $self;
-    }
-    return $self->{separator} ||= '.';
-}
-
-sub setup_model {
-    my $self = shift;
-    
-    # Setup model
-    $self->each_column(
-        sub {
-            my ($self, $table, $column, $column_info) = @_;
-            if (my $model = $self->models->{$table}) {
-                push @{$model->columns}, $column;
-            }
-        }
-    );
-    return $self;
-}
-
-sub available_data_type {
-    my $self = shift;
-    
-    my $data_types = '';
-    foreach my $i (-1000 .. 1000) {
-         my $type_info = $self->dbh->type_info($i);
-         my $data_type = $type_info->{DATA_TYPE};
-         my $type_name = $type_info->{TYPE_NAME};
-         $data_types .= "$data_type ($type_name)\n"
-           if defined $data_type;
-    }
-    return "Data Type maybe equal to Type Name" unless $data_types;
-    $data_types = "Data Type (Type name)\n" . $data_types;
-    return $data_types;
-}
-
-sub available_type_name {
-    my $self = shift;
-    
-    # Type Names
-    my $type_names = {};
-    $self->each_column(sub {
-        my ($self, $table, $column, $column_info) = @_;
-        $type_names->{$column_info->{TYPE_NAME}} = 1
-          if $column_info->{TYPE_NAME};
-    });
-    my @output = sort keys %$type_names;
-    unshift @output, "Type Name";
-    return join "\n", @output;
-}
-
-sub type_rule {
-    my $self = shift;
-    
-    if (@_) {
-        my $type_rule = ref $_[0] eq 'HASH' ? $_[0] : {@_};
-        
-        # Into
-        foreach my $i (1 .. 2) {
-            my $into = "into$i";
-            $type_rule->{$into} = _array_to_hash($type_rule->{$into});
-            $self->{type_rule} = $type_rule;
-            $self->{"_$into"} = {};
-            foreach my $type_name (keys %{$type_rule->{$into} || {}}) {
-                croak qq{type name of $into section must be lower case}
-                  if $type_name =~ /[A-Z]/;
-            }
-            $self->each_column(sub {
-                my ($dbi, $table, $column, $column_info) = @_;
-                
-                my $type_name = lc $column_info->{TYPE_NAME};
-                if ($type_rule->{$into} &&
-                    (my $filter = $type_rule->{$into}->{$type_name}))
-                {
-                    return unless exists $type_rule->{$into}->{$type_name};
-                    if  (defined $filter && ref $filter ne 'CODE') 
-                    {
-                        my $fname = $filter;
-                        croak qq{Filter "$fname" is not registered" } . _subname
-                          unless exists $self->filters->{$fname};
-                        
-                        $filter = $self->filters->{$fname};
-                    }
-
-                    $self->{"_$into"}{key}{$table}{$column} = $filter;
-                    $self->{"_$into"}{dot}{"$table.$column"} = $filter;
-                }
-            });
-        }
-
-        # From
-        foreach my $i (1 .. 2) {
-            $type_rule->{"from$i"} = _array_to_hash($type_rule->{"from$i"});
-            foreach my $data_type (keys %{$type_rule->{"from$i"} || {}}) {
-                croak qq{data type of from$i section must be lower case or number}
-                  if $data_type =~ /[A-Z]/;
-                my $fname = $type_rule->{"from$i"}{$data_type};
-                if (defined $fname && ref $fname ne 'CODE') {
-                    croak qq{Filter "$fname" is not registered" } . _subname
-                      unless exists $self->filters->{$fname};
-                    
-                    $type_rule->{"from$i"}{$data_type} = $self->filters->{$fname};
-                }
-            }
-        }
-        
-        return $self;
-    }
-    
-    return $self->{type_rule} || {};
-}
-
-sub update {
-    my $self = shift;
-
-    # Arguments
-    my $param;
-    $param = shift if @_ % 2;
-    my %args = @_;
-    my $table = delete $args{table} || '';
-    croak qq{"table" option must be specified } . _subname
-      unless $table;
-    my $p = delete $args{param} || {};
-    $param  ||= $p;
-    my $where = delete $args{where} || {};
-    my $where_param = delete $args{where_param} || {};
-    my $append = delete $args{append} || '';
-    my $allow_update_all = delete $args{allow_update_all};
-    my $id = delete $args{id};
-    my $primary_key = delete $args{primary_key};
-    croak "update method primary_key option " .
-          "must be specified when id is specified " . _subname
-      if defined $id && !defined $primary_key;
-    $primary_key = [$primary_key] unless ref $primary_key eq 'ARRAY';
-    my $prefix = delete $args{prefix};
-
-    # Update clause
-    my $update_clause = $self->update_param($param);
-
-    # Where
-    $where = $self->_create_param_from_id($id, $primary_key) if defined $id;
-    my $where_clause = '';
-    if (ref $where eq 'ARRAY' && !ref $where->[0]) {
-        $where_clause = "where " . $where->[0];
-        $where_param = $where->[1];
-    }
-    elsif (ref $where) {
-        $where = $self->_where_to_obj($where);
-        $where_param = keys %$where_param
-                     ? $self->merge_param($where_param, $where->param)
-                     : $where->param;
-        
-        # String where
-        $where_clause = $where->to_string;
-    }
-    elsif ($where) { $where_clause = "where $where" }
-    croak qq{"where" must be specified } . _subname
-      if "$where_clause" eq '' && !$allow_update_all;
-    
-    # Merge param
-    $param = $self->merge_param($param, $where_param) if keys %$where_param;
-    
-    # Update statement
-    my @sql;
-    push @sql, "update";
-    push @sql, $prefix if defined $prefix;
-    push @sql, $self->_q($table) . " $update_clause $where_clause";
-    push @sql, $append if defined $append;
-    
-    # SQL
-    my $sql = join(' ', @sql);
-    
-    # Execute query
-    return $self->execute($sql, $param, table => $table, %args);
-}
-
-sub update_all { shift->update(allow_update_all => 1, @_) };
-
-sub update_param {
-    my ($self, $param, $opt) = @_;
-    
-    # Create update parameter tag
-    my $tag = $self->assign_param($param);
-    $tag = "set $tag" unless $opt->{no_set};
-
-    return $tag;
-}
-
-sub where { DBIx::Custom::Where->new(dbi => shift, @_) }
-
-sub _create_query {
-    
-    my ($self, $source) = @_;
-    
-    # Cache
-    my $cache = $self->cache;
-    
-    # Query
-    my $query;
-    
-    # Get cached query
-    if ($cache) {
-        
-        # Get query
-        my $q = $self->cache_method->($self, $source);
-        
-        # Create query
-        if ($q) {
-            $query = DBIx::Custom::Query->new($q);
-            $query->{filters} = $self->filters;
-        }
-    }
-    
-    # Create query
-    unless ($query) {
-
-        # Create query
-        my $builder = $self->query_builder;
-        $query = $builder->build_query($source);
-
-        # Remove reserved word quote
-        if (my $q = $self->_quote) {
-            $q = quotemeta($q);
-            $_ =~ s/[$q]//g for @{$query->columns}
-        }
-
-        # Save query to cache
-        $self->cache_method->(
-            $self, $source,
-            {
-                sql     => $query->sql, 
-                columns => $query->columns,
-                tables  => $query->{tables} || []
-            }
-        ) if $cache;
-    }
-    
-    # Save sql
-    $self->last_sql($query->sql);
-    
-    # Prepare statement handle
-    my $sth;
-    eval { $sth = $self->dbh->prepare($query->{sql})};
-    
-    if ($@) {
-        $self->_croak($@, qq{. Following SQL is executed.\n}
-                        . qq{$query->{sql}\n} . _subname);
-    }
-    
-    # Set statement handle
-    $query->sth($sth);
-    
-    # Set filters
-    $query->{filters} = $self->filters;
-    
-    return $query;
-}
-
-sub _create_bind_values {
-    my ($self, $params, $columns, $filter, $type_filters, $bind_type) = @_;
-    
-    # Create bind values
-    my $bind = [];
-    my $count = {};
-    my $not_exists = {};
-    foreach my $column (@$columns) {
-        
-        # Value
-        my $value;
-        if(ref $params->{$column} eq 'ARRAY') {
-            my $i = $count->{$column} || 0;
-            $i += $not_exists->{$column} || 0;
-            my $found;
-            for (my $k = $i; $i < @{$params->{$column}}; $k++) {
-                if (ref $params->{$column}->[$k] eq 'DBIx::Custom::NotExists') {
-                    $not_exists->{$column}++;
-                }
-                else  {
-                    $value = $params->{$column}->[$k];
-                    $found = 1;
-                    last
-                }
-            }
-            next unless $found;
-        }
-        else { $value = $params->{$column} }
-        
-        # Filter
-        my $f = $filter->{$column} || $self->{default_out_filter} || '';
-        $value = $f->($value) if $f;
-        
-        # Type rule
-        foreach my $i (1 .. 2) {
-            my $type_filter = $type_filters->{$i};
-            my $tf = $self->{"_into$i"}->{dot}->{$column} || $type_filter->{$column};
-            $value = $tf->($value) if $tf;
-        }
-        
-        # Bind values
-        push @$bind, {value => $value, bind_type => $bind_type->{$column}};
-        
-        # Count up 
-        $count->{$column}++;
-    }
-    
-    return $bind;
-}
-
-sub _create_param_from_id {
-    my ($self, $id, $primary_keys) = @_;
-    
-    # Create parameter
-    my $param = {};
-    if (defined $id) {
-        $id = [$id] unless ref $id;
-        croak qq{"id" must be constant value or array reference}
-            . " (" . (caller 1)[3] . ")"
-          unless !ref $id || ref $id eq 'ARRAY';
-        croak qq{"id" must contain values same count as primary key}
-            . " (" . (caller 1)[3] . ")"
-          unless @$primary_keys eq @$id;
-        for(my $i = 0; $i < @$primary_keys; $i ++) {
-           $param->{$primary_keys->[$i]} = $id->[$i];
-        }
-    }
-    
-    return $param;
-}
-
-sub _connect {
-    my $self = shift;
-    
-    # Attributes
-    my $dsn = $self->data_source;
-    warn "data_source is DEPRECATED!\n"
-      if $dsn;
-    $dsn ||= $self->dsn;
-    croak qq{"dsn" must be specified } . _subname
-      unless $dsn;
-    my $user        = $self->user;
-    my $password    = $self->password;
-    my $dbi_option = {%{$self->dbi_options}, %{$self->dbi_option}};
-    warn "dbi_options is DEPRECATED! use dbi_option instead\n"
-      if keys %{$self->dbi_options};
-    
-    # Connect
-    my $dbh = eval {DBI->connect(
-        $dsn,
-        $user,
-        $password,
-        {
-            %{$self->default_dbi_option},
-            %$dbi_option
-        }
-    )};
-    
-    # Connect error
-    croak "$@ " . _subname if $@;
-    
-    return $dbh;
-}
-
-sub _croak {
-    my ($self, $error, $append) = @_;
-    
-    # Append
-    $append ||= "";
-    
-    # Verbose
-    if ($Carp::Verbose) { croak $error }
-    
-    # Not verbose
-    else {
-        
-        # Remove line and module infromation
-        my $at_pos = rindex($error, ' at ');
-        $error = substr($error, 0, $at_pos);
-        $error =~ s/\s+$//;
-        croak "$error$append";
-    }
-}
-
-sub _need_tables {
-    my ($self, $tree, $need_tables, $tables) = @_;
-    
-    # Get needed tables
-    foreach my $table (@$tables) {
-        if ($tree->{$table}) {
-            $need_tables->{$table} = 1;
-            $self->_need_tables($tree, $need_tables, [$tree->{$table}{parent}])
-        }
-    }
-}
-
-sub _push_join {
-    my ($self, $sql, $join, $join_tables) = @_;
-    
-    # No join
-    return unless @$join;
-    
-    # Push join clause
-    my $tree = {};
-    for (my $i = 0; $i < @$join; $i++) {
-        
-        # Arrange
-        my $join_clause;;
-        my $option;
-        if (ref $join->[$i] eq 'HASH') {
-            $join_clause = $join->[$i]->{clause};
-            $option = {table => $join->[$i]->{table}};
-        }
-        else {
-            $join_clause = $join->[$i];
-            $option = {};
-        };
-
-        # Find tables in join clause
-        my $table1;
-        my $table2;
-        if (my $table = $option->{table}) {
-            $table1 = $table->[0];
-            $table2 = $table->[1];
-        }
-        else {
-            my $q = $self->_quote;
-            my $j_clause = (split /\s+on\s+/, $join_clause)[-1];
-            $j_clause =~ s/'.+?'//g;
-            my $q_re = quotemeta($q);
-            $j_clause =~ s/[$q_re]//g;
-            my $c = $self->safety_character;
-            my $join_re = qr/(?:^|\s)($c+)\.$c+\s+=\s+($c+)\.$c+/;
-            if ($j_clause =~ $join_re) {
-                $table1 = $1;
-                $table2 = $2;
-            }
-        }
-        croak qq{join clause must have two table name after "on" keyword. } .
-              qq{"$join_clause" is passed }  . _subname
-          unless defined $table1 && defined $table2;
-        croak qq{right side table of "$join_clause" must be unique }
-            . _subname
-          if exists $tree->{$table2};
-        croak qq{Same table "$table1" is specified} . _subname
-          if $table1 eq $table2;
-        $tree->{$table2}
-          = {position => $i, parent => $table1, join => $join_clause};
-    }
-    
-    # Search need tables
-    my $need_tables = {};
-    $self->_need_tables($tree, $need_tables, $join_tables);
-    my @need_tables = sort { $tree->{$a}{position} <=> $tree->{$b}{position} } keys %$need_tables;
-    
-    # Add join clause
-    foreach my $need_table (@need_tables) {
-        push @$sql, $tree->{$need_table}{join};
-    }
-}
-
-sub _quote {
-    my $self = shift;
-    
-    return defined $self->reserved_word_quote ? $self->reserved_word_quote
-         : defined $self->quote ? $self->quote
-         : '';
-}
-
-sub _q {
-    my ($self, $value) = @_;
-    
-    my $quote = $self->_quote;
-    my $q = substr($quote, 0, 1) || '';
-    my $p;
-    if (defined $quote && length $quote > 1) {
-        $p = substr($quote, 1, 1);
-    }
-    else { $p = $q }
-    
-    return "$q$value$p";
-}
-
-sub _remove_duplicate_table {
-    my ($self, $tables, $main_table) = @_;
-    
-    # Remove duplicate table
-    my %tables = map {defined $_ ? ($_ => 1) : ()} @$tables;
-    delete $tables{$main_table} if $main_table;
-    
-    my $new_tables = [keys %tables, $main_table ? $main_table : ()];
-    if (my $q = $self->_quote) {
-        $q = quotemeta($q);
-        $_ =~ s/[$q]//g for @$new_tables;
-    }
-
-    return $new_tables;
-}
-
-sub _search_tables {
-    my ($self, $source) = @_;
-    
-    # Search tables
-    my $tables = [];
-    my $safety_character = $self->safety_character;
-    my $q = $self->_quote;
-    my $q_re = quotemeta($q);
-    my $quoted_safety_character_re = $self->_q("?([$safety_character]+)");
-    my $table_re = $q ? qr/(?:^|[^$safety_character])$quoted_safety_character_re?\./
-                      : qr/(?:^|[^$safety_character])([$safety_character]+)\./;
-    while ($source =~ /$table_re/g) {
-        push @$tables, $1;
-    }
-    
-    return $tables;
-}
-
-sub _where_to_obj {
-    my ($self, $where) = @_;
-    
-    my $obj;
-    
-    # Hash
-    if (ref $where eq 'HASH') {
-        my $clause = ['and'];
-        my $q = $self->_quote;
-        foreach my $column (keys %$where) {
-            my $column_quote = $self->_q($column);
-            $column_quote =~ s/\./$self->_q(".")/e;
-            push @$clause, "$column_quote = :$column" for keys %$where;
-        }
-        $obj = $self->where(clause => $clause, param => $where);
-    }
-    
-    # DBIx::Custom::Where object
-    elsif (ref $where eq 'DBIx::Custom::Where') {
-        $obj = $where;
-    }
-    
-    # Array
-    elsif (ref $where eq 'ARRAY') {
-        $obj = $self->where(
-            clause => $where->[0],
-            param  => $where->[1]
-        );
-    }
-    
-    # Check where argument
-    croak qq{"where" must be hash reference or DBIx::Custom::Where object}
-        . qq{or array reference, which contains where clause and parameter}
-        . _subname
-      unless ref $obj eq 'DBIx::Custom::Where';
-    
-    return $obj;
-}
-
-sub _apply_filter {
-    my ($self, $table, @cinfos) = @_;
-
-    # Initialize filters
-    $self->{filter} ||= {};
-    $self->{filter}{on} = 1;
-    $self->{filter}{out} ||= {};
-    $self->{filter}{in} ||= {};
-    $self->{filter}{end} ||= {};
-    
-    # Usage
-    my $usage = "Usage: \$dbi->apply_filter(" .
-                "TABLE, COLUMN1, {in => INFILTER1, out => OUTFILTER1, end => ENDFILTER1}, " .
-                "COLUMN2, {in => INFILTER2, out => OUTFILTER2, end => ENDFILTER2}, ...)";
-    
-    # Apply filter
-    for (my $i = 0; $i < @cinfos; $i += 2) {
-        
-        # Column
-        my $column = $cinfos[$i];
-        if (ref $column eq 'ARRAY') {
-            foreach my $c (@$column) {
-                push @cinfos, $c, $cinfos[$i + 1];
-            }
-            next;
-        }
-        
-        # Filter infomation
-        my $finfo = $cinfos[$i + 1] || {};
-        croak "$usage (table: $table) " . _subname
-          unless  ref $finfo eq 'HASH';
-        foreach my $ftype (keys %$finfo) {
-            croak "$usage (table: $table) " . _subname
-              unless $ftype eq 'in' || $ftype eq 'out' || $ftype eq 'end'; 
-        }
-        
-        # Set filters
-        foreach my $way (qw/in out end/) {
-        
-            # Filter
-            my $filter = $finfo->{$way};
-            
-            # Filter state
-            my $state = !exists $finfo->{$way} ? 'not_exists'
-                      : !defined $filter        ? 'not_defined'
-                      : ref $filter eq 'CODE'   ? 'code'
-                      : 'name';
-            
-            # Filter is not exists
-            next if $state eq 'not_exists';
-            
-            # Check filter name
-            croak qq{Filter "$filter" is not registered } . _subname
-              if  $state eq 'name'
-               && ! exists $self->filters->{$filter};
-            
-            # Set filter
-            my $f = $state eq 'not_defined' ? undef
-                  : $state eq 'code'        ? $filter
-                  : $self->filters->{$filter};
-            $self->{filter}{$way}{$table}{$column} = $f;
-            $self->{filter}{$way}{$table}{"$table.$column"} = $f;
-            $self->{filter}{$way}{$table}{"${table}__$column"} = $f;
-            $self->{filter}{$way}{$table}{"${table}-$column"} = $f;
-        }
-    }
-    
-    return $self;
-}
-
-# DEPRECATED!
-sub create_query {
-    warn "create_query is DEPRECATED! use query option of each method";
-    shift->_create_query(@_);
-}
-
-# DEPRECATED!
-sub apply_filter {
-    my $self = shift;
-    
-    warn "apply_filter is DEPRECATED!";
-    return $self->_apply_filter(@_);
-}
-
-# DEPRECATED!
-our %SELECT_AT_ARGS = (%VALID_ARGS, where => 1, primary_key => 1);
-sub select_at {
-    my ($self, %args) = @_;
-
-    warn "select_at is DEPRECATED! use update and id option instead";
-
-    # Arguments
-    my $primary_keys = delete $args{primary_key};
-    $primary_keys = [$primary_keys] unless ref $primary_keys;
-    my $where = delete $args{where};
-    my $param = delete $args{param};
-    
-    # Check arguments
-    foreach my $name (keys %args) {
-        croak qq{"$name" is wrong option } . _subname
-          unless $SELECT_AT_ARGS{$name};
-    }
-    
-    # Table
-    croak qq{"table" option must be specified } . _subname
-      unless $args{table};
-    my $table = ref $args{table} ? $args{table}->[-1] : $args{table};
-    
-    # Create where parameter
-    my $where_param = $self->_create_param_from_id($where, $primary_keys);
-    
-    return $self->select(where => $where_param, %args);
-}
-
-# DEPRECATED!
-our %DELETE_AT_ARGS = (%VALID_ARGS, where => 1, primary_key => 1);
-sub delete_at {
-    my ($self, %args) = @_;
-
-    warn "delete_at is DEPRECATED! use update and id option instead";
-    
-    # Arguments
-    my $primary_keys = delete $args{primary_key};
-    $primary_keys = [$primary_keys] unless ref $primary_keys;
-    my $where = delete $args{where};
-    
-    # Check arguments
-    foreach my $name (keys %args) {
-        croak qq{"$name" is wrong option } . _subname
-          unless $DELETE_AT_ARGS{$name};
-    }
-    
-    # Create where parameter
-    my $where_param = $self->_create_param_from_id($where, $primary_keys);
-    
-    return $self->delete(where => $where_param, %args);
-}
-
-# DEPRECATED!
-our %UPDATE_AT_ARGS = (%VALID_ARGS, where => 1, primary_key => 1);
-sub update_at {
-    my $self = shift;
-
-    warn "update_at is DEPRECATED! use update and id option instead";
-    
-    # Arguments
-    my $param;
-    $param = shift if @_ % 2;
-    my %args = @_;
-    my $primary_keys = delete $args{primary_key};
-    $primary_keys = [$primary_keys] unless ref $primary_keys;
-    my $where = delete $args{where};
-    my $p = delete $args{param} || {};
-    $param  ||= $p;
-    
-    # Check arguments
-    foreach my $name (keys %args) {
-        croak qq{"$name" is wrong option } . _subname
-          unless $UPDATE_AT_ARGS{$name};
-    }
-    
-    # Create where parameter
-    my $where_param = $self->_create_param_from_id($where, $primary_keys);
-    
-    return $self->update(where => $where_param, param => $param, %args);
-}
-
-# DEPRECATED!
-our %INSERT_AT_ARGS = (%VALID_ARGS, where => 1, primary_key => 1);
-sub insert_at {
-    my $self = shift;
-    
-    warn "insert_at is DEPRECATED! use insert and id option instead";
-    
-    # Arguments
-    my $param;
-    $param = shift if @_ % 2;
-    my %args = @_;
-    my $primary_key = delete $args{primary_key};
-    $primary_key = [$primary_key] unless ref $primary_key;
-    my $where = delete $args{where};
-    my $p = delete $args{param} || {};
-    $param  ||= $p;
-    
-    # Check arguments
-    foreach my $name (keys %args) {
-        croak qq{"$name" is wrong option } . _subname
-          unless $INSERT_AT_ARGS{$name};
-    }
-    
-    # Create where parameter
-    my $where_param = $self->_create_param_from_id($where, $primary_key);
-    $param = $self->merge_param($where_param, $param);
-    
-    return $self->insert(param => $param, %args);
-}
-
-# DEPRECATED!
-sub register_tag {
-    warn "register_tag is DEPRECATED!";
-    shift->query_builder->register_tag(@_)
-}
-
-# DEPRECATED!
-has 'data_source';
-has dbi_options => sub { {} };
-has filter_check  => 1;
-has 'reserved_word_quote';
-
-# DEPRECATED!
-sub default_bind_filter {
-    my $self = shift;
-    
-    warn "default_bind_filter is DEPRECATED!";
-    
-    if (@_) {
-        my $fname = $_[0];
-        
-        if (@_ && !$fname) {
-            $self->{default_out_filter} = undef;
-        }
-        else {
-            croak qq{Filter "$fname" is not registered}
-              unless exists $self->filters->{$fname};
-        
-            $self->{default_out_filter} = $self->filters->{$fname};
-        }
-        return $self;
-    }
-    
-    return $self->{default_out_filter};
-}
-
-# DEPRECATED!
-sub default_fetch_filter {
-    my $self = shift;
-
-    warn "default_fetch_filter is DEPRECATED!";
-    
-    if (@_) {
-        my $fname = $_[0];
-
-        if (@_ && !$fname) {
-            $self->{default_in_filter} = undef;
-        }
-        else {
-            croak qq{Filter "$fname" is not registered}
-              unless exists $self->filters->{$fname};
-        
-            $self->{default_in_filter} = $self->filters->{$fname};
-        }
-        
-        return $self;
-    }
-    
-    return $self->{default_in_filter};
-}
-
-# DEPRECATED!
-sub insert_param_tag {
-    warn "insert_param_tag is DEPRECATED! " .
-         "use insert_param instead!";
-    return shift->insert_param(@_);
-}
-
-# DEPRECATED!
-sub register_tag_processor {
-    warn "register_tag_processor is DEPRECATED!";
-    return shift->query_builder->register_tag_processor(@_);
-}
-
-# DEPRECATED!
-sub update_param_tag {
-    warn "update_param_tag is DEPRECATED! " .
-         "use update_param instead";
-    return shift->update_param(@_);
-}
-# DEPRECATED!
-sub _push_relation {
-    my ($self, $sql, $tables, $relation, $need_where) = @_;
-    
-    if (keys %{$relation || {}}) {
-        push @$sql, $need_where ? 'where' : 'and';
-        foreach my $rcolumn (keys %$relation) {
-            my $table1 = (split (/\./, $rcolumn))[0];
-            my $table2 = (split (/\./, $relation->{$rcolumn}))[0];
-            push @$tables, ($table1, $table2);
-            push @$sql, ("$rcolumn = " . $relation->{$rcolumn},  'and');
-        }
-    }
-    pop @$sql if $sql->[-1] eq 'and';    
-}
-
-# DEPRECATED!
-sub _add_relation_table {
-    my ($self, $tables, $relation) = @_;
-    
-    if (keys %{$relation || {}}) {
-        foreach my $rcolumn (keys %$relation) {
-            my $table1 = (split (/\./, $rcolumn))[0];
-            my $table2 = (split (/\./, $relation->{$rcolumn}))[0];
-            my $table1_exists;
-            my $table2_exists;
-            foreach my $table (@$tables) {
-                $table1_exists = 1 if $table eq $table1;
-                $table2_exists = 1 if $table eq $table2;
-            }
-            unshift @$tables, $table1 unless $table1_exists;
-            unshift @$tables, $table2 unless $table2_exists;
-        }
-    }
-}
-
-1;
-
-=head1 NAME
-
-DBIx::Custom - Execute insert, update, delete, and select statement easily
-
-=head1 SYNOPSYS
-
-    use DBIx::Custom;
-    
-    # Connect
-    my $dbi = DBIx::Custom->connect(
-        dsn => "dbi:mysql:database=dbname",
-        user => 'ken',
-        password => '!LFKD%$&',
-        dbi_option => {mysql_enable_utf8 => 1}
-    );
-
-    # Insert 
-    $dbi->insert({title => 'Perl', author => 'Ken'}, table  => 'book');
-    
-    # Update 
-    $dbi->update({title => 'Perl', author => 'Ken'}, table  => 'book',
-      where  => {id => 5});
-    
-    # Delete
-    $dbi->delete(table  => 'book', where => {author => 'Ken'});
-
-    # Select
-    my $result = $dbi->select(table  => 'book',
-      column => ['title', 'author'], where  => {author => 'Ken'});
-
-    # Select, more complex
-    my $result = $dbi->select(
-        table  => 'book',
-        column => [
-            {book => [qw/title author/]},
-            {company => ['name']}
-        ],
-        where  => {'book.author' => 'Ken'},
-        join => ['left outer join company on book.company_id = company.id'],
-        append => 'order by id limit 5'
-    );
-    
-    # Fetch
-    while (my $row = $result->fetch) {
-        
-    }
-    
-    # Fetch as hash
-    while (my $row = $result->fetch_hash) {
-        
-    }
-    
-    # Execute SQL with parameter.
-    $dbi->execute(
-        "select id from book where author = :author and title like :title",
-        {author => 'ken', title => '%Perl%'}
-    );
-    
-=head1 DESCRIPTIONS
-
-L<DBIx::Custom> is L<DBI> wrapper module to execute SQL easily.
-This module have the following features.
-
-=over 4
-
-=item *
-
-Execute C<insert>, C<update>, C<delete>, or C<select> statement easily
-
-=item *
-
-Create C<where> clause flexibly
-
-=item *
-
-Named place holder support
-
-=item *
-
-Model support
-
-=item *
-
-Connection manager support
-
-=item *
-
-Choice your favorite relational database management system,
-C<MySQL>, C<SQLite>, C<PostgreSQL>, C<Oracle>,
-C<Microsoft SQL Server>, C<Microsoft Access>, C<DB2> or anything, 
-
-=item *
-
-Filtering by data type or column name(EXPERIMENTAL)
-
-=item *
-
-Create C<order by> clause flexibly(EXPERIMENTAL)
-
-=back
-
-=head1 DOCUMENTATIONS
-
-L<DBIx::Custom::Guide> - How to use L<DBIx::Custom>
-
-L<DBIx::Custom Wiki|https://github.com/yuki-kimoto/DBIx-Custom/wiki>
-- Theare are various examples.
-
-Module documentations - 
-L<DBIx::Custom::Result>,
-L<DBIx::Custom::Query>,
-L<DBIx::Custom::Where>,
-L<DBIx::Custom::Model>,
-L<DBIx::Custom::Order>
-
-=head1 ATTRIBUTES
-
-=head2 C<connector>
-
-    my $connector = $dbi->connector;
-    $dbi = $dbi->connector($connector);
-
-Connection manager object. if C<connector> is set, you can get C<dbh>
-through connection manager. Conection manager object must have C<dbh> mehtod.
-
-This is L<DBIx::Connector> example. Please pass
-C<default_dbi_option> to L<DBIx::Connector> C<new> method.
-
-    my $connector = DBIx::Connector->new(
-        "dbi:mysql:database=$DATABASE",
-        $USER,
-        $PASSWORD,
-        DBIx::Custom->new->default_dbi_option
-    );
-    
-    my $dbi = DBIx::Custom->connect(connector => $connector);
-
-=head2 C<dsn>
-
-    my $dsn = $dbi->dsn;
-    $dbi = $dbi->dsn("DBI:mysql:database=dbname");
-
-Data source name, used when C<connect> method is executed.
-
-=head2 C<dbi_option>
-
-    my $dbi_option = $dbi->dbi_option;
-    $dbi = $dbi->dbi_option($dbi_option);
-
-L<DBI> option, used when C<connect> method is executed.
-Each value in option override the value of C<default_dbi_option>.
-
-=head2 C<default_dbi_option>
-
-    my $default_dbi_option = $dbi->default_dbi_option;
-    $dbi = $dbi->default_dbi_option($default_dbi_option);
-
-L<DBI> default option, used when C<connect> method is executed,
-default to the following values.
-
-    {
-        RaiseError => 1,
-        PrintError => 0,
-        AutoCommit => 1,
-    }
-
-=head2 C<filters>
-
-    my $filters = $dbi->filters;
-    $dbi = $dbi->filters(\%filters);
-
-Filters, registered by C<register_filter> method.
-
-=head2 C<last_sql>
-
-    my $last_sql = $dbi->last_sql;
-    $dbi = $dbi->last_sql($last_sql);
-
-Get last successed SQL executed by C<execute> method.
-
-=head2 C<models>
-
-    my $models = $dbi->models;
-    $dbi = $dbi->models(\%models);
-
-Models, included by C<include_model> method.
-
-=head2 C<password>
-
-    my $password = $dbi->password;
-    $dbi = $dbi->password('lkj&le`@s');
-
-Password, used when C<connect> method is executed.
-
-=head2 C<query_builder>
-
-    my $sql_class = $dbi->query_builder;
-    $dbi = $dbi->query_builder(DBIx::Custom::QueryBuilder->new);
-
-Query builder, default to L<DBIx::Custom::QueryBuilder> object.
-
-=head2 C<quote>
-
-     my quote = $dbi->quote;
-     $dbi = $dbi->quote('"');
-
-Reserved word quote.
-Default to double quote '"' except for mysql.
-In mysql, default to back quote '`'
-
-You can set quote pair.
-
-    $dbi->quote('[]');
-
-=head2 C<result_class>
-
-    my $result_class = $dbi->result_class;
-    $dbi = $dbi->result_class('DBIx::Custom::Result');
-
-Result class, default to L<DBIx::Custom::Result>.
-
-=head2 C<safety_character>
-
-    my $safety_character = $self->safety_character;
-    $dbi = $self->safety_character($character);
-
-Regex of safety character for table and column name, default to '\w'.
-Note that you don't have to specify like '[\w]'.
-
-=head2 C<tag_parse>
-
-    my $tag_parse = $dbi->tag_parse(0);
-    $dbi = $dbi->tag_parse;
-
-Enable DEPRECATED tag parsing functionality, default to 1.
-If you want to disable tag parsing functionality, set to 0.
-
-=head2 C<user>
-
-    my $user = $dbi->user;
-    $dbi = $dbi->user('Ken');
-
-User name, used when C<connect> method is executed.
-
-=head1 METHODS
-
-L<DBIx::Custom> inherits all methods from L<Object::Simple>
-and use all methods of L<DBI>
-and implements the following new ones.
-
-=head2 C<available_data_type> EXPERIMENTAL
-
-    print $dbi->available_data_type;
-
-Get available data types. You can use these data types
-in C<type rule>'s C<from1> and C<from2> section.
-
-=head2 C<available_type_name> EXPERIMENTAL
-
-    print $dbi->available_type_name;
-
-Get available type names. You can use these type names in
-C<type_rule>'s C<into1> and C<into2> section.
-
-=head2 C<assign_param> EXPERIMENTAL
-
-    my $assign_param = $dbi->assign_param({title => 'a', age => 2});
-
-Create assign parameter.
-
-    title = :title, author = :author
-
-This is equal to C<update_param> exept that set is not added.
-
-=head2 C<column>
-
-    my $column = $dbi->column(book => ['author', 'title']);
-
-Create column clause. The follwoing column clause is created.
-
-    book.author as "book.author",
-    book.title as "book.title"
-
-You can change separator by C<separator> method.
-
-    # Separator is double underbar
-    $dbi->separator('__');
-    
-    book.author as "book__author",
-    book.title as "book__title"
-
-    # Separator is hyphen
-    $dbi->separator('-');
-    
-    book.author as "book-author",
-    book.title as "book-title"
-    
-=head2 C<connect>
-
-    my $dbi = DBIx::Custom->connect(
-        dsn => "dbi:mysql:database=dbname",
-        user => 'ken',
-        password => '!LFKD%$&',
-        dbi_option => {mysql_enable_utf8 => 1}
-    );
-
-Connect to the database and create a new L<DBIx::Custom> object.
-
-L<DBIx::Custom> is a wrapper of L<DBI>.
-C<AutoCommit> and C<RaiseError> options are true, 
-and C<PrintError> option is false by default.
-
-=head2 create_model
-
-    my $model = $dbi->create_model(
-        table => 'book',
-        primary_key => 'id',
-        join => [
-            'inner join company on book.comparny_id = company.id'
-        ],
-    );
-
-Create L<DBIx::Custom::Model> object and initialize model.
-the module is also used from C<model> method.
-
-   $dbi->model('book')->select(...);
-
-=head2 C<dbh>
-
-    my $dbh = $dbi->dbh;
-
-Get L<DBI> database handle. if C<connector> is set, you can get
-database handle through C<connector> object.
-
-=head2 C<each_column>
-
-    $dbi->each_column(
-        sub {
-            my ($dbi, $table, $column, $column_info) = @_;
-            
-            my $type = $column_info->{TYPE_NAME};
-            
-            if ($type eq 'DATE') {
-                # ...
-            }
-        }
-    );
-
-Iterate all column informations of all table from database.
-Argument is callback when one column is found.
-Callback receive four arguments, dbi object, table name,
-column name and column information.
-
-=head2 C<each_table>
-
-    $dbi->each_table(
-        sub {
-            my ($dbi, $table, $table_info) = @_;
-            
-            my $table_name = $table_info->{TABLE_NAME};
-        }
-    );
-
-Iterate all table informationsfrom database.
-Argument is callback when one table is found.
-Callback receive three arguments, dbi object, table name,
-table information.
-
-=head2 C<execute>
-
-    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%'}
-    );
-
-Execute SQL. SQL can contain column parameter such as :author and :title.
-You can append table name to column name such as :book.title and :book.author.
-Second argunet is data, embedded into column parameter.
-Return value is L<DBIx::Custom::Result> object when select statement is executed,
-or the count of affected rows when insert, update, delete statement is executed.
-
-Named placeholder such as C<:title> is replaced by placeholder C<?>.
-    
-    # Original
-    select * from book where title = :title and author like :author
-    
-    # Replaced
-    select * from where title = ? and author like ?;
-
-You can specify operator with named placeholder
- by C<name{operator}> syntax.
-
-    # Original
-    select * from book where :title{=} and :author{like}
-    
-    # Replaced
-    select * from where title = ? and author like ?;
-
-Note that colons in time format such as 12:13:15 is exeption,
-it is not parsed as named placeholder.
-If you want to use colon generally, you must escape it by C<\\>
-
-    select * from where title = "aa\\:bb";
-
-The following opitons are available.
-
-=over 4
-
-=item C<filter>
-    
-    filter => {
-        title  => sub { uc $_[0] }
-        author => sub { uc $_[0] }
-    }
-
-    # Filter name
-    filter => {
-        title  => 'upper_case',
-        author => 'upper_case'
-    }
-        
-    # At once
-    filter => [
-        [qw/title author/]  => sub { uc $_[0] }
-    ]
-
-Filter. You can set subroutine or filter name
-registered by by C<register_filter>.
-This filter is executed before data is saved into database.
-and before type rule filter is executed.
-
-=item C<query>
-
-    query => 1
-
-C<execute> method return L<DBIx::Custom::Query> object, not executing SQL.
-You can check SQL or get statment handle.
-
-    my $sql = $query->sql;
-    my $sth = $query->sth;
-    my $columns = $query->columns;
-    
-If you want to execute SQL fast, you can do the following way.
-
-    my $query;
-    foreach my $row (@$rows) {
-      $query ||= $dbi->insert($row, table => 'table1', query => 1);
-      $dbi->execute($query, $row, filter => {ab => sub { $_[0] * 2 }});
-    }
-
-Statement handle is reused and SQL parsing is finished,
-so you can get more performance than normal way.
-
-If you want to execute SQL as possible as fast and don't need filtering.
-You can do the following way.
-    
-    my $query;
-    my $sth;
-    foreach my $row (@$rows) {
-      $query ||= $dbi->insert($row, table => 'book', query => 1);
-      $sth ||= $query->sth;
-      $sth->execute(map { $row->{$_} } sort keys %$row);
-    }
-
-Note that $row must be simple hash reference, such as
-{title => 'Perl', author => 'Ken'}.
-and don't forget to sort $row values by $row key asc order.
-
-=item C<table>
-    
-    table => 'author'
-
-If you want to omit table name in column name
-and enable C<into1> and C<into2> type filter,
-You must set C<table> option.
-
-    $dbi->execute("select * from book where title = :title and author = :author",
-        {title => 'Perl', author => 'Ken', table => 'book');
-
-    # Same
-    $dbi->execute(
-      "select * from book where title = :book.title and author = :book.author",
-      {title => 'Perl', author => 'Ken');
-
-=item C<bind_type>
-
-Specify database bind data type.
-
-    bind_type => [image => DBI::SQL_BLOB]
-    bind_type => [[qw/image audio/] => DBI::SQL_BLOB]
-
-This is used to bind parameter by C<bind_param> of statment handle.
-
-    $sth->bind_param($pos, $value, DBI::SQL_BLOB);
-
-=item C<table_alias> EXPERIMENTAL
-
-    table_alias => {user => 'hiker'}
-
-Table alias. Key is real table name, value is alias table name.
-If you set C<table_alias>, you can enable C<into1> and C<into2> type rule
-on alias table name.
-
-=item C<type_rule_off> EXPERIMENTAL
-
-    type_rule_off => 1
-
-Turn C<into1> and C<into2> type rule off.
-
-=item C<type_rule1_off> EXPERIMENTAL
-
-    type_rule1_off => 1
-
-Turn C<into1> type rule off.
-
-=item C<type_rule2_off> EXPERIMENTAL
-
-    type_rule2_off => 1
-
-Turn C<into2> type rule off.
-
-=back
-
-=head2 C<delete>
-
-    $dbi->delete(table => 'book', where => {title => 'Perl'});
-
-Execute delete statement.
-
-The following opitons are available.
-
-=over 4
-
-=item C<append>
-
-Same as C<select> method's C<append> option.
-
-=item C<filter>
-
-Same as C<execute> method's C<filter> option.
-
-=item C<id>
-
-    id => 4
-    id => [4, 5]
-
-ID corresponding to C<primary_key>.
-You can delete rows by C<id> and C<primary_key>.
-
-    $dbi->delete(
-        parimary_key => ['id1', 'id2'],
-        id => [4, 5],
-        table => 'book',
-    );
-
-The above is same as the followin one.
-
-    $dbi->delete(where => {id1 => 4, id2 => 5}, table => 'book');
-
-=item C<prefix>
-
-    prefix => 'some'
-
-prefix before table name section.
-
-    delete some from book
-
-=item C<query>
-
-Same as C<execute> method's C<query> option.
-
-=item C<table>
-
-    table => 'book'
-
-Table name.
-
-=item C<where>
-
-Same as C<select> method's C<where> option.
-
-=item C<primary_key>
-
-See C<id> option.
-
-=item C<bind_type>
-
-Same as C<execute> method's C<bind_type> option.
-
-=item C<type_rule_off> EXPERIMENTAL
-
-Same as C<execute> method's C<type_rule_off> option.
-
-=item C<type_rule1_off> EXPERIMENTAL
-
-    type_rule1_off => 1
-
-Same as C<execute> method's C<type_rule1_off> option.
-
-=item C<type_rule2_off> EXPERIMENTAL
-
-    type_rule2_off => 1
-
-Same as C<execute> method's C<type_rule2_off> option.
-
-=back
-
-=head2 C<delete_all>
-
-    $dbi->delete_all(table => $table);
-
-Execute delete statement for all rows.
-Options is same as C<delete>.
-
-=head2 C<insert>
-
-    $dbi->insert({title => 'Perl', author => 'Ken'}, table  => 'book');
-
-Execute insert statement. First argument is row data. Return value is
-affected row count.
-
-If you want to set constant value to row data, use scalar reference
-as parameter value.
-
-    {date => \"NOW()"}
-
-The following opitons are available.
-
-=over 4
-
-=item C<append>
-
-Same as C<select> method's C<append> option.
-
-=item C<filter>
-
-Same as C<execute> method's C<filter> option.
-
-=item C<id>
-
-    id => 4
-    id => [4, 5]
-
-ID corresponding to C<primary_key>.
-You can insert a row by C<id> and C<primary_key>.
-
-    $dbi->insert(
-        {title => 'Perl', author => 'Ken'}
-        parimary_key => ['id1', 'id2'],
-        id => [4, 5],
-        table => 'book'
-    );
-
-The above is same as the followin one.
-
-    $dbi->insert(
-        {id1 => 4, id2 => 5, title => 'Perl', author => 'Ken'},
-        table => 'book'
-    );
-
-=item C<prefix>
-
-    prefix => 'or replace'
-
-prefix before table name section
-
-    insert or replace into book
-
-=item C<primary_key>
-
-    primary_key => 'id'
-    primary_key => ['id1', 'id2']
-
-Primary key. This is used by C<id> option.
-
-=item C<query>
-
-Same as C<execute> method's C<query> option.
-
-=item C<table>
-
-    table => 'book'
-
-Table name.
-
-=item C<bind_type>
-
-Same as C<execute> method's C<bind_type> option.
-
-=item C<type_rule_off> EXPERIMENTAL
-
-Same as C<execute> method's C<type_rule_off> option.
-
-=item C<type_rule1_off> EXPERIMENTAL
-
-    type_rule1_off => 1
-
-Same as C<execute> method's C<type_rule1_off> option.
-
-=item C<type_rule2_off> EXPERIMENTAL
-
-    type_rule2_off => 1
-
-Same as C<execute> method's C<type_rule2_off> option.
-
-=back
-
-=over 4
-
-=head2 C<insert_param>
-
-    my $insert_param = $dbi->insert_param({title => 'a', age => 2});
-
-Create insert parameters.
-
-    (title, author) values (title = :title, age = :age);
-
-=head2 C<include_model>
-
-    $dbi->include_model('MyModel');
-
-Include models from specified namespace,
-the following layout is needed to include models.
-
-    lib / MyModel.pm
-        / MyModel / book.pm
-                  / company.pm
-
-Name space module, extending L<DBIx::Custom::Model>.
-
-B<MyModel.pm>
-
-    package MyModel;
-    use DBIx::Custom::Model -base;
-    
-    1;
-
-Model modules, extending name space module.
-
-B<MyModel/book.pm>
-
-    package MyModel::book;
-    use MyModel -base;
-    
-    1;
-
-B<MyModel/company.pm>
-
-    package MyModel::company;
-    use MyModel -base;
-    
-    1;
-    
-MyModel::book and MyModel::company is included by C<include_model>.
-
-You can get model object by C<model>.
-
-    my $book_model = $dbi->model('book');
-    my $company_model = $dbi->model('company');
-
-See L<DBIx::Custom::Model> to know model features.
-
-=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});
-
-Merge parameters.
-
-    {key1 => [1, 1], key2 => 2}
-
-=head2 C<method>
-
-    $dbi->method(
-        update_or_insert => sub {
-            my $self = shift;
-            
-            # Process
-        },
-        find_or_create   => sub {
-            my $self = shift;
-            
-            # Process
-        }
-    );
-
-Register method. These method is called directly from L<DBIx::Custom> object.
-
-    $dbi->update_or_insert;
-    $dbi->find_or_create;
-
-=head2 C<model>
-
-    my $model = $dbi->model('book');
-
-Get a L<DBIx::Custom::Model> object,
-
-=head2 C<mycolumn>
-
-    my $column = $self->mycolumn(book => ['author', 'title']);
-
-Create column clause for myself. The follwoing column clause is created.
-
-    book.author as author,
-    book.title as title
-
-=head2 C<new>
-
-    my $dbi = DBIx::Custom->new(
-        dsn => "dbi:mysql:database=dbname",
-        user => 'ken',
-        password => '!LFKD%$&',
-        dbi_option => {mysql_enable_utf8 => 1}
-    );
-
-Create a new L<DBIx::Custom> object.
-
-=head2 C<not_exists>
-
-    my $not_exists = $dbi->not_exists;
-
-DBIx::Custom::NotExists object, indicating the column is not exists.
-This is used by C<clause> of L<DBIx::Custom::Where> .
-
-=head2 C<order> EXPERIMENTAL
-
-    my $order = $dbi->order;
-
-Create a new L<DBIx::Custom::Order> object.
-
-=head2 C<register_filter>
-
-    $dbi->register_filter(
-        # Time::Piece object to database DATE format
-        tp_to_date => sub {
-            my $tp = shift;
-            return $tp->strftime('%Y-%m-%d');
-        },
-        # database DATE format to Time::Piece object
-        date_to_tp => sub {
-           my $date = shift;
-           return Time::Piece->strptime($date, '%Y-%m-%d');
-        }
-    );
-    
-Register filters, used by C<filter> option of many methods.
-
-=head2 C<type_rule> EXPERIMENTAL
-
-    $dbi->type_rule(
-        into1 => {
-            date => sub { ... },
-            datetime => sub { ... }
-        },
-        into2 => {
-            date => sub { ... },
-            datetime => sub { ... }
-        },
-        from1 => {
-            # DATE
-            9 => sub { ... },
-            # DATETIME or TIMESTAMP
-            11 => sub { ... },
-        }
-        from2 => {
-            # DATE
-            9 => sub { ... },
-            # DATETIME or TIMESTAMP
-            11 => sub { ... },
-        }
-    );
-
-Filtering rule when data is send into and get from database.
-This has a little complex problem.
-
-In C<into1> and C<into2> you can specify
-type name as same as type name defined
-by create table, such as C<DATETIME> or C<DATE>.
-
-Note that type name and data type don't contain upper case.
-If these contain upper case charactor, you convert it to lower case.
-
-C<into2> is executed after C<into1>.
-
-Type rule of C<into1> and C<into2> is enabled on the following
-column name.
-
-=over 4
-
-=item 1. column name
-
-    issue_date
-    issue_datetime
-
-This need C<table> option in each method.
-
-=item 2. table name and column name, separator is dot
-
-    book.issue_date
-    book.issue_datetime
-
-=back
-
-You get all type name used in database by C<available_type_name>.
-
-    print $dbi->available_type_name;
-
-In C<from1> and C<from2> you specify data type, not type name.
-C<from2> is executed after C<from1>.
-You get all data type by C<available_data_type>.
-
-    print $dbi->available_data_type;
-
-You can also specify multiple types at once.
-
-    $dbi->type_rule(
-        into1 => [
-            [qw/DATE DATETIME/] => sub { ... },
-        ],
-    );
-
-=head2 C<select>
-
-    my $result = $dbi->select(
-        table  => 'book',
-        column => ['author', 'title'],
-        where  => {author => 'Ken'},
-    );
-    
-Execute select statement.
-
-The following opitons are available.
-
-=over 4
-
-=item C<append>
-
-    append => 'order by title'
-
-Append statement to last of SQL.
-    
-=item C<column>
-    
-    column => 'author'
-    column => ['author', 'title']
-
-Column clause.
-    
-if C<column> is not specified, '*' is set.
-
-    column => '*'
-
-You can specify hash of array reference.
-
-    column => [
-        {book => [qw/author title/]},
-        {person => [qw/name age/]}
-    ]
-
-This is expanded to the following one by using C<colomn> method.
-
-    book.author as "book.author",
-    book.title as "book.title",
-    person.name as "person.name",
-    person.age as "person.age"
-
-You can specify array of array reference, first argument is
-column name, second argument is alias.
-
-    column => [
-        ['date(book.register_datetime)' => 'book.register_date']
-    ];
-
-Alias is quoted properly and joined.
-
-    date(book.register_datetime) as "book.register_date"
-
-=item C<filter>
-
-Same as C<execute> method's C<filter> option.
-
-=item C<id>
-
-    id => 4
-    id => [4, 5]
-
-ID corresponding to C<primary_key>.
-You can select rows by C<id> and C<primary_key>.
-
-    $dbi->select(
-        parimary_key => ['id1', 'id2'],
-        id => [4, 5],
-        table => 'book'
-    );
-
-The above is same as the followin one.
-
-    $dbi->select(
-        where => {id1 => 4, id2 => 5},
-        table => 'book'
-    );
-    
-=item C<param> EXPERIMETNAL
-
-    param => {'table2.key3' => 5}
-
-Parameter shown before where clause.
-    
-For example, if you want to contain tag in join clause, 
-you can pass parameter by C<param> option.
-
-    join  => ['inner join (select * from table2 where table2.key3 = :table2.key3)' . 
-              ' as table2 on table1.key1 = table2.key1']
-
-=itme C<prefix>
-
-    prefix => 'SQL_CALC_FOUND_ROWS'
-
-Prefix of column cluase
-
-    select SQL_CALC_FOUND_ROWS title, author from book;
-
-=item C<join>
-
-    join => [
-        'left outer join company on book.company_id = company_id',
-        'left outer join location on company.location_id = location.id'
-    ]
-        
-Join clause. If column cluase or where clause contain table name like "company.name",
-join clausees needed when SQL is created is used automatically.
-
-    $dbi->select(
-        table => 'book',
-        column => ['company.location_id as location_id'],
-        where => {'company.name' => 'Orange'},
-        join => [
-            'left outer join company on book.company_id = company.id',
-            'left outer join location on company.location_id = location.id'
-        ]
-    );
-
-In above select, column and where clause contain "company" table,
-the following SQL is created
-
-    select company.location_id as location_id
-    from book
-      left outer join company on book.company_id = company.id
-    where company.name = ?;
-
-You can specify two table by yourself. This is useful when join parser can't parse
-the join clause correctly. This is EXPERIMENTAL.
-
-    $dbi->select(
-        table => 'book',
-        column => ['company.location_id as location_id'],
-        where => {'company.name' => 'Orange'},
-        join => [
-            {
-                clause => 'left outer join location on company.location_id = location.id',
-                table => ['company', 'location']
-            }
-        ]
-    );
-
-=item C<primary_key>
-
-    primary_key => 'id'
-    primary_key => ['id1', 'id2']
-
-Primary key. This is used by C<id> option.
-
-=item C<query>
-
-Same as C<execute> method's C<query> option.
-
-=item C<bind_type>
-
-Same as C<execute> method's C<bind_type> option.
-
-=item C<table>
-
-    table => 'book'
-
-Table name.
-
-=item C<type_rule_off> EXPERIMENTAL
-
-Same as C<execute> method's C<type_rule_off> option.
-
-=item C<type_rule1_off> EXPERIMENTAL
-
-    type_rule1_off => 1
-
-Same as C<execute> method's C<type_rule1_off> option.
-
-=item C<type_rule2_off> EXPERIMENTAL
-
-    type_rule2_off => 1
-
-Same as C<execute> method's C<type_rule2_off> option.
-
-=item C<where>
-    
-    # Hash refrence
-    where => {author => 'Ken', 'title' => 'Perl'}
-    
-    # DBIx::Custom::Where object
-    where => $dbi->where(
-        clause => ['and', 'author = :author', 'title like :title'],
-        param  => {author => 'Ken', title => '%Perl%'}
-    );
-    
-    # Array reference 1 (array reference, hash referenc). same as above
-    where => [
-        ['and', 'author = :author', 'title like :title'],
-        {author => 'Ken', title => '%Perl%'}
-    ];    
-    
-    # Array reference 2 (String, hash reference)
-    where => [
-        'title like :title',
-        {title => '%Perl%'}
-    ]
-    
-    # String
-    where => 'title is null'
-
-Where clause.
-    
-=item C<wrap> EXPERIMENTAL
-
-Wrap statement. This is array reference.
-
-    $dbi->select(wrap => ['select * from (', ') as t where ROWNUM < 10']);
-
-This option is for Oracle and SQL Server paging process.
-
-=back
-
-=head2 C<update>
-
-    $dbi->update({title => 'Perl'}, table  => 'book', where  => {id => 4});
-
-Execute update statement. First argument is update row data.
-
-If you want to set constant value to row data, use scalar reference
-as parameter value.
-
-    {date => \"NOW()"}
-
-The following opitons are available.
-
-=over 4
-
-=item C<append>
-
-Same as C<select> method's C<append> option.
-
-=item C<filter>
-
-Same as C<execute> method's C<filter> option.
-
-=item C<id>
-
-    id => 4
-    id => [4, 5]
-
-ID corresponding to C<primary_key>.
-You can update rows by C<id> and C<primary_key>.
-
-    $dbi->update(
-        {title => 'Perl', author => 'Ken'}
-        parimary_key => ['id1', 'id2'],
-        id => [4, 5],
-        table => 'book'
-    );
-
-The above is same as the followin one.
-
-    $dbi->update(
-        {title => 'Perl', author => 'Ken'}
-        where => {id1 => 4, id2 => 5},
-        table => 'book'
-    );
-
-=item C<prefix>
-
-    prefix => 'or replace'
-
-prefix before table name section
-
-    update or replace book
-
-=item C<primary_key>
-
-    primary_key => 'id'
-    primary_key => ['id1', 'id2']
-
-Primary key. This is used by C<id> option.
-
-=item C<query>
-
-Same as C<execute> method's C<query> option.
-
-=item C<table>
-
-    table => 'book'
-
-Table name.
-
-=item C<where>
-
-Same as C<select> method's C<where> option.
-
-=item C<bind_type>
-
-Same as C<execute> method's C<bind_type> option.
-
-=item C<type_rule_off> EXPERIMENTAL
-
-Same as C<execute> method's C<type_rule_off> option.
-
-=item C<type_rule1_off> EXPERIMENTAL
-
-    type_rule1_off => 1
-
-Same as C<execute> method's C<type_rule1_off> option.
-
-=item C<type_rule2_off> EXPERIMENTAL
-
-    type_rule2_off => 1
-
-Same as C<execute> method's C<type_rule2_off> option.
-
-=back
-
-=head2 C<update_all>
-
-    $dbi->update_all({title => 'Perl'}, table => 'book', );
-
-Execute update statement for all rows.
-Options is same as C<update> method.
-
-=head2 C<update_param>
-
-    my $update_param = $dbi->update_param({title => 'a', age => 2});
-
-Create update parameter tag.
-
-    set title = :title, author = :author
-
-=head2 C<where>
-
-    my $where = $dbi->where(
-        clause => ['and', 'title = :title', 'author = :author'],
-        param => {title => 'Perl', author => 'Ken'}
-    );
-
-Create a new L<DBIx::Custom::Where> object.
-
-=head2 C<setup_model>
-
-    $dbi->setup_model;
-
-Setup all model objects.
-C<columns> of model object is automatically set, parsing database information.
-
-=head1 ENVIRONMENT VARIABLE
-
-=head2 C<DBIX_CUSTOM_DEBUG>
-
-If environment variable C<DBIX_CUSTOM_DEBUG> is set to true,
-executed SQL and bind values are printed to STDERR.
-
-=head2 C<DBIX_CUSTOM_DEBUG_ENCODING>
-
-DEBUG output encoding. Default to UTF-8.
-
-=head1 DEPRECATED FUNCTIONALITIES
-
-L<DBIx::Custom>
-
-    # Attribute methods
-    data_source # will be removed at 2017/1/1
-    dbi_options # will be removed at 2017/1/1
-    filter_check # will be removed at 2017/1/1
-    reserved_word_quote # will be removed at 2017/1/1
-    cache_method # will be removed at 2017/1/1
-    
-    # Methods
-    create_query # will be removed at 2017/1/1
-    apply_filter # will be removed at 2017/1/1
-    select_at # will be removed at 2017/1/1
-    delete_at # will be removed at 2017/1/1
-    update_at # will be removed at 2017/1/1
-    insert_at # will be removed at 2017/1/1
-    register_tag # will be removed at 2017/1/1
-    default_bind_filter # will be removed at 2017/1/1
-    default_fetch_filter # will be removed at 2017/1/1
-    insert_param_tag # will be removed at 2017/1/1
-    register_tag_processor # will be removed at 2017/1/1
-    update_param_tag # will be removed at 2017/1/1
-    
-    # Options
-    select method relation option # will be removed at 2017/1/1
-    select method param option # will be removed at 2017/1/1
-    select method column option [COLUMN, as => ALIAS] format
-      # will be removed at 2017/1/1
-    
-    # Others
-    execute("select * from {= title}"); # execute method's
-                                        # tag parsing functionality
-                                        # will be removed at 2017/1/1
-    Query caching # will be removed at 2017/1/1
-
-L<DBIx::Custom::Model>
-
-    # Attribute methods
-    filter # will be removed at 2017/1/1
-    name # will be removed at 2017/1/1
-    type # will be removed at 2017/1/1
-
-L<DBIx::Custom::Query>
-    
-    # Attribute methods
-    default_filter # will be removed at 2017/1/1
-    table # will be removed at 2017/1/1
-    filters # will be removed at 2017/1/1
-    
-    # Methods
-    filter # will be removed at 2017/1/1
-
-L<DBIx::Custom::QueryBuilder>
-    
-    # Attribute methods
-    tags # will be removed at 2017/1/1
-    tag_processors # will be removed at 2017/1/1
-    
-    # Methods
-    register_tag # will be removed at 2017/1/1
-    register_tag_processor # will be removed at 2017/1/1
-    
-    # Others
-    build_query("select * from {= title}"); # tag parsing functionality
-                                            # will be removed at 2017/1/1
-
-L<DBIx::Custom::Result>
-    
-    # Attribute methods
-    filter_check # will be removed at 2017/1/1
-    
-    # Methods
-    end_filter # will be removed at 2017/1/1
-    remove_end_filter # will be removed at 2017/1/1
-    remove_filter # will be removed at 2017/1/1
-    default_filter # will be removed at 2017/1/1
-
-L<DBIx::Custom::Tag>
-
-    This module is DEPRECATED! # will be removed at 2017/1/1
-
-=head1 BACKWORD COMPATIBLE POLICY
-
-If a functionality is DEPRECATED, you can know it by DEPRECATED warnings
-except for attribute method.
-You can check all DEPRECATED functionalities by document.
-DEPRECATED functionality is removed after five years,
-but if at least one person use the functionality and tell me that thing
-I extend one year each time he tell me it.
-
-EXPERIMENTAL functionality will be changed without warnings.
-
-This policy was changed at 2011/6/28
-
-=head1 BUGS
-
-Please tell me bugs if found.
-
-C<< <kimoto.yuki at gmail.com> >>
-
-L<http://github.com/yuki-kimoto/DBIx-Custom>
-
-=head1 AUTHOR
-
-Yuki Kimoto, C<< <kimoto.yuki at gmail.com> >>
-
-=head1 COPYRIGHT & LICENSE
-
-Copyright 2009-2011 Yuki Kimoto, all rights reserved.
-
-This program is free software; you can redistribute it and/or modify it
-under the same terms as Perl itself.
-
-=cut

-603

DBIx-Custom-0.1711/lib/DBIx/Custom/Guide.pod

View

@@ -1,603 +0,0 @@
-=encoding utf8
-
-=head1 NAME
-
-DBIx::Custom::Guide - DBIx::Custom Guide
-
-=head1 FEATURES
-
-L<DBIx::Custom> is the wrapper class of L<DBI> to execute SQL easily.
-This module have the following features.
-
-=over 4
-
-=item * Execute INSERT, UPDATE, DELETE, SELECT statement easily
-
-=item * You can specify bind values by hash reference
-
-=item * Filtering by data type. and you can set filter to any column
-
-=item * Creating where clause and order by clause flexibly
-
-=item * Support model
-
-=back
-
-=head1 GUIDE
-
-=head2 Connect to database
-
-    use DBIx::Custom;
-    my $dbi = DBIx::Custom->connect(
-        dsn => "dbi:mysql:database=bookshop",
-        user => 'ken',
-        password => '!LFKD%$&',
-        dbi_option => {mysql_enable_utf8 => 1}
-    );
-
-You can connect to database by C<connect> method.
-C<dsn> is data source name, C<user> is user name, C<password> is password.
-
-C<dbi_option> is L<DBI> option.
-By default, the following option is set.
-Exeption is thrown when fatal error occur and commit mode is auto commit.
-
-    {
-        RaiseError  =>  1
-        PrintError  =>  0
-        AutoCommit  =>  1
-    }
-
-=head2 Execute query
-
-=head3 Insert Statement : C<insert>
-
-If you want to execute insert statement, use C<insert> method.
-
-    $dbi->insert({title => 'Perl', author => 'Ken'}, table  => 'book');
-
-First argument is insert row data, C<table>  is table name.
-
-=head3 Update Statement : C<update>
-
-If you want to execute update stateimuse, use C<update> method.
-
-    $dbi->update(
-        {title => 'Perl', author => 'Ken'},
-        table  => 'book', 
-        where  => {id => 5}
-    );
-
-First argument is update row data, C<table> is table name, C<where> is condition.
-
-Note that you can't execute C<update> method without C<where>.
-If you want to update all rows, use update_all.
-
-    $dbi->update_all({title => 'Perl', author => 'Ken'}, table  => 'book');
-
-=head3 Delete Statement : C<delete>
-
-If you want to execute delete statement, use C<delete> method.
-
-    $dbi->delete(table  => 'book', where  => {author => 'Ken'});
-
-C<table> is table name, C<where> is condition.
-
-Note that you can't execute C<delete> method without C<where>.
-If you want to delete all rows, use C<delete_all> method.
-
-    $dbi->delete_all(table  => 'book');
-
-=head3 Select Statement : C<select>
-
-If you want to execute select statement, use C<select> method.
-
-    my $result = $dbi->select(table => 'book');
-
-Return value is L<DBIx::Custom::Result> object.
-You can fetch rows by C<fetch> method.
-
-    while (my $row = $result->fetch) {
-        my $title  = $row->[0];
-        my $author = $row->[1];
-    }
-
-See also L<Fetch row/"Fetch row"> about L<DBIx::Custom::Result>.
-
-You can specify column names by C<column> option
-and condition by C<where> option.
-
-    my $result = $dbi->select(
-        table  => 'book',
-        column => ['author',  'title'],
-        where  => {author => 'Ken'}
-    );
-
-You can specify join clause by C<join> option.
-
-    my $result = $dbi->select(
-        table  => 'book',
-        column => ['company.name as company_name']
-        where  => {'book.name' => 'Perl'},
-        join   => ['left outer join company on book.company_id = company.id]
-    );
-
-Note that join clause is joined only when C<where> or C<column> option contains table name,
-such as book.name.
-
-You can append statement to the end of whole statement by C<append> option.
-
-    my $result = $dbi->select(
-        table  => 'book',
-        where  => {author => 'Ken'},
-        append => 'for update',
-    );
-
-=head3 C<execute>
-
-If you want to execute SQL, use C<execute> method.
-
-    $dbi->execute("select * from book;");
-
-You can specify named placeholder.
-
-    $dbi->execute(
-        "select * from book title = :title and author = :author;"
-        {title => 'Perl', author => 'Ken'}
-    );
-
-:title and :author is named placeholder, which is replaced to placeholers.
-
-    select * from book title = ? and author = ?;
-
-=head3 C<dbh>
-
-    my $dbh = $dbi->dbh;
-
-Get get database handle object of L<DBI>.
-
-=head3 C<DBI> methods
-
-    $dbi->do(...);
-    $dbi->begin_work;
-
-You can call all methods of L<DBI> from L<DBIx::Custom> object.
-
-=head2 Fetch Rows
-
-C<select> method return value is L<DBIx::Custom::Result> object.
-You can fetch a row or rows by various methods.
-
-=head3 Fetch a row (array) : C<fetch>
-
-    my $row = $result->fetch;
-
-C<fetch> method fetch a row and put it into array reference.
-You can continue to fetch 
-
-    while (my $row = $result->fetch) {
-        my $title  = $row->[0];
-        my $author = $row->[1];
-    }
-
-=head3 Fetch only first row (array) : C<fetch_first>
-
-    my $row = $result->fetch_first;
-
-C<fetch_first> fetch a only first row and finish statment handle,
-and put it into array refrence.
-
-=head3 Fetch all rows (array) : C<fetch_all>
-
-    my $rows = $result->fetch_all;
-
-C<fetch_all> fetch all rows and put them into array of array reference.
-
-=head3 Fetch a row (hash) : C<fetch_hash>
-
-    my $row = $result->fetch_hash;
-
-C<fetch_hash> fetch a row and put it into hash reference.
-You can fetch a row while row exists.
-
-    while (my $row = $result->fetch_hash) {
-        my $title  = $row->{title};
-        my $author = $row->{author};
-    }
-
-=head3 Fetch only a first row (hash) : C<fetch_hash_first>
-
-    my $row = $result->fetch_hash_first;
-
-C<fetch_hash_first> fetch only a first row and finish statement handle,
-and put them into hash refrence.
-
-C<one> is C<fetch_hash_first> synonym to save word typing.
-
-    my $row = $result->one;
-
-=head3 Fetch all rows (hash) : C<fetch_hash_all>
-
-    my $rows = $result->fetch_hash_all;
-
-C<fetch_hash_all> fetch all rows and put them into array of hash reference.
-
-=head3 Statement Handle : C<sth>
-
-    my $sth = $result->sth;
-
-If you want to get statment handle, use <sth> method.
-
-=head2 Named placeholder
-
-=head3 Basic of Parameter
-
-You can embedd named placeholder into SQL.
-
-    select * from book where title = :title and author like :author;
-
-:title and :author is named placeholder
-
-Named placeholder is replaced by place holder.
-
-    select * from book where title = ? and author like ?;
-
-use C<execute> to execute SQL.
-
-    my $sql = "select * from book where title = :title and author like :author;"
-    $dbi->execute($sql, {title => 'Perl', author => '%Ken%'});
-
-You can specify C<filter> at C<execute>.
-
-    $dbi->execute($sql, {title => 'Perl', author => '%Ken%'}
-                  filter => {title => 'to_something');
-
-=head3 Manipulate same name's columns
-
-It is ok if there are same name's columns.
-Let's think two date comparison.
-
-    my $sql = "select * from table where date > :date and date < :date;";
-
-In this case, You specify parameter values as array reference.
-
-    my $dbi->execute($sql, {date => ['2010-10-01', '2012-02-10']});
-
-=head2 Create where clause
-
-=head3 Dinamically create where clause : where
-
-You want to search multiple conditions in many times.
-Let's think the following three cases.
-
-Case1: Search only C<title>
-
-    where title = :title
-
-Case2: Search only C<author>
-
-    where author = :author
-
-Case3: Search C<title> and C<author>
-
-    where title = :title and author = :author
-
-L<DBIx::Custom> support dinamic where clause creating.
-At first, create L<DBIx::Custom::Where> object by C<where>.
-
-    my $where = $dbi->where;
-
-Set clause by C<clause>
-
-    $where->clause(
-        ['and', 'title = :title, 'author = :author']
-    );
-
-C<clause> is the following format.
-
-    ['or' or 'and', PART1, PART1, PART1]
-
-First argument is 'or' or 'and'.
-Later than first argument are part which contains named placeholder.
-
-You can write more complex format.
-
-    ['and', 
-      'title = :title', 
-      ['or', 'author = :author', 'date like :date']
-    ]
-
-This mean "title = :title and ( author = :author or date like :date )".
-
-After setting C<clause>, set C<param>.
-    
-    $where->param({title => 'Perl'});
-
-In this example, parameter contains only title.
-
-If you execute C<string_to>, you can get where clause
-which contain only named placeholder.
-
-    my $where_clause = $where->to_string;
-
-Parameter name is only title, the following where clause is created.
-
-    where title = :title
-
-You can also create where clause by stringification.
-
-    my $where_clause = "$where";
-
-This is useful to embbed it into SQL. 
-
-=head3 In case where clause contains same name columns
-
-Even if same name parameters exists, you can create where clause.
-Let's think that there are starting date and ending date.
-
-    my $param = {start_date => '2010-11-15', end_date => '2011-11-21'};
-
-In this case, you set parameter value as array reference.
-
-    my $p = {date => ['2010-11-15', '2011-11-21']};
-
-You can embbed these values into same name parameters.
-
-    $where->clause(
-        ['and', 'date > :date', 'date < :date']
-    );
-    $where->param($p);
-
-If starting date isn't exists, create the following parameter.
-
-    my $p = {date => [$dbi->not_exists, '2011-11-21']};
-
-You can get DBIx::Custom::NotExists object by C<not_exists>
-This mean correnspondinf value isn't exists.
-
-If ending date isn't exists, create the following parameter.
-
-    my $p = {date => ['2010-11-15']};
-
-If both date isn't exists, create the following parameter.
-
-    my $p = {date => []};
-
-This logic is a little difficut. See the following ones.
-
-    my @date;
-    push @date, exists $param->{start_date} ? $param->{start_date}
-                                            : $dbi->not_exists;
-    push @date, $param->{end_date} if exists $param->{end_date};
-    my $p = {date => \@date};
-
-=head3 With C<select>
-
-You can pass L<DBIx::Custom::Where> object to C<where> of C<select>.
-    
-    my $where = $dbi->where;
-    $where->clause(['and', 'title = :title', 'author = :author']);
-    $where->param({title => 'Perl'});
-    my $result = $dbi->select(table => 'book', where => $where);
-
-You can also pass it to C<where> of C<update>AC<delete>
-
-=head3 With C<execute>
-
-L<DBIx::Custom::Where> object is embedded into SQL.
-
-    my $where = $dbi->where;
-    $where->clause(['and', 'title = :title', 'author = :author']);
-    $where->param({title => 'Perl'});
-
-    my $sql = <<"EOS";
-    select * from book;
-    $where
-    EOS
-
-    $dbi->execute($sql, $param, table => 'book');
-
-=head2 Filtering
-
-=head3 Register filter : C<register_filter>
-
-If you want to register filter, use C<register_filter>.
-
-    $dbi->register_filter(
-        # Time::Piece object to DATE format
-        tp_to_date => sub {
-            my $date = shift;
-            return $tp->strftime('%Y-%m-%d');
-        },
-        
-        # DATE to Time::Piece object
-        date_to_tp => sub {
-            my $date = shift;
-            return Time::Piece->strptime($date, '%Y-%m-%d');
-        },
-    );
-
-=head3 Filter before sending data into database : C<filter> option
-
-If you filter sending data, use C<filter> option.
-
-    $dbi->execute(
-        'insert into book (date) values (:date)',
-        {date => $tp},
-        filter => {date => 'tp_to_date'}
-    );
-
-You can use C<filter> option in C<insert>, C<update>, C<delete>, C<select> method.
-
-    $dbi->insert(
-        {date => $tp},
-        table => 'book',
-        filter => {date => 'tp_to_date'}
-    );
-
-=head3 Filter after fetching data from database.
-
-If you filter fetch data, use L<DBIx::Custom::Result>'s C<filter> method.
-
-    my $result = $dbi->select(column => 'date', table => 'book');
-    $result->filter(date => 'date_to_tp');
-    my $row = $result->one;
-
-=head2 7. Model
-
-=head3 Model
-
-you can define model extending L<DBIx::Custom::Model>
-to improve source code view.
-
-At first, you create basic model class extending <DBIx::Custom::Model>.
-Each L<DBIx::Custom> class inherit L<Object::Simple>.
-so you can inherit the following way.
-
-    package MyModel;
-    use DBIx::Custom::Model -base;
-
-Next, you create each model classes.
-
-MyModel::book
-
-    package MyModel::book;
-    use MyModel -base;
-    
-    sub insert { ... }
-    sub list { ... }
-
-MyModel::company
-
-    package MyModel::company;
-    use MyModel -base;
-    
-    sub insert { ... }
-    sub list { ... }
-
-The follwoing modules location is needed.
-
-    MyModel.pm
-    MyModel / book.pm
-            / company.pm
-
-You can include these models by C<include_model>
-
-    $dbi->include_model('MyModel');
-
-First argument is name space of model.
-
-You can use model like this.
-
-    my $result = $dbi->model('book')->list;
-
-In mode, You can use such as methods,
-C<insert>, C<update>, C<update_all>,
-C<delete>, C<delete_all>, C<select>
-without C<table> option.
-
-    $dbi->model('book')->insert($param);
-
-Model is L<DBIx::Custom::Model>.
-
-If you need table nameAyou can get it by C<table>.
-
-    my $table = $model->table;
-
-You can get L<DBIx::Custom>.
-
-    my $dbi = $model->dbi;
-
-You can also call all methods of L<DBIx::Custom> and L<DBI>. 
-
-    # DBIx::Custom method
-    $model->execute($sql);
-    
-    # DBI method
-    $model->begin_work;
-    $model->commit;
-
-If you want to get all models, you can get them by keys of C<models>.
-
-    my @models = keys %{$self->models};
-
-You can set primary key to model.
-
-   $model->primary_key(['id', 'number_id']);
-
-Primary key is used by C<insert>, C<update>, C<delete>,
-and C<select> methods.
-
-You can set column names
-
-    $model->columns(['id', 'number_id']);
-
-Column names is automarically set by C<setup_model>.
-This method is needed to be call after C<include_model>.
-
-    $dbi->setup_model;
-
-You can set C<join>
-
-    $model->join(['left outer join company on book.company_id = company.id']);
-
-C<join> is used by C<select> method.
-
-=head2 Create column clause automatically : mycolumn, column
-
-To create column clause automatically, use C<mycolumn>.
-Valude of C<table> and C<columns> is used.
-
-    my $mycolumns = $model->mycolumn;
-
-If C<table> is 'book'AC<column> is ['id', 'name'],
-the following clause is created.
-
-    book.id as id, book.name as name
-
-These column name is for removing column name ambiguities.
-
-You can create column clause from columns of other table.
-
-    my $columns = $model->column('company');
-
-If C<table> is "company", C<column> return ['id', 'name'],
-the following clause is created.
-
-    company.id as "company.id", company.name as "company.name"
-
-=head2 Model Examples
-
-Model examples
-
-    package MyDBI;
-    use DBIx::Custom -base;
-    
-    sub connect {
-        my $self = shift->SUPER::connect(@_);
-        
-        $self->include_model(
-            MyModel => [
-                'book',
-                'company'
-            ]
-        );
-    }
-    
-    package MyModel::book;
-    use DBIx::Custom::Model -base;
-    
-    has primary_key => sub { ['id'] };
-    
-    sub insert { ... }
-    sub list { ... }
-    
-    package MyModel::company;
-    use DBIx::Custom::Model -base;
-
-    has primary_key => sub { ['id'] };
-    
-    sub insert { ... }
-    sub list { ... }
-
-=cut

-13

DBIx-Custom-0.1711/lib/DBIx/Custom/Guide/Ja.pod

View

...	...	@@ -1,13 +0,0 @@
1		-=encoding utf8
2		-
3		-=head1 NAME
4		-
5		-DBIx::Custom::Guide - DBIx::Customガイド
6		-
7		-=head1 LINK
8		-
9		-ドキュメントは以下のリンクに移動しました。
10		-
11		-L<http://d.hatena.ne.jp/perlcodesample/20110401/1305597081>
12		-
13		-=cut

-247

DBIx-Custom-0.1711/lib/DBIx/Custom/Model.pm

View

@@ -1,247 +0,0 @@
-package DBIx::Custom::Model;
-use Object::Simple -base;
-
-use Carp 'croak';
-use DBIx::Custom::Util '_subname';
-
-# Carp trust relationship
-push @DBIx::Custom::CARP_NOT, __PACKAGE__;
-
-has [qw/dbi table/],
-    bind_type => sub { [] },
-    columns => sub { [] },
-    join => sub { [] },
-    primary_key => sub { [] };
-
-our $AUTOLOAD;
-
-sub AUTOLOAD {
-    my $self = shift;
-
-    # Method name
-    my ($package, $mname) = $AUTOLOAD =~ /^([\w\:]+)\:\:(\w+)$/;
-
-    # Method
-    $self->{_methods} ||= {};
-    if (my $method = $self->{_methods}->{$mname}) {
-        return $self->$method(@_)
-    }
-    elsif (my $dbi_method = $self->dbi->can($mname)) {
-        $self->dbi->$dbi_method(@_);
-    }
-    elsif ($self->{dbh} && (my $dbh_method = $self->dbh->can($mname))) {
-        $self->dbi->dbh->$dbh_method(@_);
-    }
-    else {
-        croak qq{Can't locate object method "$mname" via "$package" }
-            . _subname;
-    }
-}
-
-my @methods = qw/insert insert_at update update_at update_all
-                 delete delete_at delete_all select select_at/;
-foreach my $method (@methods) {
-
-    my $code = sub {
-        my $self = shift;
-
-        my @args = (
-            table => $self->table,
-            bind_type => $self->bind_type,
-            primary_key => $self->primary_key,
-            type => $self->type, # DEPRECATED!
-        );
-        push @args, (join => $self->join) if $method =~ /^select/;
-        unshift @args, shift if @_ % 2;
-        
-        $self->dbi->$method(@args, @_);
-    };
-    
-    no strict 'refs';
-    my $class = __PACKAGE__;
-    *{"${class}::$method"} = $code;
-}
-
-sub DESTROY { }
-
-sub method {
-    my $self = shift;
-    
-    # Merge
-    my $methods = ref $_[0] eq 'HASH' ? $_[0] : {@_};
-    $self->{_methods} = {%{$self->{_methods} || {}}, %$methods};
-    
-    return $self;
-}
-
-sub mycolumn {
-    my $self = shift;
-    my $table = shift unless ref $_[0];
-    my $columns = shift;
-    
-    $table ||= $self->table || '';
-    $columns ||= $self->columns;
-    
-    return $self->dbi->mycolumn($table, $columns);
-}
-
-sub new {
-    my $self = shift->SUPER::new(@_);
-    
-    # Check attribute names
-    my @attrs = keys %$self;
-    foreach my $attr (@attrs) {
-        croak qq{"$attr" is invalid attribute name } . _subname
-          unless $self->can($attr);
-    }
-    
-    return $self;
-}
-
-# DEPRECATED!
-has 'filter';
-has 'name';
-has type => sub { [] };
-
-1;
-
-=head1 NAME
-
-DBIx::Custom::Model - Model
-
-=head1 SYNOPSIS
-
-use DBIx::Custom::Table;
-
-my $table = DBIx::Custom::Model->new(table => 'books');
-
-=head1 ATTRIBUTES
-
-=head2 C<dbi>
-
-    my $dbi = $model->dbi;
-    $model = $model->dbi($dbi);
-
-L<DBIx::Custom> object.
-
-=head2 C<join>
-
-    my $join = $model->join;
-    $model = $model->join(
-        ['left outer join company on book.company_id = company.id']
-    );
-    
-Join clause, this value is passed to C<select> method.
-
-=head2 C<primary_key>
-
-    my $primary_key = $model->primary_key;
-    $model = $model->primary_key(['id', 'number']);
-
-Primary key,this is passed to C<insert>, C<update>,
-C<delete>, and C<select> method.
-
-=head2 C<table>
-
-    my $table = $model->table;
-    $model = $model->table('book');
-
-Table name, this is passed to C<select> method.
-
-=head2 C<bind_type>
-
-    my $type = $model->bind_type;
-    $model = $model->bind_type(['image' => DBI::SQL_BLOB]);
-    
-Database data type, this is used as type optioon of C<insert>, 
-C<update>, C<update_all>, C<delete>, C<delete_all>,
-C<select>, and C<execute> method
-
-=head1 METHODS
-
-L<DBIx::Custom::Model> inherits all methods from L<Object::Simple>,
-and you can use all methods of L<DBIx::Custom> and L<DBI>
-and implements the following new ones.
-
-=head2 C<delete>
-
-    $table->delete(...);
-    
-Same as C<delete> of L<DBIx::Custom> except that
-you don't have to specify C<table> option.
-
-=head2 C<delete_all>
-
-    $table->delete_all(...);
-    
-Same as C<delete_all> of L<DBIx::Custom> except that
-you don't have to specify C<table> option.
-
-=head2 C<insert>
-
-    $table->insert(...);
-    
-Same as C<insert> of L<DBIx::Custom> except that
-you don't have to specify C<table> option.
-
-=head2 C<method>
-
-    $model->method(
-        update_or_insert => sub {
-            my $self = shift;
-            
-            # ...
-        },
-        find_or_create   => sub {
-            my $self = shift;
-            
-            # ...
-    );
-
-Register method. These method is called directly from L<DBIx::Custom::Model> object.
-
-    $model->update_or_insert;
-    $model->find_or_create;
-
-=head2 C<mycolumn>
-
-    my $column = $self->mycolumn;
-    my $column = $self->mycolumn(book => ['author', 'title']);
-    my $column = $self->mycolumn(['author', 'title']);
-
-Create column clause for myself. The follwoing column clause is created.
-
-    book.author as author,
-    book.title as title
-
-If table name is ommited, C<table> attribute of the model is used.
-If column names is omitted, C<columns> attribute of the model is used.
-
-=head2 C<new>
-
-    my $table = DBIx::Custom::Table->new;
-
-Create a L<DBIx::Custom::Table> object.
-
-=head2 C<select>
-
-    $table->select(...);
-    
-Same as C<select> of L<DBIx::Custom> except that
-you don't have to specify C<table> option.
-
-=head2 C<update>
-
-    $table->update(...);
-    
-Same as C<update> of L<DBIx::Custom> except that
-you don't have to specify C<table> option.
-
-=head2 C<update_all>
-
-    $table->update_all(param => \%param);
-    
-Same as C<update_all> of L<DBIx::Custom> except that
-you don't have to specify table name.
-
-=cut

-108

DBIx-Custom-0.1711/lib/DBIx/Custom/Order.pm

View

@@ -1,108 +0,0 @@
-package DBIx::Custom::Order;
-use Object::Simple -base;
-use overload
-  'bool'   => sub {1},
-  '""'     => sub { shift->to_string },
-  fallback => 1;
-
-has 'dbi',
-    orders => sub { [] };
-
-sub prepend {
-    my $self = shift;
-    
-    foreach my $order (reverse @_) {
-        if (ref $order eq 'ARRAY') {
-            my $column = shift @$order;
-            $column = $self->dbi->_q($column) if defined $column;
-            my $derection = shift @$order;
-            $order = $column;
-            $order .= " $derection" if $derection;
-        }
-        unshift @{$self->orders}, $order;
-    }
-    
-    return $self;
-}
-
-sub to_string {
-    my $self = shift;
-    
-    my $exists = {};
-    my @orders;
-    foreach my $order (@{$self->orders}) {
-        next unless defined $order;
-        $order =~ s/^\s+//;
-        $order =~ s/\s+$//;
-        my ($column, $direction) = split /\s+/, $order;
-        push @orders, $order unless $exists->{$column};
-        $exists->{$column} = 1;
-    }
-    
-    return '' unless @orders;
-    return 'order by ' . join(', ', @orders);
-}
-
-1;
-
-=head1 NAME
-
-DBIx::Custom::Order - Order by EXPERIMENTAL
-
-=head1 SYNOPSIS
-
-    # Result
-    my $order = DBIx::Custom::Order->new;
-    $order->prepend('title', 'author desc');
-    my $order_by = "$order";
-    
-=head1 ATTRIBUTES
-
-=head2 C<dbi>
-
-    my $dbi = $order->dbi;
-    $order = $order->dbi($dbi);
-
-L<DBIx::Custom> object.
-
-=head2 C<orders>
-
-    my $orders = $result->orders;
-    $result = $result->orders(\%orders);
-
-Parts of order by clause
-
-=head1 METHODS
-
-L<DBIx::Custom::Result> inherits all methods from L<Object::Simple>
-and implements the following new ones.
-
-=head2 C<prepend>
-
-    $order->prepend('title', 'author desc');
-
-Prepend order parts to C<orders>.
-
-You can pass array reference, which contain column name and direction.
-Column name is quoted properly
-    
-    # Column name and direction
-    $order->prepend(['book-title']);
-    $order->prepend([qw/book-title desc/]);
-
-This is expanded to the following way.
-
-    "book-title"
-    "book-title" desc
-
-=head2 C<to_string>
-
-    my $order_by = $order->to_string;
-
-Create order by clause. If column name is duplicated, First one is used.
-C<to_string> override stringification. so you can write the follwoing way.
-
-    my $order_by = "$order";
-
-=cut
-

-116

DBIx-Custom-0.1711/lib/DBIx/Custom/Query.pm

View

@@ -1,116 +0,0 @@
-package DBIx::Custom::Query;
-use Object::Simple -base;
-
-use Carp 'croak';
-use DBIx::Custom::Util '_subname';
-
-has 'sth',
-    sql => '',
-    columns => sub { [] };
-
-# DEPRECATED!
-has 'default_filter';
-sub filters {
-    warn "DBIx::Custom::Query filters attribute method is DEPRECATED!";
-    my $self = shift;
-    if (@_) {
-        $self->{filters} = $_[0];
-        return $self;
-    }
-    return $self->{filters};
-}
-
-# DEPRECATED!
-sub tables {
-    warn "DBIx::Custom::Query tables attribute method is DEPRECATED!";
-    my $self = shift;
-    if (@_) {
-        $self->{tables} = $_[0];
-        return $self;
-    }
-    return $self->{tables} ||= [];
-}
-
-#DEPRECATED!
-sub filter {
-    Carp::carp "DBIx::Custom::Query filter method is DEPRECATED!";
-    my $self = shift;
-    if (@_) {
-        my $filter = {};
-        if (ref $_[0] eq 'HASH') {
-            $filter = $_[0];
-        }
-        else {
-            my $ef = @_ > 1 ? [@_] : $_[0];
-            for (my $i = 0; $i < @$ef; $i += 2) {
-                my $column = $ef->[$i];
-                my $f = $ef->[$i + 1];
-                if (ref $column eq 'ARRAY') {
-                    foreach my $c (@$column) {
-                        $filter->{$c} = $f;
-                    }
-                }
-                else {
-                    $filter->{$column} = $f;
-                }
-            }
-        }
-        foreach my $column (keys %$filter) {
-            my $fname = $filter->{$column};
-            if  (exists $filter->{$column}
-              && defined $fname
-              && ref $fname ne 'CODE') 
-            {
-                my $filters = $self->{filters} || {};
-                croak qq{Filter "$fname" is not registered" } . _subname
-                  unless exists $filters->{$fname};
-                $filter->{$column} = $filters->{$fname};
-            }
-        }
-        $self->{filter} = {%{$self->{filter} || {}}, %$filter};
-        return $self;
-    }
-    return $self->{filter} ||= {};
-}
-
-1;
-
-=head1 NAME
-
-DBIx::Custom::Query - Query
-
-=head1 SYNOPSIS
-    
-    my $query = DBIx::Custom::Query->new;
-    my $sth = $query->sth;
-    my $sql = $query->sql;
-    my $columns = $query->columns;
-    
-=head1 ATTRIBUTES
-
-=head2 C<columns>
-
-    my $columns = $query->columns;
-    $query      = $query->columns(['auhtor', 'title']);
-
-Column names.
-
-=head2 C<sql>
-
-    my $sql = $query->sql;
-    $query  = $query->sql('select * from books where author = ?;');
-
-SQL statement.
-
-=head2 C<sth>
-
-    my $sth = $query->sth;
-    $query  = $query->sth($sth);
-
-Statement handle of L<DBI>
-
-=head1 METHODS
-
-L<DBIx::Custom::Query> inherits all methods from L<Object::Simple>.
-
-=cut

-329

DBIx-Custom-0.1711/lib/DBIx/Custom/QueryBuilder.pm

View

@@ -1,329 +0,0 @@
-package DBIx::Custom::QueryBuilder;
-
-use Object::Simple -base;
-
-use Carp 'croak';
-use DBIx::Custom::Query;
-use DBIx::Custom::Util '_subname';
-
-# Carp trust relationship
-push @DBIx::Custom::CARP_NOT, __PACKAGE__;
-push @DBIx::Custom::Where::CARP_NOT, __PACKAGE__;
-
-has 'dbi';
-
-sub build_query {
-    my ($self, $source) = @_;
-    
-    my $query;
-    
-    # Parse tag. tag is DEPRECATED!
-    if ($self->dbi->tag_parse && $source =~ /(\s|^)\{/) {
-        $query = $self->_parse_tag($source);
-        my $tag_count = delete $query->{tag_count};
-        warn qq/Tag system such as {? name} is DEPRECATED! / .
-             qq/use parameter system such as :name instead/
-          if $tag_count;
-        my $query2 = $self->_parse_parameter($query->sql);
-        $query->sql($query2->sql);
-        for (my $i =0; $i < @{$query->columns}; $i++) {
-            my $column = $query->columns->[$i];
-            if ($column eq 'RESERVED_PARAMETER') {
-                my $column2 = shift @{$query2->columns};
-                croak ":name syntax is wrong"
-                  unless defined $column2;
-                $query->columns->[$i] = $column2;
-            }
-        }
-    }
-    
-    # Parse parameter
-    else { $query = $self->_parse_parameter($source) }
-    
-    my $sql = $query->sql;
-    $sql .= ';' unless $source =~ /;$/;
-    $query->sql($sql);
-
-    # Check placeholder count
-    croak qq{Placeholder count in "$sql" must be same as column count}
-        . _subname
-      unless $self->_placeholder_count($sql) eq @{$query->columns};
-        
-    return $query;
-}
-
-sub _placeholder_count {
-    my ($self, $sql) = @_;
-    
-    # Count
-    $sql ||= '';
-    my $count = 0;
-    my $pos   = -1;
-    while (($pos = index($sql, '?', $pos + 1)) != -1) {
-        $count++;
-    }
-    return $count;
-}
-
-sub _parse_parameter {
-    my ($self, $source) = @_;
-    
-    # Get and replace parameters
-    my $sql = $source || '';
-    my $columns = [];
-    my $c = $self->dbi->safety_character;
-    # Parameter regex
-    $sql =~ s/([^:]):(\d+):([^:])/$1\\:$2\\:$3/g;
-    my $re = qr/(^|.*?[^\\]):([$c\.]+)(?:\{(.*?)\})?(.*)/s;
-    while ($sql =~ /$re/g) {
-        push @$columns, $2;
-        $sql = defined $3 ? "$1$2 $3 ?$4" : "$1?$4";
-    }
-    $sql =~ s/\\:/:/g;
-
-    # Create query
-    my $query = DBIx::Custom::Query->new(
-        sql => $sql,
-        columns => $columns
-    );
-    
-    return $query;
-}
-    
-# DEPRECATED!
-has tags => sub { {} };
-
-# DEPRECATED!
-sub register_tag {
-    my $self = shift;
-    
-    warn "register_tag is DEPRECATED!";
-    
-    # Merge tag
-    my $tags = ref $_[0] eq 'HASH' ? $_[0] : {@_};
-    $self->tags({%{$self->tags}, %$tags});
-    
-    return $self;
-}
-
-# DEPRECATED!
-sub _parse_tag {
-    my ($self, $source) = @_;
-    # Source
-    $source ||= '';
-    # Tree
-    my @tree;
-    # Value
-    my $value = '';
-    # State
-    my $state = 'text';
-    # Before charactor
-    my $before = '';
-    # Position
-    my $pos = 0;
-    # Parse
-    my $original = $source;
-    my $tag_count = 0;
-    while (defined(my $c = substr($source, $pos, 1))) {
-        # Last
-        last unless length $c;
-        # Parameter
-        if ($c eq ':' && (substr($source, $pos + 1, 1) || '') =~ /\w/) {
-            push @tree, {type => 'param'};;
-        }
-        # State is text
-        if ($state eq 'text') {
-            # Tag start charactor
-            if ($c eq '{') {
-                # Escaped charactor
-                if ($before eq "\\") {
-                    substr($value, -1, 1, '');
-                    $value .= $c;
-                }
-                # Tag start
-                else {
-                    # Change state
-                    $state = 'tag';
-                    # Add text
-                    push @tree, {type => 'text', value => $value}
-                      if $value;
-                    # Clear
-                    $value = '';
-                }
-            }
-            # Tag end charactor
-            elsif ($c eq '}') {
-                # Escaped charactor
-                if ($before eq "\\") {
-                    substr($value, -1, 1, '');
-                    $value .= $c;
-                }
-                # Unexpected
-                else {
-                    croak qq{Parsing error. unexpected "\}". }
-                        . qq{pos $pos of "$original" } . _subname
-                }
-            }
-            # Normal charactor
-            else { $value .= $c }
-        }
-        # State is tags
-        else {
-            # Tag start charactor
-            if ($c eq '{') {
-                # Escaped charactor
-                if ($before eq "\\") {
-                    substr($value, -1, 1, '');
-                    $value .= $c;
-                }
-                # Unexpected
-                else {
-                    croak qq{Parsing error. unexpected "\{". }
-                        . qq{pos $pos of "$original" } . _subname
-                }
-            }
-            # Tag end charactor
-            elsif ($c eq '}') {
-                # Escaped charactor
-                if ($before eq "\\") {
-                    substr($value, -1, 1, '');
-                    $value .= $c;
-                }
-                # Tag end
-                else {
-                    # Change state
-                    $state = 'text';
-                    # Add tag
-                    my ($tag_name, @tag_args) = split /\s+/, $value;
-                    push @tree, {type => 'tag', tag_name => $tag_name, 
-                                 tag_args => \@tag_args};
-                    # Clear
-                    $value = '';
-                    # Countup
-                    $tag_count++;
-                }
-            }
-            # Normal charactor
-            else { $value .= $c }
-        }
-        # Save before charactor
-        $before = $c;
-        # increment position
-        $pos++;
-    }
-    # Tag not finished
-    croak qq{Tag not finished. "$original" } . _subname
-      if $state eq 'tag';
-    # Not contains tag
-    return DBIx::Custom::Query->new(sql => $source, tag_count => $tag_count)
-      if $tag_count == 0;
-    # Add rest text
-    push @tree, {type => 'text', value => $value}
-      if $value;
-    # SQL
-    my $sql = '';
-    # All Columns
-    my $all_columns = [];
-    # Tables
-    my $tables = [];
-    # Build SQL 
-    foreach my $node (@tree) {
-        # Text
-        if ($node->{type} eq 'text') { $sql .= $node->{value} }
-        # Parameter
-        elsif ($node->{type} eq 'param') {
-            push @$all_columns, 'RESERVED_PARAMETER';
-        }
-        # Tag
-        else {
-            # Tag name
-            my $tag_name = $node->{tag_name};
-            # Tag arguments
-            my $tag_args = $node->{tag_args};
-            # Table
-            if ($tag_name eq 'table') {
-                my $table = $tag_args->[0];
-                push @$tables, $table;
-                $sql .= $table;
-                next;
-            }
-            # Get tag
-            my $tag = $self->tag_processors->{$tag_name}
-                             || $self->tags->{$tag_name};
-            # Tag is not registered
-            croak qq{Tag "$tag_name" is not registered } . _subname
-              unless $tag;
-            # Tag not sub reference
-            croak qq{Tag "$tag_name" must be sub reference } . _subname
-              unless ref $tag eq 'CODE';
-            # Execute tag
-            my $r = $tag->(@$tag_args);
-            # Check tag return value
-            croak qq{Tag "$tag_name" must return [STRING, ARRAY_REFERENCE] }
-                . _subname
-              unless ref $r eq 'ARRAY' && defined $r->[0] && ref $r->[1] eq 'ARRAY';
-            # Part of SQL statement and colum names
-            my ($part, $columns) = @$r;
-            # Add columns
-            push @$all_columns, @$columns;
-            # Join part tag to SQL
-            $sql .= $part;
-        }
-    }
-    # Query
-    my $query = DBIx::Custom::Query->new(
-        sql => $sql,
-        columns => $all_columns,
-        tables => $tables,
-        tag_count => $tag_count
-    );
-    return $query;
-}
-
-# DEPRECATED!
-has tag_processors => sub { {} };
-
-# DEPRECATED!
-sub register_tag_processor {
-    my $self = shift;
-    warn "register_tag_processor is DEPRECATED!";
-    # Merge tag
-    my $tag_processors = ref $_[0] eq 'HASH' ? $_[0] : {@_};
-    $self->tag_processors({%{$self->tag_processors}, %{$tag_processors}});
-    return $self;
-}
-
-1;
-
-=head1 NAME
-
-DBIx::Custom::QueryBuilder - Query builder
-
-=head1 SYNOPSIS
-    
-    my $builder = DBIx::Custom::QueryBuilder->new;
-    my $query = $builder->build_query(
-        "select from table title = :title and author = :author"
-    );
-
-=head1 ATTRIBUTES
-
-=head2 C<dbi>
-
-    my $dbi = $builder->dbi;
-    $builder = $builder->dbi($dbi);
-
-L<DBIx::Custom> object.
-
-=head1 METHODS
-
-L<DBIx::Custom::QueryBuilder> inherits all methods from L<Object::Simple>
-and implements the following new ones.
-
-=head2 C<build_query>
-    
-    my $query = $builder->build_query($source);
-
-Create a new L<DBIx::Custom::Query> object from SQL source.
-
-=cut

-573

DBIx-Custom-0.1711/lib/DBIx/Custom/Result.pm

View

@@ -1,573 +0,0 @@
-package DBIx::Custom::Result;
-use Object::Simple -base;
-
-use Carp 'croak';
-use DBIx::Custom::Util qw/_array_to_hash _subname/;
-
-has [qw/dbi sth/],
-    stash => sub { {} };
-
-*all = \&fetch_hash_all;
-
-sub filter {
-    my $self = shift;
-    
-    # Set
-    if (@_) {
-        
-        # Convert filter name to subroutine
-        my $filter = @_ == 1 ? $_[0] : [@_];
-        $filter = _array_to_hash($filter);
-        foreach my $column (keys %$filter) {
-            my $fname = $filter->{$column};
-            if  (exists $filter->{$column}
-              && defined $fname
-              && ref $fname ne 'CODE') 
-            {
-              croak qq{Filter "$fname" is not registered" } . _subname
-                unless exists $self->dbi->filters->{$fname};
-              $filter->{$column} = $self->dbi->filters->{$fname};
-            }
-        }
-        
-        # Merge
-        $self->{filter} = {%{$self->filter}, %$filter};
-        
-        return $self;
-    }
-    
-    return $self->{filter} ||= {};
-}
-
-sub filter_off {
-    my $self = shift;
-    $self->{filter_off} = 1;
-    return $self;
-}
-
-sub filter_on {
-    my $self = shift;
-    $self->{filter_off} = 0;
-    return $self;
-}
-
-sub fetch {
-    my $self = shift;
-    
-    # Info
-    my $columns = $self->{sth}->{NAME};
-    my $types = $self->{sth}->{TYPE};
-    
-    # Fetch
-    my @row = $self->{sth}->fetchrow_array;
-    return unless @row;
-    
-    # Filtering
-    my $type_rule1 = $self->type_rule->{from1} || {};
-    my $type_rule2 = $self->type_rule->{from2} || {};
-    my $filter = $self->filter;
-    my $end_filter = $self->{end_filter} || {};
-    for (my $i = 0; $i < @$columns; $i++) {
-        
-        # Column
-        my $column = $columns->[$i];
-        
-        # Type rule
-        my $type_filter1 = $type_rule1->{lc($types->[$i])};
-        $row[$i] = $type_filter1->($row[$i])
-          if  $type_filter1 && !$self->{type_rule_off}
-           && !$self->{type_rule1_off};
-        my $type_filter2 = $type_rule2->{lc($types->[$i])};
-        $row[$i] = $type_filter2->($row[$i])
-          if  $type_filter2 && !$self->{type_rule_off}
-           && !$self->{type_rule2_off};
-        
-        # Filter
-        my $filter  = $filter->{$column} || $self->{default_filter};
-        $row[$i] = $filter->($row[$i])
-          if $filter && !$self->{filter_off};
-        $row[$i] = $end_filter->{$column}->($row[$i])
-          if $end_filter->{$column} && !$self->{filter_off};
-    }
-
-    return \@row;
-}
-
-sub fetch_all {
-    my $self = shift;
-    
-    # Fetch all rows
-    my $rows = [];
-    while(my $row = $self->fetch) { push @$rows, $row}
-    
-    return $rows;
-}
-
-sub fetch_first {
-    my $self = shift;
-    
-    # Fetch
-    my $row = $self->fetch;
-    return unless $row;
-    
-    # Finish statement handle
-    $self->sth->finish;
-    
-    return $row;
-}
-
-sub fetch_hash {
-    my $self = shift;
-    
-    # Info
-    my $columns = $self->{sth}->{NAME};
-    my $types = $self->{sth}->{TYPE};
-    
-    # Fetch
-    my $row = $self->{sth}->fetchrow_arrayref;
-    return unless $row;
-
-    # Filter
-    my $hash_row = {};
-    my $filter  = $self->filter;
-    my $end_filter = $self->{end_filter} || {};
-    my $type_rule1 = $self->type_rule->{from1} || {};
-    my $type_rule2 = $self->type_rule->{from2} || {};
-    for (my $i = 0; $i < @$columns; $i++) {
-        
-        # Column
-        my $column = $columns->[$i];
-        $hash_row->{$column} = $row->[$i];
-        
-        # Type rule
-        my $type_filter1 = $type_rule1->{lc($types->[$i])};
-        $hash_row->{$column} = $type_filter1->($hash_row->{$column})
-        if  !$self->{type_rule_off} && !$self->{type_rule1_off}
-         && $type_filter1;
-        my $type_filter2 = $type_rule2->{lc($types->[$i])};
-        $hash_row->{$column} = $type_filter2->($hash_row->{$column})
-        if  !$self->{type_rule_off} && !$self->{type_rule2_off}
-         && $type_filter2;
-        
-        # Filter
-        my $f = $filter->{$column} || $self->{default_filter};
-        $hash_row->{$column} = $f->($hash_row->{$column})
-          if $f && !$self->{filter_off};
-        $hash_row->{$column} = $end_filter->{$column}->($hash_row->{$column})
-          if $end_filter->{$column} && !$self->{filter_off};
-    }
-    
-    return $hash_row;
-}
-
-sub fetch_hash_all {
-    my $self = shift;
-    
-    # Fetch all rows as hash
-    my $rows = [];
-    while(my $row = $self->fetch_hash) { push @$rows, $row }
-    
-    return $rows;
-}
-
-sub fetch_hash_first {
-    my $self = shift;
-    
-    # Fetch hash
-    my $row = $self->fetch_hash;
-    return unless $row;
-    
-    # Finish statement handle
-    $self->sth->finish;
-    
-    return $row;
-}
-
-sub fetch_hash_multi {
-    my ($self, $count) = @_;
-    
-    # Fetch multiple rows
-    croak 'Row count must be specified ' . _subname
-      unless $count;
-    my $rows = [];
-    for (my $i = 0; $i < $count; $i++) {
-        my $row = $self->fetch_hash;
-        last unless $row;
-        push @$rows, $row;
-    }
-    
-    return unless @$rows;
-    return $rows;
-}
-
-sub fetch_multi {
-    my ($self, $count) = @_;
-    
-    # Row count not specifed
-    croak 'Row count must be specified ' . _subname
-      unless $count;
-    
-    # Fetch multi rows
-    my $rows = [];
-    for (my $i = 0; $i < $count; $i++) {
-        my $row = $self->fetch;
-        last unless $row;
-        push @$rows, $row;
-    }
-    
-    return unless @$rows;
-    return $rows;
-}
-
-sub header { shift->sth->{NAME} }
-
-*one = \&fetch_hash_first;
-
-sub type_rule {
-    my $self = shift;
-    
-    if (@_) {
-        my $type_rule = ref $_[0] eq 'HASH' ? $_[0] : {@_};
-
-        # From
-        foreach my $i (1 .. 2) {
-            $type_rule->{"from$i"} = _array_to_hash($type_rule->{"from$i"});
-            foreach my $data_type (keys %{$type_rule->{"from$i"} || {}}) {
-                croak qq{data type of from$i section must be lower case or number}
-                  if $data_type =~ /[A-Z]/;
-                my $fname = $type_rule->{"from$i"}{$data_type};
-                if (defined $fname && ref $fname ne 'CODE') {
-                    croak qq{Filter "$fname" is not registered" } . _subname
-                      unless exists $self->dbi->filters->{$fname};
-                    
-                    $type_rule->{"from$i"}{$data_type} = $self->dbi->filters->{$fname};
-                }
-            }
-        }
-        $self->{type_rule} = $type_rule;
-        
-        return $self;
-    }
-    
-    return $self->{type_rule} || {};
-}
-
-sub type_rule_off {
-    my $self = shift;
-    $self->{type_rule_off} = 1;
-    return $self;
-}
-
-sub type_rule_on {
-    my $self = shift;
-    $self->{type_rule_off} = 0;
-    return $self;
-}
-
-sub type_rule1_off {
-    my $self = shift;
-    $self->{type_rule1_off} = 1;
-    return $self;
-}
-
-sub type_rule1_on {
-    my $self = shift;
-    $self->{type_rule1_off} = 0;
-    return $self;
-}
-
-sub type_rule2_off {
-    my $self = shift;
-    $self->{type_rule2_off} = 1;
-    return $self;
-}
-
-sub type_rule2_on {
-    my $self = shift;
-    $self->{type_rule2_off} = 0;
-    return $self;
-}
-
-# DEPRECATED!
-sub end_filter {
-    warn "end_filter method is DEPRECATED!";
-    my $self = shift;
-    if (@_) {
-        my $end_filter = {};
-        if (ref $_[0] eq 'HASH') { $end_filter = $_[0] }
-        else { 
-            $end_filter = _array_to_hash(
-                @_ > 1 ? [@_] : $_[0]
-            );
-        }
-        foreach my $column (keys %$end_filter) {
-            my $fname = $end_filter->{$column};
-            if  (exists $end_filter->{$column}
-              && defined $fname
-              && ref $fname ne 'CODE') 
-            {
-              croak qq{Filter "$fname" is not registered" } . _subname
-                unless exists $self->dbi->filters->{$fname};
-              $end_filter->{$column} = $self->dbi->filters->{$fname};
-            }
-        }
-        $self->{end_filter} = {%{$self->end_filter}, %$end_filter};
-        return $self;
-    }
-    return $self->{end_filter} ||= {};
-}
-# DEPRECATED!
-sub remove_end_filter {
-    warn "remove_end_filter is DEPRECATED!";
-    my $self = shift;
-    $self->{end_filter} = {};
-    return $self;
-}
-# DEPRECATED!
-sub remove_filter {
-    warn "remove_filter is DEPRECATED!";
-    my $self = shift;
-    $self->{filter} = {};
-    return $self;
-}
-# DEPRECATED!
-sub default_filter {
-    warn "default_filter is DEPRECATED!";
-    my $self = shift;
-    if (@_) {
-        my $fname = $_[0];
-        if (@_ && !$fname) {
-            $self->{default_filter} = undef;
-        }
-        else {
-            croak qq{Filter "$fname" is not registered}
-              unless exists $self->dbi->filters->{$fname};
-            $self->{default_filter} = $self->dbi->filters->{$fname};
-        }
-        return $self;
-    }
-    return $self->{default_filter};
-}
-# DEPRECATED!
-has 'filter_check'; 
-
-1;
-
-=head1 NAME
-
-DBIx::Custom::Result - Result of select statement
-
-=head1 SYNOPSIS
-
-    # Result
-    my $result = $dbi->select(table => 'book');
-
-    # Fetch a row and put it into array reference
-    while (my $row = $result->fetch) {
-        my $author = $row->[0];
-        my $title  = $row->[1];
-    }
-    
-    # Fetch only a first row and put it into array reference
-    my $row = $result->fetch_first;
-    
-    # Fetch all rows and put them into array of array reference
-    my $rows = $result->fetch_all;
-
-    # Fetch a row and put it into hash reference
-    while (my $row = $result->fetch_hash) {
-        my $title  = $row->{title};
-        my $author = $row->{author};
-    }
-    
-    # Fetch only a first row and put it into hash reference
-    my $row = $result->fetch_hash_first;
-    my $row = $result->one; # Same as fetch_hash_first
-    
-    # Fetch all rows and put them into array of hash reference
-    my $rows = $result->fetch_hash_all;
-    my $rows = $result->all; # Same as fetch_hash_all
-
-=head1 ATTRIBUTES
-
-=head2 C<dbi>
-
-    my $dbi = $result->dbi;
-    $result = $result->dbi($dbi);
-
-L<DBIx::Custom> object.
-
-=head2 C<sth>
-
-    my $sth = $reuslt->sth
-    $result = $result->sth($sth);
-
-Statement handle of L<DBI>.
-
-=head1 METHODS
-
-L<DBIx::Custom::Result> inherits all methods from L<Object::Simple>
-and implements the following new ones.
-
-=head2 C<all>
-
-    my $rows = $result->all;
-
-Same as C<fetch_hash_all>.
-
-=head2 C<fetch>
-
-    my $row = $result->fetch;
-
-Fetch a row and put it into array reference.
-
-=head2 C<fetch_all>
-
-    my $rows = $result->fetch_all;
-
-Fetch all rows and put them into array of array reference.
-
-=head2 C<fetch_first>
-
-    my $row = $result->fetch_first;
-
-Fetch only a first row and put it into array reference,
-and finish statment handle.
-
-=head2 C<fetch_hash>
-
-    my $row = $result->fetch_hash;
-
-Fetch a row and put it into hash reference.
-
-=head2 C<fetch_hash_all>
-
-    my $rows = $result->fetch_hash_all;
-
-Fetch all rows and put them into array of hash reference.
-
-=head2 C<fetch_hash_first>
-    
-    my $row = $result->fetch_hash_first;
-
-Fetch only a first row and put it into hash reference,
-and finish statment handle.
-
-=head2 C<fetch_hash_multi>
-
-    my $rows = $result->fetch_hash_multi(5);
-    
-Fetch multiple rows and put them into array of hash reference.
-
-=head2 C<fetch_multi>
-
-    my $rows = $result->fetch_multi(5);
-    
-Fetch multiple rows and put them into array of array reference.
-
-=head2 C<filter>
-
-    $result->filter(title  => sub { uc $_[0] }, author => 'to_upper');
-    $result->filter([qw/title author/] => 'to_upper');
-
-Set filter for column.
-You can use subroutine or filter name as filter.
-This filter is executed after C<type_rule> filter.
-
-=head2 C<filter_off> EXPERIMENTAL
-
-    $result = $result->filter_off;
-
-Turn filtering by C<filter> method off.
-By default, filterin is on.
-
-=head2 C<filter_on> EXPERIMENTAL
-
-    $result = $resutl->filter_on;
-
-Turn filtering by C<filter> method on.
-By default, filterin is on.
-
-=head2 C<header>
-
-    my $header = $result->header;
-
-Get header column names.
-
-=head2 C<one>
-
-    my $row = $result->one;
-
-Same as C<fetch_hash_first>.
-
-=head2 C<stash>
-
-    my $stash = $result->stash;
-    my $foo = $result->stash->{foo};
-    $result->stash->{foo} = $foo;
-
-Stash is hash reference for data.
-
-=head2 C<type_rule> EXPERIMENTAL
-    
-    # Merge type rule
-    $result->type_rule(
-        # DATE
-        9 => sub { ... },
-        # DATETIME or TIMESTAMP
-        11 => sub { ... }
-    );
-
-    # Replace type rule(by reference)
-    $result->type_rule([
-        # DATE
-        9 => sub { ... },
-        # DATETIME or TIMESTAMP
-        11 => sub { ... }
-    ]);
-
-This is same as L<DBIx::Custom>'s C<type_rule>'s <from>.
-
-=head2 C<type_rule_off> EXPERIMENTAL
-
-    $result = $result->type_rule_off;
-
-Turn C<from1> and C<from2> type rule off.
-By default, type rule is on.
-
-=head2 C<type_rule_on> EXPERIMENTAL
-
-    $result = $result->type_rule_on;
-
-Turn C<from1> and C<from2> type rule on.
-By default, type rule is on.
-
-=head2 C<type_rule1_off> EXPERIMENTAL
-
-    $result = $result->type_rule1_off;
-
-Turn C<from1> type rule off.
-By default, type rule is on.
-
-=head2 C<type_rule1_on> EXPERIMENTAL
-
-    $result = $result->type_rule1_on;
-
-Turn C<from1> type rule on.
-By default, type rule is on.
-
-=head2 C<type_rule2_off> EXPERIMENTAL
-
-    $result = $result->type_rule2_off;
-
-Turn C<from2> type rule off.
-By default, type rule is on.
-
-=head2 C<type_rule2_on> EXPERIMENTAL
-
-    $result = $result->type_rule2_on;
-
-Turn C<from2> type rule on.
-By default, type rule is on.
-
-=cut

-98

DBIx-Custom-0.1711/lib/DBIx/Custom/Tag.pm

View

@@ -1,98 +0,0 @@
-package DBIx::Custom::Tag;
-
-use strict;
-use warnings;
-
-use Carp 'croak';
-use DBIx::Custom::Util '_subname';
-
-# Carp trust relationship
-push @DBIx::Custom::QueryBuilder::CARP_NOT, __PACKAGE__;
-
-sub equal              { _basic('=',  @_) }
-sub greater_than_equal { _basic('>=', @_) }
-sub greater_than       { _basic('>',  @_) }
-
-sub in {
-    my ($column, $count) = @_;
-    
-    # Check arguments
-    croak qq{Column name and count of values must be specified in tag "{in }" }
-        . _subname
-      unless $column && $count && $count =~ /^\d+$/;
-
-    # Part of statement
-    my $s = "$column in (";
-    for (my $i = 0; $i < $count; $i++) {
-        $s .= '?, ';
-    }
-    $s =~ s/, $//;
-    $s .= ')';
-    
-    # Columns
-    my $columns = [];
-    push @$columns, $column for (0 .. $count - 1);
-    
-    return [$s, $columns];
-}
-
-sub insert_param {
-    my @columns = @_;
-    
-    # Insert parameters
-    my $s = '(';
-    $s .= "$_, " for @columns;
-    $s =~ s/, $//;
-    $s .= ') ';
-    $s .= 'values (';
-    $s .= "?, " for @columns;
-    $s =~ s/, $//;
-    $s .= ')';
-    
-    return [$s, \@columns];
-}
-
-sub like               { _basic('like', @_) }
-sub lower_than_equal   { _basic('<=',   @_) }
-sub lower_than         { _basic('<',    @_) }
-sub not_equal          { _basic('<>',   @_) }
-
-sub placeholder {
-    my $column = shift;
-    
-    # Check arguments
-    croak qq{Column name must be specified in tag "{? }" } . _subname
-      unless $column;
-    
-    return ['?', [$column]];
-}
-
-sub update_param {
-    my @columns = @_;
-    
-    # Update parameters
-    my $s = 'set ';
-    $s .= "$_ = ?, " for @columns;
-    $s =~ s/, $//;
-    
-    return [$s, \@columns];
-}
-
-sub _basic {
-    my ($name, $column) = @_;
-    
-    # Check arguments
-    croak qq{Column name must be specified in tag "{$name }" } . _subname
-      unless $column;
-    
-    return ["$column $name ?", [$column]];
-}
-
-1;
-
-=head1 NAME
-
-DBIx::Custom::Tag - DEPRECATED!
-
-=cut
-

-41

DBIx-Custom-0.1711/lib/DBIx/Custom/Util.pm

View

@@ -1,41 +0,0 @@
-package DBIx::Custom::Util;
-
-use strict;
-use warnings;
-
-use base 'Exporter';
-
-our @EXPORT_OK = qw/_array_to_hash _subname/;
-
-sub _array_to_hash {
-    my $array = shift;
-    
-    return $array if ref $array eq 'HASH';
-    return unless $array;
-    
-    my $hash = {};
-    
-    for (my $i = 0; $i < @$array; $i += 2) {
-        my $key = $array->[$i];
-        my $f = $array->[$i + 1];
-        
-        if (ref $key eq 'ARRAY') {
-            foreach my $k (@$key) {
-                $hash->{$k} = $f;
-            }
-        }
-        else {
-            $hash->{$key} = $f;
-        }
-    }
-    return $hash;
-}
-
-sub _subname { '(' . (caller 1)[3] . ')' }
-
-1;
-
-=head1 NAME
-
-DBIx::Custom::Util - Utility class
-

-208

DBIx-Custom-0.1711/lib/DBIx/Custom/Where.pm

View

@@ -1,208 +0,0 @@
-package DBIx::Custom::Where;
-use Object::Simple -base;
-
-use Carp 'croak';
-use DBIx::Custom::Util '_subname';
-use overload 'bool' => sub {1}, fallback => 1;
-use overload '""' => sub { shift->to_string }, fallback => 1;
-
-# Carp trust relationship
-push @DBIx::Custom::CARP_NOT, __PACKAGE__;
-
-has [qw/dbi param/],
-    clause => sub { [] };
-
-sub new {
-    my $self = shift->SUPER::new(@_);
-    
-    # Check attribute names
-    my @attrs = keys %$self;
-    foreach my $attr (@attrs) {
-        croak qq{"$attr" is invalid attribute name (} . _subname . ")"
-          unless $self->can($attr);
-    }
-    
-    return $self;
-}
-
-sub to_string {
-    my $self = shift;
-    
-    # Check if column name is safety character;
-    my $safety = $self->dbi->safety_character;
-    if (ref $self->param eq 'HASH') {
-        foreach my $column (keys %{$self->param}) {
-            croak qq{"$column" is not safety column name (} . _subname . ")"
-              unless $column =~ /^[$safety\.]+$/;
-        }
-    }
-    # Clause
-    my $clause = $self->clause;
-    $clause = ['and', $clause] unless ref $clause eq 'ARRAY';
-    $clause->[0] = 'and' unless @$clause;
-
-    # Parse
-    my $where = [];
-    my $count = {};
-    $self->_parse($clause, $where, $count, 'and');
-    
-    # Stringify
-    unshift @$where, 'where' if @$where;
-    return join(' ', @$where);
-}
-
-our %VALID_OPERATIONS = map { $_ => 1 } qw/and or/;
-sub _parse {
-    my ($self, $clause, $where, $count, $op) = @_;
-    
-    # Array
-    if (ref $clause eq 'ARRAY') {
-        
-        # Start
-        push @$where, '(';
-        
-        # Operation
-        my $op = $clause->[0] || '';
-        croak qq{First argument must be "and" or "or" in where clause } .
-              qq{"$op" is passed} . _subname . ")"
-          unless $VALID_OPERATIONS{$op};
-        
-        my $pushed_array;
-        # Parse internal clause
-        for (my $i = 1; $i < @$clause; $i++) {
-            my $pushed = $self->_parse($clause->[$i], $where, $count, $op);
-            push @$where, $op if $pushed;
-            $pushed_array = 1 if $pushed;
-        }
-        pop @$where if $where->[-1] eq $op;
-        
-        # Undo
-        if ($where->[-1] eq '(') {
-            pop @$where;
-            pop @$where if ($where->[-1] || '') eq $op;
-        }
-        # End
-        else { push @$where, ')' }
-        
-        return $pushed_array;
-    }
-    
-    # String
-    else {
-        # Pushed
-        my $pushed;
-        
-        # Column
-        my $columns = $self->dbi->query_builder->build_query($clause)->columns;
-        if (@$columns == 0) {
-            push @$where, $clause;
-            $pushed = 1;
-            return $pushed;
-        }
-        elsif (@$columns != 1) {
-            croak qq{Each part contains one column name: "$clause" (}
-                  . _subname . ")";
-        }
-        
-        # Remove quote
-        my $column = $columns->[0];
-        if (my $q = $self->dbi->_quote) {
-            $q = quotemeta($q);
-            $column =~ s/[$q]//g;
-        }
-        
-        # Check safety
-        my $safety = $self->dbi->safety_character;
-        croak qq{"$column" is not safety column name (} . _subname . ")"
-          unless $column =~ /^[$safety\.]+$/;
-        
-        # Column count up
-        my $count = ++$count->{$column};
-        
-        # Push
-        my $param = $self->param;
-        if (ref $param eq 'HASH') {
-            if (exists $param->{$column}) {
-                if (ref $param->{$column} eq 'ARRAY') {
-                    $pushed = 1
-                      if  exists $param->{$column}->[$count - 1]
-                       && ref $param->{$column}->[$count - 1] ne 'DBIx::Custom::NotExists';
-                } 
-                elsif ($count == 1) {
-                    $pushed = 1;
-                }
-            }
-            push @$where, $clause if $pushed;
-        }
-        elsif (!defined $param) {
-            push @$where, $clause;
-            $pushed = 1;
-        }
-        else {
-            croak "Parameter must be hash reference or undfined value ("
-                . _subname . ")"
-        }
-        return $pushed;
-    }
-    return;
-}
-
-1;
-
-=head1 NAME
-
-DBIx::Custom::Where - Where clause
-
-=head1 SYNOPSYS
-
-    my $where = DBIx::Custom::Where->new;
-    my $string_where = "$where";
-
-=head1 ATTRIBUTES
-
-=head2 C<clause>
-
-    my $clause = $where->clause;
-    $where = $where->clause(
-        ['and',
-            'title = :title', 
-            ['or', 'date < :date', 'date > :date']
-        ]
-    );
-
-Where clause. Above one is expanded to the following SQL by to_string
-If all parameter names is exists.
-
-    "where ( title = :title and ( date < :date or date > :date ) )"
-
-=head2 C<param>
-
-    my $param = $where->param;
-    $where = $where->param({
-        title => 'Perl',
-        date => ['2010-11-11', '2011-03-05'],
-    });
-
-=head2 C<dbi>
-
-    my $dbi = $where->dbi;
-    $where = $where->dbi($dbi);
-
-L<DBIx::Custom> object.
-
-=head1 METHODS
-
-L<DBIx::Custom::Where> inherits all methods from L<Object::Simple>
-and implements the following new ones.
-
-=head2 C<to_string>
-
-    $where->to_string;
-
-Convert where clause to string.
-
-double quote is override to execute C<to_string> method.
-
-    my $string_where = "$where";
-
-=cut

-11

DBIx-Custom-0.1711/t/basic-quote.t

View

@@ -1,11 +0,0 @@
-# Change quote for tests
-use DBIx::Custom;
-{
-    package DBIx::Custom;
-    no warnings 'redefine';
-    sub quote { '""' }
-}
-
-use FindBin;
-
-require "$FindBin::Bin/basic.t";

-3750

DBIx-Custom-0.1711/t/basic.t

View

@@ -1,3750 +0,0 @@
-use Test::More;
-use strict;
-use warnings;
-use utf8;
-use Encode qw/encode_utf8 decode_utf8/;
-use FindBin;
-use lib "$FindBin::Bin/basic";
-
-BEGIN {
-    eval { require DBD::SQLite; 1 }
-        or plan skip_all => 'DBD::SQLite required';
-    eval { DBD::SQLite->VERSION >= 1.25 }
-        or plan skip_all => 'DBD::SQLite >= 1.25 required';
-
-    plan 'no_plan';
-    use_ok('DBIx::Custom');
-}
-
-$SIG{__WARN__} = sub { warn $_[0] unless $_[0] =~ /DEPRECATED/};
-sub test { print "# $_[0]\n" }
-
-# Constant
-my %memory = (dsn => 'dbi:SQLite:dbname=:memory:');
-my $create_table_default = 'create table table1 (key1 char(255), key2 char(255));';
-
-# Variables
-my $builder;
-my $datas;
-my $dbi;
-my $sth;
-my $source;
-my @sources;
-my $select_source;
-my $insert_source;
-my $update_source;
-my $param;
-my $params;
-my $sql;
-my $result;
-my $row;
-my @rows;
-my $rows;
-my $query;
-my @queries;
-my $select_query;
-my $insert_query;
-my $update_query;
-my $ret_val;
-my $infos;
-my $model;
-my $model2;
-my $where;
-my $update_param;
-my $insert_param;
-my $join;
-
-# Prepare table
-$dbi = DBIx::Custom->connect(%memory);
-$dbi->execute($create_table_default);
-$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2});
-$dbi->insert(table => 'table1', param => {key1 => 3, key2 => 4});
-
-test 'DBIx::Custom::Result test';
-$source = "select key1, key2 from table1";
-$query = $dbi->create_query($source);
-$result = $dbi->execute($query);
-
-@rows = ();
-while (my $row = $result->fetch) {
-    push @rows, [@$row];
-}
-is_deeply(\@rows, [[1, 2], [3, 4]], "fetch");
-
-$result = $dbi->execute($query);
-@rows = ();
-while (my $row = $result->fetch_hash) {
-    push @rows, {%$row};
-}
-is_deeply(\@rows, [{key1 => 1, key2 => 2}, {key1 => 3, key2 => 4}], "fetch_hash");
-
-$result = $dbi->execute($query);
-$rows = $result->fetch_all;
-is_deeply($rows, [[1, 2], [3, 4]], "fetch_all");
-
-$result = $dbi->execute($query);
-$rows = $result->fetch_hash_all;
-is_deeply($rows, [{key1 => 1, key2 => 2}, {key1 => 3, key2 => 4}], "all");
-
-test 'Insert query return value';
-$dbi->execute('drop table table1');
-$dbi->execute($create_table_default);
-$source = "insert into table1 {insert_param key1 key2}";
-$query = $dbi->execute($source, {}, query => 1);
-$ret_val = $dbi->execute($query, param => {key1 => 1, key2 => 2});
-ok($ret_val);
-
-
-test 'Direct query';
-$dbi->execute('drop table table1');
-$dbi->execute($create_table_default);
-$insert_source = "insert into table1 {insert_param key1 key2}";
-$dbi->execute($insert_source, param => {key1 => 1, key2 => 2});
-$result = $dbi->execute('select * from table1;');
-$rows = $result->all;
-is_deeply($rows, [{key1 => 1, key2 => 2}]);
-
-test 'Filter basic';
-$dbi->execute('drop table table1');
-$dbi->execute($create_table_default);
-$dbi->register_filter(twice       => sub { $_[0] * 2}, 
-                    three_times => sub { $_[0] * 3});
-
-$insert_source  = "insert into table1 {insert_param key1 key2};";
-$insert_query = $dbi->execute($insert_source, {}, query => 1);
-$insert_query->filter({key1 => 'twice'});
-$dbi->execute($insert_query, param => {key1 => 1, key2 => 2});
-$result = $dbi->execute('select * from table1;');
-$rows = $result->filter({key2 => 'three_times'})->all;
-is_deeply($rows, [{key1 => 2, key2 => 6}], "filter fetch_filter");
-$dbi->execute('drop table table1');
-
-test 'Filter in';
-$dbi->execute($create_table_default);
-$insert_source  = "insert into table1 {insert_param key1 key2};";
-$insert_query = $dbi->execute($insert_source, {}, query => 1);
-$dbi->execute($insert_query, param => {key1 => 2, key2 => 4});
-$select_source = "select * from table1 where {in table1.key1 2} and {in table1.key2 2}";
-$select_query = $dbi->execute($select_source,{}, query => 1);
-$select_query->filter({'table1.key1' => 'twice'});
-$result = $dbi->execute($select_query, param => {'table1.key1' => [1,5], 'table1.key2' => [2,4]});
-$rows = $result->all;
-is_deeply($rows, [{key1 => 2, key2 => 4}], "filter");
-
-test 'DBIx::Custom::SQLTemplate basic tag';
-$dbi->execute('drop table table1');
-$dbi->execute('create table table1 (key1 char(255), key2 char(255), key3 char(255), key4 char(255), key5 char(255));');
-$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2, key3 => 3, key4 => 4, key5 => 5});
-$dbi->insert(table => 'table1', param => {key1 => 6, key2 => 7, key3 => 8, key4 => 9, key5 => 10});
-
-$source = "select * from table1 where key1 = :key1 and {<> key2} and {< key3} and {> key4} and {>= key5};";
-$query = $dbi->execute($source, {}, query => 1);
-$result = $dbi->execute($query, param => {key1 => 1, key2 => 3, key3 => 4, key4 => 3, key5 => 5});
-$rows = $result->all;
-is_deeply($rows, [{key1 => 1, key2 => 2, key3 => 3, key4 => 4, key5 => 5}], "basic tag1");
-
-$source = "select * from table1 where key1 = :key1 and {<> key2} and {< key3} and {> key4} and {>= key5};";
-$query = $dbi->execute($source, {}, query => 1);
-$result = $dbi->execute($query, {key1 => 1, key2 => 3, key3 => 4, key4 => 3, key5 => 5});
-$rows = $result->all;
-is_deeply($rows, [{key1 => 1, key2 => 2, key3 => 3, key4 => 4, key5 => 5}], "basic tag1");
-
-$source = "select * from table1 where {<= key1} and {like key2};";
-$query = $dbi->execute($source, {}, query => 1);
-$result = $dbi->execute($query, param => {key1 => 1, key2 => '%2%'});
-$rows = $result->all;
-is_deeply($rows, [{key1 => 1, key2 => 2, key3 => 3, key4 => 4, key5 => 5}], "basic tag2");
-
-test 'DIB::Custom::SQLTemplate in tag';
-$dbi->execute('drop table table1');
-$dbi->execute('create table table1 (key1 char(255), key2 char(255), key3 char(255), key4 char(255), key5 char(255));');
-$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2, key3 => 3, key4 => 4, key5 => 5});
-$dbi->insert(table => 'table1', param => {key1 => 6, key2 => 7, key3 => 8, key4 => 9, key5 => 10});
-
-$source = "select * from table1 where {in key1 2};";
-$query = $dbi->execute($source, {}, query => 1);
-$result = $dbi->execute($query, param => {key1 => [9, 1]});
-$rows = $result->all;
-is_deeply($rows, [{key1 => 1, key2 => 2, key3 => 3, key4 => 4, key5 => 5}], "basic");
-
-test 'DBIx::Custom::SQLTemplate insert tag';
-$dbi->execute("delete from table1");
-$insert_source = 'insert into table1 {insert_param key1 key2 key3 key4 key5}';
-$dbi->execute($insert_source, param => {key1 => 1, key2 => 2, key3 => 3, key4 => 4, key5 => 5});
-
-$result = $dbi->execute('select * from table1;');
-$rows = $result->all;
-is_deeply($rows, [{key1 => 1, key2 => 2, key3 => 3, key4 => 4, key5 => 5}], "basic");
-
-test 'DBIx::Custom::SQLTemplate update tag';
-$dbi->execute("delete from table1");
-$insert_source = "insert into table1 {insert_param key1 key2 key3 key4 key5}";
-$dbi->execute($insert_source, param => {key1 => 1, key2 => 2, key3 => 3, key4 => 4, key5 => 5});
-$dbi->execute($insert_source, param => {key1 => 6, key2 => 7, key3 => 8, key4 => 9, key5 => 10});
-
-$update_source = 'update table1 {update_param key1 key2 key3 key4} where {= key5}';
-$dbi->execute($update_source, param => {key1 => 1, key2 => 1, key3 => 1, key4 => 1, key5 => 5});
-
-$result = $dbi->execute('select * from table1;');
-$rows = $result->all;
-is_deeply($rows, [{key1 => 1, key2 => 1, key3 => 1, key4 => 1, key5 => 5},
-                  {key1 => 6, key2 => 7, key3 => 8, key4 => 9, key5 => 10}], "basic");
-
-
-test 'Named placeholder';
-$dbi->execute('drop table table1');
-$dbi->execute('create table table1 (key1 char(255), key2 char(255), key3 char(255), key4 char(255), key5 char(255));');
-$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2, key3 => 3, key4 => 4, key5 => 5});
-$dbi->insert(table => 'table1', param => {key1 => 6, key2 => 7, key3 => 8, key4 => 9, key5 => 10});
-
-$source = "select * from table1 where key1 = :key1 and key2 = :key2";
-$result = $dbi->execute($source, param => {key1 => 1, key2 => 2});
-$rows = $result->all;
-is_deeply($rows, [{key1 => 1, key2 => 2, key3 => 3, key4 => 4, key5 => 5}]);
-
-$source = "select * from table1 where key1 = \n:key1\n and key2 = :key2";
-$result = $dbi->execute($source, param => {key1 => 1, key2 => 2});
-$rows = $result->all;
-is_deeply($rows, [{key1 => 1, key2 => 2, key3 => 3, key4 => 4, key5 => 5}]);
-
-$source = "select * from table1 where key1 = :key1 or key1 = :key1";
-$result = $dbi->execute($source, param => {key1 => [1, 2]});
-$rows = $result->all;
-is_deeply($rows, [{key1 => 1, key2 => 2, key3 => 3, key4 => 4, key5 => 5}]);
-
-$source = "select * from table1 where key1 = :table1.key1 and key2 = :table1.key2";
-$result = $dbi->execute(
-    $source,
-    param => {'table1.key1' => 1, 'table1.key2' => 1},
-    filter => {'table1.key2' => sub { $_[0] * 2 }}
-);
-$rows = $result->all;
-is_deeply($rows, [{key1 => 1, key2 => 2, key3 => 3, key4 => 4, key5 => 5}]);
-
-$dbi->execute('drop table table1');
-$dbi->execute($create_table_default);
-$dbi->insert(table => 'table1', param => {key1 => '2011-10-14 12:19:18', key2 => 2});
-$source = "select * from table1 where key1 = '2011-10-14 12:19:18' and key2 = :key2";
-$result = $dbi->execute(
-    $source,
-    param => {'key2' => 2},
-);
-
-$rows = $result->all;
-is_deeply($rows, [{key1 => '2011-10-14 12:19:18', key2 => 2}]);
-
-$dbi = DBIx::Custom->connect(%memory);
-$dbi->execute($create_table_default);
-$dbi->insert(table => 'table1', param => {key1 => 'a:b c:d', key2 => 2});
-$source = "select * from table1 where key1 = 'a\\:b c\\:d' and key2 = :key2";
-$result = $dbi->execute(
-    $source,
-    param => {'key2' => 2},
-);
-$rows = $result->all;
-is_deeply($rows, [{key1 => 'a:b c:d', key2 => 2}]);
-
-
-test 'Error case';
-eval {DBIx::Custom->connect(dsn => 'dbi:SQLit')};
-ok($@, "connect error");
-
-$dbi = DBIx::Custom->connect(%memory);
-eval{$dbi->execute("{p }", {}, query => 1)};
-ok($@, "create_query invalid SQL template");
-
-test 'insert';
-$dbi = DBIx::Custom->connect(%memory);
-$dbi->execute($create_table_default);
-$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2});
-$dbi->insert(table => 'table1', param => {key1 => 3, key2 => 4});
-$result = $dbi->execute('select * from table1;');
-$rows   = $result->all;
-is_deeply($rows, [{key1 => 1, key2 => 2}, {key1 => 3, key2 => 4}], "basic");
-
-$dbi->execute('delete from table1');
-$dbi->register_filter(
-    twice       => sub { $_[0] * 2 },
-    three_times => sub { $_[0] * 3 }
-);
-$dbi->default_bind_filter('twice');
-$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2}, filter => {key1 => 'three_times'});
-$result = $dbi->execute('select * from table1;');
-$rows   = $result->all;
-is_deeply($rows, [{key1 => 3, key2 => 4}], "filter");
-$dbi->default_bind_filter(undef);
-
-$dbi->execute('drop table table1');
-$dbi->execute($create_table_default);
-$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2}, append => '   ');
-$rows = $dbi->select(table => 'table1')->all;
-is_deeply($rows, [{key1 => 1, key2 => 2}], 'insert append');
-
-eval{$dbi->insert(table => 'table1', noexist => 1)};
-like($@, qr/noexist/, "invalid");
-
-eval{$dbi->insert(table => 'table', param => {';' => 1})};
-like($@, qr/safety/);
-
-$dbi = DBIx::Custom->connect(%memory);
-$dbi->quote('"');
-$dbi->execute('create table "table" ("select")');
-$dbi->apply_filter('table', select => {out => sub { $_[0] * 2}});
-$dbi->insert(table => 'table', param => {select => 1});
-$result = $dbi->execute('select * from "table"');
-$rows   = $result->all;
-is_deeply($rows, [{select => 2}], "reserved word");
-
-$dbi = DBIx::Custom->connect(%memory);
-$dbi->execute($create_table_default);
-$dbi->insert({key1 => 1, key2 => 2}, table => 'table1');
-$dbi->insert({key1 => 3, key2 => 4}, table => 'table1');
-$result = $dbi->execute('select * from table1;');
-$rows   = $result->all;
-is_deeply($rows, [{key1 => 1, key2 => 2}, {key1 => 3, key2 => 4}], "basic");
-
-$dbi = DBIx::Custom->connect(%memory);
-$dbi->execute("create table table1 (key1 char(255), key2 char(255), primary key(key1))");
-$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2});
-$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 4}, prefix => 'or replace');
-$result = $dbi->execute('select * from table1;');
-$rows   = $result->all;
-is_deeply($rows, [{key1 => 1, key2 => 4}], "basic");
-
-$dbi = DBIx::Custom->connect(%memory);
-$dbi->execute($create_table_default);
-$dbi->insert(table => 'table1', param => {key1 => \"'1'", key2 => 2});
-$dbi->insert(table => 'table1', param => {key1 => 3, key2 => 4});
-$result = $dbi->execute('select * from table1;');
-$rows   = $result->all;
-is_deeply($rows, [{key1 => 1, key2 => 2}, {key1 => 3, key2 => 4}], "basic");
-
-test 'update';
-$dbi = DBIx::Custom->connect(%memory);
-$dbi->execute('create table table1 (key1 char(255), key2 char(255), key3 char(255), key4 char(255), key5 char(255));');
-$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2, key3 => 3, key4 => 4, key5 => 5});
-$dbi->insert(table => 'table1', param => {key1 => 6, key2 => 7, key3 => 8, key4 => 9, key5 => 10});
-$dbi->update(table => 'table1', param => {key2 => 11}, where => {key1 => 1});
-$result = $dbi->execute('select * from table1;');
-$rows   = $result->all;
-is_deeply($rows, [{key1 => 1, key2 => 11, key3 => 3, key4 => 4, key5 => 5},
-                  {key1 => 6, key2 => 7,  key3 => 8, key4 => 9, key5 => 10}],
-                  "basic");
-                  
-$dbi->execute("delete from table1");
-$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2, key3 => 3, key4 => 4, key5 => 5});
-$dbi->insert(table => 'table1', param => {key1 => 6, key2 => 7, key3 => 8, key4 => 9, key5 => 10});
-$dbi->update(table => 'table1', param => {key2 => 12}, where => {key2 => 2, key3 => 3});
-$result = $dbi->execute('select * from table1;');
-$rows   = $result->all;
-is_deeply($rows, [{key1 => 1, key2 => 12, key3 => 3, key4 => 4, key5 => 5},
-                  {key1 => 6, key2 => 7,  key3 => 8, key4 => 9, key5 => 10}],
-                  "update key same as search key");
-
-$dbi->update(table => 'table1', param => {key2 => [12]}, where => {key2 => 2, key3 => 3});
-$result = $dbi->execute('select * from table1;');
-$rows   = $result->all;
-is_deeply($rows, [{key1 => 1, key2 => 12, key3 => 3, key4 => 4, key5 => 5},
-                  {key1 => 6, key2 => 7,  key3 => 8, key4 => 9, key5 => 10}],
-                  "update key same as search key : param is array ref");
-
-$dbi->execute("delete from table1");
-$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2, key3 => 3, key4 => 4, key5 => 5});
-$dbi->insert(table => 'table1', param => {key1 => 6, key2 => 7, key3 => 8, key4 => 9, key5 => 10});
-$dbi->register_filter(twice => sub { $_[0] * 2 });
-$dbi->update(table => 'table1', param => {key2 => 11}, where => {key1 => 1},
-              filter => {key2 => sub { $_[0] * 2 }});
-$result = $dbi->execute('select * from table1;');
-$rows   = $result->all;
-is_deeply($rows, [{key1 => 1, key2 => 22, key3 => 3, key4 => 4, key5 => 5},
-                  {key1 => 6, key2 => 7,  key3 => 8, key4 => 9, key5 => 10}],
-                  "filter");
-
-$result = $dbi->update(table => 'table1', param => {key2 => 11}, where => {key1 => 1}, append => '   ');
-
-eval{$dbi->update(table => 'table1', where => {key1 => 1}, noexist => 1)};
-like($@, qr/noexist/, "invalid");
-
-eval{$dbi->update(table => 'table1')};
-like($@, qr/where/, "not contain where");
-
-$dbi = DBIx::Custom->connect(%memory);
-$dbi->execute($create_table_default);
-$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2});
-$where = $dbi->where;
-$where->clause(['and', 'key1 = :key1', 'key2 = :key2']);
-$where->param({key1 => 1, key2 => 2});
-$dbi->update(table => 'table1', param => {key1 => 3}, where => $where);
-$result = $dbi->select(table => 'table1');
-is_deeply($result->all, [{key1 => 3, key2 => 2}], 'update() where');
-
-$dbi = DBIx::Custom->connect(%memory);
-$dbi->execute($create_table_default);
-$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2});
-$dbi->update(
-    table => 'table1',
-    param => {key1 => 3},
-    where => [
-        ['and', 'key1 = :key1', 'key2 = :key2'],
-        {key1 => 1, key2 => 2}
-    ]
-);
-$result = $dbi->select(table => 'table1');
-is_deeply($result->all, [{key1 => 3, key2 => 2}], 'update() where');
-
-$dbi = DBIx::Custom->connect(%memory);
-$dbi->execute($create_table_default);
-$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2});
-$where = $dbi->where;
-$where->clause(['and', 'key2 = :key2']);
-$where->param({key2 => 2});
-$dbi->update(table => 'table1', param => {key1 => 3}, where => $where);
-$result = $dbi->select(table => 'table1');
-is_deeply($result->all, [{key1 => 3, key2 => 2}], 'update() where');
-
-eval{$dbi->update(table => 'table1', param => {';' => 1})};
-like($@, qr/safety/);
-
-eval{$dbi->update(table => 'table1', param => {'key1' => 1}, where => {';' => 1})};
-like($@, qr/safety/);
-
-$dbi = DBIx::Custom->connect(%memory);
-$dbi->quote('"');
-$dbi->execute('create table "table" ("select", "update")');
-$dbi->apply_filter('table', select => {out => sub { $_[0] * 2}});
-$dbi->apply_filter('table', update => {out => sub { $_[0] * 3}});
-$dbi->insert(table => 'table', param => {select => 1});
-$dbi->update(table => 'table', where => {select => 1}, param => {update => 2});
-$result = $dbi->execute('select * from "table"');
-$rows   = $result->all;
-is_deeply($rows, [{select => 2, update => 6}], "reserved word");
-
-eval {$dbi->update_all(table => 'table', param => {';' => 2}) };
-like($@, qr/safety/);
-
-$dbi = DBIx::Custom->connect(%memory);
-$dbi->reserved_word_quote('"');
-$dbi->execute('create table "table" ("select", "update")');
-$dbi->apply_filter('table', select => {out => sub { $_[0] * 2}});
-$dbi->apply_filter('table', update => {out => sub { $_[0] * 3}});
-$dbi->insert(table => 'table', param => {select => 1});
-$dbi->update(table => 'table', where => {'table.select' => 1}, param => {update => 2});
-$result = $dbi->execute('select * from "table"');
-$rows   = $result->all;
-is_deeply($rows, [{select => 2, update => 6}], "reserved word");
-
-$dbi = DBIx::Custom->connect(%memory);
-$dbi->execute('create table table1 (key1 char(255), key2 char(255), key3 char(255), key4 char(255), key5 char(255));');
-$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2, key3 => 3, key4 => 4, key5 => 5});
-$dbi->insert(table => 'table1', param => {key1 => 6, key2 => 7, key3 => 8, key4 => 9, key5 => 10});
-$dbi->update({key2 => 11}, table => 'table1', where => {key1 => 1});
-$result = $dbi->execute('select * from table1;');
-$rows   = $result->all;
-is_deeply($rows, [{key1 => 1, key2 => 11, key3 => 3, key4 => 4, key5 => 5},
-                  {key1 => 6, key2 => 7,  key3 => 8, key4 => 9, key5 => 10}],
-                  "basic");
-
-$dbi = DBIx::Custom->connect(%memory);
-$dbi->execute("create table table1 (key1 char(255), key2 char(255), primary key(key1))");
-$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2});
-$dbi->update(table => 'table1', param => {key2 => 4},
-  where => {key1 => 1}, prefix => 'or replace');
-$result = $dbi->execute('select * from table1;');
-$rows   = $result->all;
-is_deeply($rows, [{key1 => 1, key2 => 4}], "basic");
-
-$dbi = DBIx::Custom->connect(%memory);
-$dbi->execute('create table table1 (key1 char(255), key2 char(255), key3 char(255), key4 char(255), key5 char(255));');
-$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2, key3 => 3, key4 => 4, key5 => 5});
-$dbi->insert(table => 'table1', param => {key1 => 6, key2 => 7, key3 => 8, key4 => 9, key5 => 10});
-$dbi->update(table => 'table1', param => {key2 => \"'11'"}, where => {key1 => 1});
-$result = $dbi->execute('select * from table1;');
-$rows   = $result->all;
-is_deeply($rows, [{key1 => 1, key2 => 11, key3 => 3, key4 => 4, key5 => 5},
-                  {key1 => 6, key2 => 7,  key3 => 8, key4 => 9, key5 => 10}],
-                  "basic");
-
-test 'update_all';
-$dbi = DBIx::Custom->connect(%memory);
-$dbi->execute('create table table1 (key1 char(255), key2 char(255), key3 char(255), key4 char(255), key5 char(255));');
-$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2, key3 => 3, key4 => 4, key5 => 5});
-$dbi->insert(table => 'table1', param => {key1 => 6, key2 => 7, key3 => 8, key4 => 9, key5 => 10});
-$dbi->register_filter(twice => sub { $_[0] * 2 });
-$dbi->update_all(table => 'table1', param => {key2 => 10}, filter => {key2 => 'twice'});
-$result = $dbi->execute('select * from table1;');
-$rows   = $result->all;
-is_deeply($rows, [{key1 => 1, key2 => 20, key3 => 3, key4 => 4, key5 => 5},
-                  {key1 => 6, key2 => 20, key3 => 8, key4 => 9, key5 => 10}],
-                  "filter");
-
-
-test 'delete';
-$dbi = DBIx::Custom->connect(%memory);
-$dbi->execute($create_table_default);
-$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2});
-$dbi->insert(table => 'table1', param => {key1 => 3, key2 => 4});
-$dbi->delete(table => 'table1', where => {key1 => 1});
-$result = $dbi->execute('select * from table1;');
-$rows   = $result->all;
-is_deeply($rows, [{key1 => 3, key2 => 4}], "basic");
-
-$dbi->execute("delete from table1;");
-$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2});
-$dbi->insert(table => 'table1', param => {key1 => 3, key2 => 4});
-$dbi->register_filter(twice => sub { $_[0] * 2 });
-$dbi->delete(table => 'table1', where => {key2 => 1}, filter => {key2 => 'twice'});
-$result = $dbi->execute('select * from table1;');
-$rows   = $result->all;
-is_deeply($rows, [{key1 => 3, key2 => 4}], "filter");
-
-$dbi->delete(table => 'table1', where => {key1 => 1}, append => '   ');
-
-$dbi->delete_all(table => 'table1');
-$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2});
-$dbi->insert(table => 'table1', param => {key1 => 3, key2 => 4});
-$dbi->delete(table => 'table1', where => {key1 => 1, key2 => 2});
-$rows = $dbi->select(table => 'table1')->all;
-is_deeply($rows, [{key1 => 3, key2 => 4}], "delete multi key");
-
-eval{$dbi->delete(table => 'table1', where => {key1 => 1}, noexist => 1)};
-like($@, qr/noexist/, "invalid");
-
-$dbi = DBIx::Custom->connect(%memory);
-$dbi->execute($create_table_default);
-$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2});
-$dbi->insert(table => 'table1', param => {key1 => 3, key2 => 4});
-$where = $dbi->where;
-$where->clause(['and', 'key1 = :key1', 'key2 = :key2']);
-$where->param({ke1 => 1, key2 => 2});
-$dbi->delete(table => 'table1', where => $where);
-$result = $dbi->select(table => 'table1');
-is_deeply($result->all, [{key1 => 3, key2 => 4}], 'delete() where');
-
-$dbi = DBIx::Custom->connect(%memory);
-$dbi->execute($create_table_default);
-$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2});
-$dbi->insert(table => 'table1', param => {key1 => 3, key2 => 4});
-$dbi->delete(
-    table => 'table1',
-    where => [
-        ['and', 'key1 = :key1', 'key2 = :key2'],
-        {ke1 => 1, key2 => 2}
-    ]
-);
-$result = $dbi->select(table => 'table1');
-is_deeply($result->all, [{key1 => 3, key2 => 4}], 'delete() where');
-
-$dbi = DBIx::Custom->connect(%memory);
-$dbi->execute("create table table1 (key1 char(255), key2 char(255), primary key(key1))");
-$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2});
-$dbi->delete(table => 'table1', where => {key1 => 1}, prefix => '    ');
-$result = $dbi->execute('select * from table1;');
-$rows   = $result->all;
-is_deeply($rows, [], "basic");
-
-test 'delete error';
-$dbi = DBIx::Custom->connect(%memory);
-$dbi->execute($create_table_default);
-eval{$dbi->delete(table => 'table1')};
-like($@, qr/"where" must be specified/,
-         "where key-value pairs not specified");
-
-eval{$dbi->delete(table => 'table1', where => {';' => 1})};
-like($@, qr/safety/);
-
-$dbi = DBIx::Custom->connect(%memory);
-$dbi->quote('"');
-$dbi->execute('create table "table" ("select", "update")');
-$dbi->apply_filter('table', select => {out => sub { $_[0] * 2}});
-$dbi->insert(table => 'table', param => {select => 1});
-$dbi->delete(table => 'table', where => {select => 1});
-$result = $dbi->execute('select * from "table"');
-$rows   = $result->all;
-is_deeply($rows, [], "reserved word");
-
-test 'delete_all';
-$dbi = DBIx::Custom->connect(%memory);
-$dbi->execute($create_table_default);
-$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2});
-$dbi->insert(table => 'table1', param => {key1 => 3, key2 => 4});
-$dbi->delete_all(table => 'table1');
-$result = $dbi->execute('select * from table1;');
-$rows   = $result->all;
-is_deeply($rows, [], "basic");
-
-
-test 'select';
-$dbi = DBIx::Custom->connect(%memory);
-$dbi->execute($create_table_default);
-$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2});
-$dbi->insert(table => 'table1', param => {key1 => 3, key2 => 4});
-$rows = $dbi->select(table => 'table1')->all;
-is_deeply($rows, [{key1 => 1, key2 => 2},
-                  {key1 => 3, key2 => 4}], "table");
-
-$rows = $dbi->select(table => 'table1', column => ['key1'])->all;
-is_deeply($rows, [{key1 => 1}, {key1 => 3}], "table and columns and where key");
-
-$rows = $dbi->select(table => 'table1', where => {key1 => 1})->all;
-is_deeply($rows, [{key1 => 1, key2 => 2}], "table and columns and where key");
-
-$rows = $dbi->select(table => 'table1', column => ['key1'], where => {key1 => 3})->all;
-is_deeply($rows, [{key1 => 3}], "table and columns and where key");
-
-$rows = $dbi->select(table => 'table1', append => "order by key1 desc limit 1")->all;
-is_deeply($rows, [{key1 => 3, key2 => 4}], "append statement");
-
-$dbi->register_filter(decrement => sub { $_[0] - 1 });
-$rows = $dbi->select(table => 'table1', where => {key1 => 2}, filter => {key1 => 'decrement'})
-            ->all;
-is_deeply($rows, [{key1 => 1, key2 => 2}], "filter");
-
-$dbi->execute('create table table2 (key1 char(255), key3 char(255));');
-$dbi->insert(table => 'table2', param => {key1 => 1, key3 => 5});
-$rows = $dbi->select(
-    table => [qw/table1 table2/],
-    column => 'table1.key1 as table1_key1, table2.key1 as table2_key1, key2, key3',
-    where   => {'table1.key2' => 2},
-    relation  => {'table1.key1' => 'table2.key1'}
-)->all;
-is_deeply($rows, [{table1_key1 => 1, table2_key1 => 1, key2 => 2, key3 => 5}], "relation : exists where");
-
-$rows = $dbi->select(
-    table => [qw/table1 table2/],
-    column => ['table1.key1 as table1_key1', 'table2.key1 as table2_key1', 'key2', 'key3'],
-    relation  => {'table1.key1' => 'table2.key1'}
-)->all;
-is_deeply($rows, [{table1_key1 => 1, table2_key1 => 1, key2 => 2, key3 => 5}], "relation : no exists where");
-
-eval{$dbi->select(table => 'table1', noexist => 1)};
-like($@, qr/noexist/, "invalid");
-
-$dbi = DBIx::Custom->connect(%memory);
-$dbi->quote('"');
-$dbi->execute('create table "table" ("select", "update")');
-$dbi->apply_filter('table', select => {out => sub { $_[0] * 2}});
-$dbi->insert(table => 'table', param => {select => 1, update => 2});
-$result = $dbi->select(table => 'table', where => {select => 1});
-$rows   = $result->all;
-is_deeply($rows, [{select => 2, update => 2}], "reserved word");
-
-test 'fetch filter';
-$dbi = DBIx::Custom->connect(%memory);
-$dbi->register_filter(
-    twice       => sub { $_[0] * 2 },
-    three_times => sub { $_[0] * 3 }
-);
-$dbi->default_fetch_filter('twice');
-$dbi->execute($create_table_default);
-$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2});
-$result = $dbi->select(table => 'table1');
-$result->filter({key1 => 'three_times'});
-$row = $result->one;
-is_deeply($row, {key1 => 3, key2 => 4}, "default_fetch_filter and filter");
-
-test 'filters';
-$dbi = DBIx::Custom->new;
-
-is($dbi->filters->{decode_utf8}->(encode_utf8('あ')),
-   'あ', "decode_utf8");
-
-is($dbi->filters->{encode_utf8}->('あ'),
-   encode_utf8('あ'), "encode_utf8");
-
-test 'transaction';
-$dbi = DBIx::Custom->connect(%memory);
-$dbi->execute($create_table_default);
-$dbi->dbh->begin_work;
-$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2});
-$dbi->insert(table => 'table1', param => {key1 => 2, key2 => 3});
-$dbi->dbh->commit;
-$result = $dbi->select(table => 'table1');
-is_deeply(scalar $result->all, [{key1 => 1, key2 => 2}, {key1 => 2, key2 => 3}],
-          "commit");
-
-$dbi = DBIx::Custom->connect(%memory);
-$dbi->execute($create_table_default);
-$dbi->dbh->begin_work(0);
-$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2});
-$dbi->dbh->rollback;
-
-$result = $dbi->select(table => 'table1');
-ok(! $result->fetch_first, "rollback");
-
-test 'cache';
-$dbi = DBIx::Custom->connect(%memory);
-$dbi->cache(1);
-$dbi->execute($create_table_default);
-$source = 'select * from table1 where key1 = :key1 and key2 = :key2;';
-$dbi->execute($source, {}, query => 1);
-is_deeply($dbi->{_cached}->{$source}, 
-          {sql => "select * from table1 where key1 = ? and key2 = ?;", columns => ['key1', 'key2'], tables => []}, "cache");
-
-$dbi = DBIx::Custom->connect(%memory);
-$dbi->execute($create_table_default);
-$dbi->{_cached} = {};
-$dbi->cache(0);
-$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2});
-is(scalar keys %{$dbi->{_cached}}, 0, 'not cache');
-
-test 'execute';
-$dbi = DBIx::Custom->connect(%memory);
-$dbi->execute($create_table_default);
-{
-    local $Carp::Verbose = 0;
-    eval{$dbi->execute('select * frm table1')};
-    like($@, qr/\Qselect * frm table1;/, "fail prepare");
-    like($@, qr/\.t /, "fail : not verbose");
-}
-{
-    local $Carp::Verbose = 1;
-    eval{$dbi->execute('select * frm table1')};
-    like($@, qr/Custom.*\.t /s, "fail : verbose");
-}
-
-eval{$dbi->execute('select * from table1', no_exists => 1)};
-like($@, qr/wrong/, "invald SQL");
-
-$query = $dbi->execute('select * from table1 where key1 = :key1', {}, query => 1);
-$dbi->dbh->disconnect;
-eval{$dbi->execute($query, param => {key1 => {a => 1}})};
-ok($@, "execute fail");
-
-{
-    local $Carp::Verbose = 0;
-    eval{$dbi->execute('select * from table1 where {0 key1}', {}, query => 1)};
-    like($@, qr/\Q.t /, "caller spec : not vebose");
-}
-{
-    local $Carp::Verbose = 1;
-    eval{$dbi->execute('select * from table1 where {0 key1}', {}, query => 1)};
-    like($@, qr/QueryBuilder.*\.t /s, "caller spec : not vebose");
-}
-
-
-test 'transaction';
-$dbi = DBIx::Custom->connect(%memory);
-$dbi->execute($create_table_default);
-
-$dbi->begin_work;
-
-eval {
-    $dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2});
-    die "Error";
-    $dbi->insert(table => 'table1', param => {key1 => 3, key2 => 4});
-};
-
-$dbi->rollback if $@;
-
-$result = $dbi->select(table => 'table1');
-$rows = $result->all;
-is_deeply($rows, [], "rollback");
-
-$dbi->begin_work;
-
-eval {
-    $dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2});
-    $dbi->insert(table => 'table1', param => {key1 => 3, key2 => 4});
-};
-
-$dbi->commit unless $@;
-
-$result = $dbi->select(table => 'table1');
-$rows = $result->all;
-is_deeply($rows, [{key1 => 1, key2 => 2}, {key1 => 3, key2 => 4}], "commit");
-
-$dbi->dbh->{AutoCommit} = 0;
-eval{ $dbi->begin_work };
-ok($@, "exception");
-$dbi->dbh->{AutoCommit} = 1;
-
-
-test 'method';
-$dbi = DBIx::Custom->connect(%memory);
-$dbi->method(
-    one => sub { 1 }
-);
-$dbi->method(
-    two => sub { 2 }
-);
-$dbi->method({
-    twice => sub {
-        my $self = shift;
-        return $_[0] * 2;
-    }
-});
-
-is($dbi->one, 1, "first");
-is($dbi->two, 2, "second");
-is($dbi->twice(5), 10 , "second");
-
-eval {$dbi->XXXXXX};
-ok($@, "not exists");
-
-test 'out filter';
-$dbi = DBIx::Custom->connect(%memory);
-$dbi->execute($create_table_default);
-$dbi->register_filter(twice => sub { $_[0] * 2 });
-$dbi->register_filter(three_times => sub { $_[0] * 3});
-$dbi->apply_filter(
-    'table1', 'key1' => {out => 'twice', in => 'three_times'}, 
-              'key2' => {out => 'three_times', in => 'twice'});
-$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2});
-$result = $dbi->execute('select * from table1;');
-$row   = $result->fetch_hash_first;
-is_deeply($row, {key1 => 2, key2 => 6}, "insert");
-$result = $dbi->select(table => 'table1');
-$row   = $result->one;
-is_deeply($row, {key1 => 6, key2 => 12}, "insert");
-
-$dbi = DBIx::Custom->connect(%memory);
-$dbi->execute($create_table_default);
-$dbi->register_filter(twice => sub { $_[0] * 2 });
-$dbi->register_filter(three_times => sub { $_[0] * 3});
-$dbi->apply_filter(
-    'table1', 'key1' => {out => 'twice', in => 'three_times'}, 
-              'key2' => {out => 'three_times', in => 'twice'});
-$dbi->apply_filter(
-    'table1', 'key1' => {out => undef}
-); 
-$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2});
-$result = $dbi->execute('select * from table1;');
-$row   = $result->one;
-is_deeply($row, {key1 => 1, key2 => 6}, "insert");
-
-$dbi = DBIx::Custom->connect(%memory);
-$dbi->execute($create_table_default);
-$dbi->register_filter(twice => sub { $_[0] * 2 });
-$dbi->apply_filter(
-    'table1', 'key1' => {out => 'twice', in => 'twice'}
-);
-$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2}, filter => {key1 => undef});
-$dbi->update(table => 'table1', param => {key1 => 2}, where => {key2 => 2});
-$result = $dbi->execute('select * from table1;');
-$row   = $result->one;
-is_deeply($row, {key1 => 4, key2 => 2}, "update");
-
-$dbi = DBIx::Custom->connect(%memory);
-$dbi->execute($create_table_default);
-$dbi->register_filter(twice => sub { $_[0] * 2 });
-$dbi->apply_filter(
-    'table1', 'key1' => {out => 'twice', in => 'twice'}
-);
-$dbi->insert(table => 'table1', param => {key1 => 2, key2 => 2}, filter => {key1=> undef});
-$dbi->delete(table => 'table1', where => {key1 => 1});
-$result = $dbi->execute('select * from table1;');
-$rows   = $result->all;
-is_deeply($rows, [], "delete");
-
-$dbi = DBIx::Custom->connect(%memory);
-$dbi->execute($create_table_default);
-$dbi->register_filter(twice => sub { $_[0] * 2 });
-$dbi->apply_filter(
-    'table1', 'key1' => {out => 'twice', in => 'twice'}
-);
-$dbi->insert(table => 'table1', param => {key1 => 2, key2 => 2}, filter => {key1 => undef});
-$result = $dbi->select(table => 'table1', where => {key1 => 1});
-$result->filter({'key2' => 'twice'});
-$rows   = $result->all;
-is_deeply($rows, [{key1 => 4, key2 => 4}], "select");
-
-$dbi = DBIx::Custom->connect(%memory);
-$dbi->execute($create_table_default);
-$dbi->register_filter(twice => sub { $_[0] * 2 });
-$dbi->apply_filter(
-    'table1', 'key1' => {out => 'twice', in => 'twice'}
-);
-$dbi->insert(table => 'table1', param => {key1 => 2, key2 => 2}, filter => {key1 => undef});
-$result = $dbi->execute("select * from table1 where key1 = :key1 and key2 = :key2;",
-                        param => {key1 => 1, key2 => 2},
-                        table => ['table1']);
-$rows   = $result->all;
-is_deeply($rows, [{key1 => 4, key2 => 2}], "execute");
-
-$dbi = DBIx::Custom->connect(%memory);
-$dbi->execute($create_table_default);
-$dbi->register_filter(twice => sub { $_[0] * 2 });
-$dbi->apply_filter(
-    'table1', 'key1' => {out => 'twice', in => 'twice'}
-);
-$dbi->insert(table => 'table1', param => {key1 => 2, key2 => 2}, filter => {key1 => undef});
-$result = $dbi->execute("select * from {table table1} where key1 = :key1 and key2 = :key2;",
-                        param => {key1 => 1, key2 => 2});
-$rows   = $result->all;
-is_deeply($rows, [{key1 => 4, key2 => 2}], "execute table tag");
-
-$dbi = DBIx::Custom->connect(%memory);
-$dbi->execute($create_table_default);
-$dbi->execute('create table table2 (key1 char(255), key3 char(255));');
-$dbi->register_filter(twice => sub { $_[0] * 2 });
-$dbi->register_filter(three_times => sub { $_[0] * 3 });
-$dbi->apply_filter(
-    'table1', 'key2' => {out => 'twice', in => 'twice'}
-);
-$dbi->apply_filter(
-    'table2', 'key3' => {out => 'three_times', in => 'three_times'}
-);
-$dbi->insert(table => 'table1', param => {key1 => 5, key2 => 2}, filter => {key2 => undef});
-$dbi->insert(table => 'table2', param => {key1 => 5, key3 => 6}, filter => {key3 => undef});
-$result = $dbi->select(
-     table => ['table1', 'table2'],
-     column => ['key2', 'key3'],
-     where => {'table1.key2' => 1, 'table2.key3' => 2}, relation => {'table1.key1' => 'table2.key1'});
-
-$result->filter({'key2' => 'twice'});
-$rows   = $result->all;
-is_deeply($rows, [{key2 => 4, key3 => 18}], "select : join");
-
-$result = $dbi->select(
-     table => ['table1', 'table2'],
-     column => ['key2', 'key3'],
-     where => {'key2' => 1, 'key3' => 2}, relation => {'table1.key1' => 'table2.key1'});
-
-$result->filter({'key2' => 'twice'});
-$rows   = $result->all;
-is_deeply($rows, [{key2 => 4, key3 => 18}], "select : join : omit");
-
-test 'each_column';
-$dbi = DBIx::Custom->connect(%memory);
-$dbi->execute('create table table2 (key1 char(255), key3 char(255));');
-$dbi->execute('create table table1 (key1 Date, key2 datetime);');
-
-$infos = [];
-$dbi->each_column(sub {
-    my ($self, $table, $column, $cinfo) = @_;
-    
-    if ($table =~ /^table/) {
-         my $info = [$table, $column, $cinfo->{COLUMN_NAME}];
-         push @$infos, $info;
-    }
-});
-$infos = [sort { $a->[0] cmp $b->[0] || $a->[1] cmp $b->[1] } @$infos];
-is_deeply($infos, 
-    [
-        ['table1', 'key1', 'key1'],
-        ['table1', 'key2', 'key2'],
-        ['table2', 'key1', 'key1'],
-        ['table2', 'key3', 'key3']
-    ]
-    
-);
-test 'each_table';
-$dbi = DBIx::Custom->connect(%memory);
-$dbi->execute('create table table2 (key1 char(255), key3 char(255));');
-$dbi->execute('create table table1 (key1 Date, key2 datetime);');
-
-$infos = [];
-$dbi->each_table(sub {
-    my ($self, $table, $table_info) = @_;
-    
-    if ($table =~ /^table/) {
-         my $info = [$table, $table_info->{TABLE_NAME}];
-         push @$infos, $info;
-    }
-});
-$infos = [sort { $a->[0] cmp $b->[0] || $a->[1] cmp $b->[1] } @$infos];
-is_deeply($infos, 
-    [
-        ['table1', 'table1'],
-        ['table2', 'table2'],
-    ]
-);
-
-test 'limit';
-$dbi = DBIx::Custom->connect(%memory);
-$dbi->execute($create_table_default);
-$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2});
-$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 4});
-$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 6});
-$dbi->register_tag(
-    limit => sub {
-        my ($count, $offset) = @_;
-        
-        my $s = '';
-        $s .= "limit $count";
-        $s .= " offset $offset" if defined $offset;
-        
-        return [$s, []];
-    }
-);
-$rows = $dbi->select(
-  table => 'table1',
-  where => {key1 => 1},
-  append => "order by key2 {limit 1 0}"
-)->all;
-is_deeply($rows, [{key1 => 1, key2 => 2}]);
-$rows = $dbi->select(
-  table => 'table1',
-  where => {key1 => 1},
-  append => "order by key2 {limit 2 1}"
-)->all;
-is_deeply($rows, [{key1 => 1, key2 => 4},{key1 => 1, key2 => 6}]);
-$rows = $dbi->select(
-  table => 'table1',
-  where => {key1 => 1},
-  append => "order by key2 {limit 1}"
-)->all;
-is_deeply($rows, [{key1 => 1, key2 => 2}]);
-
-test 'connect super';
-{
-    package MyDBI;
-    
-    use base 'DBIx::Custom';
-    sub connect {
-        my $self = shift->SUPER::connect(@_);
-        
-        return $self;
-    }
-    
-    sub new {
-        my $self = shift->SUPER::new(@_);
-        
-        return $self;
-    }
-}
-
-$dbi = MyDBI->connect(%memory);
-$dbi->execute($create_table_default);
-$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2});
-is($dbi->select(table => 'table1')->one->{key1}, 1);
-
-$dbi = MyDBI->new(%memory);
-$dbi->connect;
-$dbi->execute($create_table_default);
-$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2});
-is($dbi->select(table => 'table1')->one->{key1}, 1);
-
-{
-    package MyDBI2;
-    
-    use base 'DBIx::Custom';
-    sub connect {
-        my $self = shift->SUPER::new(@_);
-        $self->connect;
-        
-        return $self;
-    }
-}
-
-$dbi = MyDBI->connect(%memory);
-$dbi->execute($create_table_default);
-$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2});
-is($dbi->select(table => 'table1')->one->{key1}, 1);
-
-test 'end_filter';
-$dbi = DBIx::Custom->connect(%memory);
-$dbi->execute($create_table_default);
-$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2});
-$result = $dbi->select(table => 'table1');
-$result->filter(key1 => sub { $_[0] * 2 }, key2 => sub { $_[0] * 4 });
-$result->end_filter(key1 => sub { $_[0] * 3 }, key2 => sub { $_[0] * 5 });
-$row = $result->fetch_first;
-is_deeply($row, [6, 40]);
-
-$dbi = DBIx::Custom->connect(%memory);
-$dbi->execute($create_table_default);
-$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2});
-$result = $dbi->select(table => 'table1');
-$result->filter([qw/key1 key2/] => sub { $_[0] * 2 });
-$result->end_filter([[qw/key1 key2/] => sub { $_[0] * 3 }]);
-$row = $result->fetch_first;
-is_deeply($row, [6, 12]);
-
-$dbi = DBIx::Custom->connect(%memory);
-$dbi->execute($create_table_default);
-$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2});
-$result = $dbi->select(table => 'table1');
-$result->filter([[qw/key1 key2/] => sub { $_[0] * 2 }]);
-$result->end_filter([qw/key1 key2/] => sub { $_[0] * 3 });
-$row = $result->fetch_first;
-is_deeply($row, [6, 12]);
-
-$dbi->register_filter(five_times => sub { $_[0] * 5 });
-$result = $dbi->select(table => 'table1');
-$result->filter(key1 => sub { $_[0] * 2 }, key2 => sub { $_[0] * 4 });
-$result->end_filter({key1 => sub { $_[0] * 3 }, key2 => 'five_times' });
-$row = $result->one;
-is_deeply($row, {key1 => 6, key2 => 40});
-
-$dbi->register_filter(five_times => sub { $_[0] * 5 });
-$dbi->apply_filter('table1',
-    key1 => {end => sub { $_[0] * 3 } },
-    key2 => {end => 'five_times'}
-);
-$result = $dbi->select(table => 'table1');
-$result->filter(key1 => sub { $_[0] * 2 }, key2 => sub { $_[0] * 4 });
-$row = $result->one;
-is_deeply($row, {key1 => 6, key2 => 40}, 'apply_filter');
-
-$dbi->register_filter(five_times => sub { $_[0] * 5 });
-$dbi->apply_filter('table1',
-    key1 => {end => sub { $_[0] * 3 } },
-    key2 => {end => 'five_times'}
-);
-$result = $dbi->select(table => 'table1');
-$result->filter(key1 => sub { $_[0] * 2 }, key2 => sub { $_[0] * 4 });
-$result->filter(key1 => undef);
-$result->end_filter(key1 => undef);
-$row = $result->one;
-is_deeply($row, {key1 => 1, key2 => 40}, 'apply_filter overwrite');
-
-test 'remove_end_filter and remove_filter';
-$dbi = DBIx::Custom->connect(%memory);
-$dbi->execute($create_table_default);
-$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2});
-$result = $dbi->select(table => 'table1');
-$row = $result
-       ->filter(key1 => sub { $_[0] * 2 }, key2 => sub { $_[0] * 4 })
-       ->remove_filter
-       ->end_filter(key1 => sub { $_[0] * 3 }, key2 => sub { $_[0] * 5 })
-       ->remove_end_filter
-       ->fetch_first;
-is_deeply($row, [1, 2]);
-
-test 'empty where select';
-$dbi = DBIx::Custom->connect(%memory);
-$dbi->execute($create_table_default);
-$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2});
-$result = $dbi->select(table => 'table1', where => {});
-$row = $result->one;
-is_deeply($row, {key1 => 1, key2 => 2});
-
-test 'select query option';
-$dbi = DBIx::Custom->connect(%memory);
-$dbi->execute($create_table_default);
-$query = $dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2}, query => 1);
-is(ref $query, 'DBIx::Custom::Query');
-$query = $dbi->update(table => 'table1', where => {key1 => 1}, param => {key2 => 2}, query => 1);
-is(ref $query, 'DBIx::Custom::Query');
-$query = $dbi->delete(table => 'table1', where => {key1 => 1}, query => 1);
-is(ref $query, 'DBIx::Custom::Query');
-$query = $dbi->select(table => 'table1', where => {key1 => 1, key2 => 2}, query => 1);
-is(ref $query, 'DBIx::Custom::Query');
-
-test 'DBIx::Custom::Where';
-$dbi = DBIx::Custom->connect(%memory);
-$dbi->execute($create_table_default);
-$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2});
-$dbi->insert(table => 'table1', param => {key1 => 3, key2 => 4});
-$where = $dbi->where->clause(['and', 'key1 = :key1', 'key2 = :key2']);
-is("$where", "where ( key1 = :key1 and key2 = :key2 )", 'no param');
-
-$where = $dbi->where
-             ->clause(['and', 'key1 = :key1', 'key2 = :key2'])
-             ->param({key1 => 1});
-
-$result = $dbi->select(
-    table => 'table1',
-    where => $where
-);
-$row = $result->all;
-is_deeply($row, [{key1 => 1, key2 => 2}]);
-
-$result = $dbi->select(
-    table => 'table1',
-    where => [
-        ['and', 'key1 = :key1', 'key2 = :key2'],
-        {key1 => 1}
-    ]
-);
-$row = $result->all;
-is_deeply($row, [{key1 => 1, key2 => 2}]);
-
-$where = $dbi->where
-             ->clause(['and', 'key1 = :key1', 'key2 = :key2'])
-             ->param({key1 => 1, key2 => 2});
-$result = $dbi->select(
-    table => 'table1',
-    where => $where
-);
-$row = $result->all;
-is_deeply($row, [{key1 => 1, key2 => 2}]);
-
-$where = $dbi->where
-             ->clause(['and', 'key1 = :key1', 'key2 = :key2'])
-             ->param({});
-$result = $dbi->select(
-    table => 'table1',
-    where => $where,
-);
-$row = $result->all;
-is_deeply($row, [{key1 => 1, key2 => 2}, {key1 => 3, key2 => 4}]);
-
-$where = $dbi->where
-             ->clause(['and', ['or', 'key1 > :key1', 'key1 < :key1'], 'key2 = :key2'])
-             ->param({key1 => [0, 3], key2 => 2});
-$result = $dbi->select(
-    table => 'table1',
-    where => $where,
-); 
-$row = $result->all;
-is_deeply($row, [{key1 => 1, key2 => 2}]);
-
-$where = $dbi->where;
-$result = $dbi->select(
-    table => 'table1',
-    where => $where
-);
-$row = $result->all;
-is_deeply($row, [{key1 => 1, key2 => 2}, {key1 => 3, key2 => 4}]);
-
-eval {
-$where = $dbi->where
-             ->clause(['uuu']);
-$result = $dbi->select(
-    table => 'table1',
-    where => $where
-);
-};
-ok($@);
-
-$where = $dbi->where;
-is("$where", '');
-
-$where = $dbi->where
-             ->clause(['or', ('key1 = :key1') x 2])
-             ->param({key1 => [1, 3]});
-$result = $dbi->select(
-    table => 'table1',
-    where => $where,
-);
-$row = $result->all;
-is_deeply($row, [{key1 => 1, key2 => 2}, {key1 => 3, key2 => 4}]);
-
-$where = $dbi->where
-             ->clause(['or', ('key1 = :key1') x 2])
-             ->param({key1 => [1]});
-$result = $dbi->select(
-    table => 'table1',
-    where => $where,
-);
-$row = $result->all;
-is_deeply($row, [{key1 => 1, key2 => 2}]);
-
-$where = $dbi->where
-             ->clause(['or', ('key1 = :key1') x 2])
-             ->param({key1 => 1});
-$result = $dbi->select(
-    table => 'table1',
-    where => $where,
-);
-$row = $result->all;
-is_deeply($row, [{key1 => 1, key2 => 2}]);
-
-$where = $dbi->where
-             ->clause('key1 = :key1')
-             ->param({key1 => 1});
-$result = $dbi->select(
-    table => 'table1',
-    where => $where,
-);
-$row = $result->all;
-is_deeply($row, [{key1 => 1, key2 => 2}]);
-
-$where = $dbi->where
-             ->clause('key1 = :key1 key2 = :key2')
-             ->param({key1 => 1});
-eval{$where->to_string};
-like($@, qr/one column/);
-
-$where = $dbi->where
-             ->clause('key1 = :key1')
-             ->param([]);
-eval{$where->to_string};
-like($@, qr/Parameter/);
-
-$where = $dbi->where
-             ->clause(['or', ('key1 = :key1') x 3])
-             ->param({key1 => [$dbi->not_exists, 1, 3]});
-$result = $dbi->select(
-    table => 'table1',
-    where => $where,
-);
-$row = $result->all;
-is_deeply($row, [{key1 => 1, key2 => 2}, {key1 => 3, key2 => 4}], 'not_exists');
-
-$where = $dbi->where
-             ->clause(['or', ('key1 = :key1') x 3])
-             ->param({key1 => [1, $dbi->not_exists, 3]});
-$result = $dbi->select(
-    table => 'table1',
-    where => $where,
-);
-$row = $result->all;
-is_deeply($row, [{key1 => 1, key2 => 2}, {key1 => 3, key2 => 4}], 'not_exists');
-
-$where = $dbi->where
-             ->clause(['or', ('key1 = :key1') x 3])
-             ->param({key1 => [1, 3, $dbi->not_exists]});
-$result = $dbi->select(
-    table => 'table1',
-    where => $where,
-);
-$row = $result->all;
-is_deeply($row, [{key1 => 1, key2 => 2}, {key1 => 3, key2 => 4}], 'not_exists');
-
-$where = $dbi->where
-             ->clause(['or', ('key1 = :key1') x 3])
-             ->param({key1 => [1, $dbi->not_exists, $dbi->not_exists]});
-$result = $dbi->select(
-    table => 'table1',
-    where => $where,
-);
-$row = $result->all;
-is_deeply($row, [{key1 => 1, key2 => 2}], 'not_exists');
-
-$where = $dbi->where
-             ->clause(['or', ('key1 = :key1') x 3])
-             ->param({key1 => [$dbi->not_exists, 1, $dbi->not_exists]});
-$result = $dbi->select(
-    table => 'table1',
-    where => $where,
-);
-$row = $result->all;
-is_deeply($row, [{key1 => 1, key2 => 2}], 'not_exists');
-
-$where = $dbi->where
-             ->clause(['or', ('key1 = :key1') x 3])
-             ->param({key1 => [$dbi->not_exists, $dbi->not_exists, 1]});
-$result = $dbi->select(
-    table => 'table1',
-    where => $where,
-);
-$row = $result->all;
-is_deeply($row, [{key1 => 1, key2 => 2}], 'not_exists');
-
-$where = $dbi->where
-             ->clause(['or', ('key1 = :key1') x 3])
-             ->param({key1 => [$dbi->not_exists, $dbi->not_exists, $dbi->not_exists]});
-$result = $dbi->select(
-    table => 'table1',
-    where => $where,
-);
-$row = $result->all;
-is_deeply($row, [{key1 => 1, key2 => 2}, {key1 => 3, key2 => 4}], 'not_exists');
-
-$where = $dbi->where
-             ->clause(['or', ('key1 = :key1') x 3])
-             ->param({key1 => []});
-$result = $dbi->select(
-    table => 'table1',
-    where => $where,
-);
-$row = $result->all;
-is_deeply($row, [{key1 => 1, key2 => 2}, {key1 => 3, key2 => 4}], 'not_exists');
-
-$where = $dbi->where
-             ->clause(['and', '{> key1}', '{< key1}' ])
-             ->param({key1 => [2, $dbi->not_exists]});
-$result = $dbi->select(
-    table => 'table1',
-    where => $where,
-);
-$row = $result->all;
-is_deeply($row, [{key1 => 3, key2 => 4}], 'not_exists');
-
-$where = $dbi->where
-             ->clause(['and', '{> key1}', '{< key1}' ])
-             ->param({key1 => [$dbi->not_exists, 2]});
-$result = $dbi->select(
-    table => 'table1',
-    where => $where,
-);
-$row = $result->all;
-is_deeply($row, [{key1 => 1, key2 => 2}], 'not_exists');
-
-$where = $dbi->where
-             ->clause(['and', '{> key1}', '{< key1}' ])
-             ->param({key1 => [$dbi->not_exists, $dbi->not_exists]});
-$result = $dbi->select(
-    table => 'table1',
-    where => $where,
-);
-$row = $result->all;
-is_deeply($row, [{key1 => 1, key2 => 2},{key1 => 3, key2 => 4}], 'not_exists');
-
-$where = $dbi->where
-             ->clause(['and', '{> key1}', '{< key1}' ])
-             ->param({key1 => [0, 2]});
-$result = $dbi->select(
-    table => 'table1',
-    where => $where,
-);
-$row = $result->all;
-is_deeply($row, [{key1 => 1, key2 => 2}], 'not_exists');
-
-$where = $dbi->where
-             ->clause(['and', 'key1 is not null', 'key2 is not null' ]);
-$result = $dbi->select(
-    table => 'table1',
-    where => $where,
-);
-$row = $result->all;
-is_deeply($row, [{key1 => 1, key2 => 2}, {key1 => 3, key2 => 4}], 'not_exists');
-
-eval {$dbi->where(ppp => 1) };
-like($@, qr/invalid/);
-
-$where = $dbi->where(
-    clause => ['and', ['or'], ['and', 'key1 = :key1', 'key2 = :key2']],
-    param => {key1 => 1, key2 => 2}
-);
-$result = $dbi->select(
-    table => 'table1',
-    where => $where,
-);
-$row = $result->all;
-is_deeply($row, [{key1 => 1, key2 => 2}]);
-
-
-$where = $dbi->where(
-    clause => ['and', ['or'], ['or', ':key1', ':key2']],
-    param => {}
-);
-$result = $dbi->select(
-    table => 'table1',
-    where => $where,
-);
-$row = $result->all;
-is_deeply($row, [{key1 => 1, key2 => 2}, {key1 => 3, key2 => 4}]);
-
-
-test 'dbi_option default';
-$dbi = DBIx::Custom->new;
-is_deeply($dbi->dbi_option, {});
-
-test 'register_tag_processor';
-$dbi = DBIx::Custom->connect(%memory);
-$dbi->register_tag_processor(
-    a => sub { 1 }
-);
-is($dbi->query_builder->tag_processors->{a}->(), 1);
-
-test 'register_tag';
-$dbi = DBIx::Custom->connect(%memory);
-$dbi->register_tag(
-    b => sub { 2 }
-);
-is($dbi->query_builder->tags->{b}->(), 2);
-
-test 'table not specify exception';
-$dbi = DBIx::Custom->connect(%memory);
-eval {$dbi->insert};
-like($@, qr/table/);
-eval {$dbi->update};
-like($@, qr/table/);
-eval {$dbi->delete};
-like($@, qr/table/);
-eval {$dbi->select};
-like($@, qr/table/);
-
-
-test 'more tests';
-$dbi = DBIx::Custom->connect(%memory);
-eval{$dbi->apply_filter('table', 'column', [])};
-like($@, qr/apply_filter/);
-
-eval{$dbi->apply_filter('table', 'column', {outer => 2})};
-like($@, qr/apply_filter/);
-
-$dbi->apply_filter(
-
-);
-$dbi = DBIx::Custom->connect(%memory);
-$dbi->execute($create_table_default);
-$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2});
-$dbi->insert(table => 'table1', param => {key1 => 3, key2 => 4});
-$dbi->apply_filter('table1', 'key2', 
-                   {in => sub { $_[0] * 3 }, out => sub { $_[0] * 2 }});
-$rows = $dbi->select(table => 'table1', where => {key2 => 1})->all;
-is_deeply($rows, [{key1 => 1, key2 => 6}]);
-
-$dbi = DBIx::Custom->connect(%memory);
-$dbi->execute($create_table_default);
-$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2});
-$dbi->insert(table => 'table1', param => {key1 => 3, key2 => 4});
-$dbi->apply_filter('table1', 'key2', {});
-$rows = $dbi->select(table => 'table1', where => {key2 => 2})->all;
-is_deeply($rows, [{key1 => 1, key2 => 2}]);
-
-$dbi = DBIx::Custom->connect(%memory);
-eval {$dbi->apply_filter('table1', 'key2', {out => 'no'})};
-like($@, qr/not registered/);
-eval {$dbi->apply_filter('table1', 'key2', {in => 'no'})};
-like($@, qr/not registered/);
-$dbi->method({one => sub { 1 }});
-is($dbi->one, 1);
-
-eval{DBIx::Custom->connect()};
-like($@, qr/_connect/);
-
-$dbi = DBIx::Custom->connect(%memory);
-$dbi->execute($create_table_default);
-$dbi->register_filter(twice => sub { $_[0] * 2 });
-$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2},
-             filter => {key1 => 'twice'});
-$row = $dbi->select(table => 'table1')->one;
-is_deeply($row, {key1 => 2, key2 => 2});
-eval {$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2},
-             filter => {key1 => 'no'}) };
-like($@, qr//);
-
-$dbi->register_filter(one => sub { });
-$dbi->default_fetch_filter('one');
-ok($dbi->default_fetch_filter);
-$dbi->default_bind_filter('one');
-ok($dbi->default_bind_filter);
-eval{$dbi->default_fetch_filter('no')};
-like($@, qr/not registered/);
-eval{$dbi->default_bind_filter('no')};
-like($@, qr/not registered/);
-$dbi->default_bind_filter(undef);
-ok(!defined $dbi->default_bind_filter);
-$dbi->default_fetch_filter(undef);
-ok(!defined $dbi->default_fetch_filter);
-eval {$dbi->execute('select * from table1 {} {= author') };
-like($@, qr/Tag not finished/);
-
-$dbi = DBIx::Custom->connect(%memory);
-$dbi->execute($create_table_default);
-$dbi->register_filter(one => sub { 1 });
-$result = $dbi->select(table => 'table1');
-eval {$result->filter(key1 => 'no')};
-like($@, qr/not registered/);
-eval {$result->end_filter(key1 => 'no')};
-like($@, qr/not registered/);
-$result->default_filter(undef);
-ok(!defined $result->default_filter);
-$result->default_filter('one');
-is($result->default_filter->(), 1);
-
-test 'dbi_option';
-$dbi = DBIx::Custom->connect(%memory,
-                             dbi_option => {PrintError => 1});
-ok($dbi->dbh->{PrintError});
-$dbi = DBIx::Custom->connect(%memory,
-                             dbi_options => {PrintError => 1});
-ok($dbi->dbh->{PrintError});
-
-test 'DBIx::Custom::Result stash()';
-$result = DBIx::Custom::Result->new;
-is_deeply($result->stash, {}, 'default');
-$result->stash->{foo} = 1;
-is($result->stash->{foo}, 1, 'get and set');
-
-test 'filter __ expression';
-$dbi = DBIx::Custom->connect(%memory);
-$dbi->execute('create table company (id, name, location_id)');
-$dbi->execute('create table location (id, name)');
-$dbi->apply_filter('location',
-  name => {in => sub { uc $_[0] } }
-);
-
-$dbi->insert(table => 'company', param => {id => 1, name => 'a', location_id => 2});
-$dbi->insert(table => 'location', param => {id => 2, name => 'b'});
-
-$result = $dbi->select(
-    table => ['company', 'location'], relation => {'company.location_id' => 'location.id'},
-    column => ['location.name as location__name']
-);
-is($result->fetch_first->[0], 'B');
-
-$result = $dbi->select(
-    table => 'company', relation => {'company.location_id' => 'location.id'},
-    column => ['location.name as location__name']
-);
-is($result->fetch_first->[0], 'B');
-
-$result = $dbi->select(
-    table => 'company', relation => {'company.location_id' => 'location.id'},
-    column => ['location.name as "location.name"']
-);
-is($result->fetch_first->[0], 'B');
-
-test 'Model class';
-use MyDBI1;
-$dbi = MyDBI1->connect(%memory);
-$dbi->execute("create table book (title, author)");
-$model = $dbi->model('book');
-$model->insert({title => 'a', author => 'b'});
-is_deeply($model->list->all, [{title => 'a', author => 'b'}], 'basic');
-$dbi->execute("create table company (name)");
-$model = $dbi->model('company');
-$model->insert({name => 'a'});
-is_deeply($model->list->all, [{name => 'a'}], 'basic');
-is($dbi->models->{'book'}, $dbi->model('book'));
-is($dbi->models->{'company'}, $dbi->model('company'));
-
-{
-    package MyDBI4;
-
-    use strict;
-    use warnings;
-
-    use base 'DBIx::Custom';
-
-    sub connect {
-        my $self = shift->SUPER::connect(@_);
-        
-        $self->include_model(
-            MyModel2 => [
-                'book',
-                {class => 'Company', name => 'company'}
-            ]
-        );
-    }
-
-    package MyModel2::Base1;
-
-    use strict;
-    use warnings;
-
-    use base 'DBIx::Custom::Model';
-
-    package MyModel2::book;
-
-    use strict;
-    use warnings;
-
-    use base 'MyModel2::Base1';
-
-    sub insert {
-        my ($self, $param) = @_;
-        
-        return $self->SUPER::insert(param => $param);
-    }
-
-    sub list { shift->select; }
-
-    package MyModel2::Company;
-
-    use strict;
-    use warnings;
-
-    use base 'MyModel2::Base1';
-
-    sub insert {
-        my ($self, $param) = @_;
-        
-        return $self->SUPER::insert(param => $param);
-    }
-
-    sub list { shift->select; }
-}
-$dbi = MyDBI4->connect(%memory);
-$dbi->execute("create table book (title, author)");
-$model = $dbi->model('book');
-$model->insert({title => 'a', author => 'b'});
-is_deeply($model->list->all, [{title => 'a', author => 'b'}], 'basic');
-$dbi->execute("create table company (name)");
-$model = $dbi->model('company');
-$model->insert({name => 'a'});
-is_deeply($model->list->all, [{name => 'a'}], 'basic');
-
-{
-     package MyDBI5;
-
-    use strict;
-    use warnings;
-
-    use base 'DBIx::Custom';
-
-    sub connect {
-        my $self = shift->SUPER::connect(@_);
-        
-        $self->include_model('MyModel4');
-    }
-}
-$dbi = MyDBI5->connect(%memory);
-$dbi->execute("create table company (name)");
-$dbi->execute("create table table1 (key1)");
-$model = $dbi->model('company');
-$model->insert({name => 'a'});
-is_deeply($model->list->all, [{name => 'a'}], 'include all model');
-$dbi->insert(table => 'table1', param => {key1 => 1});
-$model = $dbi->model('book');
-is_deeply($model->list->all, [{key1 => 1}], 'include all model');
-
-test 'primary_key';
-use MyDBI1;
-$dbi = MyDBI1->connect(%memory);
-$model = $dbi->model('book');
-$model->primary_key(['id', 'number']);
-is_deeply($model->primary_key, ['id', 'number']);
-
-test 'columns';
-use MyDBI1;
-$dbi = MyDBI1->connect(%memory);
-$model = $dbi->model('book');
-$model->columns(['id', 'number']);
-is_deeply($model->columns, ['id', 'number']);
-
-test 'setup_model';
-use MyDBI1;
-$dbi = MyDBI1->connect(%memory);
-$dbi->execute('create table book (id)');
-$dbi->execute('create table company (id, name);');
-$dbi->execute('create table test (id, name, primary key (id, name));');
-$dbi->setup_model;
-is_deeply($dbi->model('book')->columns, ['id']);
-is_deeply($dbi->model('company')->columns, ['id', 'name']);
-
-test 'delete_at';
-$dbi = DBIx::Custom->connect(%memory);
-$dbi->execute('create table table1 (key1 char(255), key2 char(255), key3 char(255), key4 char(255), key5 char(255));');
-$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2, key3 => 3});
-$dbi->delete_at(
-    table => 'table1',
-    primary_key => ['key1', 'key2'],
-    where => [1, 2],
-);
-is_deeply($dbi->select(table => 'table1')->all, []);
-
-$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2, key3 => 3});
-$dbi->delete_at(
-    table => 'table1',
-    primary_key => 'key1',
-    where => 1,
-);
-is_deeply($dbi->select(table => 'table1')->all, []);
-
-test 'insert_at';
-$dbi = DBIx::Custom->connect(%memory);
-$dbi->execute('create table table1 (key1 char(255), key2 char(255), key3 char(255), key4 char(255), key5 char(255));');
-$dbi->insert_at(
-    primary_key => ['key1', 'key2'], 
-    table => 'table1',
-    where => [1, 2],
-    param => {key3 => 3}
-);
-is($dbi->select(table => 'table1')->one->{key1}, 1);
-is($dbi->select(table => 'table1')->one->{key2}, 2);
-is($dbi->select(table => 'table1')->one->{key3}, 3);
-
-$dbi->delete_all(table => 'table1');
-$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2, key3 => 3});
-$dbi->insert_at(
-    primary_key => 'key1', 
-    table => 'table1',
-    where => 1,
-    param => {key2 => 2, key3 => 3}
-);
-
-is($dbi->select(table => 'table1')->one->{key1}, 1);
-is($dbi->select(table => 'table1')->one->{key2}, 2);
-is($dbi->select(table => 'table1')->one->{key3}, 3);
-
-eval {
-    $dbi->insert_at(
-        table => 'table1',
-        primary_key => ['key1', 'key2'],
-        where => {},
-        param => {key1 => 1, key2 => 2, key3 => 3},
-    );
-};
-like($@, qr/must be/);
-
-$dbi = DBIx::Custom->connect(%memory);
-$dbi->execute('create table table1 (key1 char(255), key2 char(255), key3 char(255), key4 char(255), key5 char(255));');
-$dbi->insert_at(
-    {key3 => 3},
-    primary_key => ['key1', 'key2'], 
-    table => 'table1',
-    where => [1, 2],
-);
-is($dbi->select(table => 'table1')->one->{key1}, 1);
-is($dbi->select(table => 'table1')->one->{key2}, 2);
-is($dbi->select(table => 'table1')->one->{key3}, 3);
-
-test 'update_at';
-$dbi = DBIx::Custom->connect(%memory);
-$dbi->execute('create table table1 (key1 char(255), key2 char(255), key3 char(255), key4 char(255), key5 char(255));');
-$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2, key3 => 3});
-$dbi->update_at(
-    table => 'table1',
-    primary_key => ['key1', 'key2'],
-    where => [1, 2],
-    param => {key3 => 4}
-);
-is($dbi->select(table => 'table1')->one->{key1}, 1);
-is($dbi->select(table => 'table1')->one->{key2}, 2);
-is($dbi->select(table => 'table1')->one->{key3}, 4);
-
-$dbi->delete_all(table => 'table1');
-$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2, key3 => 3});
-$dbi->update_at(
-    table => 'table1',
-    primary_key => 'key1',
-    where => 1,
-    param => {key3 => 4}
-);
-is($dbi->select(table => 'table1')->one->{key1}, 1);
-is($dbi->select(table => 'table1')->one->{key2}, 2);
-is($dbi->select(table => 'table1')->one->{key3}, 4);
-
-$dbi = DBIx::Custom->connect(%memory);
-$dbi->execute('create table table1 (key1 char(255), key2 char(255), key3 char(255), key4 char(255), key5 char(255));');
-$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2, key3 => 3});
-$dbi->update_at(
-    {key3 => 4},
-    table => 'table1',
-    primary_key => ['key1', 'key2'],
-    where => [1, 2]
-);
-is($dbi->select(table => 'table1')->one->{key1}, 1);
-is($dbi->select(table => 'table1')->one->{key2}, 2);
-is($dbi->select(table => 'table1')->one->{key3}, 4);
-
-test 'select_at';
-$dbi = DBIx::Custom->connect(%memory);
-$dbi->execute('create table table1 (key1 char(255), key2 char(255), key3 char(255), key4 char(255), key5 char(255));');
-$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2, key3 => 3});
-$result = $dbi->select_at(
-    table => 'table1',
-    primary_key => ['key1', 'key2'],
-    where => [1, 2]
-);
-$row = $result->one;
-is($row->{key1}, 1);
-is($row->{key2}, 2);
-is($row->{key3}, 3);
-
-$dbi->delete_all(table => 'table1');
-$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2, key3 => 3});
-$result = $dbi->select_at(
-    table => 'table1',
-    primary_key => 'key1',
-    where => 1,
-);
-$row = $result->one;
-is($row->{key1}, 1);
-is($row->{key2}, 2);
-is($row->{key3}, 3);
-
-$dbi->delete_all(table => 'table1');
-$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2, key3 => 3});
-$result = $dbi->select_at(
-    table => 'table1',
-    primary_key => ['key1', 'key2'],
-    where => [1, 2]
-);
-$row = $result->one;
-is($row->{key1}, 1);
-is($row->{key2}, 2);
-is($row->{key3}, 3);
-
-eval {
-    $result = $dbi->select_at(
-        table => 'table1',
-        primary_key => ['key1', 'key2'],
-        where => {},
-    );
-};
-like($@, qr/must be/);
-
-eval {
-    $result = $dbi->select_at(
-        table => 'table1',
-        primary_key => ['key1', 'key2'],
-        where => [1],
-    );
-};
-like($@, qr/same/);
-
-eval {
-    $result = $dbi->update_at(
-        table => 'table1',
-        primary_key => ['key1', 'key2'],
-        where => {},
-        param => {key1 => 1, key2 => 2},
-    );
-};
-like($@, qr/must be/);
-
-eval {
-    $result = $dbi->delete_at(
-        table => 'table1',
-        primary_key => ['key1', 'key2'],
-        where => {},
-    );
-};
-like($@, qr/must be/);
-
-test 'columns';
-use MyDBI1;
-$dbi = MyDBI1->connect(%memory);
-$model = $dbi->model('book');
-
-
-test 'model delete_at';
-{
-    package MyDBI6;
-    
-    use base 'DBIx::Custom';
-    
-    sub connect {
-        my $self = shift->SUPER::connect(@_);
-        
-        $self->include_model('MyModel5');
-        
-        return $self;
-    }
-}
-$dbi = MyDBI6->connect(%memory);
-$dbi->execute('create table table1 (key1 char(255), key2 char(255), key3 char(255), key4 char(255), key5 char(255));');
-$dbi->execute("create table table2 (key1, key2, key3)");
-$dbi->execute("create table table3 (key1, key2, key3)");
-$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2, key3 => 3});
-$dbi->model('table1')->delete_at(where => [1, 2]);
-is_deeply($dbi->select(table => 'table1')->all, []);
-$dbi->insert(table => 'table2', param => {key1 => 1, key2 => 2, key3 => 3});
-$dbi->model('table1_1')->delete_at(where => [1, 2]);
-is_deeply($dbi->select(table => 'table1')->all, []);
-$dbi->insert(table => 'table3', param => {key1 => 1, key2 => 2, key3 => 3});
-$dbi->model('table1_3')->delete_at(where => [1, 2]);
-is_deeply($dbi->select(table => 'table1')->all, []);
-
-test 'model insert_at';
-$dbi = MyDBI6->connect(%memory);
-$dbi->execute('create table table1 (key1 char(255), key2 char(255), key3 char(255), key4 char(255), key5 char(255));');
-$dbi->model('table1')->insert_at(
-    where => [1, 2],
-    param => {key3 => 3}
-);
-$result = $dbi->model('table1')->select;
-$row = $result->one;
-is($row->{key1}, 1);
-is($row->{key2}, 2);
-is($row->{key3}, 3);
-
-test 'model update_at';
-$dbi = MyDBI6->connect(%memory);
-$dbi->execute('create table table1 (key1 char(255), key2 char(255), key3 char(255), key4 char(255), key5 char(255));');
-$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2, key3 => 3});
-$dbi->model('table1')->update_at(
-    where => [1, 2],
-    param => {key3 => 4}
-);
-$result = $dbi->model('table1')->select;
-$row = $result->one;
-is($row->{key1}, 1);
-is($row->{key2}, 2);
-is($row->{key3}, 4);
-
-test 'model select_at';
-$dbi = MyDBI6->connect(%memory);
-$dbi->execute('create table table1 (key1 char(255), key2 char(255), key3 char(255), key4 char(255), key5 char(255));');
-$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2, key3 => 3});
-$result = $dbi->model('table1')->select_at(where => [1, 2]);
-$row = $result->one;
-is($row->{key1}, 1);
-is($row->{key2}, 2);
-is($row->{key3}, 3);
-
-
-test 'mycolumn and column';
-{
-    package MyDBI7;
-    
-    use base 'DBIx::Custom';
-    
-    sub connect {
-        my $self = shift->SUPER::connect(@_);
-        
-        $self->include_model('MyModel6');
-        
-        
-        return $self;
-    }
-}
-$dbi = MyDBI7->connect(%memory);
-$dbi->execute($create_table_default);
-$dbi->execute('create table table2 (key1 char(255), key3 char(255));');
-$dbi->separator('__');
-$dbi->setup_model;
-$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2});
-$dbi->insert(table => 'table2', param => {key1 => 1, key3 => 3});
-$model = $dbi->model('table1');
-$result = $model->select(
-    column => [$model->mycolumn, $model->column('table2')],
-    where => {'table1.key1' => 1}
-);
-is_deeply($result->one,
-          {key1 => 1, key2 => 2, 'table2__key1' => 1, 'table2__key3' => 3});
-
-test 'update_param';
-$dbi = DBIx::Custom->connect(%memory);
-$dbi->execute('create table table1 (key1 char(255), key2 char(255), key3 char(255), key4 char(255), key5 char(255));');
-$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2, key3 => 3, key4 => 4, key5 => 5});
-$dbi->insert(table => 'table1', param => {key1 => 6, key2 => 7, key3 => 8, key4 => 9, key5 => 10});
-
-$param = {key2 => 11};
-$update_param = $dbi->update_param($param);
-$sql = <<"EOS";
-update table1 $update_param
-where key1 = 1
-EOS
-$dbi->execute($sql, param => $param);
-$result = $dbi->execute('select * from table1;', table => 'table1');
-$rows   = $result->all;
-is_deeply($rows, [{key1 => 1, key2 => 11, key3 => 3, key4 => 4, key5 => 5},
-                  {key1 => 6, key2 => 7,  key3 => 8, key4 => 9, key5 => 10}],
-                  "basic");
-
-
-$dbi = DBIx::Custom->connect(%memory);
-$dbi->execute('create table table1 (key1 char(255), key2 char(255), key3 char(255), key4 char(255), key5 char(255));');
-$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2, key3 => 3, key4 => 4, key5 => 5});
-$dbi->insert(table => 'table1', param => {key1 => 6, key2 => 7, key3 => 8, key4 => 9, key5 => 10});
-
-$param = {key2 => 11, key3 => 33};
-$update_param = $dbi->update_param($param);
-$sql = <<"EOS";
-update table1 $update_param
-where key1 = 1
-EOS
-$dbi->execute($sql, param => $param);
-$result = $dbi->execute('select * from table1;', table => 'table1');
-$rows   = $result->all;
-is_deeply($rows, [{key1 => 1, key2 => 11, key3 => 33, key4 => 4, key5 => 5},
-                  {key1 => 6, key2 => 7,  key3 => 8, key4 => 9, key5 => 10}],
-                  "basic");
-
-$dbi = DBIx::Custom->connect(%memory);
-$dbi->execute('create table table1 (key1 char(255), key2 char(255), key3 char(255), key4 char(255), key5 char(255));');
-$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2, key3 => 3, key4 => 4, key5 => 5});
-$dbi->insert(table => 'table1', param => {key1 => 6, key2 => 7, key3 => 8, key4 => 9, key5 => 10});
-
-$param = {key2 => 11, key3 => 33};
-$update_param = $dbi->update_param($param, {no_set => 1});
-$sql = <<"EOS";
-update table1 set $update_param
-where key1 = 1
-EOS
-$dbi->execute($sql, param => $param);
-$result = $dbi->execute('select * from table1;', table => 'table1');
-$rows   = $result->all;
-is_deeply($rows, [{key1 => 1, key2 => 11, key3 => 33, key4 => 4, key5 => 5},
-                  {key1 => 6, key2 => 7,  key3 => 8, key4 => 9, key5 => 10}],
-                  "update param no_set");
-
-            
-eval { $dbi->update_param({";" => 1}) };
-like($@, qr/not safety/);
-
-
-test 'update_param';
-$dbi = DBIx::Custom->connect(%memory);
-$dbi->execute('create table table1 (key1 char(255), key2 char(255), key3 char(255), key4 char(255), key5 char(255));');
-$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2, key3 => 3, key4 => 4, key5 => 5});
-$dbi->insert(table => 'table1', param => {key1 => 6, key2 => 7, key3 => 8, key4 => 9, key5 => 10});
-
-$param = {key2 => 11};
-$update_param = $dbi->assign_param($param);
-$sql = <<"EOS";
-update table1 set $update_param
-where key1 = 1
-EOS
-$dbi->execute($sql, param => $param, table => 'table1');
-$result = $dbi->execute('select * from table1;');
-$rows   = $result->all;
-is_deeply($rows, [{key1 => 1, key2 => 11, key3 => 3, key4 => 4, key5 => 5},
-                  {key1 => 6, key2 => 7,  key3 => 8, key4 => 9, key5 => 10}],
-                  "basic");
-
-
-test 'insert_param';
-$dbi = DBIx::Custom->connect(%memory);
-$dbi->execute('create table table1 (key1 char(255), key2 char(255), key3 char(255), key4 char(255), key5 char(255));');
-$param = {key1 => 1, key2 => 2};
-$insert_param = $dbi->insert_param($param);
-$sql = <<"EOS";
-insert into table1 $insert_param
-EOS
-$dbi->execute($sql, param => $param, table => 'table1');
-is($dbi->select(table => 'table1')->one->{key1}, 1);
-is($dbi->select(table => 'table1')->one->{key2}, 2);
-
-$dbi = DBIx::Custom->connect(%memory);
-$dbi->quote('"');
-$dbi->execute('create table table1 (key1 char(255), key2 char(255), key3 char(255), key4 char(255), key5 char(255));');
-$param = {key1 => 1, key2 => 2};
-$insert_param = $dbi->insert_param($param);
-$sql = <<"EOS";
-insert into table1 $insert_param
-EOS
-$dbi->execute($sql, param => $param, table => 'table1');
-is($dbi->select(table => 'table1')->one->{key1}, 1);
-is($dbi->select(table => 'table1')->one->{key2}, 2);
-
-eval { $dbi->insert_param({";" => 1}) };
-like($@, qr/not safety/);
-
-
-test 'join';
-$dbi = DBIx::Custom->connect(%memory);
-$dbi->execute($create_table_default);
-$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2});
-$dbi->insert(table => 'table1', param => {key1 => 3, key2 => 4});
-$dbi->execute('create table table2 (key1 char(255), key3 char(255));');
-$dbi->insert(table => 'table2', param => {key1 => 1, key3 => 5});
-$dbi->execute('create table table3 (key3 int, key4 int);');
-$dbi->insert(table => 'table3', param => {key3 => 5, key4 => 4});
-$rows = $dbi->select(
-    table => 'table1',
-    column => 'table1.key1 as table1_key1, table2.key1 as table2_key1, key2, key3',
-    where   => {'table1.key2' => 2},
-    join  => ['left outer join table2 on table1.key1 = table2.key1']
-)->all;
-is_deeply($rows, [{table1_key1 => 1, table2_key1 => 1, key2 => 2, key3 => 5}]);
-
-$rows = $dbi->select(
-    table => 'table1',
-    where   => {'key1' => 1},
-    join  => ['left outer join table2 on table1.key1 = table2.key1']
-)->all;
-is_deeply($rows, [{key1 => 1, key2 => 2}]);
-
-eval {
-    $rows = $dbi->select(
-        table => 'table1',
-        column => 'table1.key1 as table1_key1, table2.key1 as table2_key1, key2, key3',
-        where   => {'table1.key2' => 2},
-        join  => {'table1.key1' => 'table2.key1'}
-    );
-};
-like ($@, qr/array/);
-
-$rows = $dbi->select(
-    table => 'table1',
-    where   => {'key1' => 1},
-    join  => ['left outer join table2 on table1.key1 = table2.key1',
-              'left outer join table3 on table2.key3 = table3.key3']
-)->all;
-is_deeply($rows, [{key1 => 1, key2 => 2}]);
-
-$rows = $dbi->select(
-    column => 'table3.key4 as table3__key4',
-    table => 'table1',
-    where   => {'table1.key1' => 1},
-    join  => ['left outer join table2 on table1.key1 = table2.key1',
-              'left outer join table3 on table2.key3 = table3.key3']
-)->all;
-is_deeply($rows, [{table3__key4 => 4}]);
-
-$rows = $dbi->select(
-    column => 'table1.key1 as table1__key1',
-    table => 'table1',
-    where   => {'table3.key4' => 4},
-    join  => ['left outer join table2 on table1.key1 = table2.key1',
-              'left outer join table3 on table2.key3 = table3.key3']
-)->all;
-is_deeply($rows, [{table1__key1 => 1}]);
-
-$dbi = DBIx::Custom->connect(%memory);
-$dbi->quote('"');
-$dbi->execute($create_table_default);
-$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2});
-$dbi->execute('create table table2 (key1 char(255), key3 char(255));');
-$dbi->insert(table => 'table2', param => {key1 => 1, key3 => 5});
-$rows = $dbi->select(
-    table => 'table1',
-    column => '"table1"."key1" as "table1_key1", "table2"."key1" as "table2_key1", "key2", "key3"',
-    where   => {'table1.key2' => 2},
-    join  => ['left outer join "table2" on "table1"."key1" = "table2"."key1"'],
-)->all;
-is_deeply($rows, [{table1_key1 => 1, table2_key1 => 1, key2 => 2, key3 => 5}],
-          'quote');
-
-{
-    package MyDBI8;
-    
-    use base 'DBIx::Custom';
-    
-    sub connect {
-        my $self = shift->SUPER::connect(@_);
-        
-        $self->include_model('MyModel7');
-        
-        return $self;
-    }
-}
-
-$dbi = DBIx::Custom->connect(%memory);
-$dbi->execute($create_table_default);
-$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2});
-$sql = <<"EOS";
-left outer join (
-  select * from table1 as t1
-  where t1.key2 = (
-    select max(t2.key2) from table1 as t2
-    where t1.key1 = t2.key1
-  )
-) as latest_table1 on table1.key1 = latest_table1.key1
-EOS
-$join = [$sql];
-$rows = $dbi->select(
-    table => 'table1',
-    column => 'latest_table1.key1 as latest_table1__key1',
-    join  => $join
-)->all;
-is_deeply($rows, [{latest_table1__key1 => 1}]);
-
-$dbi = DBIx::Custom->connect(%memory);
-$dbi->execute($create_table_default);
-$dbi->execute('create table table2 (key1 char(255), key3 char(255));');
-$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2});
-$dbi->insert(table => 'table2', param => {key1 => 1, key3 => 4});
-$dbi->insert(table => 'table2', param => {key1 => 1, key3 => 5});
-$result = $dbi->select(
-    table => 'table1',
-    join => [
-        "left outer join table2 on table2.key2 = '4' and table1.key1 = table2.key1"
-    ]
-);
-is_deeply($result->all, [{key1 => 1, key2 => 2}]);
-$result = $dbi->select(
-    table => 'table1',
-    column => [{table2 => ['key3']}],
-    join => [
-        "left outer join table2 on table2.key3 = '4' and table1.key1 = table2.key1"
-    ]
-);
-is_deeply($result->all, [{'table2.key3' => 4}]);
-$result = $dbi->select(
-    table => 'table1',
-    column => [{table2 => ['key3']}],
-    join => [
-        "left outer join table2 on table1.key1 = table2.key1 and table2.key3 = '4'"
-    ]
-);
-is_deeply($result->all, [{'table2.key3' => 4}]);
-
-$dbi = DBIx::Custom->connect(%memory);
-$dbi->execute($create_table_default);
-$dbi->execute('create table table2 (key1 char(255), key3 char(255));');
-$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2});
-$dbi->insert(table => 'table2', param => {key1 => 1, key3 => 4});
-$dbi->insert(table => 'table2', param => {key1 => 1, key3 => 5});
-$result = $dbi->select(
-    table => 'table1',
-    column => [{table2 => ['key3']}],
-    join => [
-        {
-            clause => "left outer join table2 on table2.key3 = '4' and table1.key1 = table2.key1",
-            table => ['table1', 'table2']
-        }
-    ]
-);
-is_deeply($result->all, [{'table2.key3' => 4}]);
-
-test 'mycolumn';
-$dbi = MyDBI8->connect(%memory);
-$dbi->execute($create_table_default);
-$dbi->execute('create table table2 (key1 char(255), key3 char(255));');
-$dbi->setup_model;
-$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2});
-$dbi->insert(table => 'table2', param => {key1 => 1, key3 => 3});
-$model = $dbi->model('table1');
-$result = $model->select_at(
-    column => [
-        $model->mycolumn,
-        $model->column('table2')
-    ]
-);
-is_deeply($result->one,
-          {key1 => 1, key2 => 2, 'table2.key1' => 1, 'table2.key3' => 3});
-
-$result = $model->select_at(
-    column => [
-        $model->mycolumn(['key1']),
-        $model->column(table2 => ['key1'])
-    ]
-);
-is_deeply($result->one,
-          {key1 => 1, 'table2.key1' => 1});
-$result = $model->select_at(
-    column => [
-        $model->mycolumn(['key1']),
-        {table2 => ['key1']}
-    ]
-);
-is_deeply($result->one,
-          {key1 => 1, 'table2.key1' => 1});
-
-$result = $model->select_at(
-    column => [
-        $model->mycolumn(['key1']),
-        ['table2.key1', as => 'table2.key1']
-    ]
-);
-is_deeply($result->one,
-          {key1 => 1, 'table2.key1' => 1});
-
-$result = $model->select_at(
-    column => [
-        $model->mycolumn(['key1']),
-        ['table2.key1' => 'table2.key1']
-    ]
-);
-is_deeply($result->one,
-          {key1 => 1, 'table2.key1' => 1});
-
-test 'dbi method from model';
-{
-    package MyDBI9;
-    
-    use base 'DBIx::Custom';
-    
-    sub connect {
-        my $self = shift->SUPER::connect(@_);
-        
-        $self->include_model('MyModel8')->setup_model;
-        
-        return $self;
-    }
-}
-$dbi = MyDBI9->connect(%memory);
-$dbi->execute($create_table_default);
-$model = $dbi->model('table1');
-eval{$model->execute('select * from table1')};
-ok(!$@);
-
-test 'column table option';
-$dbi = MyDBI9->connect(%memory);
-$dbi->execute($create_table_default);
-$dbi->execute('create table table2 (key1 char(255), key3 char(255));');
-$dbi->setup_model;
-$dbi->execute('insert into table1 (key1, key2) values (1, 2);');
-$dbi->execute('insert into table2 (key1, key3) values (1, 4);');
-$model = $dbi->model('table1');
-$result = $model->select(
-    column => [
-        $model->column('table2', {alias => 'table2_alias'})
-    ],
-    where => {'table2_alias.key3' => 4}
-);
-is_deeply($result->one, 
-          {'table2_alias.key1' => 1, 'table2_alias.key3' => 4});
-
-$dbi->separator('__');
-$result = $model->select(
-    column => [
-        $model->column('table2', {alias => 'table2_alias'})
-    ],
-    where => {'table2_alias.key3' => 4}
-);
-is_deeply($result->one, 
-          {'table2_alias__key1' => 1, 'table2_alias__key3' => 4});
-
-$dbi->separator('-');
-$result = $model->select(
-    column => [
-        $model->column('table2', {alias => 'table2_alias'})
-    ],
-    where => {'table2_alias.key3' => 4}
-);
-is_deeply($result->one, 
-          {'table2_alias-key1' => 1, 'table2_alias-key3' => 4});
-
-test 'type option'; # DEPRECATED!
-$dbi = DBIx::Custom->connect(
-    data_source => 'dbi:SQLite:dbname=:memory:',
-    dbi_option => {
-        $DBD::SQLite::VERSION > 1.26 ? (sqlite_unicode => 1) : (unicode => 1)
-    }
-);
-my $binary = pack("I3", 1, 2, 3);
-$dbi->execute('create table table1(key1, key2)');
-$dbi->insert(table => 'table1', param => {key1 => $binary, key2 => 'あ'}, type => [key1 => DBI::SQL_BLOB]);
-$result = $dbi->select(table => 'table1');
-$row   = $result->one;
-is_deeply($row, {key1 => $binary, key2 => 'あ'}, "basic");
-$result = $dbi->execute('select length(key1) as key1_length from table1');
-$row = $result->one;
-is($row->{key1_length}, length $binary);
-
-$dbi->insert(table => 'table1', param => {key1 => $binary, key2 => 'あ'}, type => [['key1'] => DBI::SQL_BLOB]);
-$result = $dbi->select(table => 'table1');
-$row   = $result->one;
-is_deeply($row, {key1 => $binary, key2 => 'あ'}, "basic");
-$result = $dbi->execute('select length(key1) as key1_length from table1');
-$row = $result->one;
-is($row->{key1_length}, length $binary);
-
-
-test 'bind_type option';
-$dbi = DBIx::Custom->connect(
-    data_source => 'dbi:SQLite:dbname=:memory:',
-    dbi_option => {
-        $DBD::SQLite::VERSION > 1.26 ? (sqlite_unicode => 1) : (unicode => 1)
-    }
-);
-$binary = pack("I3", 1, 2, 3);
-$dbi->execute('create table table1(key1, key2)');
-$dbi->insert(table => 'table1', param => {key1 => $binary, key2 => 'あ'}, bind_type => [key1 => DBI::SQL_BLOB]);
-$result = $dbi->select(table => 'table1');
-$row   = $result->one;
-is_deeply($row, {key1 => $binary, key2 => 'あ'}, "basic");
-$result = $dbi->execute('select length(key1) as key1_length from table1');
-$row = $result->one;
-is($row->{key1_length}, length $binary);
-
-$dbi->insert(table => 'table1', param => {key1 => $binary, key2 => 'あ'}, bind_type => [['key1'] => DBI::SQL_BLOB]);
-$result = $dbi->select(table => 'table1');
-$row   = $result->one;
-is_deeply($row, {key1 => $binary, key2 => 'あ'}, "basic");
-$result = $dbi->execute('select length(key1) as key1_length from table1');
-$row = $result->one;
-is($row->{key1_length}, length $binary);
-
-test 'model type attribute';
-$dbi = DBIx::Custom->connect(
-    data_source => 'dbi:SQLite:dbname=:memory:',
-    dbi_option => {
-        $DBD::SQLite::VERSION > 1.26 ? (sqlite_unicode => 1) : (unicode => 1)
-    }
-);
-$binary = pack("I3", 1, 2, 3);
-$dbi->execute('create table table1(key1, key2)');
-$model = $dbi->create_model(table => 'table1', bind_type => [key1 => DBI::SQL_BLOB]);
-$model->insert(param => {key1 => $binary, key2 => 'あ'});
-$result = $dbi->select(table => 'table1');
-$row   = $result->one;
-is_deeply($row, {key1 => $binary, key2 => 'あ'}, "basic");
-$result = $dbi->execute('select length(key1) as key1_length from table1');
-$row = $result->one;
-is($row->{key1_length}, length $binary);
-
-test 'create_model';
-$dbi = DBIx::Custom->connect(%memory);
-$dbi->execute($create_table_default);
-$dbi->execute('create table table2 (key1 char(255), key3 char(255));');
-
-$dbi->create_model(
-    table => 'table1',
-    join => [
-       'left outer join table2 on table1.key1 = table2.key1'
-    ],
-    primary_key => ['key1']
-);
-$model2 = $dbi->create_model(
-    table => 'table2'
-);
-$dbi->create_model(
-    table => 'table3',
-    filter => [
-        key1 => {in => sub { uc $_[0] }}
-    ]
-);
-$dbi->setup_model;
-$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2});
-$dbi->insert(table => 'table2', param => {key1 => 1, key3 => 3});
-$model = $dbi->model('table1');
-$result = $model->select(
-    column => [$model->mycolumn, $model->column('table2')],
-    where => {'table1.key1' => 1}
-);
-is_deeply($result->one,
-          {key1 => 1, key2 => 2, 'table2.key1' => 1, 'table2.key3' => 3});
-is_deeply($model2->select->one, {key1 => 1, key3 => 3});
-
-test 'model method';
-test 'create_model';
-$dbi = DBIx::Custom->connect(%memory);
-$dbi->execute('create table table2 (key1 char(255), key3 char(255));');
-$dbi->insert(table => 'table2', param => {key1 => 1, key3 => 3});
-$model = $dbi->create_model(
-    table => 'table2'
-);
-$model->method(foo => sub { shift->select(@_) });
-is_deeply($model->foo->one, {key1 => 1, key3 => 3});
-
-test 'merge_param';
-$dbi = DBIx::Custom->new;
-$params = [
-    {key1 => 1, key2 => 2, key3 => 3},
-    {key1 => 1, key2 => 2},
-    {key1 => 1}
-];
-$param = $dbi->merge_param($params->[0], $params->[1], $params->[2]);
-is_deeply($param, {key1 => [1, 1, 1], key2 => [2, 2], key3 => 3});
-
-$params = [
-    {key1 => [1, 2], key2 => 1, key3 => [1, 2]},
-    {key1 => [3, 4], key2 => [2, 3], key3 => 3}
-];
-$param = $dbi->merge_param($params->[0], $params->[1]);
-is_deeply($param, {key1 => [1, 2, 3, 4], key2 => [1, 2, 3], key3 => [1, 2, 3]});
-
-test 'select() param option';
-$dbi = DBIx::Custom->connect(%memory);
-$dbi->execute($create_table_default);
-$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2});
-$dbi->insert(table => 'table1', param => {key1 => 2, key2 => 3});
-$dbi->execute('create table table2 (key1 char(255), key3 char(255));');
-$dbi->insert(table => 'table2', param => {key1 => 1, key3 => 4});
-$dbi->insert(table => 'table2', param => {key1 => 2, key3 => 5});
-$rows = $dbi->select(
-    table => 'table1',
-    column => 'table1.key1 as table1_key1, key2, key3',
-    where   => {'table1.key2' => 3},
-    join  => ['inner join (select * from table2 where {= table2.key3})' . 
-              ' as table2 on table1.key1 = table2.key1'],
-    param => {'table2.key3' => 5}
-)->all;
-is_deeply($rows, [{table1_key1 => 2, key2 => 3, key3 => 5}]);
-
-
-test 'select() wrap option';
-$dbi = DBIx::Custom->connect(%memory);
-$dbi->execute($create_table_default);
-$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2});
-$dbi->insert(table => 'table1', param => {key1 => 2, key2 => 3});
-$rows = $dbi->select(
-    table => 'table1',
-    column => 'key1',
-    wrap => ['select * from (', ') as t where key1 = 1']
-)->all;
-is_deeply($rows, [{key1 => 1}]);
-
-eval {
-$dbi->select(
-    table => 'table1',
-    column => 'key1',
-    wrap => 'select * from ('
-)
-};
-like($@, qr/array/);
-
-test 'select() string where';
-$dbi = DBIx::Custom->connect(%memory);
-$dbi->execute($create_table_default);
-$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2});
-$dbi->insert(table => 'table1', param => {key1 => 2, key2 => 3});
-$rows = $dbi->select(
-    table => 'table1',
-    where => 'key1 = :key1 and key2 = :key2',
-    where_param => {key1 => 1, key2 => 2}
-)->all;
-is_deeply($rows, [{key1 => 1, key2 => 2}]);
-
-$dbi = DBIx::Custom->connect(%memory);
-$dbi->execute($create_table_default);
-$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2});
-$dbi->insert(table => 'table1', param => {key1 => 2, key2 => 3});
-$rows = $dbi->select(
-    table => 'table1',
-    where => [
-        'key1 = :key1 and key2 = :key2',
-        {key1 => 1, key2 => 2}
-    ]
-)->all;
-is_deeply($rows, [{key1 => 1, key2 => 2}]);
-
-test 'delete() string where';
-$dbi = DBIx::Custom->connect(%memory);
-$dbi->execute($create_table_default);
-$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2});
-$dbi->insert(table => 'table1', param => {key1 => 2, key2 => 3});
-$dbi->delete(
-    table => 'table1',
-    where => 'key1 = :key1 and key2 = :key2',
-    where_param => {key1 => 1, key2 => 2}
-);
-$rows = $dbi->select(table => 'table1')->all;
-is_deeply($rows, [{key1 => 2, key2 => 3}]);
-
-$dbi = DBIx::Custom->connect(%memory);
-$dbi->execute($create_table_default);
-$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2});
-$dbi->insert(table => 'table1', param => {key1 => 2, key2 => 3});
-$dbi->delete(
-    table => 'table1',
-    where => [
-        'key1 = :key1 and key2 = :key2',
-         {key1 => 1, key2 => 2}
-    ]
-);
-$rows = $dbi->select(table => 'table1')->all;
-is_deeply($rows, [{key1 => 2, key2 => 3}]);
-
-
-test 'update() string where';
-$dbi = DBIx::Custom->connect(%memory);
-$dbi->execute($create_table_default);
-$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2});
-$dbi->update(
-    table => 'table1',
-    param => {key1 => 5},
-    where => 'key1 = :key1 and key2 = :key2',
-    where_param => {key1 => 1, key2 => 2}
-);
-$rows = $dbi->select(table => 'table1')->all;
-is_deeply($rows, [{key1 => 5, key2 => 2}]);
-
-$dbi = DBIx::Custom->connect(%memory);
-$dbi->execute($create_table_default);
-$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2});
-$dbi->update(
-    table => 'table1',
-    param => {key1 => 5},
-    where => [
-        'key1 = :key1 and key2 = :key2',
-        {key1 => 1, key2 => 2}
-    ]
-);
-$rows = $dbi->select(table => 'table1')->all;
-is_deeply($rows, [{key1 => 5, key2 => 2}]);
-
-test 'insert id and primary_key option';
-$dbi = DBIx::Custom->connect(%memory);
-$dbi->execute('create table table1 (key1 char(255), key2 char(255), key3 char(255), key4 char(255), key5 char(255));');
-$dbi->insert(
-    primary_key => ['key1', 'key2'], 
-    table => 'table1',
-    id => [1, 2],
-    param => {key3 => 3}
-);
-is($dbi->select(table => 'table1')->one->{key1}, 1);
-is($dbi->select(table => 'table1')->one->{key2}, 2);
-is($dbi->select(table => 'table1')->one->{key3}, 3);
-
-$dbi->delete_all(table => 'table1');
-$dbi->insert(
-    primary_key => 'key1', 
-    table => 'table1',
-    id => 0,
-    param => {key2 => 2, key3 => 3}
-);
-
-is($dbi->select(table => 'table1')->one->{key1}, 0);
-is($dbi->select(table => 'table1')->one->{key2}, 2);
-is($dbi->select(table => 'table1')->one->{key3}, 3);
-
-$dbi = DBIx::Custom->connect(%memory);
-$dbi->execute('create table table1 (key1 char(255), key2 char(255), key3 char(255), key4 char(255), key5 char(255));');
-$dbi->insert(
-    {key3 => 3},
-    primary_key => ['key1', 'key2'], 
-    table => 'table1',
-    id => [1, 2],
-);
-is($dbi->select(table => 'table1')->one->{key1}, 1);
-is($dbi->select(table => 'table1')->one->{key2}, 2);
-is($dbi->select(table => 'table1')->one->{key3}, 3);
-
-
-test 'model insert id and primary_key option';
-$dbi = MyDBI6->connect(%memory);
-$dbi->execute('create table table1 (key1 char(255), key2 char(255), key3 char(255), key4 char(255), key5 char(255));');
-$dbi->model('table1')->insert(
-    id => [1, 2],
-    param => {key3 => 3}
-);
-$result = $dbi->model('table1')->select;
-$row = $result->one;
-is($row->{key1}, 1);
-is($row->{key2}, 2);
-is($row->{key3}, 3);
-
-$dbi = MyDBI6->connect(%memory);
-$dbi->execute('create table table1 (key1 char(255), key2 char(255), key3 char(255), key4 char(255), key5 char(255));');
-$dbi->model('table1')->insert(
-    {key3 => 3},
-    id => [1, 2]
-);
-$result = $dbi->model('table1')->select;
-$row = $result->one;
-is($row->{key1}, 1);
-is($row->{key2}, 2);
-is($row->{key3}, 3);
-
-test 'update and id option';
-$dbi = DBIx::Custom->connect(%memory);
-$dbi->execute('create table table1 (key1 char(255), key2 char(255), key3 char(255), key4 char(255), key5 char(255));');
-$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2, key3 => 3});
-$dbi->update(
-    table => 'table1',
-    primary_key => ['key1', 'key2'],
-    id => [1, 2],
-    param => {key3 => 4}
-);
-is($dbi->select(table => 'table1')->one->{key1}, 1);
-is($dbi->select(table => 'table1')->one->{key2}, 2);
-is($dbi->select(table => 'table1')->one->{key3}, 4);
-
-$dbi->delete_all(table => 'table1');
-$dbi->insert(table => 'table1', param => {key1 => 0, key2 => 2, key3 => 3});
-$dbi->update(
-    table => 'table1',
-    primary_key => 'key1',
-    id => 0,
-    param => {key3 => 4}
-);
-is($dbi->select(table => 'table1')->one->{key1}, 0);
-is($dbi->select(table => 'table1')->one->{key2}, 2);
-is($dbi->select(table => 'table1')->one->{key3}, 4);
-
-$dbi = DBIx::Custom->connect(%memory);
-$dbi->execute('create table table1 (key1 char(255), key2 char(255), key3 char(255), key4 char(255), key5 char(255));');
-$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2, key3 => 3});
-$dbi->update(
-    {key3 => 4},
-    table => 'table1',
-    primary_key => ['key1', 'key2'],
-    id => [1, 2]
-);
-is($dbi->select(table => 'table1')->one->{key1}, 1);
-is($dbi->select(table => 'table1')->one->{key2}, 2);
-is($dbi->select(table => 'table1')->one->{key3}, 4);
-
-
-test 'model update and id option';
-$dbi = MyDBI6->connect(%memory);
-$dbi->execute('create table table1 (key1 char(255), key2 char(255), key3 char(255), key4 char(255), key5 char(255));');
-$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2, key3 => 3});
-$dbi->model('table1')->update(
-    id => [1, 2],
-    param => {key3 => 4}
-);
-$result = $dbi->model('table1')->select;
-$row = $result->one;
-is($row->{key1}, 1);
-is($row->{key2}, 2);
-is($row->{key3}, 4);
-
-
-test 'delete and id option';
-$dbi = DBIx::Custom->connect(%memory);
-$dbi->execute('create table table1 (key1 char(255), key2 char(255), key3 char(255), key4 char(255), key5 char(255));');
-$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2, key3 => 3});
-$dbi->delete(
-    table => 'table1',
-    primary_key => ['key1', 'key2'],
-    id => [1, 2],
-);
-is_deeply($dbi->select(table => 'table1')->all, []);
-
-$dbi->insert(table => 'table1', param => {key1 => 0, key2 => 2, key3 => 3});
-$dbi->delete(
-    table => 'table1',
-    primary_key => 'key1',
-    id => 0,
-);
-is_deeply($dbi->select(table => 'table1')->all, []);
-
-
-test 'model delete and id option';
-$dbi = MyDBI6->connect(%memory);
-$dbi->execute('create table table1 (key1 char(255), key2 char(255), key3 char(255), key4 char(255), key5 char(255));');
-$dbi->execute("create table table2 (key1, key2, key3)");
-$dbi->execute("create table table3 (key1, key2, key3)");
-$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2, key3 => 3});
-$dbi->model('table1')->delete(id => [1, 2]);
-is_deeply($dbi->select(table => 'table1')->all, []);
-$dbi->insert(table => 'table2', param => {key1 => 1, key2 => 2, key3 => 3});
-$dbi->model('table1_1')->delete(id => [1, 2]);
-is_deeply($dbi->select(table => 'table1')->all, []);
-$dbi->insert(table => 'table3', param => {key1 => 1, key2 => 2, key3 => 3});
-$dbi->model('table1_3')->delete(id => [1, 2]);
-is_deeply($dbi->select(table => 'table1')->all, []);
-
-
-test 'select and id option';
-$dbi = DBIx::Custom->connect(%memory);
-$dbi->execute('create table table1 (key1 char(255), key2 char(255), key3 char(255), key4 char(255), key5 char(255));');
-$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2, key3 => 3});
-$result = $dbi->select(
-    table => 'table1',
-    primary_key => ['key1', 'key2'],
-    id => [1, 2]
-);
-$row = $result->one;
-is($row->{key1}, 1);
-is($row->{key2}, 2);
-is($row->{key3}, 3);
-
-$dbi->delete_all(table => 'table1');
-$dbi->insert(table => 'table1', param => {key1 => 0, key2 => 2, key3 => 3});
-$result = $dbi->select(
-    table => 'table1',
-    primary_key => 'key1',
-    id => 0,
-);
-$row = $result->one;
-is($row->{key1}, 0);
-is($row->{key2}, 2);
-is($row->{key3}, 3);
-
-$dbi->delete_all(table => 'table1');
-$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2, key3 => 3});
-$result = $dbi->select(
-    table => 'table1',
-    primary_key => ['key1', 'key2'],
-    id => [1, 2]
-);
-$row = $result->one;
-is($row->{key1}, 1);
-is($row->{key2}, 2);
-is($row->{key3}, 3);
-
-
-test 'model select_at';
-$dbi = MyDBI6->connect(%memory);
-$dbi->execute('create table table1 (key1 char(255), key2 char(255), key3 char(255), key4 char(255), key5 char(255));');
-$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2, key3 => 3});
-$result = $dbi->model('table1')->select(id => [1, 2]);
-$row = $result->one;
-is($row->{key1}, 1);
-is($row->{key2}, 2);
-is($row->{key3}, 3);
-
-test 'column separator is default .';
-$dbi = MyDBI7->connect(%memory);
-$dbi->execute($create_table_default);
-$dbi->execute('create table table2 (key1 char(255), key3 char(255));');
-$dbi->setup_model;
-$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2});
-$dbi->insert(table => 'table2', param => {key1 => 1, key3 => 3});
-$model = $dbi->model('table1');
-$result = $model->select(
-    column => [$model->column('table2')],
-    where => {'table1.key1' => 1}
-);
-is_deeply($result->one,
-          {'table2.key1' => 1, 'table2.key3' => 3});
-
-$result = $model->select(
-    column => [$model->column('table2' => [qw/key1 key3/])],
-    where => {'table1.key1' => 1}
-);
-is_deeply($result->one,
-          {'table2.key1' => 1, 'table2.key3' => 3});
-
-
-test 'type_rule from';
-$dbi = DBIx::Custom->connect(%memory);
-$dbi->type_rule(
-    from1 => {
-        date => sub { uc $_[0] }
-    }
-);
-$dbi->execute("create table table1 (key1 Date, key2 datetime)");
-$dbi->insert({key1 => 'a'}, table => 'table1');
-$result = $dbi->select(table => 'table1');
-is($result->fetch_first->[0], 'A');
-
-$result = $dbi->select(table => 'table1');
-is($result->one->{key1}, 'A');
-
-
-test 'type_rule into';
-$dbi = DBIx::Custom->connect(%memory);
-$dbi->execute("create table table1 (key1 Date, key2 datetime)");
-$dbi->type_rule(
-    into1 => {
-        date => sub { uc $_[0] }
-    }
-);
-$dbi->insert({key1 => 'a'}, table => 'table1');
-$result = $dbi->select(table => 'table1');
-is($result->one->{key1}, 'A');
-
-$dbi = DBIx::Custom->connect(%memory);
-$dbi->execute("create table table1 (key1 date, key2 datetime)");
-$dbi->type_rule(
-    into1 => [
-         [qw/date datetime/] => sub { uc $_[0] }
-    ]
-);
-$dbi->insert({key1 => 'a', key2 => 'b'}, table => 'table1');
-$result = $dbi->select(table => 'table1');
-$row = $result->one;
-is($row->{key1}, 'A');
-is($row->{key2}, 'B');
-
-$dbi = DBIx::Custom->connect(%memory);
-$dbi->execute("create table table1 (key1 Date, key2 datetime)");
-$dbi->insert({key1 => 'a', key2 => 'B'}, table => 'table1');
-$dbi->type_rule(
-    into1 => [
-        [qw/date datetime/] => sub { uc $_[0] }
-    ]
-);
-$result = $dbi->execute(
-    "select * from table1 where key1 = :key1 and key2 = :table1.key2;",
-    param => {key1 => 'a', 'table1.key2' => 'b'}
-);
-$row = $result->one;
-is($row->{key1}, 'a');
-is($row->{key2}, 'B');
-
-$dbi = DBIx::Custom->connect(%memory);
-$dbi->execute("create table table1 (key1 Date, key2 datetime)");
-$dbi->insert({key1 => 'A', key2 => 'B'}, table => 'table1');
-$dbi->type_rule(
-    into1 => [
-        [qw/date datetime/] => sub { uc $_[0] }
-    ]
-);
-$result = $dbi->execute(
-    "select * from table1 where key1 = :key1 and key2 = :table1.key2;",
-    param => {key1 => 'a', 'table1.key2' => 'b'},
-    table => 'table1'
-);
-$row = $result->one;
-is($row->{key1}, 'A');
-is($row->{key2}, 'B');
-
-$dbi = DBIx::Custom->connect(%memory);
-$dbi->execute("create table table1 (key1 date, key2 datetime)");
-$dbi->register_filter(twice => sub { $_[0] * 2 });
-$dbi->type_rule(
-    from1 => {
-        date => 'twice',
-    },
-    into1 => {
-        date => 'twice',
-    }
-);
-$dbi->insert({key1 => 2}, table => 'table1');
-$result = $dbi->select(table => 'table1');
-is($result->fetch->[0], 8);
-
-test 'type_rule and filter order';
-$dbi = DBIx::Custom->connect(%memory);
-$dbi->execute("create table table1 (key1 Date, key2 datetime)");
-$dbi->type_rule(
-    into1 => {
-        date => sub { $_[0] . 'b' }
-    },
-    into2 => {
-        date => sub { $_[0] . 'c' }
-    },
-    from1 => {
-        date => sub { $_[0] . 'd' }
-    },
-    from2 => {
-        date => sub { $_[0] . 'e' }
-    }
-);
-$dbi->insert({key1 => '1'}, table => 'table1', filter => {key1 => sub { $_[0] . 'a' }});
-$result = $dbi->select(table => 'table1');
-$result->filter(key1 => sub { $_[0] . 'f' });
-is($result->fetch_first->[0], '1abcdef');
-
-$dbi = DBIx::Custom->connect(%memory);
-$dbi->execute("create table table1 (key1 Date, key2 datetime)");
-$dbi->type_rule(
-    from1 => {
-        date => sub { $_[0] . 'p' }
-    },
-    from2 => {
-        date => sub { $_[0] . 'q' }
-    },
-);
-$dbi->insert({key1 => '1'}, table => 'table1');
-$result = $dbi->select(table => 'table1');
-$result->type_rule(
-    from1 => {
-        date => sub { $_[0] . 'd' }
-    },
-    from2 => {
-        date => sub { $_[0] . 'e' }
-    }
-);
-$result->filter(key1 => sub { $_[0] . 'f' });
-is($result->fetch_first->[0], '1def');
-
-test 'type_rule_off';
-$dbi = DBIx::Custom->connect(%memory);
-$dbi->execute("create table table1 (key1 Date, key2 datetime)");
-$dbi->type_rule(
-    from1 => {
-        date => sub { $_[0] * 2 },
-    },
-    into1 => {
-        date => sub { $_[0] * 2 },
-    }
-);
-$dbi->insert({key1 => 2}, table => 'table1', type_rule_off => 1);
-$result = $dbi->select(table => 'table1', type_rule_off => 1);
-is($result->type_rule_off->fetch->[0], 2);
-
-$dbi = DBIx::Custom->connect(%memory);
-$dbi->execute("create table table1 (key1 Date, key2 datetime)");
-$dbi->type_rule(
-    from1 => {
-        date => sub { $_[0] * 2 },
-    },
-    into1 => {
-        date => sub { $_[0] * 3 },
-    }
-);
-$dbi->insert({key1 => 2}, table => 'table1', type_rule_off => 1);
-$result = $dbi->select(table => 'table1', type_rule_off => 1);
-is($result->one->{key1}, 4);
-
-$dbi = DBIx::Custom->connect(%memory);
-$dbi->execute("create table table1 (key1 Date, key2 datetime)");
-$dbi->type_rule(
-    from1 => {
-        date => sub { $_[0] * 2 },
-    },
-    into1 => {
-        date => sub { $_[0] * 3 },
-    }
-);
-$dbi->insert({key1 => 2}, table => 'table1');
-$result = $dbi->select(table => 'table1');
-is($result->one->{key1}, 12);
-
-$dbi = DBIx::Custom->connect(%memory);
-$dbi->execute("create table table1 (key1 Date, key2 datetime)");
-$dbi->type_rule(
-    from1 => {
-        date => sub { $_[0] * 2 },
-    },
-    into1 => {
-        date => sub { $_[0] * 3 },
-    }
-);
-$dbi->insert({key1 => 2}, table => 'table1');
-$result = $dbi->select(table => 'table1');
-is($result->fetch->[0], 12);
-
-$dbi = DBIx::Custom->connect(%memory);
-$dbi->execute("create table table1 (key1 Date, key2 datetime)");
-$dbi->register_filter(ppp => sub { uc $_[0] });
-$dbi->type_rule(
-    into1 => {
-        date => 'ppp'
-    }
-);
-$dbi->insert({key1 => 'a'}, table => 'table1');
-$result = $dbi->select(table => 'table1');
-is($result->one->{key1}, 'A');
-
-eval{$dbi->type_rule(
-    into1 => {
-        date => 'pp'
-    }
-)};
-like($@, qr/not registered/);
-
-$dbi = DBIx::Custom->connect(%memory);
-$dbi->execute("create table table1 (key1 Date, key2 datetime)");
-eval {
-    $dbi->type_rule(
-        from1 => {
-            Date => sub { $_[0] * 2 },
-        }
-    );
-};
-like($@, qr/lower/);
-
-eval {
-    $dbi->type_rule(
-        into1 => {
-            Date => sub { $_[0] * 2 },
-        }
-    );
-};
-like($@, qr/lower/);
-
-$dbi = DBIx::Custom->connect(%memory);
-$dbi->execute("create table table1 (key1 Date, key2 datetime)");
-$dbi->type_rule(
-    from1 => {
-        date => sub { $_[0] * 2 },
-    },
-    into1 => {
-        date => sub { $_[0] * 3 },
-    }
-);
-$dbi->insert({key1 => 2}, table => 'table1');
-$result = $dbi->select(table => 'table1');
-$result->type_rule_off;
-is($result->one->{key1}, 6);
-
-$dbi = DBIx::Custom->connect(%memory);
-$dbi->execute("create table table1 (key1 Date, key2 datetime)");
-$dbi->type_rule(
-    from1 => {
-        date => sub { $_[0] * 2 },
-        datetime => sub { $_[0] * 4 },
-    },
-);
-$dbi->insert({key1 => 2, key2 => 2}, table => 'table1');
-$result = $dbi->select(table => 'table1');
-$result->type_rule(
-    from1 => {
-        date => sub { $_[0] * 3 }
-    }
-);
-$row = $result->one;
-is($row->{key1}, 6);
-is($row->{key2}, 2);
-
-$result = $dbi->select(table => 'table1');
-$result->type_rule(
-    from1 => {
-        date => sub { $_[0] * 3 }
-    }
-);
-$row = $result->one;
-is($row->{key1}, 6);
-is($row->{key2}, 2);
-
-$result = $dbi->select(table => 'table1');
-$result->type_rule(
-    from1 => {
-        date => sub { $_[0] * 3 }
-    }
-);
-$row = $result->one;
-is($row->{key1}, 6);
-is($row->{key2}, 2);
-$result = $dbi->select(table => 'table1');
-$result->type_rule(
-    from1 => [date => sub { $_[0] * 3 }]
-);
-$row = $result->one;
-is($row->{key1}, 6);
-is($row->{key2}, 2);
-$dbi->register_filter(fivetimes => sub { $_[0] * 5});
-$result = $dbi->select(table => 'table1');
-$result->type_rule(
-    from1 => [date => 'fivetimes']
-);
-$row = $result->one;
-is($row->{key1}, 10);
-is($row->{key2}, 2);
-$result = $dbi->select(table => 'table1');
-$result->type_rule(
-    from1 => [date => undef]
-);
-$row = $result->one;
-is($row->{key1}, 2);
-is($row->{key2}, 2);
-
-$dbi = DBIx::Custom->connect(%memory);
-$dbi->execute("create table table1 (key1 Date, key2 datetime)");
-$dbi->type_rule(
-    from1 => {
-        date => sub { $_[0] * 2 },
-    },
-);
-$dbi->insert({key1 => 2}, table => 'table1');
-$result = $dbi->select(table => 'table1');
-$result->filter(key1 => sub { $_[0] * 3 });
-is($result->one->{key1}, 12);
-
-$dbi = DBIx::Custom->connect(%memory);
-$dbi->execute("create table table1 (key1 Date, key2 datetime)");
-$dbi->type_rule(
-    from1 => {
-        date => sub { $_[0] * 2 },
-    },
-);
-$dbi->insert({key1 => 2}, table => 'table1');
-$result = $dbi->select(table => 'table1');
-$result->filter(key1 => sub { $_[0] * 3 });
-is($result->fetch->[0], 12);
-
-$dbi = DBIx::Custom->connect(%memory);
-$dbi->execute("create table table1 (key1 Date, key2 datetime)");
-$dbi->type_rule(
-    into1 => {
-        date => sub { $_[0] . 'b' }
-    },
-    into2 => {
-        date => sub { $_[0] . 'c' }
-    },
-    from1 => {
-        date => sub { $_[0] . 'd' }
-    },
-    from2 => {
-        date => sub { $_[0] . 'e' }
-    }
-);
-$dbi->insert({key1 => '1'}, table => 'table1', type_rule_off => 1);
-$result = $dbi->select(table => 'table1');
-is($result->type_rule_off->fetch_first->[0], '1');
-$result = $dbi->select(table => 'table1');
-is($result->type_rule_on->fetch_first->[0], '1de');
-
-$dbi = DBIx::Custom->connect(%memory);
-$dbi->execute("create table table1 (key1 Date, key2 datetime)");
-$dbi->type_rule(
-    into1 => {
-        date => sub { $_[0] . 'b' }
-    },
-    into2 => {
-        date => sub { $_[0] . 'c' }
-    },
-    from1 => {
-        date => sub { $_[0] . 'd' }
-    },
-    from2 => {
-        date => sub { $_[0] . 'e' }
-    }
-);
-$dbi->insert({key1 => '1'}, table => 'table1', type_rule1_off => 1);
-$result = $dbi->select(table => 'table1');
-is($result->type_rule1_off->fetch_first->[0], '1ce');
-$result = $dbi->select(table => 'table1');
-is($result->type_rule1_on->fetch_first->[0], '1cde');
-
-$dbi = DBIx::Custom->connect(%memory);
-$dbi->execute("create table table1 (key1 Date, key2 datetime)");
-$dbi->type_rule(
-    into1 => {
-        date => sub { $_[0] . 'b' }
-    },
-    into2 => {
-        date => sub { $_[0] . 'c' }
-    },
-    from1 => {
-        date => sub { $_[0] . 'd' }
-    },
-    from2 => {
-        date => sub { $_[0] . 'e' }
-    }
-);
-$dbi->insert({key1 => '1'}, table => 'table1', type_rule2_off => 1);
-$result = $dbi->select(table => 'table1');
-is($result->type_rule2_off->fetch_first->[0], '1bd');
-$result = $dbi->select(table => 'table1');
-is($result->type_rule2_on->fetch_first->[0], '1bde');
-
-test 'separator';
-$dbi = DBIx::Custom->connect(%memory);
-$dbi->execute($create_table_default);
-$dbi->execute('create table table2 (key1 char(255), key3 char(255));');
-
-$dbi->create_model(
-    table => 'table1',
-    join => [
-       'left outer join table2 on table1.key1 = table2.key1'
-    ],
-    primary_key => ['key1'],
-);
-$model2 = $dbi->create_model(
-    table => 'table2',
-);
-$dbi->setup_model;
-$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2});
-$dbi->insert(table => 'table2', param => {key1 => 1, key3 => 3});
-$model = $dbi->model('table1');
-$result = $model->select(
-    column => [
-        $model->mycolumn,
-        {table2 => [qw/key1 key3/]}
-    ],
-    where => {'table1.key1' => 1}
-);
-is_deeply($result->one,
-          {key1 => 1, key2 => 2, 'table2.key1' => 1, 'table2.key3' => 3});
-is_deeply($model2->select->one, {key1 => 1, key3 => 3});
-
-$dbi->separator('__');
-$model = $dbi->model('table1');
-$result = $model->select(
-    column => [
-        $model->mycolumn,
-        {table2 => [qw/key1 key3/]}
-    ],
-    where => {'table1.key1' => 1}
-);
-is_deeply($result->one,
-          {key1 => 1, key2 => 2, 'table2__key1' => 1, 'table2__key3' => 3});
-is_deeply($model2->select->one, {key1 => 1, key3 => 3});
-
-$dbi->separator('-');
-$model = $dbi->model('table1');
-$result = $model->select(
-    column => [
-        $model->mycolumn,
-        {table2 => [qw/key1 key3/]}
-    ],
-    where => {'table1.key1' => 1}
-);
-is_deeply($result->one,
-          {key1 => 1, key2 => 2, 'table2-key1' => 1, 'table2-key3' => 3});
-is_deeply($model2->select->one, {key1 => 1, key3 => 3});
-
-
-test 'filter_off';
-$dbi = DBIx::Custom->connect(%memory);
-$dbi->execute($create_table_default);
-$dbi->execute('create table table2 (key1 char(255), key3 char(255));');
-
-$dbi->create_model(
-    table => 'table1',
-    join => [
-       'left outer join table2 on table1.key1 = table2.key1'
-    ],
-    primary_key => ['key1'],
-);
-$dbi->setup_model;
-$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2});
-$model = $dbi->model('table1');
-$result = $model->select(column => 'key1');
-$result->filter(key1 => sub { $_[0] * 2 });
-is_deeply($result->one, {key1 => 2});
-
-test 'available_date_type';
-$dbi = DBIx::Custom->connect(%memory);
-ok($dbi->can('available_data_type'));
-
-
-test 'select prefix option';
-$dbi = DBIx::Custom->connect(%memory);
-$dbi->execute($create_table_default);
-$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2});
-$rows = $dbi->select(prefix => 'key1,', column => 'key2', table => 'table1')->all;
-is_deeply($rows, [{key1 => 1, key2 => 2}], "table");
-
-
-test 'separator';
-$dbi = DBIx::Custom->connect(%memory);
-is($dbi->separator, '.');
-$dbi->separator('-');
-is($dbi->separator, '-');
-$dbi->separator('__');
-is($dbi->separator, '__');
-eval { $dbi->separator('?') };
-like($@, qr/Separator/);
-
-
-test 'map_param';
-$dbi = DBIx::Custom->connect(%memory);
-$param = $dbi->map_param(
-    {id => 1, author => 'Ken', price => 1900},
-    id => 'book.id',
-    author => ['book.author', sub { '%' . $_[0] . '%' }],
-    price => ['book.price', {if => sub { $_[0] eq 1900 }}]
-);
-is_deeply($param, {'book.id' => 1, 'book.author' => '%Ken%',
-  'book.price' => 1900});
-
-$param = $dbi->map_param(
-    {id => 0, author => 0, price => 0},
-    id => 'book.id',
-    author => ['book.author', sub { '%' . $_[0] . '%' }],
-    price => ['book.price', sub { '%' . $_[0] . '%' },
-      {if => sub { $_[0] eq 0 }}]
-);
-is_deeply($param, {'book.id' => 0, 'book.author' => '%0%', 'book.price' => '%0%'});
-
-$param = $dbi->map_param(
-    {id => '', author => '', price => ''},
-    id => 'book.id',
-    author => ['book.author', sub { '%' . $_[0] . '%' }],
-    price => ['book.price', sub { '%' . $_[0] . '%' },
-      {if => sub { $_[0] eq 1 }}]
-);
-is_deeply($param, {});
-
-$param = $dbi->map_param(
-    {id => undef, author => undef, price => undef},
-    id => 'book.id',
-    price => ['book.price', {if => 'exists'}]
-);
-is_deeply($param, {'book.price' => undef});
-
-$param = $dbi->map_param(
-    {price => 'a'},
-    id => ['book.id', {if => 'exists'}],
-    price => ['book.price', sub { '%' . $_[0] }, {if => 'exists'}]
-);
-is_deeply($param, {'book.price' => '%a'});
-
-
-test 'table_alias';
-$dbi = DBIx::Custom->connect(%memory);
-$dbi->execute("create table table1 (key1 Date, key2 datetime)");
-$dbi->type_rule(
-    into1 => {
-        date => sub { uc $_[0] }
-    }
-);
-$dbi->execute("insert into table1 (key1) values (:table2.key1)", {'table2.key1' => 'a'},
-  table_alias => {table2 => 'table1'});
-$result = $dbi->select(table => 'table1');
-is($result->one->{key1}, 'A');
-
-
-test 'order';
-$dbi = DBIx::Custom->connect(%memory);
-$dbi->execute("create table table1 (key1, key2)");
-$dbi->insert({key1 => 1, key2 => 1}, table => 'table1');
-$dbi->insert({key1 => 1, key2 => 3}, table => 'table1');
-$dbi->insert({key1 => 2, key2 => 2}, table => 'table1');
-$dbi->insert({key1 => 2, key2 => 4}, table => 'table1');
-my $order = $dbi->order;
-$order->prepend('key1', 'key2 desc');
-$result = $dbi->select(table => 'table1', append => "$order");
-is_deeply($result->all, [{key1 => 1, key2 => 3}, {key1 => 1, key2 => 1},
-  {key1 => 2, key2 => 4}, {key1 => 2, key2 => 2}]);
-$order->prepend('key1 desc');
-$result = $dbi->select(table => 'table1', append => "$order");
-is_deeply($result->all, [{key1 => 2, key2 => 4}, {key1 => 2, key2 => 2},
-  {key1 => 1, key2 => 3}, {key1 => 1, key2 => 1}]);
-
-$order = $dbi->order;
-$order->prepend(['table1-key1'], [qw/table1-key2 desc/]);
-$result = $dbi->select(table => 'table1',
-  column => [[key1 => 'table1-key1'], [key2 => 'table1-key2']],
-  append => "$order");
-is_deeply($result->all, [{'table1-key1' => 1, 'table1-key2' => 3},
-  {'table1-key1' => 1, 'table1-key2' => 1},
-  {'table1-key1' => 2, 'table1-key2' => 4},
-  {'table1-key1' => 2, 'table1-key2' => 2}]);
-
-test 'tag_parse';
-$dbi = DBIx::Custom->connect(%memory);
-$dbi->tag_parse(0);
-$dbi->execute("create table table1 (key1, key2)");
-$dbi->insert({key1 => 1, key2 => 1}, table => 'table1');
-eval {$dbi->execute("select * from table1 where {= key1}", {key1 => 1})};
-ok($@);
-
-test 'last_sql';
-$dbi = DBIx::Custom->connect(%memory);
-$dbi->execute("create table table1 (key1, key2)");
-$dbi->execute('select * from table1');
-is($dbi->last_sql, 'select * from table1;');
-
-eval{$dbi->execute("aaa")};
-is($dbi->last_sql, 'aaa;');
-
-test 'DBIx::Custom header';
-$dbi = DBIx::Custom->connect(%memory);
-$dbi->execute("create table table1 (key1, key2)");
-$result = $dbi->execute('select key1 as h1, key2 as h2 from table1');
-is_deeply($result->header, [qw/h1 h2/]);
-
-test 'Named placeholder :name(operater) syntax';
-$dbi->execute('drop table table1');
-$dbi->execute('create table table1 (key1 char(255), key2 char(255), key3 char(255), key4 char(255), key5 char(255));');
-$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2, key3 => 3, key4 => 4, key5 => 5});
-$dbi->insert(table => 'table1', param => {key1 => 6, key2 => 7, key3 => 8, key4 => 9, key5 => 10});
-
-$source = "select * from table1 where :key1{=} and :key2{=}";
-$result = $dbi->execute($source, param => {key1 => 1, key2 => 2});
-$rows = $result->all;
-is_deeply($rows, [{key1 => 1, key2 => 2, key3 => 3, key4 => 4, key5 => 5}]);
-
-$source = "select * from table1 where :key1{ = } and :key2{=}";
-$result = $dbi->execute($source, param => {key1 => 1, key2 => 2});
-$rows = $result->all;
-is_deeply($rows, [{key1 => 1, key2 => 2, key3 => 3, key4 => 4, key5 => 5}]);
-
-$source = "select * from table1 where :key1{<} and :key2{=}";
-$result = $dbi->execute($source, param => {key1 => 5, key2 => 2});
-$rows = $result->all;
-is_deeply($rows, [{key1 => 1, key2 => 2, key3 => 3, key4 => 4, key5 => 5}]);
-
-$source = "select * from table1 where :table1.key1{=} and :table1.key2{=}";
-$result = $dbi->execute(
-    $source,
-    param => {'table1.key1' => 1, 'table1.key2' => 1},
-    filter => {'table1.key2' => sub { $_[0] * 2 }}
-);
-$rows = $result->all;
-is_deeply($rows, [{key1 => 1, key2 => 2, key3 => 3, key4 => 4, key5 => 5}]);
-
-test 'high perfomance way';
-$dbi->execute('drop table table1');
-$dbi->execute("create table table1 (ab, bc, ik, hi, ui, pq, dc);");
-$rows = [
-    {ab => 1, bc => 2, ik => 3, hi => 4, ui => 5, pq => 6, dc => 7},
-    {ab => 1, bc => 2, ik => 3, hi => 4, ui => 5, pq => 6, dc => 8},
-];
-{
-    my $query;
-    foreach my $row (@$rows) {
-      $query ||= $dbi->insert($row, table => 'table1', query => 1);
-      $dbi->execute($query, $row, filter => {ab => sub { $_[0] * 2 }});
-    }
-    is_deeply($dbi->select(table => 'table1')->all,
-      [
-          {ab => 2, bc => 2, ik => 3, hi => 4, ui => 5, pq => 6, dc => 7},
-          {ab => 2, bc => 2, ik => 3, hi => 4, ui => 5, pq => 6, dc => 8},
-      ]
-    );
-}
-
-$dbi->execute('drop table table1');
-$dbi->execute("create table table1 (ab, bc, ik, hi, ui, pq, dc);");
-$rows = [
-    {ab => 1, bc => 2, ik => 3, hi => 4, ui => 5, pq => 6, dc => 7},
-    {ab => 1, bc => 2, ik => 3, hi => 4, ui => 5, pq => 6, dc => 8},
-];
-{
-    my $query;
-    my $sth;
-    foreach my $row (@$rows) {
-      $query ||= $dbi->insert($row, table => 'table1', query => 1);
-      $sth ||= $query->sth;
-      $sth->execute(map { $row->{$_} } sort keys %$row);
-    }
-    is_deeply($dbi->select(table => 'table1')->all,
-      [
-          {ab => 1, bc => 2, ik => 3, hi => 4, ui => 5, pq => 6, dc => 7},
-          {ab => 1, bc => 2, ik => 3, hi => 4, ui => 5, pq => 6, dc => 8},
-      ]
-    );
-}
-
-test 'result';
-$dbi = DBIx::Custom->connect(%memory);
-$dbi->execute($create_table_default);
-$dbi->insert({key1 => 1, key2 => 2}, table => 'table1');
-$dbi->insert({key1 => 3, key2 => 4}, table => 'table1');
-
-$result = $dbi->select(table => 'table1');
-@rows = ();
-while (my $row = $result->fetch) {
-    push @rows, [@$row];
-}
-is_deeply(\@rows, [[1, 2], [3, 4]]);
-
-$result = $dbi->select(table => 'table1');
-@rows = ();
-while (my $row = $result->fetch_hash) {
-    push @rows, {%$row};
-}
-is_deeply(\@rows, [{key1 => 1, key2 => 2}, {key1 => 3, key2 => 4}]);
-
-$result = $dbi->select(table => 'table1');
-$row = $result->fetch_first;
-is_deeply($row, [1, 2], "row");
-$row = $result->fetch;
-ok(!$row, "finished");
-
-$result = $dbi->select(table => 'table1');
-$row = $result->fetch_hash_first;
-is_deeply($row, {key1 => 1, key2 => 2}, "row");
-$row = $result->fetch_hash;
-ok(!$row, "finished");
-
-$dbi->execute('create table table2 (key1, key2);');
-$result = $dbi->select(table => 'table2');
-$row = $result->fetch_hash_first;
-ok(!$row, "no row fetch");
-
-$dbi = DBIx::Custom->connect(%memory);
-$dbi->execute($create_table_default);
-$dbi->insert({key1 => 1, key2 => 2}, table => 'table1');
-$dbi->insert({key1 => 3, key2 => 4}, table => 'table1');
-$dbi->insert({key1 => 5, key2 => 6}, table => 'table1');
-$dbi->insert({key1 => 7, key2 => 8}, table => 'table1');
-$dbi->insert({key1 => 9, key2 => 10}, table => 'table1');
-$result = $dbi->select(table => 'table1');
-$rows = $result->fetch_multi(2);
-is_deeply($rows, [[1, 2],
-                  [3, 4]], "fetch_multi first");
-$rows = $result->fetch_multi(2);
-is_deeply($rows, [[5, 6],
-                  [7, 8]], "fetch_multi secound");
-$rows = $result->fetch_multi(2);
-is_deeply($rows, [[9, 10]], "fetch_multi third");
-$rows = $result->fetch_multi(2);
-ok(!$rows);
-
-$result = $dbi->select(table => 'table1');
-eval {$result->fetch_multi};
-like($@, qr/Row count must be specified/, "Not specified row count");
-
-$result = $dbi->select(table => 'table1');
-$rows = $result->fetch_hash_multi(2);
-is_deeply($rows, [{key1 => 1, key2 => 2},
-                  {key1 => 3, key2 => 4}], "fetch_multi first");
-$rows = $result->fetch_hash_multi(2);
-is_deeply($rows, [{key1 => 5, key2 => 6},
-                  {key1 => 7, key2 => 8}], "fetch_multi secound");
-$rows = $result->fetch_hash_multi(2);
-is_deeply($rows, [{key1 => 9, key2 => 10}], "fetch_multi third");
-$rows = $result->fetch_hash_multi(2);
-ok(!$rows);
-
-$result = $dbi->select(table => 'table1');
-eval {$result->fetch_hash_multi};
-like($@, qr/Row count must be specified/, "Not specified row count");
-
-$dbi = DBIx::Custom->connect(%memory);
-$dbi->execute($create_table_default);
-$dbi->insert({key1 => 1, key2 => 2}, table => 'table1');
-$dbi->insert({key1 => 3, key2 => 4}, table => 'table1');
-
-test 'fetch_all';
-$result = $dbi->select(table => 'table1');
-$rows = $result->fetch_all;
-is_deeply($rows, [[1, 2], [3, 4]]);
-
-$result = $dbi->select(table => 'table1');
-$rows = $result->fetch_hash_all;
-is_deeply($rows, [{key1 => 1, key2 => 2}, {key1 => 3, key2 => 4}]);
-
-$result = $dbi->select(table => 'table1');
-$result->dbi->filters({three_times => sub { $_[0] * 3}});
-$result->filter({key1 => 'three_times'});
-
-$rows = $result->fetch_all;
-is_deeply($rows, [[3, 2], [9, 4]], "array");
-
-$result = $dbi->select(table => 'table1');
-$result->dbi->filters({three_times => sub { $_[0] * 3}});
-$result->filter({key1 => 'three_times'});
-$rows = $result->fetch_hash_all;
-is_deeply($rows, [{key1 => 3, key2 => 2}, {key1 => 9, key2 => 4}], "hash");
-
-test "query_builder";
-$datas = [
-    # Basic tests
-    {   name            => 'placeholder basic',
-        source            => "a {?  k1} b {=  k2} {<> k3} {>  k4} {<  k5} {>= k6} {<= k7} {like k8}", ,
-        sql_expected    => "a ? b k2 = ? k3 <> ? k4 > ? k5 < ? k6 >= ? k7 <= ? k8 like ?;",
-        columns_expected   => [qw/k1 k2 k3 k4 k5 k6 k7 k8/]
-    },
-    {
-        name            => 'placeholder in',
-        source            => "{in k1 3};",
-        sql_expected    => "k1 in (?, ?, ?);",
-        columns_expected   => [qw/k1 k1 k1/]
-    },
-    
-    # Table name
-    {
-        name            => 'placeholder with table name',
-        source            => "{= a.k1} {= a.k2}",
-        sql_expected    => "a.k1 = ? a.k2 = ?;",
-        columns_expected  => [qw/a.k1 a.k2/]
-    },
-    {   
-        name            => 'placeholder in with table name',
-        source            => "{in a.k1 2} {in b.k2 2}",
-        sql_expected    => "a.k1 in (?, ?) b.k2 in (?, ?);",
-        columns_expected  => [qw/a.k1 a.k1 b.k2 b.k2/]
-    },
-    {
-        name            => 'not contain tag',
-        source            => "aaa",
-        sql_expected    => "aaa;",
-        columns_expected  => [],
-    }
-];
-
-for (my $i = 0; $i < @$datas; $i++) {
-    my $data = $datas->[$i];
-    my $builder = DBIx::Custom->new->query_builder;
-    my $query = $builder->build_query($data->{source});
-    is($query->{sql}, $data->{sql_expected}, "$data->{name} : sql");
-    is_deeply($query->columns, $data->{columns_expected}, "$data->{name} : columns");
-}
-
-$builder = DBIx::Custom->new->query_builder;
-$ret_val = $builder->register_tag(
-    p => sub {
-        my @args = @_;
-        
-        my $expand    = "? $args[0] $args[1]";
-        my $columns = [2];
-        return [$expand, $columns];
-    }
-);
-
-$query = $builder->build_query("{p a b}");
-is($query->{sql}, "? a b;", "register_tag sql");
-is_deeply($query->{columns}, [2], "register_tag columns");
-isa_ok($ret_val, 'DBIx::Custom::QueryBuilder');
-
-$builder = DBIx::Custom->new->query_builder;
-
-eval{$builder->build_query('{? }')};
-like($@, qr/\QColumn name must be specified in tag "{? }"/, "? not arguments");
-
-eval{$builder->build_query("{a }")};
-like($@, qr/\QTag "a" is not registered/, "tag not exist");
-
-$builder->register_tag({
-    q => 'string'
-});
-
-eval{$builder->build_query("{q}", {})};
-like($@, qr/Tag "q" must be sub reference/, "tag not code ref");
-
-$builder->register_tag({
-   r => sub {} 
-});
-
-eval{$builder->build_query("{r}")};
-like($@, qr/\QTag "r" must return [STRING, ARRAY_REFERENCE]/, "tag return noting");
-
-$builder->register_tag({
-   s => sub { return ["a", ""]} 
-});
-
-eval{$builder->build_query("{s}")};
-like($@, qr/\QTag "s" must return [STRING, ARRAY_REFERENCE]/, "tag return not array columns");
-
-$builder->register_tag(
-    t => sub {return ["a", []]}
-);
-
-
-test 'General error case';
-$builder = DBIx::Custom->new->query_builder;
-$builder->register_tag(
-    a => sub {
-        return ["? ? ?", ['']];
-    }
-);
-eval{$builder->build_query("{a}")};
-like($@, qr/\QPlaceholder count/, "placeholder count is invalid");
-
-
-test 'Default tag Error case';
-eval{$builder->build_query("{= }")};
-like($@, qr/Column name must be specified in tag "{= }"/, "basic '=' : key not exist");
-
-eval{$builder->build_query("{in }")};
-like($@, qr/Column name and count of values must be specified in tag "{in }"/, "in : key not exist");
-
-eval{$builder->build_query("{in a}")};
-like($@, qr/\QColumn name and count of values must be specified in tag "{in }"/,
-     "in : key not exist");
-
-eval{$builder->build_query("{in a r}")};
-like($@, qr/\QColumn name and count of values must be specified in tag "{in }"/,
-     "in : key not exist");
-
-test 'variouse source';
-$source = "a {= b} c \\{ \\} {= \\{} {= \\}} d;";
-$query = $builder->build_query($source);
-is($query->sql, 'a b = ? c { } { = ? } = ? d;', "basic : 1");
-
-$source = "abc;";
-$query = $builder->build_query($source);
-is($query->sql, 'abc;', "basic : 2");
-
-$source = "{= a}";
-$query = $builder->build_query($source);
-is($query->sql, 'a = ?;', "only tag");
-
-$source = "000;";
-$query = $builder->build_query($source);
-is($query->sql, '000;', "contain 0 value");
-
-$source = "a {= b} }";
-eval{$builder->build_query($source)};
-like($@, qr/unexpected "}"/, "error : 1");
-
-$source = "a {= {}";
-eval{$builder->build_query($source)};
-like($@, qr/unexpected "{"/, "error : 2");

-19

DBIx-Custom-0.1711/t/basic/MyDBI1.pm

View

@@ -1,19 +0,0 @@
-package MyDBI1;
-
-use strict;
-use warnings;
-
-use base 'DBIx::Custom';
-
-sub connect {
-    my $self = shift->SUPER::connect(@_);
-    
-    $self->include_model(
-        MyModel1 => [
-            'book',
-            {class => 'Company', name => 'company'}
-        ]
-    );
-}
-
-1;

-17

DBIx-Custom-0.1711/t/basic/MyModel1/Company.pm

View

@@ -1,17 +0,0 @@
-package MyModel1::Company;
-
-use strict;
-use warnings;
-
-use base 'DBIx::Custom::Model';
-
-
-sub insert {
-    my ($self, $param) = @_;
-    
-    return $self->SUPER::insert(param => $param);
-}
-
-sub list { shift->select; }
-
-1;

-13

DBIx-Custom-0.1711/t/basic/MyModel1/book.pm

View

@@ -1,13 +0,0 @@
-package MyModel1::book;
-
-use DBIx::Custom::Model -base;
-
-sub insert {
-    my ($self, $param) = @_;
-    
-    return $self->SUPER::insert(param => $param);
-}
-
-sub list { shift->select; }
-
-1;

-5

DBIx-Custom-0.1711/t/basic/MyModel4.pm

View

@@ -1,5 +0,0 @@
-package MyModel4;
-
-use base 'DBIx::Custom::Model';
-
-1;

-9

DBIx-Custom-0.1711/t/basic/MyModel4/book.pm

View

@@ -1,9 +0,0 @@
-package MyModel4::book;
-
-use base 'MyModel4';
-
-sub table { 'table1' }
-
-sub list { shift->select }
-
-1;

-8

DBIx-Custom-0.1711/t/basic/MyModel4/company.pm

View

@@ -1,8 +0,0 @@
-package MyModel4::company;
-
-use base 'MyModel4';
-
-sub insert { shift->SUPER::insert(param => $_[0]) }
-sub list { shift->select }
-
-1;

-5

DBIx-Custom-0.1711/t/basic/MyModel5.pm

View

@@ -1,5 +0,0 @@
-package MyModel5;
-
-use base 'DBIx::Custom::Model';
-
-1;

-7

DBIx-Custom-0.1711/t/basic/MyModel5/table1.pm

View

@@ -1,7 +0,0 @@
-package MyModel5::table1;
-
-use MyModel5 -base;
-
-has primary_key => sub { ['key1', 'key2'] };
-
-1;

-12

DBIx-Custom-0.1711/t/basic/MyModel5/table1_1.pm

View

@@ -1,12 +0,0 @@
-package MyModel5::table1_1;
-
-use strict;
-use warnings;
-
-use base 'MyModel5';
-
-__PACKAGE__->attr(table => 'table2');
-
-__PACKAGE__->attr('primary_key' => sub { ['key1', 'key2'] });
-
-1;

-13

DBIx-Custom-0.1711/t/basic/MyModel5/table1_2.pm

View

@@ -1,13 +0,0 @@
-package MyModel5::table1_2;
-
-use strict;
-use warnings;
-
-use base 'MyModel5';
-
-__PACKAGE__->attr(name => 'table1_3');
-__PACKAGE__->attr(table => 'table3');
-
-__PACKAGE__->attr('primary_key' => sub { ['key1', 'key2'] });
-
-1;

-5

DBIx-Custom-0.1711/t/basic/MyModel6.pm

View

@@ -1,5 +0,0 @@
-package MyModel6;
-
-use base 'DBIx::Custom::Model';
-
-1;

-14

DBIx-Custom-0.1711/t/basic/MyModel6/table1.pm

View

@@ -1,14 +0,0 @@
-package MyModel6::table1;
-
-use base 'MyModel6';
-
-__PACKAGE__->attr(
-    join => sub {
-        [
-            'left outer join table2 on table1.key1 = table2.key1'
-        ]
-    },
-    primary_key => sub { ['key1'] }
-);
-
-1;

-5

DBIx-Custom-0.1711/t/basic/MyModel6/table2.pm

View

@@ -1,5 +0,0 @@
-package MyModel6::table2;
-
-use base 'MyModel6';
-
-1;

-11

DBIx-Custom-0.1711/t/basic/MyModel6/table3.pm

View

@@ -1,11 +0,0 @@
-package MyModel6::table3;
-
-use base 'MyModel6';
-
-__PACKAGE__->attr(filter => sub {
-    [
-        key1 => {in => sub { uc $_[0] }}
-    ]
-});
-
-1;

-5

DBIx-Custom-0.1711/t/basic/MyModel7.pm

View

@@ -1,5 +0,0 @@
-package MyModel7;
-
-use base 'DBIx::Custom::Model';
-
-1;

-14

DBIx-Custom-0.1711/t/basic/MyModel7/table1.pm

View

@@ -1,14 +0,0 @@
-package MyModel7::table1;
-
-use base 'MyModel7';
-
-__PACKAGE__->attr(
-    primary_key => sub { ['key1'] },
-    join => sub {
-        [
-            'left outer join table2 on table1.key1 = table2.key1'
-        ]
-    },
-);
-
-1;

-5

DBIx-Custom-0.1711/t/basic/MyModel7/table2.pm

View

@@ -1,5 +0,0 @@
-package MyModel7::table2;
-
-use base 'MyModel7';
-
-1;

-4

DBIx-Custom-0.1711/t/basic/MyModel8.pm

View

...	...	@@ -1,4 +0,0 @@
1		-package MyModel8;
2		-use DBIx::Custom::Model -base;
3		-
4		-1;

-7

DBIx-Custom-0.1711/t/basic/MyModel8/table1.pm

View

@@ -1,7 +0,0 @@
-package MyModel8::table1;
-use MyModel8 -base;
-
-has join => sub { ['left join table2 as table2_alias on table1.key1 = table2_alias.key1'] };
-
-
-1;

-10

DBIx-Custom-0.1711/t/basic/MyModel8/table2.pm

View

...	...	@@ -1,10 +0,0 @@
1		-package MyModel8::table2;
2		-use MyModel8 -base;
3		-
4		-has filter => sub {
5		- {
6		- key3 => {out => sub { $_[0] * 2}, in => sub { $_[0] * 3}, end => sub { $_[0] * 4 }}
7		- }
8		-};
9		-
10		-1;

-20

DBIx-Custom-0.1711/t/common-postgresql-private.t

View

@@ -1,20 +0,0 @@
-use strict;
-use warnings;
-
-use FindBin;
-$ENV{DBIX_CUSTOM_TEST_RUN} = 1
-  if -f "$FindBin::Bin/run/common-postgresql-private.tmp";
-$ENV{DBIX_CUSTOM_SKIP_MESSAGE} = 'postgresql private test';
-
-use DBIx::Custom;
-{
-    package DBIx::Custom;
-    no warnings 'redefine';
-    sub dsn { "dbi:Pg:dbname=dbix_custom" }
-    sub user { 'dbix_custom' }
-    sub password { 'dbix_custom' }
-    
-    sub create_table1 { 'create table table1 (key1 varchar(255), key2 varchar(255));' }
-}
-
-require "$FindBin::Bin/common.t";

-15

DBIx-Custom-0.1711/t/common-sqlite.t

View

@@ -1,15 +0,0 @@
-use strict;
-use warnings;
-
-use FindBin;
-$ENV{DBIX_CUSTOM_TEST_RUN} = 1;
-
-use DBIx::Custom;
-{
-    package DBIx::Custom;
-    no warnings 'redefine';
-    sub dsn { 'dbi:SQLite:dbname=:memory:' }
-    sub create_table1 { 'create table table1 (key1, key2);' }
-}
-
-require "$FindBin::Bin/common.t";

-30

DBIx-Custom-0.1711/t/common.t

View

@@ -1,30 +0,0 @@
-use Test::More;
-use strict;
-use warnings;
-use DBIx::Custom;
-
-$SIG{__WARN__} = sub { warn $_[0] unless $_[0] =~ /DEPRECATED/};
-
-my $dbi;
-
-plan skip_all => $ENV{DBIX_CUSTOM_SKIP_MESSAGE} || 'common.t is always skipped'
-  unless $ENV{DBIX_CUSTOM_TEST_RUN}
-    && eval { $dbi = DBIx::Custom->connect; 1 };
-
-plan 'no_plan';
-
-# Constant
-my $create_table1 = $dbi->create_table1;
-
-# Variable
-my $model;
-
-# Drop table
-eval { $dbi->execute('drop table table1') };
-
-# Create table
-$dbi->execute($create_table1);
-$model = $dbi->create_model(table => 'table1');
-$model->insert({key1 => 1, key2 => 2});
-is_deeply($model->select->all, [{key1 => 1, key2 => 2}]);
-

-252

DBIx-Custom-0.1711/t/mysql-private.t

View

@@ -1,252 +0,0 @@
-use Test::More;
-use strict;
-use warnings;
-
-use FindBin;
-
-plan skip_all => 'mysql private test' unless -f "$FindBin::Bin/run/mysql-private.tmp";
-plan 'no_plan';
-
-$SIG{__WARN__} = sub { warn $_[0] unless $_[0] =~ /DEPRECATED/};
-
-# user password database
-our ($user, $password, $database) = qw/appuser 123456 usertest/;
-
-require DBIx::Connector;
-
-# Function for test name
-sub test { print "# $_[0]\n" }
-
-# Varialbes for tests
-my $dbi;
-my $dbname;
-my $rows;
-my $result;
-
-test 'connect';
-eval {
-    $dbi = DBIx::Custom->new(
-        dsn => "dbi:mysql:database=$database;host=localhost;port=10000",
-        user => $user,
-        password => $password
-    );
-};
-ok(!$@);
-
-test 'limit';
-$dbi = DBIx::Custom->connect(
-    dsn => "dbi:mysql:database=$database",
-    user => $user,
-    password => $password
-);
-$dbi->delete_all(table => 'table1');
-$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2});
-$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 4});
-$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 6});
-$dbi->query_builder->register_tag_processor(
-    limit => sub {
-        my ($count, $offset) = @_;
-        
-        my $s = '';
-        $offset = 0 unless defined $offset;
-        $s .= "limit $offset";
-        $s .= ", $count";
-        
-        return [$s, []];
-    }
-);
-$rows = $dbi->select(
-  table => 'table1',
-  where => {key1 => 1},
-  append => "order by key2 {limit 1 0}"
-)->fetch_hash_all;
-is_deeply($rows, [{key1 => 1, key2 => 2}]);
-$rows = $dbi->select(
-  table => 'table1',
-  where => {key1 => 1},
-  append => "order by key2 {limit 2 1}"
-)->fetch_hash_all;
-is_deeply($rows, [{key1 => 1, key2 => 4},{key1 => 1, key2 => 6}]);
-$rows = $dbi->select(
-  table => 'table1',
-  where => {key1 => 1},
-  append => "order by key2 {limit 1}"
-)->fetch_hash_all;
-is_deeply($rows, [{key1 => 1, key2 => 2}]);
-
-$dbi->dbh->disconnect;
-$dbi = undef;
-$dbi = DBIx::Custom->connect(
-    dsn => "dbi:mysql:database=$database",
-    user => $user,
-    password => $password
-);
-$rows = $dbi->select(
-  table => 'table1',
-  where => {key1 => 1, key2 => 4},
-  append => "order by key2 limit 0, 1"
-)->fetch_hash_all;
-is_deeply($rows, [{key1 => 1, key2 => 4}]);
-$dbi->delete_all(table => 'table1');
-
-test 'type_rule';
-$dbi = DBIx::Custom->connect(
-    dsn => "dbi:mysql:database=$database",
-    user => $user,
-    password => $password
-);
-eval{$dbi->execute("create table date_test (date DATE, datetime DATETIME)")};
-$dbi->each_column(
-    sub {
-        my ($self, $table, $column, $column_info) = @_;
-    }
-);
-
-$dbi->type_rule(
-    into1 => {
-        date=> sub {
-            my $date = shift;
-            $date =~ s/aaaaa//g;
-            return $date;
-        },
-        datetime => sub {
-            my $date = shift;
-            $date =~ s/ccccc//g;
-            return $date;
-        },
-    },
-    from1 => {
-        # DATE
-        9 => sub {
-                my $date = shift;
-                $date .= 'bbbbb';
-                return $date;
-        },
-        # DATETIME or TIMPESTANM
-        11 => sub {
-                my $date = shift;
-                $date .= 'ddddd';
-                return $date;
-        }
-    }
-);
-
-$dbi->insert(
-    {
-        date => 'aaaaa2010-aaaaa11-12aaaaa',
-        datetime => '2010-11ccccc-12 10:ccccc55:56'
-    },
-    table => 'date_test'
-);
-is_deeply(
-    $dbi->select(table => 'date_test')->fetch,
-    ['2010-11-12bbbbb', '2010-11-12 10:55:56ddddd']
-);
-
-$dbi->execute("drop table date_test");
-
-test 'dbh';
-{
-    my $connector = DBIx::Connector->new(
-        "dbi:mysql:database=$database",
-        $user,
-        $password,
-        DBIx::Custom->new->default_dbi_option
-    );
-
-    my $dbi = DBIx::Custom->connect(connector => $connector);
-    $dbi->delete_all(table => 'table1');
-    $dbi->do('insert into table1 (key1, key2) values (1, 2)');
-    is($dbi->select(table => 'table1')->fetch_hash_first->{key1}, 1);
-    
-    $dbi = DBIx::Custom->new;
-    $dbi->dbh('a');
-    is($dbi->{dbh}, 'a');
-}
-
-test 'transaction';
-test 'dbh';
-{
-    my $connector = DBIx::Connector->new(
-        "dbi:mysql:database=$database",
-        $user,
-        $password,
-        DBIx::Custom->new->default_dbi_option
-    );
-
-    my $dbi = DBIx::Custom->connect(connector => $connector);
-    $dbi->delete_all(table => 'table1');
-    
-    $dbi->connector->txn(sub {
-        $dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2});
-        $dbi->insert(table => 'table1', param => {key1 => 3, key2 => 4});
-    });
-    is_deeply($dbi->select(table => 'table1')->fetch_hash_all,
-              [{key1 => 1, key2 => 2}, {key1 => 3, key2 => 4}]);
-
-    $dbi->delete_all(table => 'table1');
-    eval {
-        $dbi->connector->txn(sub {
-            $dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2});
-            die "Error";
-            $dbi->insert(table => 'table1', param => {key1 => 3, key2 => 4});
-        });
-    };
-    is_deeply($dbi->select(table => 'table1')->fetch_hash_all,
-              []);
-}
-
-use DBIx::Custom;
-use Scalar::Util 'blessed';
-{
-    my $dbi = DBIx::Custom->connect(
-        user => $user,
-        password => $password,
-        dsn => "dbi:mysql:dbname=$database"
-    );
-    $dbi->connect;
-    
-    ok(blessed $dbi->dbh);
-    can_ok($dbi->dbh, qw/prepare/);
-    ok($dbi->dbh->{AutoCommit});
-    ok(!$dbi->dbh->{mysql_enable_utf8});
-}
-
-{
-    my $dbi = DBIx::Custom->connect(
-        user => $user,
-        password => $password,
-        dsn => "dbi:mysql:dbname=$database",
-        dbi_options => {AutoCommit => 0, mysql_enable_utf8 => 1}
-    );
-    $dbi->connect;
-    ok(!$dbi->dbh->{AutoCommit});
-    #ok($dbi->dbh->{mysql_enable_utf8});
-}
-
-test 'fork';
-{
-    my $connector = DBIx::Connector->new(
-        "dbi:mysql:database=$database",
-        $user,
-        $password,
-        DBIx::Custom->new->default_dbi_option
-    );
-    
-    my $dbi = DBIx::Custom->new(connector => $connector);
-    $dbi->delete_all(table => 'table1');
-    $dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2});
-    die "Can't fork" unless defined (my $pid = fork);
-
-    if ($pid) {
-        # Parent
-        my $result = $dbi->select(table => 'table1');
-        is_deeply($result->fetch_hash_first, {key1 => 1, key2 => 2});
-    }
-    else {
-        # Child
-        my $result = $dbi->select(table => 'table1');
-        die "Not OK" unless $result->fetch_hash_first->{key1} == 1;
-    }
-}
-

-51

DBIx-Custom-0.1711/xt/boilerplate.t

View

@@ -1,51 +0,0 @@
-#!perl -T
-
-use strict;
-use warnings;
-use Test::More tests => 3;
-
-sub not_in_file_ok {
-    my ($filename, %regex) = @_;
-    open( my $fh, '<', $filename )
-        or die "couldn't open $filename for reading: $!";
-
-    my %violated;
-
-    while (my $line = <$fh>) {
-        while (my ($desc, $regex) = each %regex) {
-            if ($line =~ $regex) {
-                push @{$violated{$desc}||=[]}, $.;
-            }
-        }
-    }
-
-    if (%violated) {
-        fail("$filename contains boilerplate text");
-        diag "$_ appears on lines @{$violated{$_}}" for keys %violated;
-    } else {
-        pass("$filename contains no boilerplate text");
-    }
-}
-
-sub module_boilerplate_ok {
-    my ($module) = @_;
-    not_in_file_ok($module =>
-        'the great new $MODULENAME'   => qr/ - The great new /,
-        'boilerplate description'     => qr/Quick summary of what the module/,
-        'stub function definition'    => qr/function[12]/,
-    );
-}
-
-
-  not_in_file_ok(README =>
-    "The README is used..."       => qr/The README is used/,
-    "'version information here'"  => qr/to provide version information/,
-  );
-
-  not_in_file_ok(Changes =>
-    "placeholder date/time"       => qr(Date/time)
-  );
-
-  module_boilerplate_ok('lib/DBIx/Custom.pm');
-
-

-11

DBIx-Custom-0.1711/xt/pod.t

View

@@ -1,11 +0,0 @@
-
-use strict;
-use warnings;
-use Test::More;
-
-# Ensure a recent version of Test::Pod
-my $min_tp = 1.22;
-eval "use Test::Pod $min_tp";
-plan skip_all => "Test::Pod $min_tp required for testing POD" if $@;
-
-all_pod_files_ok();

-252

t/private-mysql.t

View

@@ -1,252 +0,0 @@
-use Test::More;
-use strict;
-use warnings;
-
-use FindBin;
-
-plan skip_all => 'private test' unless -f "$FindBin::Bin/private-mysql-run.tmp";
-plan 'no_plan';
-
-$SIG{__WARN__} = sub { warn $_[0] unless $_[0] =~ /DEPRECATED/};
-
-# user password database
-our ($user, $password, $database) = qw/appuser 123456 usertest/;
-
-require DBIx::Connector;
-
-# Function for test name
-sub test { print "# $_[0]\n" }
-
-# Varialbes for tests
-my $dbi;
-my $dbname;
-my $rows;
-my $result;
-
-test 'connect';
-eval {
-    $dbi = DBIx::Custom->new(
-        dsn => "dbi:mysql:database=$database;host=localhost;port=10000",
-        user => $user,
-        password => $password
-    );
-};
-ok(!$@);
-
-test 'limit';
-$dbi = DBIx::Custom->connect(
-    dsn => "dbi:mysql:database=$database",
-    user => $user,
-    password => $password
-);
-$dbi->delete_all(table => 'table1');
-$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2});
-$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 4});
-$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 6});
-$dbi->query_builder->register_tag_processor(
-    limit => sub {
-        my ($count, $offset) = @_;
-        
-        my $s = '';
-        $offset = 0 unless defined $offset;
-        $s .= "limit $offset";
-        $s .= ", $count";
-        
-        return [$s, []];
-    }
-);
-$rows = $dbi->select(
-  table => 'table1',
-  where => {key1 => 1},
-  append => "order by key2 {limit 1 0}"
-)->fetch_hash_all;
-is_deeply($rows, [{key1 => 1, key2 => 2}]);
-$rows = $dbi->select(
-  table => 'table1',
-  where => {key1 => 1},
-  append => "order by key2 {limit 2 1}"
-)->fetch_hash_all;
-is_deeply($rows, [{key1 => 1, key2 => 4},{key1 => 1, key2 => 6}]);
-$rows = $dbi->select(
-  table => 'table1',
-  where => {key1 => 1},
-  append => "order by key2 {limit 1}"
-)->fetch_hash_all;
-is_deeply($rows, [{key1 => 1, key2 => 2}]);
-
-$dbi->dbh->disconnect;
-$dbi = undef;
-$dbi = DBIx::Custom->connect(
-    dsn => "dbi:mysql:database=$database",
-    user => $user,
-    password => $password
-);
-$rows = $dbi->select(
-  table => 'table1',
-  where => {key1 => 1, key2 => 4},
-  append => "order by key2 limit 0, 1"
-)->fetch_hash_all;
-is_deeply($rows, [{key1 => 1, key2 => 4}]);
-$dbi->delete_all(table => 'table1');
-
-test 'type_rule';
-$dbi = DBIx::Custom->connect(
-    dsn => "dbi:mysql:database=$database",
-    user => $user,
-    password => $password
-);
-eval{$dbi->execute("create table date_test (date DATE, datetime DATETIME)")};
-$dbi->each_column(
-    sub {
-        my ($self, $table, $column, $column_info) = @_;
-    }
-);
-
-$dbi->type_rule(
-    into1 => {
-        date=> sub {
-            my $date = shift;
-            $date =~ s/aaaaa//g;
-            return $date;
-        },
-        datetime => sub {
-            my $date = shift;
-            $date =~ s/ccccc//g;
-            return $date;
-        },
-    },
-    from1 => {
-        # DATE
-        9 => sub {
-                my $date = shift;
-                $date .= 'bbbbb';
-                return $date;
-        },
-        # DATETIME or TIMPESTANM
-        11 => sub {
-                my $date = shift;
-                $date .= 'ddddd';
-                return $date;
-        }
-    }
-);
-
-$dbi->insert(
-    {
-        date => 'aaaaa2010-aaaaa11-12aaaaa',
-        datetime => '2010-11ccccc-12 10:ccccc55:56'
-    },
-    table => 'date_test'
-);
-is_deeply(
-    $dbi->select(table => 'date_test')->fetch,
-    ['2010-11-12bbbbb', '2010-11-12 10:55:56ddddd']
-);
-
-$dbi->execute("drop table date_test");
-
-test 'dbh';
-{
-    my $connector = DBIx::Connector->new(
-        "dbi:mysql:database=$database",
-        $user,
-        $password,
-        DBIx::Custom->new->default_dbi_option
-    );
-
-    my $dbi = DBIx::Custom->connect(connector => $connector);
-    $dbi->delete_all(table => 'table1');
-    $dbi->do('insert into table1 (key1, key2) values (1, 2)');
-    is($dbi->select(table => 'table1')->fetch_hash_first->{key1}, 1);
-    
-    $dbi = DBIx::Custom->new;
-    $dbi->dbh('a');
-    is($dbi->{dbh}, 'a');
-}
-
-test 'transaction';
-test 'dbh';
-{
-    my $connector = DBIx::Connector->new(
-        "dbi:mysql:database=$database",
-        $user,
-        $password,
-        DBIx::Custom->new->default_dbi_option
-    );
-
-    my $dbi = DBIx::Custom->connect(connector => $connector);
-    $dbi->delete_all(table => 'table1');
-    
-    $dbi->connector->txn(sub {
-        $dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2});
-        $dbi->insert(table => 'table1', param => {key1 => 3, key2 => 4});
-    });
-    is_deeply($dbi->select(table => 'table1')->fetch_hash_all,
-              [{key1 => 1, key2 => 2}, {key1 => 3, key2 => 4}]);
-
-    $dbi->delete_all(table => 'table1');
-    eval {
-        $dbi->connector->txn(sub {
-            $dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2});
-            die "Error";
-            $dbi->insert(table => 'table1', param => {key1 => 3, key2 => 4});
-        });
-    };
-    is_deeply($dbi->select(table => 'table1')->fetch_hash_all,
-              []);
-}
-
-use DBIx::Custom;
-use Scalar::Util 'blessed';
-{
-    my $dbi = DBIx::Custom->connect(
-        user => $user,
-        password => $password,
-        dsn => "dbi:mysql:dbname=$database"
-    );
-    $dbi->connect;
-    
-    ok(blessed $dbi->dbh);
-    can_ok($dbi->dbh, qw/prepare/);
-    ok($dbi->dbh->{AutoCommit});
-    ok(!$dbi->dbh->{mysql_enable_utf8});
-}
-
-{
-    my $dbi = DBIx::Custom->connect(
-        user => $user,
-        password => $password,
-        dsn => "dbi:mysql:dbname=$database",
-        dbi_options => {AutoCommit => 0, mysql_enable_utf8 => 1}
-    );
-    $dbi->connect;
-    ok(!$dbi->dbh->{AutoCommit});
-    #ok($dbi->dbh->{mysql_enable_utf8});
-}
-
-test 'fork';
-{
-    my $connector = DBIx::Connector->new(
-        "dbi:mysql:database=$database",
-        $user,
-        $password,
-        DBIx::Custom->new->default_dbi_option
-    );
-    
-    my $dbi = DBIx::Custom->new(connector => $connector);
-    $dbi->delete_all(table => 'table1');
-    $dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2});
-    die "Can't fork" unless defined (my $pid = fork);
-
-    if ($pid) {
-        # Parent
-        my $result = $dbi->select(table => 'table1');
-        is_deeply($result->fetch_hash_first, {key1 => 1, key2 => 2});
-    }
-    else {
-        # Child
-        my $result = $dbi->select(table => 'table1');
-        die "Not OK" unless $result->fetch_hash_first->{key1} == 1;
-    }
-}
-

-46

t/private-postgresql.t

View

@@ -1,46 +0,0 @@
-use Test::More;
-use strict;
-use warnings;
-use FindBin;
-use DBIx::Custom;
-
-
-$SIG{__WARN__} = sub { warn $_[0] unless $_[0] =~ /DEPRECATED/};
-
-# Constant
-my $user = 'dbix_custom';
-my $password = 'dbix_custom';
-my $database = 'dbix_custom';
-my %connect_args_default = (
-        dsn => "dbi:Pg:dbname=$database",
-        user => $user,
-        password => $password
-);
-my $create_table_default = 'create table table1 (key1 varchar(255), key2 varchar(255));';
-
-plan skip_all => 'private test'
-  unless -f "$FindBin::Bin/private-postgresql-run.tmp"
-    && eval { DBIx::Custom->connect(%connect_args_default); 1 };
-
-plan 'no_plan';
-
-
-# Variable
-my $dbi;
-my $model;
-
-# Connect
-eval { $dbi = DBIx::Custom->connect(%connect_args_default); 1 };
-ok(!$@);
-
-# Drop table
-eval { $dbi->execute('drop table table1') };
-
-# Create table
-$dbi->execute($create_table_default);
-$model = $dbi->create_model(table => 'table1');
-$model->insert({key1 => 1, key2 => 2});
-is_deeply($model->select->all, [{key1 => 1, key2 => 2}]);
-
-
-

...	...	@@ -1,603 +0,0 @@
1		-=encoding utf8
2		-
3		-=head1 NAME
4		-
5		-DBIx::Custom::Guide - DBIx::Custom Guide
6		-
7		-=head1 FEATURES
8		-
9		-L<DBIx::Custom> is the wrapper class of L<DBI> to execute SQL easily.
10		-This module have the following features.
11		-
12		-=over 4
13		-
14		-=item * Execute INSERT, UPDATE, DELETE, SELECT statement easily
15		-
16		-=item * You can specify bind values by hash reference
17		-
18		-=item * Filtering by data type. and you can set filter to any column
19		-
20		-=item * Creating where clause and order by clause flexibly
21		-
22		-=item * Support model
23		-
24		-=back
25		-
26		-=head1 GUIDE
27		-
28		-=head2 Connect to database
29		-
30		- use DBIx::Custom;
31		- my $dbi = DBIx::Custom->connect(
32		- dsn => "dbi:mysql:database=bookshop",
33		- user => 'ken',
34		- password => '!LFKD%$&',
35		- dbi_option => {mysql_enable_utf8 => 1}
36		- );
37		-
38		-You can connect to database by C<connect> method.
39		-C<dsn> is data source name, C<user> is user name, C<password> is password.
40		-
41		-C<dbi_option> is L<DBI> option.
42		-By default, the following option is set.
43		-Exeption is thrown when fatal error occur and commit mode is auto commit.
44		-
45		- {
46		- RaiseError => 1
47		- PrintError => 0
48		- AutoCommit => 1
49		- }
50		-
51		-=head2 Execute query
52		-
53		-=head3 Insert Statement : C<insert>
54		-
55		-If you want to execute insert statement, use C<insert> method.
56		-
57		- $dbi->insert({title => 'Perl', author => 'Ken'}, table => 'book');
58		-
59		-First argument is insert row data, C<table> is table name.
60		-
61		-=head3 Update Statement : C<update>
62		-
63		-If you want to execute update stateimuse, use C<update> method.
64		-
65		- $dbi->update(
66		- {title => 'Perl', author => 'Ken'},
67		- table => 'book',
68		- where => {id => 5}
69		- );
70		-
71		-First argument is update row data, C<table> is table name, C<where> is condition.
72		-
73		-Note that you can't execute C<update> method without C<where>.
74		-If you want to update all rows, use update_all.
75		-
76		- $dbi->update_all({title => 'Perl', author => 'Ken'}, table => 'book');
77		-
78		-=head3 Delete Statement : C<delete>
79		-
80		-If you want to execute delete statement, use C<delete> method.
81		-
82		- $dbi->delete(table => 'book', where => {author => 'Ken'});
83		-
84		-C<table> is table name, C<where> is condition.
85		-
86		-Note that you can't execute C<delete> method without C<where>.
87		-If you want to delete all rows, use C<delete_all> method.
88		-
89		- $dbi->delete_all(table => 'book');
90		-
91		-=head3 Select Statement : C<select>
92		-
93		-If you want to execute select statement, use C<select> method.
94		-
95		- my $result = $dbi->select(table => 'book');
96		-
97		-Return value is L<DBIx::Custom::Result> object.
98		-You can fetch rows by C<fetch> method.
99		-
100		- while (my $row = $result->fetch) {
101		- my $title = $row->[0];
102		- my $author = $row->[1];
103		- }
104		-
105		-See also L<Fetch row/"Fetch row"> about L<DBIx::Custom::Result>.
106		-
107		-You can specify column names by C<column> option
108		-and condition by C<where> option.
109		-
110		- my $result = $dbi->select(
111		- table => 'book',
112		- column => ['author', 'title'],
113		- where => {author => 'Ken'}
114		- );
115		-
116		-You can specify join clause by C<join> option.
117		-
118		- my $result = $dbi->select(
119		- table => 'book',
120		- column => ['company.name as company_name']
121		- where => {'book.name' => 'Perl'},
122		- join => ['left outer join company on book.company_id = company.id]
123		- );
124		-
125		-Note that join clause is joined only when C<where> or C<column> option contains table name,
126		-such as book.name.
127		-
128		-You can append statement to the end of whole statement by C<append> option.
129		-
130		- my $result = $dbi->select(
131		- table => 'book',
132		- where => {author => 'Ken'},
133		- append => 'for update',
134		- );
135		-
136		-=head3 C<execute>
137		-
138		-If you want to execute SQL, use C<execute> method.
139		-
140		- $dbi->execute("select * from book;");
141		-
142		-You can specify named placeholder.
143		-
144		- $dbi->execute(
145		- "select * from book title = :title and author = :author;"
146		- {title => 'Perl', author => 'Ken'}
147		- );
148		-
149		-:title and :author is named placeholder, which is replaced to placeholers.
150		-
151		- select * from book title = ? and author = ?;
152		-
153		-=head3 C<dbh>
154		-
155		- my $dbh = $dbi->dbh;
156		-
157		-Get get database handle object of L<DBI>.
158		-
159		-=head3 C<DBI> methods
160		-
161		- $dbi->do(...);
162		- $dbi->begin_work;
163		-
164		-You can call all methods of L<DBI> from L<DBIx::Custom> object.
165		-
166		-=head2 Fetch Rows
167		-
168		-C<select> method return value is L<DBIx::Custom::Result> object.
169		-You can fetch a row or rows by various methods.
170		-
171		-=head3 Fetch a row (array) : C<fetch>
172		-
173		- my $row = $result->fetch;
174		-
175		-C<fetch> method fetch a row and put it into array reference.
176		-You can continue to fetch
177		-
178		- while (my $row = $result->fetch) {
179		- my $title = $row->[0];
180		- my $author = $row->[1];
181		- }
182		-
183		-=head3 Fetch only first row (array) : C<fetch_first>
184		-
185		- my $row = $result->fetch_first;
186		-
187		-C<fetch_first> fetch a only first row and finish statment handle,
188		-and put it into array refrence.
189		-
190		-=head3 Fetch all rows (array) : C<fetch_all>
191		-
192		- my $rows = $result->fetch_all;
193		-
194		-C<fetch_all> fetch all rows and put them into array of array reference.
195		-
196		-=head3 Fetch a row (hash) : C<fetch_hash>
197		-
198		- my $row = $result->fetch_hash;
199		-
200		-C<fetch_hash> fetch a row and put it into hash reference.
201		-You can fetch a row while row exists.
202		-
203		- while (my $row = $result->fetch_hash) {
204		- my $title = $row->{title};
205		- my $author = $row->{author};
206		- }
207		-
208		-=head3 Fetch only a first row (hash) : C<fetch_hash_first>
209		-
210		- my $row = $result->fetch_hash_first;
211		-
212		-C<fetch_hash_first> fetch only a first row and finish statement handle,
213		-and put them into hash refrence.
214		-
215		-C<one> is C<fetch_hash_first> synonym to save word typing.
216		-
217		- my $row = $result->one;
218		-
219		-=head3 Fetch all rows (hash) : C<fetch_hash_all>
220		-
221		- my $rows = $result->fetch_hash_all;
222		-
223		-C<fetch_hash_all> fetch all rows and put them into array of hash reference.
224		-
225		-=head3 Statement Handle : C<sth>
226		-
227		- my $sth = $result->sth;
228		-
229		-If you want to get statment handle, use <sth> method.
230		-
231		-=head2 Named placeholder
232		-
233		-=head3 Basic of Parameter
234		-
235		-You can embedd named placeholder into SQL.
236		-
237		- select * from book where title = :title and author like :author;
238		-
239		-:title and :author is named placeholder
240		-
241		-Named placeholder is replaced by place holder.
242		-
243		- select * from book where title = ? and author like ?;
244		-
245		-use C<execute> to execute SQL.
246		-
247		- my $sql = "select * from book where title = :title and author like :author;"
248		- $dbi->execute($sql, {title => 'Perl', author => '%Ken%'});
249		-
250		-You can specify C<filter> at C<execute>.
251		-
252		- $dbi->execute($sql, {title => 'Perl', author => '%Ken%'}
253		- filter => {title => 'to_something');
254		-
255		-=head3 Manipulate same name's columns
256		-
257		-It is ok if there are same name's columns.
258		-Let's think two date comparison.
259		-
260		- my $sql = "select * from table where date > :date and date < :date;";
261		-
262		-In this case, You specify parameter values as array reference.
263		-
264		- my $dbi->execute($sql, {date => ['2010-10-01', '2012-02-10']});
265		-
266		-=head2 Create where clause
267		-
268		-=head3 Dinamically create where clause : where
269		-
270		-You want to search multiple conditions in many times.
271		-Let's think the following three cases.
272		-
273		-Case1: Search only C<title>
274		-
275		- where title = :title
276		-
277		-Case2: Search only C<author>
278		-
279		- where author = :author
280		-
281		-Case3: Search C<title> and C<author>
282		-
283		- where title = :title and author = :author
284		-
285		-L<DBIx::Custom> support dinamic where clause creating.
286		-At first, create L<DBIx::Custom::Where> object by C<where>.
287		-
288		- my $where = $dbi->where;
289		-
290		-Set clause by C<clause>
291		-
292		- $where->clause(
293		- ['and', 'title = :title, 'author = :author']
294		- );
295		-
296		-C<clause> is the following format.
297		-
298		- ['or' or 'and', PART1, PART1, PART1]
299		-
300		-First argument is 'or' or 'and'.
301		-Later than first argument are part which contains named placeholder.
302		-
303		-You can write more complex format.
304		-
305		- ['and',
306		- 'title = :title',
307		- ['or', 'author = :author', 'date like :date']
308		- ]
309		-
310		-This mean "title = :title and ( author = :author or date like :date )".
311		-
312		-After setting C<clause>, set C<param>.
313		-
314		- $where->param({title => 'Perl'});
315		-
316		-In this example, parameter contains only title.
317		-
318		-If you execute C<string_to>, you can get where clause
319		-which contain only named placeholder.
320		-
321		- my $where_clause = $where->to_string;
322		-
323		-Parameter name is only title, the following where clause is created.
324		-
325		- where title = :title
326		-
327		-You can also create where clause by stringification.
328		-
329		- my $where_clause = "$where";
330		-
331		-This is useful to embbed it into SQL.
332		-
333		-=head3 In case where clause contains same name columns
334		-
335		-Even if same name parameters exists, you can create where clause.
336		-Let's think that there are starting date and ending date.
337		-
338		- my $param = {start_date => '2010-11-15', end_date => '2011-11-21'};
339		-
340		-In this case, you set parameter value as array reference.
341		-
342		- my $p = {date => ['2010-11-15', '2011-11-21']};
343		-
344		-You can embbed these values into same name parameters.
345		-
346		- $where->clause(
347		- ['and', 'date > :date', 'date < :date']
348		- );
349		- $where->param($p);
350		-
351		-If starting date isn't exists, create the following parameter.
352		-
353		- my $p = {date => [$dbi->not_exists, '2011-11-21']};
354		-
355		-You can get DBIx::Custom::NotExists object by C<not_exists>
356		-This mean correnspondinf value isn't exists.
357		-
358		-If ending date isn't exists, create the following parameter.
359		-
360		- my $p = {date => ['2010-11-15']};
361		-
362		-If both date isn't exists, create the following parameter.
363		-
364		- my $p = {date => []};
365		-
366		-This logic is a little difficut. See the following ones.
367		-
368		- my @date;
369		- push @date, exists $param->{start_date} ? $param->{start_date}
370		- : $dbi->not_exists;
371		- push @date, $param->{end_date} if exists $param->{end_date};
372		- my $p = {date => \@date};
373		-
374		-=head3 With C<select>
375		-
376		-You can pass L<DBIx::Custom::Where> object to C<where> of C<select>.
377		-
378		- my $where = $dbi->where;
379		- $where->clause(['and', 'title = :title', 'author = :author']);
380		- $where->param({title => 'Perl'});
381		- my $result = $dbi->select(table => 'book', where => $where);
382		-
383		-You can also pass it to C<where> of C<update>AC<delete>
384		-
385		-=head3 With C<execute>
386		-
387		-L<DBIx::Custom::Where> object is embedded into SQL.
388		-
389		- my $where = $dbi->where;
390		- $where->clause(['and', 'title = :title', 'author = :author']);
391		- $where->param({title => 'Perl'});
392		-
393		- my $sql = <<"EOS";
394		- select * from book;
395		- $where
396		- EOS
397		-
398		- $dbi->execute($sql, $param, table => 'book');
399		-
400		-=head2 Filtering
401		-
402		-=head3 Register filter : C<register_filter>
403		-
404		-If you want to register filter, use C<register_filter>.
405		-
406		- $dbi->register_filter(
407		- # Time::Piece object to DATE format
408		- tp_to_date => sub {
409		- my $date = shift;
410		- return $tp->strftime('%Y-%m-%d');
411		- },
412		-
413		- # DATE to Time::Piece object
414		- date_to_tp => sub {
415		- my $date = shift;
416		- return Time::Piece->strptime($date, '%Y-%m-%d');
417		- },
418		- );
419		-
420		-=head3 Filter before sending data into database : C<filter> option
421		-
422		-If you filter sending data, use C<filter> option.
423		-
424		- $dbi->execute(
425		- 'insert into book (date) values (:date)',
426		- {date => $tp},
427		- filter => {date => 'tp_to_date'}
428		- );
429		-
430		-You can use C<filter> option in C<insert>, C<update>, C<delete>, C<select> method.
431		-
432		- $dbi->insert(
433		- {date => $tp},
434		- table => 'book',
435		- filter => {date => 'tp_to_date'}
436		- );
437		-
438		-=head3 Filter after fetching data from database.
439		-
440		-If you filter fetch data, use L<DBIx::Custom::Result>'s C<filter> method.
441		-
442		- my $result = $dbi->select(column => 'date', table => 'book');
443		- $result->filter(date => 'date_to_tp');
444		- my $row = $result->one;
445		-
446		-=head2 7. Model
447		-
448		-=head3 Model
449		-
450		-you can define model extending L<DBIx::Custom::Model>
451		-to improve source code view.
452		-
453		-At first, you create basic model class extending <DBIx::Custom::Model>.
454		-Each L<DBIx::Custom> class inherit L<Object::Simple>.
455		-so you can inherit the following way.
456		-
457		- package MyModel;
458		- use DBIx::Custom::Model -base;
459		-
460		-Next, you create each model classes.
461		-
462		-MyModel::book
463		-
464		- package MyModel::book;
465		- use MyModel -base;
466		-
467		- sub insert { ... }
468		- sub list { ... }
469		-
470		-MyModel::company
471		-
472		- package MyModel::company;
473		- use MyModel -base;
474		-
475		- sub insert { ... }
476		- sub list { ... }
477		-
478		-The follwoing modules location is needed.
479		-
480		- MyModel.pm
481		- MyModel / book.pm
482		- / company.pm
483		-
484		-You can include these models by C<include_model>
485		-
486		- $dbi->include_model('MyModel');
487		-
488		-First argument is name space of model.
489		-
490		-You can use model like this.
491		-
492		- my $result = $dbi->model('book')->list;
493		-
494		-In mode, You can use such as methods,
495		-C<insert>, C<update>, C<update_all>,
496		-C<delete>, C<delete_all>, C<select>
497		-without C<table> option.
498		-
499		- $dbi->model('book')->insert($param);
500		-
501		-Model is L<DBIx::Custom::Model>.
502		-
503		-If you need table nameAyou can get it by C<table>.
504		-
505		- my $table = $model->table;
506		-
507		-You can get L<DBIx::Custom>.
508		-
509		- my $dbi = $model->dbi;
510		-
511		-You can also call all methods of L<DBIx::Custom> and L<DBI>.
512		-
513		- # DBIx::Custom method
514		- $model->execute($sql);
515		-
516		- # DBI method
517		- $model->begin_work;
518		- $model->commit;
519		-
520		-If you want to get all models, you can get them by keys of C<models>.
521		-
522		- my @models = keys %{$self->models};
523		-
524		-You can set primary key to model.
525		-
526		- $model->primary_key(['id', 'number_id']);
527		-
528		-Primary key is used by C<insert>, C<update>, C<delete>,
529		-and C<select> methods.
530		-
531		-You can set column names
532		-
533		- $model->columns(['id', 'number_id']);
534		-
535		-Column names is automarically set by C<setup_model>.
536		-This method is needed to be call after C<include_model>.
537		-
538		- $dbi->setup_model;
539		-
540		-You can set C<join>
541		-
542		- $model->join(['left outer join company on book.company_id = company.id']);
543		-
544		-C<join> is used by C<select> method.
545		-
546		-=head2 Create column clause automatically : mycolumn, column
547		-
548		-To create column clause automatically, use C<mycolumn>.
549		-Valude of C<table> and C<columns> is used.
550		-
551		- my $mycolumns = $model->mycolumn;
552		-
553		-If C<table> is 'book'AC<column> is ['id', 'name'],
554		-the following clause is created.
555		-
556		- book.id as id, book.name as name
557		-
558		-These column name is for removing column name ambiguities.
559		-
560		-You can create column clause from columns of other table.
561		-
562		- my $columns = $model->column('company');
563		-
564		-If C<table> is "company", C<column> return ['id', 'name'],
565		-the following clause is created.
566		-
567		- company.id as "company.id", company.name as "company.name"
568		-
569		-=head2 Model Examples
570		-
571		-Model examples
572		-
573		- package MyDBI;
574		- use DBIx::Custom -base;
575		-
576		- sub connect {
577		- my $self = shift->SUPER::connect(@_);
578		-
579		- $self->include_model(
580		- MyModel => [
581		- 'book',
582		- 'company'
583		- ]
584		- );
585		- }
586		-
587		- package MyModel::book;
588		- use DBIx::Custom::Model -base;
589		-
590		- has primary_key => sub { ['id'] };
591		-
592		- sub insert { ... }
593		- sub list { ... }
594		-
595		- package MyModel::company;
596		- use DBIx::Custom::Model -base;
597		-
598		- has primary_key => sub { ['id'] };
599		-
600		- sub insert { ... }
601		- sub list { ... }
602		-
603		-=cut

...	...	@@ -1,116 +0,0 @@
1		-package DBIx::Custom::Query;
2		-use Object::Simple -base;
3		-
4		-use Carp 'croak';
5		-use DBIx::Custom::Util '_subname';
6		-
7		-has 'sth',
8		- sql => '',
9		- columns => sub { [] };
10		-
11		-# DEPRECATED!
12		-has 'default_filter';
13		-sub filters {
14		- warn "DBIx::Custom::Query filters attribute method is DEPRECATED!";
15		- my $self = shift;
16		- if (@_) {
17		- $self->{filters} = $_[0];
18		- return $self;
19		- }
20		- return $self->{filters};
21		-}
22		-
23		-# DEPRECATED!
24		-sub tables {
25		- warn "DBIx::Custom::Query tables attribute method is DEPRECATED!";
26		- my $self = shift;
27		- if (@_) {
28		- $self->{tables} = $_[0];
29		- return $self;
30		- }
31		- return $self->{tables} \|\|= [];
32		-}
33		-
34		-#DEPRECATED!
35		-sub filter {
36		- Carp::carp "DBIx::Custom::Query filter method is DEPRECATED!";
37		- my $self = shift;
38		- if (@_) {
39		- my $filter = {};
40		- if (ref $_[0] eq 'HASH') {
41		- $filter = $_[0];
42		- }
43		- else {
44		- my $ef = @_ > 1 ? [@_] : $_[0];
45		- for (my $i = 0; $i < @$ef; $i += 2) {
46		- my $column = $ef->[$i];
47		- my $f = $ef->[$i + 1];
48		- if (ref $column eq 'ARRAY') {
49		- foreach my $c (@$column) {
50		- $filter->{$c} = $f;
51		- }
52		- }
53		- else {
54		- $filter->{$column} = $f;
55		- }
56		- }
57		- }
58		- foreach my $column (keys %$filter) {
59		- my $fname = $filter->{$column};
60		- if (exists $filter->{$column}
61		- && defined $fname
62		- && ref $fname ne 'CODE')
63		- {
64		- my $filters = $self->{filters} \|\| {};
65		- croak qq{Filter "$fname" is not registered" } . _subname
66		- unless exists $filters->{$fname};
67		- $filter->{$column} = $filters->{$fname};
68		- }
69		- }
70		- $self->{filter} = {%{$self->{filter} \|\| {}}, %$filter};
71		- return $self;
72		- }
73		- return $self->{filter} \|\|= {};
74		-}
75		-
76		-1;
77		-
78		-=head1 NAME
79		-
80		-DBIx::Custom::Query - Query
81		-
82		-=head1 SYNOPSIS
83		-
84		- my $query = DBIx::Custom::Query->new;
85		- my $sth = $query->sth;
86		- my $sql = $query->sql;
87		- my $columns = $query->columns;
88		-
89		-=head1 ATTRIBUTES
90		-
91		-=head2 C<columns>
92		-
93		- my $columns = $query->columns;
94		- $query = $query->columns(['auhtor', 'title']);
95		-
96		-Column names.
97		-
98		-=head2 C<sql>
99		-
100		- my $sql = $query->sql;
101		- $query = $query->sql('select * from books where author = ?;');
102		-
103		-SQL statement.
104		-
105		-=head2 C<sth>
106		-
107		- my $sth = $query->sth;
108		- $query = $query->sth($sth);
109		-
110		-Statement handle of L<DBI>
111		-
112		-=head1 METHODS
113		-
114		-L<DBIx::Custom::Query> inherits all methods from L<Object::Simple>.
115		-
116		-=cut

...	...	@@ -1,329 +0,0 @@
1		-package DBIx::Custom::QueryBuilder;
2		-
3		-use Object::Simple -base;
4		-
5		-use Carp 'croak';
6		-use DBIx::Custom::Query;
7		-use DBIx::Custom::Util '_subname';
8		-
9		-# Carp trust relationship
10		-push @DBIx::Custom::CARP_NOT, __PACKAGE__;
11		-push @DBIx::Custom::Where::CARP_NOT, __PACKAGE__;
12		-
13		-has 'dbi';
14		-
15		-sub build_query {
16		- my ($self, $source) = @_;
17		-
18		- my $query;
19		-
20		- # Parse tag. tag is DEPRECATED!
21		- if ($self->dbi->tag_parse && $source =~ /(\s\|^)\{/) {
22		- $query = $self->_parse_tag($source);
23		- my $tag_count = delete $query->{tag_count};
24		- warn qq/Tag system such as {? name} is DEPRECATED! / .
25		- qq/use parameter system such as :name instead/
26		- if $tag_count;
27		- my $query2 = $self->_parse_parameter($query->sql);
28		- $query->sql($query2->sql);
29		- for (my $i =0; $i < @{$query->columns}; $i++) {
30		- my $column = $query->columns->[$i];
31		- if ($column eq 'RESERVED_PARAMETER') {
32		- my $column2 = shift @{$query2->columns};
33		- croak ":name syntax is wrong"
34		- unless defined $column2;
35		- $query->columns->[$i] = $column2;
36		- }
37		- }
38		- }
39		-
40		- # Parse parameter
41		- else { $query = $self->_parse_parameter($source) }
42		-
43		- my $sql = $query->sql;
44		- $sql .= ';' unless $source =~ /;$/;
45		- $query->sql($sql);
46		-
47		- # Check placeholder count
48		- croak qq{Placeholder count in "$sql" must be same as column count}
49		- . _subname
50		- unless $self->_placeholder_count($sql) eq @{$query->columns};
51		-
52		- return $query;
53		-}
54		-
55		-sub _placeholder_count {
56		- my ($self, $sql) = @_;
57		-
58		- # Count
59		- $sql \|\|= '';
60		- my $count = 0;
61		- my $pos = -1;
62		- while (($pos = index($sql, '?', $pos + 1)) != -1) {
63		- $count++;
64		- }
65		- return $count;
66		-}
67		-
68		-sub _parse_parameter {
69		- my ($self, $source) = @_;
70		-
71		- # Get and replace parameters
72		- my $sql = $source \|\| '';
73		- my $columns = [];
74		- my $c = $self->dbi->safety_character;
75		- # Parameter regex
76		- $sql =~ s/([^:]):(\d+):([^:])/$1\\:$2\\:$3/g;
77		- my $re = qr/(^\|.?[^\\]):([$c\.]+)(?:\{(.?)\})?(.*)/s;
78		- while ($sql =~ /$re/g) {
79		- push @$columns, $2;
80		- $sql = defined $3 ? "$1$2 $3 ?$4" : "$1?$4";
81		- }
82		- $sql =~ s/\\:/:/g;
83		-
84		- # Create query
85		- my $query = DBIx::Custom::Query->new(
86		- sql => $sql,
87		- columns => $columns
88		- );
89		-
90		- return $query;
91		-}
92		-
93		-# DEPRECATED!
94		-has tags => sub { {} };
95		-
96		-# DEPRECATED!
97		-sub register_tag {
98		- my $self = shift;
99		-
100		- warn "register_tag is DEPRECATED!";
101		-
102		- # Merge tag
103		- my $tags = ref $_[0] eq 'HASH' ? $_[0] : {@_};
104		- $self->tags({%{$self->tags}, %$tags});
105		-
106		- return $self;
107		-}
108		-
109		-# DEPRECATED!
110		-sub _parse_tag {
111		- my ($self, $source) = @_;
112		- # Source
113		- $source \|\|= '';
114		- # Tree
115		- my @tree;
116		- # Value
117		- my $value = '';
118		- # State
119		- my $state = 'text';
120		- # Before charactor
121		- my $before = '';
122		- # Position
123		- my $pos = 0;
124		- # Parse
125		- my $original = $source;
126		- my $tag_count = 0;
127		- while (defined(my $c = substr($source, $pos, 1))) {
128		- # Last
129		- last unless length $c;
130		- # Parameter
131		- if ($c eq ':' && (substr($source, $pos + 1, 1) \|\| '') =~ /\w/) {
132		- push @tree, {type => 'param'};;
133		- }
134		- # State is text
135		- if ($state eq 'text') {
136		- # Tag start charactor
137		- if ($c eq '{') {
138		- # Escaped charactor
139		- if ($before eq "\\") {
140		- substr($value, -1, 1, '');
141		- $value .= $c;
142		- }
143		- # Tag start
144		- else {
145		- # Change state
146		- $state = 'tag';
147		- # Add text
148		- push @tree, {type => 'text', value => $value}
149		- if $value;
150		- # Clear
151		- $value = '';
152		- }
153		- }
154		- # Tag end charactor
155		- elsif ($c eq '}') {
156		- # Escaped charactor
157		- if ($before eq "\\") {
158		- substr($value, -1, 1, '');
159		- $value .= $c;
160		- }
161		- # Unexpected
162		- else {
163		- croak qq{Parsing error. unexpected "\}". }
164		- . qq{pos $pos of "$original" } . _subname
165		- }
166		- }
167		- # Normal charactor
168		- else { $value .= $c }
169		- }
170		- # State is tags
171		- else {
172		- # Tag start charactor
173		- if ($c eq '{') {
174		- # Escaped charactor
175		- if ($before eq "\\") {
176		- substr($value, -1, 1, '');
177		- $value .= $c;
178		- }
179		- # Unexpected
180		- else {
181		- croak qq{Parsing error. unexpected "\{". }
182		- . qq{pos $pos of "$original" } . _subname
183		- }
184		- }
185		- # Tag end charactor
186		- elsif ($c eq '}') {
187		- # Escaped charactor
188		- if ($before eq "\\") {
189		- substr($value, -1, 1, '');
190		- $value .= $c;
191		- }
192		- # Tag end
193		- else {
194		- # Change state
195		- $state = 'text';
196		- # Add tag
197		- my ($tag_name, @tag_args) = split /\s+/, $value;
198		- push @tree, {type => 'tag', tag_name => $tag_name,
199		- tag_args => \@tag_args};
200		- # Clear
201		- $value = '';
202		- # Countup
203		- $tag_count++;
204		- }
205		- }
206		- # Normal charactor
207		- else { $value .= $c }
208		- }
209		- # Save before charactor
210		- $before = $c;
211		- # increment position
212		- $pos++;
213		- }
214		- # Tag not finished
215		- croak qq{Tag not finished. "$original" } . _subname
216		- if $state eq 'tag';
217		- # Not contains tag
218		- return DBIx::Custom::Query->new(sql => $source, tag_count => $tag_count)
219		- if $tag_count == 0;
220		- # Add rest text
221		- push @tree, {type => 'text', value => $value}
222		- if $value;
223		- # SQL
224		- my $sql = '';
225		- # All Columns
226		- my $all_columns = [];
227		- # Tables
228		- my $tables = [];
229		- # Build SQL
230		- foreach my $node (@tree) {
231		- # Text
232		- if ($node->{type} eq 'text') { $sql .= $node->{value} }
233		- # Parameter
234		- elsif ($node->{type} eq 'param') {
235		- push @$all_columns, 'RESERVED_PARAMETER';
236		- }
237		- # Tag
238		- else {
239		- # Tag name
240		- my $tag_name = $node->{tag_name};
241		- # Tag arguments
242		- my $tag_args = $node->{tag_args};
243		- # Table
244		- if ($tag_name eq 'table') {
245		- my $table = $tag_args->[0];
246		- push @$tables, $table;
247		- $sql .= $table;
248		- next;
249		- }
250		- # Get tag
251		- my $tag = $self->tag_processors->{$tag_name}
252		- \|\| $self->tags->{$tag_name};
253		- # Tag is not registered
254		- croak qq{Tag "$tag_name" is not registered } . _subname
255		- unless $tag;
256		- # Tag not sub reference
257		- croak qq{Tag "$tag_name" must be sub reference } . _subname
258		- unless ref $tag eq 'CODE';
259		- # Execute tag
260		- my $r = $tag->(@$tag_args);
261		- # Check tag return value
262		- croak qq{Tag "$tag_name" must return [STRING, ARRAY_REFERENCE] }
263		- . _subname
264		- unless ref $r eq 'ARRAY' && defined $r->[0] && ref $r->[1] eq 'ARRAY';
265		- # Part of SQL statement and colum names
266		- my ($part, $columns) = @$r;
267		- # Add columns
268		- push @$all_columns, @$columns;
269		- # Join part tag to SQL
270		- $sql .= $part;
271		- }
272		- }
273		- # Query
274		- my $query = DBIx::Custom::Query->new(
275		- sql => $sql,
276		- columns => $all_columns,
277		- tables => $tables,
278		- tag_count => $tag_count
279		- );
280		- return $query;
281		-}
282		-
283		-# DEPRECATED!
284		-has tag_processors => sub { {} };
285		-
286		-# DEPRECATED!
287		-sub register_tag_processor {
288		- my $self = shift;
289		- warn "register_tag_processor is DEPRECATED!";
290		- # Merge tag
291		- my $tag_processors = ref $_[0] eq 'HASH' ? $_[0] : {@_};
292		- $self->tag_processors({%{$self->tag_processors}, %{$tag_processors}});
293		- return $self;
294		-}
295		-
296		-1;
297		-
298		-=head1 NAME
299		-
300		-DBIx::Custom::QueryBuilder - Query builder
301		-
302		-=head1 SYNOPSIS
303		-
304		- my $builder = DBIx::Custom::QueryBuilder->new;
305		- my $query = $builder->build_query(
306		- "select from table title = :title and author = :author"
307		- );
308		-
309		-=head1 ATTRIBUTES
310		-
311		-=head2 C<dbi>
312		-
313		- my $dbi = $builder->dbi;
314		- $builder = $builder->dbi($dbi);
315		-
316		-L<DBIx::Custom> object.
317		-
318		-=head1 METHODS
319		-
320		-L<DBIx::Custom::QueryBuilder> inherits all methods from L<Object::Simple>
321		-and implements the following new ones.
322		-
323		-=head2 C<build_query>
324		-
325		- my $query = $builder->build_query($source);
326		-
327		-Create a new L<DBIx::Custom::Query> object from SQL source.
328		-
329		-=cut

...	...	@@ -1,41 +0,0 @@
1		-package DBIx::Custom::Util;
2		-
3		-use strict;
4		-use warnings;
5		-
6		-use base 'Exporter';
7		-
8		-our @EXPORT_OK = qw/_array_to_hash _subname/;
9		-
10		-sub _array_to_hash {
11		- my $array = shift;
12		-
13		- return $array if ref $array eq 'HASH';
14		- return unless $array;
15		-
16		- my $hash = {};
17		-
18		- for (my $i = 0; $i < @$array; $i += 2) {
19		- my $key = $array->[$i];
20		- my $f = $array->[$i + 1];
21		-
22		- if (ref $key eq 'ARRAY') {
23		- foreach my $k (@$key) {
24		- $hash->{$k} = $f;
25		- }
26		- }
27		- else {
28		- $hash->{$key} = $f;
29		- }
30		- }
31		- return $hash;
32		-}
33		-
34		-sub _subname { '(' . (caller 1)[3] . ')' }
35		-
36		-1;
37		-
38		-=head1 NAME
39		-
40		-DBIx::Custom::Util - Utility class
41		-

...	...	@@ -1,11 +0,0 @@
1		-# Change quote for tests
2		-use DBIx::Custom;
3		-{
4		- package DBIx::Custom;
5		- no warnings 'redefine';
6		- sub quote { '""' }
7		-}
8		-
9		-use FindBin;
10		-
11		-require "$FindBin::Bin/basic.t";

...	...	@@ -1,19 +0,0 @@
1		-package MyDBI1;
2		-
3		-use strict;
4		-use warnings;
5		-
6		-use base 'DBIx::Custom';
7		-
8		-sub connect {
9		- my $self = shift->SUPER::connect(@_);
10		-
11		- $self->include_model(
12		- MyModel1 => [
13		- 'book',
14		- {class => 'Company', name => 'company'}
15		- ]
16		- );
17		-}
18		-
19		-1;

...	...	@@ -1,13 +0,0 @@
1		-package MyModel1::book;
2		-
3		-use DBIx::Custom::Model -base;
4		-
5		-sub insert {
6		- my ($self, $param) = @_;
7		-
8		- return $self->SUPER::insert(param => $param);
9		-}
10		-
11		-sub list { shift->select; }
12		-
13		-1;

...	...	@@ -1,8 +0,0 @@
1		-package MyModel4::company;
2		-
3		-use base 'MyModel4';
4		-
5		-sub insert { shift->SUPER::insert(param => $_[0]) }
6		-sub list { shift->select }
7		-
8		-1;

...	...	@@ -1,5 +0,0 @@
1		-package MyModel5;
2		-
3		-use base 'DBIx::Custom::Model';
4		-
5		-1;

...	...	@@ -1,7 +0,0 @@
1		-package MyModel5::table1;
2		-
3		-use MyModel5 -base;
4		-
5		-has primary_key => sub { ['key1', 'key2'] };
6		-
7		-1;

...	...	@@ -1,12 +0,0 @@
1		-package MyModel5::table1_1;
2		-
3		-use strict;
4		-use warnings;
5		-
6		-use base 'MyModel5';
7		-
8		-__PACKAGE__->attr(table => 'table2');
9		-
10		-__PACKAGE__->attr('primary_key' => sub { ['key1', 'key2'] });
11		-
12		-1;

...	...	@@ -1,5 +0,0 @@
1		-package MyModel6;
2		-
3		-use base 'DBIx::Custom::Model';
4		-
5		-1;

...	...	@@ -1,14 +0,0 @@
1		-package MyModel6::table1;
2		-
3		-use base 'MyModel6';
4		-
5		-__PACKAGE__->attr(
6		- join => sub {
7		- [
8		- 'left outer join table2 on table1.key1 = table2.key1'
9		- ]
10		- },
11		- primary_key => sub { ['key1'] }
12		-);
13		-
14		-1;

...	...	@@ -1,5 +0,0 @@
1		-package MyModel7;
2		-
3		-use base 'DBIx::Custom::Model';
4		-
5		-1;

...	...	@@ -1,14 +0,0 @@
1		-package MyModel7::table1;
2		-
3		-use base 'MyModel7';
4		-
5		-__PACKAGE__->attr(
6		- primary_key => sub { ['key1'] },
7		- join => sub {
8		- [
9		- 'left outer join table2 on table1.key1 = table2.key1'
10		- ]
11		- },
12		-);
13		-
14		-1;

...	...	@@ -1,5 +0,0 @@
1		-package MyModel7::table2;
2		-
3		-use base 'MyModel7';
4		-
5		-1;

...	...	@@ -1,22 +0,0 @@
1		-use strict;
2		-use warnings;
3		-use ExtUtils::MakeMaker;
4		-
5		-WriteMakefile(
6		- NAME => 'DBIx::Custom',
7		- AUTHOR => 'Yuki Kimoto <kimoto.yuki@gmail.com>',
8		- VERSION_FROM => 'lib/DBIx/Custom.pm',
9		- ABSTRACT_FROM => 'lib/DBIx/Custom.pm',
10		- ($ExtUtils::MakeMaker::VERSION >= 6.3002
11		- ? ('LICENSE'=> 'perl')
12		- : ()),
13		- PL_FILES => {},
14		- PREREQ_PM => {
15		- 'Test::More' => 0,
16		- 'Object::Simple' => 3.0621,
17		- 'DBD::SQLite' => '1.25',
18		- 'DBI' => '1.605'
19		- },
20		- dist => { COMPRESS => 'gzip -9f', SUFFIX => 'gz', },
21		- clean => { FILES => 'DBIx-Custom-*' },
22		-);

...	...	@@ -1,15 +0,0 @@
1		-DBIx-Custom
2		-
3		-DBI interface, having hash parameter binding and filtering system
4		-
5		-INSTALLATION
6		-
7		-cpan DBIx::Custom
8		-
9		-COPYRIGHT AND LICENCE
10		-
11		-Copyright (C) 2009 Yuki Kimoto
12		-
13		-This program is free software; you can redistribute it and/or modify it
14		-under the same terms as Perl itself.
15		-

...	...	@@ -1,247 +0,0 @@
1		-package DBIx::Custom::Model;
2		-use Object::Simple -base;
3		-
4		-use Carp 'croak';
5		-use DBIx::Custom::Util '_subname';
6		-
7		-# Carp trust relationship
8		-push @DBIx::Custom::CARP_NOT, __PACKAGE__;
9		-
10		-has [qw/dbi table/],
11		- bind_type => sub { [] },
12		- columns => sub { [] },
13		- join => sub { [] },
14		- primary_key => sub { [] };
15		-
16		-our $AUTOLOAD;
17		-
18		-sub AUTOLOAD {
19		- my $self = shift;
20		-
21		- # Method name
22		- my ($package, $mname) = $AUTOLOAD =~ /^([\w\:]+)\:\:(\w+)$/;
23		-
24		- # Method
25		- $self->{_methods} \|\|= {};
26		- if (my $method = $self->{_methods}->{$mname}) {
27		- return $self->$method(@_)
28		- }
29		- elsif (my $dbi_method = $self->dbi->can($mname)) {
30		- $self->dbi->$dbi_method(@_);
31		- }
32		- elsif ($self->{dbh} && (my $dbh_method = $self->dbh->can($mname))) {
33		- $self->dbi->dbh->$dbh_method(@_);
34		- }
35		- else {
36		- croak qq{Can't locate object method "$mname" via "$package" }
37		- . _subname;
38		- }
39		-}
40		-
41		-my @methods = qw/insert insert_at update update_at update_all
42		- delete delete_at delete_all select select_at/;
43		-foreach my $method (@methods) {
44		-
45		- my $code = sub {
46		- my $self = shift;
47		-
48		- my @args = (
49		- table => $self->table,
50		- bind_type => $self->bind_type,
51		- primary_key => $self->primary_key,
52		- type => $self->type, # DEPRECATED!
53		- );
54		- push @args, (join => $self->join) if $method =~ /^select/;
55		- unshift @args, shift if @_ % 2;
56		-
57		- $self->dbi->$method(@args, @_);
58		- };
59		-
60		- no strict 'refs';
61		- my $class = __PACKAGE__;
62		- *{"${class}::$method"} = $code;
63		-}
64		-
65		-sub DESTROY { }
66		-
67		-sub method {
68		- my $self = shift;
69		-
70		- # Merge
71		- my $methods = ref $_[0] eq 'HASH' ? $_[0] : {@_};
72		- $self->{_methods} = {%{$self->{_methods} \|\| {}}, %$methods};
73		-
74		- return $self;
75		-}
76		-
77		-sub mycolumn {
78		- my $self = shift;
79		- my $table = shift unless ref $_[0];
80		- my $columns = shift;
81		-
82		- $table \|\|= $self->table \|\| '';
83		- $columns \|\|= $self->columns;
84		-
85		- return $self->dbi->mycolumn($table, $columns);
86		-}
87		-
88		-sub new {
89		- my $self = shift->SUPER::new(@_);
90		-
91		- # Check attribute names
92		- my @attrs = keys %$self;
93		- foreach my $attr (@attrs) {
94		- croak qq{"$attr" is invalid attribute name } . _subname
95		- unless $self->can($attr);
96		- }
97		-
98		- return $self;
99		-}
100		-
101		-# DEPRECATED!
102		-has 'filter';
103		-has 'name';
104		-has type => sub { [] };
105		-
106		-1;
107		-
108		-=head1 NAME
109		-
110		-DBIx::Custom::Model - Model
111		-
112		-=head1 SYNOPSIS
113		-
114		-use DBIx::Custom::Table;
115		-
116		-my $table = DBIx::Custom::Model->new(table => 'books');
117		-
118		-=head1 ATTRIBUTES
119		-
120		-=head2 C<dbi>
121		-
122		- my $dbi = $model->dbi;
123		- $model = $model->dbi($dbi);
124		-
125		-L<DBIx::Custom> object.
126		-
127		-=head2 C<join>
128		-
129		- my $join = $model->join;
130		- $model = $model->join(
131		- ['left outer join company on book.company_id = company.id']
132		- );
133		-
134		-Join clause, this value is passed to C<select> method.
135		-
136		-=head2 C<primary_key>
137		-
138		- my $primary_key = $model->primary_key;
139		- $model = $model->primary_key(['id', 'number']);
140		-
141		-Primary key,this is passed to C<insert>, C<update>,
142		-C<delete>, and C<select> method.
143		-
144		-=head2 C<table>
145		-
146		- my $table = $model->table;
147		- $model = $model->table('book');
148		-
149		-Table name, this is passed to C<select> method.
150		-
151		-=head2 C<bind_type>
152		-
153		- my $type = $model->bind_type;
154		- $model = $model->bind_type(['image' => DBI::SQL_BLOB]);
155		-
156		-Database data type, this is used as type optioon of C<insert>,
157		-C<update>, C<update_all>, C<delete>, C<delete_all>,
158		-C<select>, and C<execute> method
159		-
160		-=head1 METHODS
161		-
162		-L<DBIx::Custom::Model> inherits all methods from L<Object::Simple>,
163		-and you can use all methods of L<DBIx::Custom> and L<DBI>
164		-and implements the following new ones.
165		-
166		-=head2 C<delete>
167		-
168		- $table->delete(...);
169		-
170		-Same as C<delete> of L<DBIx::Custom> except that
171		-you don't have to specify C<table> option.
172		-
173		-=head2 C<delete_all>
174		-
175		- $table->delete_all(...);
176		-
177		-Same as C<delete_all> of L<DBIx::Custom> except that
178		-you don't have to specify C<table> option.
179		-
180		-=head2 C<insert>
181		-
182		- $table->insert(...);
183		-
184		-Same as C<insert> of L<DBIx::Custom> except that
185		-you don't have to specify C<table> option.
186		-
187		-=head2 C<method>
188		-
189		- $model->method(
190		- update_or_insert => sub {
191		- my $self = shift;
192		-
193		- # ...
194		- },
195		- find_or_create => sub {
196		- my $self = shift;
197		-
198		- # ...
199		- );
200		-
201		-Register method. These method is called directly from L<DBIx::Custom::Model> object.
202		-
203		- $model->update_or_insert;
204		- $model->find_or_create;
205		-
206		-=head2 C<mycolumn>
207		-
208		- my $column = $self->mycolumn;
209		- my $column = $self->mycolumn(book => ['author', 'title']);
210		- my $column = $self->mycolumn(['author', 'title']);
211		-
212		-Create column clause for myself. The follwoing column clause is created.
213		-
214		- book.author as author,
215		- book.title as title
216		-
217		-If table name is ommited, C<table> attribute of the model is used.
218		-If column names is omitted, C<columns> attribute of the model is used.
219		-
220		-=head2 C<new>
221		-
222		- my $table = DBIx::Custom::Table->new;
223		-
224		-Create a L<DBIx::Custom::Table> object.
225		-
226		-=head2 C<select>
227		-
228		- $table->select(...);
229		-
230		-Same as C<select> of L<DBIx::Custom> except that
231		-you don't have to specify C<table> option.
232		-
233		-=head2 C<update>
234		-
235		- $table->update(...);
236		-
237		-Same as C<update> of L<DBIx::Custom> except that
238		-you don't have to specify C<table> option.
239		-
240		-=head2 C<update_all>
241		-
242		- $table->update_all(param => \%param);
243		-
244		-Same as C<update_all> of L<DBIx::Custom> except that
245		-you don't have to specify table name.
246		-
247		-=cut

...	...	@@ -1,108 +0,0 @@
1		-package DBIx::Custom::Order;
2		-use Object::Simple -base;
3		-use overload
4		- 'bool' => sub {1},
5		- '""' => sub { shift->to_string },
6		- fallback => 1;
7		-
8		-has 'dbi',
9		- orders => sub { [] };
10		-
11		-sub prepend {
12		- my $self = shift;
13		-
14		- foreach my $order (reverse @_) {
15		- if (ref $order eq 'ARRAY') {
16		- my $column = shift @$order;
17		- $column = $self->dbi->_q($column) if defined $column;
18		- my $derection = shift @$order;
19		- $order = $column;
20		- $order .= " $derection" if $derection;
21		- }
22		- unshift @{$self->orders}, $order;
23		- }
24		-
25		- return $self;
26		-}
27		-
28		-sub to_string {
29		- my $self = shift;
30		-
31		- my $exists = {};
32		- my @orders;
33		- foreach my $order (@{$self->orders}) {
34		- next unless defined $order;
35		- $order =~ s/^\s+//;
36		- $order =~ s/\s+$//;
37		- my ($column, $direction) = split /\s+/, $order;
38		- push @orders, $order unless $exists->{$column};
39		- $exists->{$column} = 1;
40		- }
41		-
42		- return '' unless @orders;
43		- return 'order by ' . join(', ', @orders);
44		-}
45		-
46		-1;
47		-
48		-=head1 NAME
49		-
50		-DBIx::Custom::Order - Order by EXPERIMENTAL
51		-
52		-=head1 SYNOPSIS
53		-
54		- # Result
55		- my $order = DBIx::Custom::Order->new;
56		- $order->prepend('title', 'author desc');
57		- my $order_by = "$order";
58		-
59		-=head1 ATTRIBUTES
60		-
61		-=head2 C<dbi>
62		-
63		- my $dbi = $order->dbi;
64		- $order = $order->dbi($dbi);
65		-
66		-L<DBIx::Custom> object.
67		-
68		-=head2 C<orders>
69		-
70		- my $orders = $result->orders;
71		- $result = $result->orders(\%orders);
72		-
73		-Parts of order by clause
74		-
75		-=head1 METHODS
76		-
77		-L<DBIx::Custom::Result> inherits all methods from L<Object::Simple>
78		-and implements the following new ones.
79		-
80		-=head2 C<prepend>
81		-
82		- $order->prepend('title', 'author desc');
83		-
84		-Prepend order parts to C<orders>.
85		-
86		-You can pass array reference, which contain column name and direction.
87		-Column name is quoted properly
88		-
89		- # Column name and direction
90		- $order->prepend(['book-title']);
91		- $order->prepend([qw/book-title desc/]);
92		-
93		-This is expanded to the following way.
94		-
95		- "book-title"
96		- "book-title" desc
97		-
98		-=head2 C<to_string>
99		-
100		- my $order_by = $order->to_string;
101		-
102		-Create order by clause. If column name is duplicated, First one is used.
103		-C<to_string> override stringification. so you can write the follwoing way.
104		-
105		- my $order_by = "$order";
106		-
107		-=cut
108		-

...	...	@@ -1,573 +0,0 @@
1		-package DBIx::Custom::Result;
2		-use Object::Simple -base;
3		-
4		-use Carp 'croak';
5		-use DBIx::Custom::Util qw/_array_to_hash _subname/;
6		-
7		-has [qw/dbi sth/],
8		- stash => sub { {} };
9		-
10		-*all = \&fetch_hash_all;
11		-
12		-sub filter {
13		- my $self = shift;
14		-
15		- # Set
16		- if (@_) {
17		-
18		- # Convert filter name to subroutine
19		- my $filter = @_ == 1 ? $_[0] : [@_];
20		- $filter = _array_to_hash($filter);
21		- foreach my $column (keys %$filter) {
22		- my $fname = $filter->{$column};
23		- if (exists $filter->{$column}
24		- && defined $fname
25		- && ref $fname ne 'CODE')
26		- {
27		- croak qq{Filter "$fname" is not registered" } . _subname
28		- unless exists $self->dbi->filters->{$fname};
29		- $filter->{$column} = $self->dbi->filters->{$fname};
30		- }
31		- }
32		-
33		- # Merge
34		- $self->{filter} = {%{$self->filter}, %$filter};
35		-
36		- return $self;
37		- }
38		-
39		- return $self->{filter} \|\|= {};
40		-}
41		-
42		-sub filter_off {
43		- my $self = shift;
44		- $self->{filter_off} = 1;
45		- return $self;
46		-}
47		-
48		-sub filter_on {
49		- my $self = shift;
50		- $self->{filter_off} = 0;
51		- return $self;
52		-}
53		-
54		-sub fetch {
55		- my $self = shift;
56		-
57		- # Info
58		- my $columns = $self->{sth}->{NAME};
59		- my $types = $self->{sth}->{TYPE};
60		-
61		- # Fetch
62		- my @row = $self->{sth}->fetchrow_array;
63		- return unless @row;
64		-
65		- # Filtering
66		- my $type_rule1 = $self->type_rule->{from1} \|\| {};
67		- my $type_rule2 = $self->type_rule->{from2} \|\| {};
68		- my $filter = $self->filter;
69		- my $end_filter = $self->{end_filter} \|\| {};
70		- for (my $i = 0; $i < @$columns; $i++) {
71		-
72		- # Column
73		- my $column = $columns->[$i];
74		-
75		- # Type rule
76		- my $type_filter1 = $type_rule1->{lc($types->[$i])};
77		- $row[$i] = $type_filter1->($row[$i])
78		- if $type_filter1 && !$self->{type_rule_off}
79		- && !$self->{type_rule1_off};
80		- my $type_filter2 = $type_rule2->{lc($types->[$i])};
81		- $row[$i] = $type_filter2->($row[$i])
82		- if $type_filter2 && !$self->{type_rule_off}
83		- && !$self->{type_rule2_off};
84		-
85		- # Filter
86		- my $filter = $filter->{$column} \|\| $self->{default_filter};
87		- $row[$i] = $filter->($row[$i])
88		- if $filter && !$self->{filter_off};
89		- $row[$i] = $end_filter->{$column}->($row[$i])
90		- if $end_filter->{$column} && !$self->{filter_off};
91		- }
92		-
93		- return \@row;
94		-}
95		-
96		-sub fetch_all {
97		- my $self = shift;
98		-
99		- # Fetch all rows
100		- my $rows = [];
101		- while(my $row = $self->fetch) { push @$rows, $row}
102		-
103		- return $rows;
104		-}
105		-
106		-sub fetch_first {
107		- my $self = shift;
108		-
109		- # Fetch
110		- my $row = $self->fetch;
111		- return unless $row;
112		-
113		- # Finish statement handle
114		- $self->sth->finish;
115		-
116		- return $row;
117		-}
118		-
119		-sub fetch_hash {
120		- my $self = shift;
121		-
122		- # Info
123		- my $columns = $self->{sth}->{NAME};
124		- my $types = $self->{sth}->{TYPE};
125		-
126		- # Fetch
127		- my $row = $self->{sth}->fetchrow_arrayref;
128		- return unless $row;
129		-
130		- # Filter
131		- my $hash_row = {};
132		- my $filter = $self->filter;
133		- my $end_filter = $self->{end_filter} \|\| {};
134		- my $type_rule1 = $self->type_rule->{from1} \|\| {};
135		- my $type_rule2 = $self->type_rule->{from2} \|\| {};
136		- for (my $i = 0; $i < @$columns; $i++) {
137		-
138		- # Column
139		- my $column = $columns->[$i];
140		- $hash_row->{$column} = $row->[$i];
141		-
142		- # Type rule
143		- my $type_filter1 = $type_rule1->{lc($types->[$i])};
144		- $hash_row->{$column} = $type_filter1->($hash_row->{$column})
145		- if !$self->{type_rule_off} && !$self->{type_rule1_off}
146		- && $type_filter1;
147		- my $type_filter2 = $type_rule2->{lc($types->[$i])};
148		- $hash_row->{$column} = $type_filter2->($hash_row->{$column})
149		- if !$self->{type_rule_off} && !$self->{type_rule2_off}
150		- && $type_filter2;
151		-
152		- # Filter
153		- my $f = $filter->{$column} \|\| $self->{default_filter};
154		- $hash_row->{$column} = $f->($hash_row->{$column})
155		- if $f && !$self->{filter_off};
156		- $hash_row->{$column} = $end_filter->{$column}->($hash_row->{$column})
157		- if $end_filter->{$column} && !$self->{filter_off};
158		- }
159		-
160		- return $hash_row;
161		-}
162		-
163		-sub fetch_hash_all {
164		- my $self = shift;
165		-
166		- # Fetch all rows as hash
167		- my $rows = [];
168		- while(my $row = $self->fetch_hash) { push @$rows, $row }
169		-
170		- return $rows;
171		-}
172		-
173		-sub fetch_hash_first {
174		- my $self = shift;
175		-
176		- # Fetch hash
177		- my $row = $self->fetch_hash;
178		- return unless $row;
179		-
180		- # Finish statement handle
181		- $self->sth->finish;
182		-
183		- return $row;
184		-}
185		-
186		-sub fetch_hash_multi {
187		- my ($self, $count) = @_;
188		-
189		- # Fetch multiple rows
190		- croak 'Row count must be specified ' . _subname
191		- unless $count;
192		- my $rows = [];
193		- for (my $i = 0; $i < $count; $i++) {
194		- my $row = $self->fetch_hash;
195		- last unless $row;
196		- push @$rows, $row;
197		- }
198		-
199		- return unless @$rows;
200		- return $rows;
201		-}
202		-
203		-sub fetch_multi {
204		- my ($self, $count) = @_;
205		-
206		- # Row count not specifed
207		- croak 'Row count must be specified ' . _subname
208		- unless $count;
209		-
210		- # Fetch multi rows
211		- my $rows = [];
212		- for (my $i = 0; $i < $count; $i++) {
213		- my $row = $self->fetch;
214		- last unless $row;
215		- push @$rows, $row;
216		- }
217		-
218		- return unless @$rows;
219		- return $rows;
220		-}
221		-
222		-sub header { shift->sth->{NAME} }
223		-
224		-*one = \&fetch_hash_first;
225		-
226		-sub type_rule {
227		- my $self = shift;
228		-
229		- if (@_) {
230		- my $type_rule = ref $_[0] eq 'HASH' ? $_[0] : {@_};
231		-
232		- # From
233		- foreach my $i (1 .. 2) {
234		- $type_rule->{"from$i"} = _array_to_hash($type_rule->{"from$i"});
235		- foreach my $data_type (keys %{$type_rule->{"from$i"} \|\| {}}) {
236		- croak qq{data type of from$i section must be lower case or number}
237		- if $data_type =~ /[A-Z]/;
238		- my $fname = $type_rule->{"from$i"}{$data_type};
239		- if (defined $fname && ref $fname ne 'CODE') {
240		- croak qq{Filter "$fname" is not registered" } . _subname
241		- unless exists $self->dbi->filters->{$fname};
242		-
243		- $type_rule->{"from$i"}{$data_type} = $self->dbi->filters->{$fname};
244		- }
245		- }
246		- }
247		- $self->{type_rule} = $type_rule;
248		-
249		- return $self;
250		- }
251		-
252		- return $self->{type_rule} \|\| {};
253		-}
254		-
255		-sub type_rule_off {
256		- my $self = shift;
257		- $self->{type_rule_off} = 1;
258		- return $self;
259		-}
260		-
261		-sub type_rule_on {
262		- my $self = shift;
263		- $self->{type_rule_off} = 0;
264		- return $self;
265		-}
266		-
267		-sub type_rule1_off {
268		- my $self = shift;
269		- $self->{type_rule1_off} = 1;
270		- return $self;
271		-}
272		-
273		-sub type_rule1_on {
274		- my $self = shift;
275		- $self->{type_rule1_off} = 0;
276		- return $self;
277		-}
278		-
279		-sub type_rule2_off {
280		- my $self = shift;
281		- $self->{type_rule2_off} = 1;
282		- return $self;
283		-}
284		-
285		-sub type_rule2_on {
286		- my $self = shift;
287		- $self->{type_rule2_off} = 0;
288		- return $self;
289		-}
290		-
291		-# DEPRECATED!
292		-sub end_filter {
293		- warn "end_filter method is DEPRECATED!";
294		- my $self = shift;
295		- if (@_) {
296		- my $end_filter = {};
297		- if (ref $_[0] eq 'HASH') { $end_filter = $_[0] }
298		- else {
299		- $end_filter = _array_to_hash(
300		- @_ > 1 ? [@_] : $_[0]
301		- );
302		- }
303		- foreach my $column (keys %$end_filter) {
304		- my $fname = $end_filter->{$column};
305		- if (exists $end_filter->{$column}
306		- && defined $fname
307		- && ref $fname ne 'CODE')
308		- {
309		- croak qq{Filter "$fname" is not registered" } . _subname
310		- unless exists $self->dbi->filters->{$fname};
311		- $end_filter->{$column} = $self->dbi->filters->{$fname};
312		- }
313		- }
314		- $self->{end_filter} = {%{$self->end_filter}, %$end_filter};
315		- return $self;
316		- }
317		- return $self->{end_filter} \|\|= {};
318		-}
319		-# DEPRECATED!
320		-sub remove_end_filter {
321		- warn "remove_end_filter is DEPRECATED!";
322		- my $self = shift;
323		- $self->{end_filter} = {};
324		- return $self;
325		-}
326		-# DEPRECATED!
327		-sub remove_filter {
328		- warn "remove_filter is DEPRECATED!";
329		- my $self = shift;
330		- $self->{filter} = {};
331		- return $self;
332		-}
333		-# DEPRECATED!
334		-sub default_filter {
335		- warn "default_filter is DEPRECATED!";
336		- my $self = shift;
337		- if (@_) {
338		- my $fname = $_[0];
339		- if (@_ && !$fname) {
340		- $self->{default_filter} = undef;
341		- }
342		- else {
343		- croak qq{Filter "$fname" is not registered}
344		- unless exists $self->dbi->filters->{$fname};
345		- $self->{default_filter} = $self->dbi->filters->{$fname};
346		- }
347		- return $self;
348		- }
349		- return $self->{default_filter};
350		-}
351		-# DEPRECATED!
352		-has 'filter_check';
353		-
354		-1;
355		-
356		-=head1 NAME
357		-
358		-DBIx::Custom::Result - Result of select statement
359		-
360		-=head1 SYNOPSIS
361		-
362		- # Result
363		- my $result = $dbi->select(table => 'book');
364		-
365		- # Fetch a row and put it into array reference
366		- while (my $row = $result->fetch) {
367		- my $author = $row->[0];
368		- my $title = $row->[1];
369		- }
370		-
371		- # Fetch only a first row and put it into array reference
372		- my $row = $result->fetch_first;
373		-
374		- # Fetch all rows and put them into array of array reference
375		- my $rows = $result->fetch_all;
376		-
377		- # Fetch a row and put it into hash reference
378		- while (my $row = $result->fetch_hash) {
379		- my $title = $row->{title};
380		- my $author = $row->{author};
381		- }
382		-
383		- # Fetch only a first row and put it into hash reference
384		- my $row = $result->fetch_hash_first;
385		- my $row = $result->one; # Same as fetch_hash_first
386		-
387		- # Fetch all rows and put them into array of hash reference
388		- my $rows = $result->fetch_hash_all;
389		- my $rows = $result->all; # Same as fetch_hash_all
390		-
391		-=head1 ATTRIBUTES
392		-
393		-=head2 C<dbi>
394		-
395		- my $dbi = $result->dbi;
396		- $result = $result->dbi($dbi);
397		-
398		-L<DBIx::Custom> object.
399		-
400		-=head2 C<sth>
401		-
402		- my $sth = $reuslt->sth
403		- $result = $result->sth($sth);
404		-
405		-Statement handle of L<DBI>.
406		-
407		-=head1 METHODS
408		-
409		-L<DBIx::Custom::Result> inherits all methods from L<Object::Simple>
410		-and implements the following new ones.
411		-
412		-=head2 C<all>
413		-
414		- my $rows = $result->all;
415		-
416		-Same as C<fetch_hash_all>.
417		-
418		-=head2 C<fetch>
419		-
420		- my $row = $result->fetch;
421		-
422		-Fetch a row and put it into array reference.
423		-
424		-=head2 C<fetch_all>
425		-
426		- my $rows = $result->fetch_all;
427		-
428		-Fetch all rows and put them into array of array reference.
429		-
430		-=head2 C<fetch_first>
431		-
432		- my $row = $result->fetch_first;
433		-
434		-Fetch only a first row and put it into array reference,
435		-and finish statment handle.
436		-
437		-=head2 C<fetch_hash>
438		-
439		- my $row = $result->fetch_hash;
440		-
441		-Fetch a row and put it into hash reference.
442		-
443		-=head2 C<fetch_hash_all>
444		-
445		- my $rows = $result->fetch_hash_all;
446		-
447		-Fetch all rows and put them into array of hash reference.
448		-
449		-=head2 C<fetch_hash_first>
450		-
451		- my $row = $result->fetch_hash_first;
452		-
453		-Fetch only a first row and put it into hash reference,
454		-and finish statment handle.
455		-
456		-=head2 C<fetch_hash_multi>
457		-
458		- my $rows = $result->fetch_hash_multi(5);
459		-
460		-Fetch multiple rows and put them into array of hash reference.
461		-
462		-=head2 C<fetch_multi>
463		-
464		- my $rows = $result->fetch_multi(5);
465		-
466		-Fetch multiple rows and put them into array of array reference.
467		-
468		-=head2 C<filter>
469		-
470		- $result->filter(title => sub { uc $_[0] }, author => 'to_upper');
471		- $result->filter([qw/title author/] => 'to_upper');
472		-
473		-Set filter for column.
474		-You can use subroutine or filter name as filter.
475		-This filter is executed after C<type_rule> filter.
476		-
477		-=head2 C<filter_off> EXPERIMENTAL
478		-
479		- $result = $result->filter_off;
480		-
481		-Turn filtering by C<filter> method off.
482		-By default, filterin is on.
483		-
484		-=head2 C<filter_on> EXPERIMENTAL
485		-
486		- $result = $resutl->filter_on;
487		-
488		-Turn filtering by C<filter> method on.
489		-By default, filterin is on.
490		-
491		-=head2 C<header>
492		-
493		- my $header = $result->header;
494		-
495		-Get header column names.
496		-
497		-=head2 C<one>
498		-
499		- my $row = $result->one;
500		-
501		-Same as C<fetch_hash_first>.
502		-
503		-=head2 C<stash>
504		-
505		- my $stash = $result->stash;
506		- my $foo = $result->stash->{foo};
507		- $result->stash->{foo} = $foo;
508		-
509		-Stash is hash reference for data.
510		-
511		-=head2 C<type_rule> EXPERIMENTAL
512		-
513		- # Merge type rule
514		- $result->type_rule(
515		- # DATE
516		- 9 => sub { ... },
517		- # DATETIME or TIMESTAMP
518		- 11 => sub { ... }
519		- );
520		-
521		- # Replace type rule(by reference)
522		- $result->type_rule([
523		- # DATE
524		- 9 => sub { ... },
525		- # DATETIME or TIMESTAMP
526		- 11 => sub { ... }
527		- ]);
528		-
529		-This is same as L<DBIx::Custom>'s C<type_rule>'s <from>.
530		-
531		-=head2 C<type_rule_off> EXPERIMENTAL
532		-
533		- $result = $result->type_rule_off;
534		-
535		-Turn C<from1> and C<from2> type rule off.
536		-By default, type rule is on.
537		-
538		-=head2 C<type_rule_on> EXPERIMENTAL
539		-
540		- $result = $result->type_rule_on;
541		-
542		-Turn C<from1> and C<from2> type rule on.
543		-By default, type rule is on.
544		-
545		-=head2 C<type_rule1_off> EXPERIMENTAL
546		-
547		- $result = $result->type_rule1_off;
548		-
549		-Turn C<from1> type rule off.
550		-By default, type rule is on.
551		-
552		-=head2 C<type_rule1_on> EXPERIMENTAL
553		-
554		- $result = $result->type_rule1_on;
555		-
556		-Turn C<from1> type rule on.
557		-By default, type rule is on.
558		-
559		-=head2 C<type_rule2_off> EXPERIMENTAL
560		-
561		- $result = $result->type_rule2_off;
562		-
563		-Turn C<from2> type rule off.
564		-By default, type rule is on.
565		-
566		-=head2 C<type_rule2_on> EXPERIMENTAL
567		-
568		- $result = $result->type_rule2_on;
569		-
570		-Turn C<from2> type rule on.
571		-By default, type rule is on.
572		-
573		-=cut

...	...	@@ -1,98 +0,0 @@
1		-package DBIx::Custom::Tag;
2		-
3		-use strict;
4		-use warnings;
5		-
6		-use Carp 'croak';
7		-use DBIx::Custom::Util '_subname';
8		-
9		-# Carp trust relationship
10		-push @DBIx::Custom::QueryBuilder::CARP_NOT, __PACKAGE__;
11		-
12		-sub equal { _basic('=', @_) }
13		-sub greater_than_equal { _basic('>=', @_) }
14		-sub greater_than { _basic('>', @_) }
15		-
16		-sub in {
17		- my ($column, $count) = @_;
18		-
19		- # Check arguments
20		- croak qq{Column name and count of values must be specified in tag "{in }" }
21		- . _subname
22		- unless $column && $count && $count =~ /^\d+$/;
23		-
24		- # Part of statement
25		- my $s = "$column in (";
26		- for (my $i = 0; $i < $count; $i++) {
27		- $s .= '?, ';
28		- }
29		- $s =~ s/, $//;
30		- $s .= ')';
31		-
32		- # Columns
33		- my $columns = [];
34		- push @$columns, $column for (0 .. $count - 1);
35		-
36		- return [$s, $columns];
37		-}
38		-
39		-sub insert_param {
40		- my @columns = @_;
41		-
42		- # Insert parameters
43		- my $s = '(';
44		- $s .= "$_, " for @columns;
45		- $s =~ s/, $//;
46		- $s .= ') ';
47		- $s .= 'values (';
48		- $s .= "?, " for @columns;
49		- $s =~ s/, $//;
50		- $s .= ')';
51		-
52		- return [$s, \@columns];
53		-}
54		-
55		-sub like { _basic('like', @_) }
56		-sub lower_than_equal { _basic('<=', @_) }
57		-sub lower_than { _basic('<', @_) }
58		-sub not_equal { _basic('<>', @_) }
59		-
60		-sub placeholder {
61		- my $column = shift;
62		-
63		- # Check arguments
64		- croak qq{Column name must be specified in tag "{? }" } . _subname
65		- unless $column;
66		-
67		- return ['?', [$column]];
68		-}
69		-
70		-sub update_param {
71		- my @columns = @_;
72		-
73		- # Update parameters
74		- my $s = 'set ';
75		- $s .= "$_ = ?, " for @columns;
76		- $s =~ s/, $//;
77		-
78		- return [$s, \@columns];
79		-}
80		-
81		-sub _basic {
82		- my ($name, $column) = @_;
83		-
84		- # Check arguments
85		- croak qq{Column name must be specified in tag "{$name }" } . _subname
86		- unless $column;
87		-
88		- return ["$column $name ?", [$column]];
89		-}
90		-
91		-1;
92		-
93		-=head1 NAME
94		-
95		-DBIx::Custom::Tag - DEPRECATED!
96		-
97		-=cut
98		-

...	...	@@ -1,208 +0,0 @@
1		-package DBIx::Custom::Where;
2		-use Object::Simple -base;
3		-
4		-use Carp 'croak';
5		-use DBIx::Custom::Util '_subname';
6		-use overload 'bool' => sub {1}, fallback => 1;
7		-use overload '""' => sub { shift->to_string }, fallback => 1;
8		-
9		-# Carp trust relationship
10		-push @DBIx::Custom::CARP_NOT, __PACKAGE__;
11		-
12		-has [qw/dbi param/],
13		- clause => sub { [] };
14		-
15		-sub new {
16		- my $self = shift->SUPER::new(@_);
17		-
18		- # Check attribute names
19		- my @attrs = keys %$self;
20		- foreach my $attr (@attrs) {
21		- croak qq{"$attr" is invalid attribute name (} . _subname . ")"
22		- unless $self->can($attr);
23		- }
24		-
25		- return $self;
26		-}
27		-
28		-sub to_string {
29		- my $self = shift;
30		-
31		- # Check if column name is safety character;
32		- my $safety = $self->dbi->safety_character;
33		- if (ref $self->param eq 'HASH') {
34		- foreach my $column (keys %{$self->param}) {
35		- croak qq{"$column" is not safety column name (} . _subname . ")"
36		- unless $column =~ /^[$safety\.]+$/;
37		- }
38		- }
39		- # Clause
40		- my $clause = $self->clause;
41		- $clause = ['and', $clause] unless ref $clause eq 'ARRAY';
42		- $clause->[0] = 'and' unless @$clause;
43		-
44		- # Parse
45		- my $where = [];
46		- my $count = {};
47		- $self->_parse($clause, $where, $count, 'and');
48		-
49		- # Stringify
50		- unshift @$where, 'where' if @$where;
51		- return join(' ', @$where);
52		-}
53		-
54		-our %VALID_OPERATIONS = map { $_ => 1 } qw/and or/;
55		-sub _parse {
56		- my ($self, $clause, $where, $count, $op) = @_;
57		-
58		- # Array
59		- if (ref $clause eq 'ARRAY') {
60		-
61		- # Start
62		- push @$where, '(';
63		-
64		- # Operation
65		- my $op = $clause->[0] \|\| '';
66		- croak qq{First argument must be "and" or "or" in where clause } .
67		- qq{"$op" is passed} . _subname . ")"
68		- unless $VALID_OPERATIONS{$op};
69		-
70		- my $pushed_array;
71		- # Parse internal clause
72		- for (my $i = 1; $i < @$clause; $i++) {
73		- my $pushed = $self->_parse($clause->[$i], $where, $count, $op);
74		- push @$where, $op if $pushed;
75		- $pushed_array = 1 if $pushed;
76		- }
77		- pop @$where if $where->[-1] eq $op;
78		-
79		- # Undo
80		- if ($where->[-1] eq '(') {
81		- pop @$where;
82		- pop @$where if ($where->[-1] \|\| '') eq $op;
83		- }
84		- # End
85		- else { push @$where, ')' }
86		-
87		- return $pushed_array;
88		- }
89		-
90		- # String
91		- else {
92		- # Pushed
93		- my $pushed;
94		-
95		- # Column
96		- my $columns = $self->dbi->query_builder->build_query($clause)->columns;
97		- if (@$columns == 0) {
98		- push @$where, $clause;
99		- $pushed = 1;
100		- return $pushed;
101		- }
102		- elsif (@$columns != 1) {
103		- croak qq{Each part contains one column name: "$clause" (}
104		- . _subname . ")";
105		- }
106		-
107		- # Remove quote
108		- my $column = $columns->[0];
109		- if (my $q = $self->dbi->_quote) {
110		- $q = quotemeta($q);
111		- $column =~ s/[$q]//g;
112		- }
113		-
114		- # Check safety
115		- my $safety = $self->dbi->safety_character;
116		- croak qq{"$column" is not safety column name (} . _subname . ")"
117		- unless $column =~ /^[$safety\.]+$/;
118		-
119		- # Column count up
120		- my $count = ++$count->{$column};
121		-
122		- # Push
123		- my $param = $self->param;
124		- if (ref $param eq 'HASH') {
125		- if (exists $param->{$column}) {
126		- if (ref $param->{$column} eq 'ARRAY') {
127		- $pushed = 1
128		- if exists $param->{$column}->[$count - 1]
129		- && ref $param->{$column}->[$count - 1] ne 'DBIx::Custom::NotExists';
130		- }
131		- elsif ($count == 1) {
132		- $pushed = 1;
133		- }
134		- }
135		- push @$where, $clause if $pushed;
136		- }
137		- elsif (!defined $param) {
138		- push @$where, $clause;
139		- $pushed = 1;
140		- }
141		- else {
142		- croak "Parameter must be hash reference or undfined value ("
143		- . _subname . ")"
144		- }
145		- return $pushed;
146		- }
147		- return;
148		-}
149		-
150		-1;
151		-
152		-=head1 NAME
153		-
154		-DBIx::Custom::Where - Where clause
155		-
156		-=head1 SYNOPSYS
157		-
158		- my $where = DBIx::Custom::Where->new;
159		- my $string_where = "$where";
160		-
161		-=head1 ATTRIBUTES
162		-
163		-=head2 C<clause>
164		-
165		- my $clause = $where->clause;
166		- $where = $where->clause(
167		- ['and',
168		- 'title = :title',
169		- ['or', 'date < :date', 'date > :date']
170		- ]
171		- );
172		-
173		-Where clause. Above one is expanded to the following SQL by to_string
174		-If all parameter names is exists.
175		-
176		- "where ( title = :title and ( date < :date or date > :date ) )"
177		-
178		-=head2 C<param>
179		-
180		- my $param = $where->param;
181		- $where = $where->param({
182		- title => 'Perl',
183		- date => ['2010-11-11', '2011-03-05'],
184		- });
185		-
186		-=head2 C<dbi>
187		-
188		- my $dbi = $where->dbi;
189		- $where = $where->dbi($dbi);
190		-
191		-L<DBIx::Custom> object.
192		-
193		-=head1 METHODS
194		-
195		-L<DBIx::Custom::Where> inherits all methods from L<Object::Simple>
196		-and implements the following new ones.
197		-
198		-=head2 C<to_string>
199		-
200		- $where->to_string;
201		-
202		-Convert where clause to string.
203		-
204		-double quote is override to execute C<to_string> method.
205		-
206		- my $string_where = "$where";
207		-
208		-=cut

...	...	@@ -1,17 +0,0 @@
1		-package MyModel1::Company;
2		-
3		-use strict;
4		-use warnings;
5		-
6		-use base 'DBIx::Custom::Model';
7		-
8		-
9		-sub insert {
10		- my ($self, $param) = @_;
11		-
12		- return $self->SUPER::insert(param => $param);
13		-}
14		-
15		-sub list { shift->select; }
16		-
17		-1;

...	...	@@ -1,5 +0,0 @@
1		-package MyModel4;
2		-
3		-use base 'DBIx::Custom::Model';
4		-
5		-1;

...	...	@@ -1,9 +0,0 @@
1		-package MyModel4::book;
2		-
3		-use base 'MyModel4';
4		-
5		-sub table { 'table1' }
6		-
7		-sub list { shift->select }
8		-
9		-1;

...	...	@@ -1,13 +0,0 @@
1		-package MyModel5::table1_2;
2		-
3		-use strict;
4		-use warnings;
5		-
6		-use base 'MyModel5';
7		-
8		-__PACKAGE__->attr(name => 'table1_3');
9		-__PACKAGE__->attr(table => 'table3');
10		-
11		-__PACKAGE__->attr('primary_key' => sub { ['key1', 'key2'] });
12		-
13		-1;

...	...	@@ -1,5 +0,0 @@
1		-package MyModel6::table2;
2		-
3		-use base 'MyModel6';
4		-
5		-1;

...	...	@@ -1,11 +0,0 @@
1		-package MyModel6::table3;
2		-
3		-use base 'MyModel6';
4		-
5		-__PACKAGE__->attr(filter => sub {
6		- [
7		- key1 => {in => sub { uc $_[0] }}
8		- ]
9		-});
10		-
11		-1;

...	...	@@ -1,7 +0,0 @@
1		-package MyModel8::table1;
2		-use MyModel8 -base;
3		-
4		-has join => sub { ['left join table2 as table2_alias on table1.key1 = table2_alias.key1'] };
5		-
6		-
7		-1;