cleanup ・ 09f7e89 ・ Gitprep

- cleanup;
- Browse files
- Yuki Kimoto commited on 2011-11-16
- 1 parent 959d069
  
  commit 09f7e89a13b419974860775f6907e0bd3b31e682

Showing 78 changed files with 1 additions and 12760 deletions

-876

Makefile.old

@@ -1,876 +0,0 @@
-# This Makefile is for the DBIx::Custom extension to perl.
-#
-# It was generated automatically by MakeMaker version
-# 6.56 (Revision: 65600) from the contents of
-# Makefile.PL. Don't edit this file, edit Makefile.PL instead.
-#
-#       ANY CHANGES MADE HERE WILL BE LOST!
-#
-#   MakeMaker ARGV: ()
-#
-
-#   MakeMaker Parameters:
-
-#     ABSTRACT_FROM => q[lib/DBIx/Custom/Next.pm]
-#     AUTHOR => q[Yuki Kimoto <kimoto.yuki@gmail.com>]
-#     BUILD_REQUIRES => {  }
-#     LICENSE => q[perl]
-#     NAME => q[DBIx::Custom]
-#     PL_FILES => {  }
-#     PREREQ_PM => { Test::More=>q[0], Object::Simple=>q[3.0621], DBD::SQLite=>q[1.25], DBI=>q[1.605] }
-#     VERSION_FROM => q[lib/DBIx/Custom/Next.pm]
-#     clean => { FILES=>q[DBIx-Custom-*] }
-#     dist => { COMPRESS=>q[gzip -9f], SUFFIX=>q[gz] }
-#     test => { TESTS=>q[t/*.t t/next/*.t] }
-
-# --- MakeMaker post_initialize section:
-
-
-# --- MakeMaker const_config section:
-
-# These definitions are from config.sh (via /usr/lib/perl5/5.8.8/i386-linux-thread-multi/Config.pm).
-# They may have been overridden via Makefile.PL or on the command line.
-AR = ar
-CC = gcc
-CCCDLFLAGS = -fPIC
-CCDLFLAGS = -Wl,-E -Wl,-rpath,/usr/lib/perl5/5.8.8/i386-linux-thread-multi/CORE
-DLEXT = so
-DLSRC = dl_dlopen.xs
-EXE_EXT = 
-FULL_AR = /usr/bin/ar
-LD = gcc
-LDDLFLAGS = -shared -O2 -g -pipe -Wall -Wp,-D_FORTIFY_SOURCE=2 -fexceptions -fstack-protector --param=ssp-buffer-size=4 -m32 -march=i386 -mtune=generic -fasynchronous-unwind-tables -L/usr/local/lib
-LDFLAGS =  -L/usr/local/lib
-LIBC = /lib/libc-2.5.so
-LIB_EXT = .a
-OBJ_EXT = .o
-OSNAME = linux
-OSVERS = 2.6.18-53.el5
-RANLIB = :
-SITELIBEXP = /usr/lib/perl5/site_perl/5.8.8
-SITEARCHEXP = /usr/lib/perl5/site_perl/5.8.8/i386-linux-thread-multi
-SO = so
-VENDORARCHEXP = /usr/lib/perl5/vendor_perl/5.8.8/i386-linux-thread-multi
-VENDORLIBEXP = /usr/lib/perl5/vendor_perl/5.8.8
-
-
-# --- MakeMaker constants section:
-AR_STATIC_ARGS = cr
-DIRFILESEP = /
-DFSEP = $(DIRFILESEP)
-NAME = DBIx::Custom
-NAME_SYM = DBIx_Custom
-VERSION = 0.20_01
-VERSION_MACRO = VERSION
-VERSION_SYM = 0_20_01
-DEFINE_VERSION = -D$(VERSION_MACRO)=\"$(VERSION)\"
-XS_VERSION = 0.20_01
-XS_VERSION_MACRO = XS_VERSION
-XS_DEFINE_VERSION = -D$(XS_VERSION_MACRO)=\"$(XS_VERSION)\"
-INST_ARCHLIB = blib/arch
-INST_SCRIPT = blib/script
-INST_BIN = blib/bin
-INST_LIB = blib/lib
-INST_MAN1DIR = blib/man1
-INST_MAN3DIR = blib/man3
-MAN1EXT = 1
-MAN3EXT = 3pm
-INSTALLDIRS = site
-DESTDIR = 
-PREFIX = $(SITEPREFIX)
-PERLPREFIX = /usr
-SITEPREFIX = /usr
-VENDORPREFIX = /usr
-INSTALLPRIVLIB = /usr/lib/perl5/5.8.8
-DESTINSTALLPRIVLIB = $(DESTDIR)$(INSTALLPRIVLIB)
-INSTALLSITELIB = /usr/lib/perl5/site_perl/5.8.8
-DESTINSTALLSITELIB = $(DESTDIR)$(INSTALLSITELIB)
-INSTALLVENDORLIB = /usr/lib/perl5/vendor_perl/5.8.8
-DESTINSTALLVENDORLIB = $(DESTDIR)$(INSTALLVENDORLIB)
-INSTALLARCHLIB = /usr/lib/perl5/5.8.8/i386-linux-thread-multi
-DESTINSTALLARCHLIB = $(DESTDIR)$(INSTALLARCHLIB)
-INSTALLSITEARCH = /usr/lib/perl5/site_perl/5.8.8/i386-linux-thread-multi
-DESTINSTALLSITEARCH = $(DESTDIR)$(INSTALLSITEARCH)
-INSTALLVENDORARCH = /usr/lib/perl5/vendor_perl/5.8.8/i386-linux-thread-multi
-DESTINSTALLVENDORARCH = $(DESTDIR)$(INSTALLVENDORARCH)
-INSTALLBIN = /usr/bin
-DESTINSTALLBIN = $(DESTDIR)$(INSTALLBIN)
-INSTALLSITEBIN = /usr/bin
-DESTINSTALLSITEBIN = $(DESTDIR)$(INSTALLSITEBIN)
-INSTALLVENDORBIN = /usr/bin
-DESTINSTALLVENDORBIN = $(DESTDIR)$(INSTALLVENDORBIN)
-INSTALLSCRIPT = /usr/bin
-DESTINSTALLSCRIPT = $(DESTDIR)$(INSTALLSCRIPT)
-INSTALLSITESCRIPT = /usr/bin
-DESTINSTALLSITESCRIPT = $(DESTDIR)$(INSTALLSITESCRIPT)
-INSTALLVENDORSCRIPT = /usr/bin
-DESTINSTALLVENDORSCRIPT = $(DESTDIR)$(INSTALLVENDORSCRIPT)
-INSTALLMAN1DIR = /usr/share/man/man1
-DESTINSTALLMAN1DIR = $(DESTDIR)$(INSTALLMAN1DIR)
-INSTALLSITEMAN1DIR = /usr/share/man/man1
-DESTINSTALLSITEMAN1DIR = $(DESTDIR)$(INSTALLSITEMAN1DIR)
-INSTALLVENDORMAN1DIR = /usr/share/man/man1
-DESTINSTALLVENDORMAN1DIR = $(DESTDIR)$(INSTALLVENDORMAN1DIR)
-INSTALLMAN3DIR = /usr/share/man/man3
-DESTINSTALLMAN3DIR = $(DESTDIR)$(INSTALLMAN3DIR)
-INSTALLSITEMAN3DIR = /usr/share/man/man3
-DESTINSTALLSITEMAN3DIR = $(DESTDIR)$(INSTALLSITEMAN3DIR)
-INSTALLVENDORMAN3DIR = /usr/share/man/man3
-DESTINSTALLVENDORMAN3DIR = $(DESTDIR)$(INSTALLVENDORMAN3DIR)
-PERL_LIB = /usr/lib/perl5/5.8.8
-PERL_ARCHLIB = /usr/lib/perl5/5.8.8/i386-linux-thread-multi
-LIBPERL_A = libperl.a
-FIRST_MAKEFILE = Makefile
-MAKEFILE_OLD = Makefile.old
-MAKE_APERL_FILE = Makefile.aperl
-PERLMAINCC = $(CC)
-PERL_INC = /usr/lib/perl5/5.8.8/i386-linux-thread-multi/CORE
-PERL = /usr/bin/perl
-FULLPERL = /usr/bin/perl
-ABSPERL = $(PERL)
-PERLRUN = $(PERL)
-FULLPERLRUN = $(FULLPERL)
-ABSPERLRUN = $(ABSPERL)
-PERLRUNINST = $(PERLRUN) "-I$(INST_ARCHLIB)" "-I$(INST_LIB)"
-FULLPERLRUNINST = $(FULLPERLRUN) "-I$(INST_ARCHLIB)" "-I$(INST_LIB)"
-ABSPERLRUNINST = $(ABSPERLRUN) "-I$(INST_ARCHLIB)" "-I$(INST_LIB)"
-PERL_CORE = 0
-PERM_DIR = 755
-PERM_RW = 644
-PERM_RWX = 755
-
-MAKEMAKER   = /home/kimoto/perl5/lib/perl5/ExtUtils/MakeMaker.pm
-MM_VERSION  = 6.56
-MM_REVISION = 65600
-
-# FULLEXT = Pathname for extension directory (eg Foo/Bar/Oracle).
-# BASEEXT = Basename part of FULLEXT. May be just equal FULLEXT. (eg Oracle)
-# PARENT_NAME = NAME without BASEEXT and no trailing :: (eg Foo::Bar)
-# DLBASE  = Basename part of dynamic library. May be just equal BASEEXT.
-MAKE = make
-FULLEXT = DBIx/Custom
-BASEEXT = Custom
-PARENT_NAME = DBIx
-DLBASE = $(BASEEXT)
-VERSION_FROM = lib/DBIx/Custom/Next.pm
-OBJECT = 
-LDFROM = $(OBJECT)
-LINKTYPE = dynamic
-BOOTDEP = 
-
-# Handy lists of source code files:
-XS_FILES = 
-C_FILES  = 
-O_FILES  = 
-H_FILES  = 
-MAN1PODS = 
-MAN3PODS = lib/DBIx/Custom/Next.pm \
-	lib/DBIx/Custom/Next/Mapper.pm \
-	lib/DBIx/Custom/Next/Model.pm \
-	lib/DBIx/Custom/Next/NotExists.pm \
-	lib/DBIx/Custom/Next/Order.pm \
-	lib/DBIx/Custom/Next/Result.pm \
-	lib/DBIx/Custom/Next/Util.pm \
-	lib/DBIx/Custom/Next/Where.pm
-
-# Where is the Config information that we are using/depend on
-CONFIGDEP = $(PERL_ARCHLIB)$(DFSEP)Config.pm $(PERL_INC)$(DFSEP)config.h
-
-# Where to build things
-INST_LIBDIR      = $(INST_LIB)/DBIx
-INST_ARCHLIBDIR  = $(INST_ARCHLIB)/DBIx
-
-INST_AUTODIR     = $(INST_LIB)/auto/$(FULLEXT)
-INST_ARCHAUTODIR = $(INST_ARCHLIB)/auto/$(FULLEXT)
-
-INST_STATIC      = 
-INST_DYNAMIC     = 
-INST_BOOT        = 
-
-# Extra linker info
-EXPORT_LIST        = 
-PERL_ARCHIVE       = 
-PERL_ARCHIVE_AFTER = 
-
-
-TO_INST_PM = lib/DBIx/Custom/Next.pm \
-	lib/DBIx/Custom/Next/Mapper.pm \
-	lib/DBIx/Custom/Next/Model.pm \
-	lib/DBIx/Custom/Next/NotExists.pm \
-	lib/DBIx/Custom/Next/Order.pm \
-	lib/DBIx/Custom/Next/Result.pm \
-	lib/DBIx/Custom/Next/Util.pm \
-	lib/DBIx/Custom/Next/Where.pm \
-	next.pl
-
-PM_TO_BLIB = lib/DBIx/Custom/Next/Util.pm \
-	blib/lib/DBIx/Custom/Next/Util.pm \
-	lib/DBIx/Custom/Next/Model.pm \
-	blib/lib/DBIx/Custom/Next/Model.pm \
-	lib/DBIx/Custom/Next/Order.pm \
-	blib/lib/DBIx/Custom/Next/Order.pm \
-	lib/DBIx/Custom/Next/NotExists.pm \
-	blib/lib/DBIx/Custom/Next/NotExists.pm \
-	lib/DBIx/Custom/Next/Mapper.pm \
-	blib/lib/DBIx/Custom/Next/Mapper.pm \
-	lib/DBIx/Custom/Next/Where.pm \
-	blib/lib/DBIx/Custom/Next/Where.pm \
-	lib/DBIx/Custom/Next.pm \
-	blib/lib/DBIx/Custom/Next.pm \
-	next.pl \
-	$(INST_LIB)/DBIx/next.pl \
-	lib/DBIx/Custom/Next/Result.pm \
-	blib/lib/DBIx/Custom/Next/Result.pm
-
-
-# --- MakeMaker platform_constants section:
-MM_Unix_VERSION = 6.56
-PERL_MALLOC_DEF = -DPERL_EXTMALLOC_DEF -Dmalloc=Perl_malloc -Dfree=Perl_mfree -Drealloc=Perl_realloc -Dcalloc=Perl_calloc
-
-
-# --- MakeMaker tool_autosplit section:
-# Usage: $(AUTOSPLITFILE) FileToSplit AutoDirToSplitInto
-AUTOSPLITFILE = $(ABSPERLRUN)  -e 'use AutoSplit;  autosplit($$ARGV[0], $$ARGV[1], 0, 1, 1)' --
-
-
-
-# --- MakeMaker tool_xsubpp section:
-
-
-# --- MakeMaker tools_other section:
-SHELL = /bin/sh
-CHMOD = chmod
-CP = cp
-MV = mv
-NOOP = $(TRUE)
-NOECHO = @
-RM_F = rm -f
-RM_RF = rm -rf
-TEST_F = test -f
-TOUCH = touch
-UMASK_NULL = umask 0
-DEV_NULL = > /dev/null 2>&1
-MKPATH = $(ABSPERLRUN) -MExtUtils::Command -e 'mkpath' --
-EQUALIZE_TIMESTAMP = $(ABSPERLRUN) -MExtUtils::Command -e 'eqtime' --
-FALSE = false
-TRUE = true
-ECHO = echo
-ECHO_N = echo -n
-UNINST = 0
-VERBINST = 0
-MOD_INSTALL = $(ABSPERLRUN) -MExtUtils::Install -e 'install([ from_to => {@ARGV}, verbose => '\''$(VERBINST)'\'', uninstall_shadows => '\''$(UNINST)'\'', dir_mode => '\''$(PERM_DIR)'\'' ]);' --
-DOC_INSTALL = $(ABSPERLRUN) -MExtUtils::Command::MM -e 'perllocal_install' --
-UNINSTALL = $(ABSPERLRUN) -MExtUtils::Command::MM -e 'uninstall' --
-WARN_IF_OLD_PACKLIST = $(ABSPERLRUN) -MExtUtils::Command::MM -e 'warn_if_old_packlist' --
-MACROSTART = 
-MACROEND = 
-USEMAKEFILE = -f
-FIXIN = $(ABSPERLRUN) -MExtUtils::MY -e 'MY->fixin(shift)' --
-
-
-# --- MakeMaker makemakerdflt section:
-makemakerdflt : all
-	$(NOECHO) $(NOOP)
-
-
-# --- MakeMaker dist section:
-TAR = tar
-TARFLAGS = cvf
-ZIP = zip
-ZIPFLAGS = -r
-COMPRESS = gzip -9f
-SUFFIX = gz
-SHAR = shar
-PREOP = $(NOECHO) $(NOOP)
-POSTOP = $(NOECHO) $(NOOP)
-TO_UNIX = $(NOECHO) $(NOOP)
-CI = ci -u
-RCS_LABEL = rcs -Nv$(VERSION_SYM): -q
-DIST_CP = best
-DIST_DEFAULT = tardist
-DISTNAME = DBIx-Custom
-DISTVNAME = DBIx-Custom-0.20_01
-
-
-# --- MakeMaker macro section:
-
-
-# --- MakeMaker depend section:
-
-
-# --- MakeMaker cflags section:
-
-
-# --- MakeMaker const_loadlibs section:
-
-
-# --- MakeMaker const_cccmd section:
-
-
-# --- MakeMaker post_constants section:
-
-
-# --- MakeMaker pasthru section:
-
-PASTHRU = LIBPERL_A="$(LIBPERL_A)"\
-	LINKTYPE="$(LINKTYPE)"\
-	PREFIX="$(PREFIX)"
-
-
-# --- MakeMaker special_targets section:
-.SUFFIXES : .xs .c .C .cpp .i .s .cxx .cc $(OBJ_EXT)
-
-.PHONY: all config static dynamic test linkext manifest blibdirs clean realclean disttest distdir
-
-
-
-# --- MakeMaker c_o section:
-
-
-# --- MakeMaker xs_c section:
-
-
-# --- MakeMaker xs_o section:
-
-
-# --- MakeMaker top_targets section:
-all :: pure_all manifypods
-	$(NOECHO) $(NOOP)
-
-
-pure_all :: config pm_to_blib subdirs linkext
-	$(NOECHO) $(NOOP)
-
-subdirs :: $(MYEXTLIB)
-	$(NOECHO) $(NOOP)
-
-config :: $(FIRST_MAKEFILE) blibdirs
-	$(NOECHO) $(NOOP)
-
-help :
-	perldoc ExtUtils::MakeMaker
-
-
-# --- MakeMaker blibdirs section:
-blibdirs : $(INST_LIBDIR)$(DFSEP).exists $(INST_ARCHLIB)$(DFSEP).exists $(INST_AUTODIR)$(DFSEP).exists $(INST_ARCHAUTODIR)$(DFSEP).exists $(INST_BIN)$(DFSEP).exists $(INST_SCRIPT)$(DFSEP).exists $(INST_MAN1DIR)$(DFSEP).exists $(INST_MAN3DIR)$(DFSEP).exists
-	$(NOECHO) $(NOOP)
-
-# Backwards compat with 6.18 through 6.25
-blibdirs.ts : blibdirs
-	$(NOECHO) $(NOOP)
-
-$(INST_LIBDIR)$(DFSEP).exists :: Makefile.PL
-	$(NOECHO) $(MKPATH) $(INST_LIBDIR)
-	$(NOECHO) $(CHMOD) $(PERM_DIR) $(INST_LIBDIR)
-	$(NOECHO) $(TOUCH) $(INST_LIBDIR)$(DFSEP).exists
-
-$(INST_ARCHLIB)$(DFSEP).exists :: Makefile.PL
-	$(NOECHO) $(MKPATH) $(INST_ARCHLIB)
-	$(NOECHO) $(CHMOD) $(PERM_DIR) $(INST_ARCHLIB)
-	$(NOECHO) $(TOUCH) $(INST_ARCHLIB)$(DFSEP).exists
-
-$(INST_AUTODIR)$(DFSEP).exists :: Makefile.PL
-	$(NOECHO) $(MKPATH) $(INST_AUTODIR)
-	$(NOECHO) $(CHMOD) $(PERM_DIR) $(INST_AUTODIR)
-	$(NOECHO) $(TOUCH) $(INST_AUTODIR)$(DFSEP).exists
-
-$(INST_ARCHAUTODIR)$(DFSEP).exists :: Makefile.PL
-	$(NOECHO) $(MKPATH) $(INST_ARCHAUTODIR)
-	$(NOECHO) $(CHMOD) $(PERM_DIR) $(INST_ARCHAUTODIR)
-	$(NOECHO) $(TOUCH) $(INST_ARCHAUTODIR)$(DFSEP).exists
-
-$(INST_BIN)$(DFSEP).exists :: Makefile.PL
-	$(NOECHO) $(MKPATH) $(INST_BIN)
-	$(NOECHO) $(CHMOD) $(PERM_DIR) $(INST_BIN)
-	$(NOECHO) $(TOUCH) $(INST_BIN)$(DFSEP).exists
-
-$(INST_SCRIPT)$(DFSEP).exists :: Makefile.PL
-	$(NOECHO) $(MKPATH) $(INST_SCRIPT)
-	$(NOECHO) $(CHMOD) $(PERM_DIR) $(INST_SCRIPT)
-	$(NOECHO) $(TOUCH) $(INST_SCRIPT)$(DFSEP).exists
-
-$(INST_MAN1DIR)$(DFSEP).exists :: Makefile.PL
-	$(NOECHO) $(MKPATH) $(INST_MAN1DIR)
-	$(NOECHO) $(CHMOD) $(PERM_DIR) $(INST_MAN1DIR)
-	$(NOECHO) $(TOUCH) $(INST_MAN1DIR)$(DFSEP).exists
-
-$(INST_MAN3DIR)$(DFSEP).exists :: Makefile.PL
-	$(NOECHO) $(MKPATH) $(INST_MAN3DIR)
-	$(NOECHO) $(CHMOD) $(PERM_DIR) $(INST_MAN3DIR)
-	$(NOECHO) $(TOUCH) $(INST_MAN3DIR)$(DFSEP).exists
-
-
-
-# --- MakeMaker linkext section:
-
-linkext :: $(LINKTYPE)
-	$(NOECHO) $(NOOP)
-
-
-# --- MakeMaker dlsyms section:
-
-
-# --- MakeMaker dynamic section:
-
-dynamic :: $(FIRST_MAKEFILE) $(INST_DYNAMIC) $(INST_BOOT)
-	$(NOECHO) $(NOOP)
-
-
-# --- MakeMaker dynamic_bs section:
-
-BOOTSTRAP =
-
-
-# --- MakeMaker dynamic_lib section:
-
-
-# --- MakeMaker static section:
-
-## $(INST_PM) has been moved to the all: target.
-## It remains here for awhile to allow for old usage: "make static"
-static :: $(FIRST_MAKEFILE) $(INST_STATIC)
-	$(NOECHO) $(NOOP)
-
-
-# --- MakeMaker static_lib section:
-
-
-# --- MakeMaker manifypods section:
-
-POD2MAN_EXE = $(PERLRUN) "-MExtUtils::Command::MM" -e pod2man "--"
-POD2MAN = $(POD2MAN_EXE)
-
-
-manifypods : pure_all  \
-	lib/DBIx/Custom/Next/Util.pm \
-	lib/DBIx/Custom/Next/Model.pm \
-	lib/DBIx/Custom/Next/Order.pm \
-	lib/DBIx/Custom/Next/NotExists.pm \
-	lib/DBIx/Custom/Next/Mapper.pm \
-	lib/DBIx/Custom/Next/Where.pm \
-	lib/DBIx/Custom/Next.pm \
-	lib/DBIx/Custom/Next/Result.pm
-	$(NOECHO) $(POD2MAN) --section=3 --perm_rw=$(PERM_RW) \
-	  lib/DBIx/Custom/Next/Util.pm $(INST_MAN3DIR)/DBIx::Custom::Next::Util.$(MAN3EXT) \
-	  lib/DBIx/Custom/Next/Model.pm $(INST_MAN3DIR)/DBIx::Custom::Next::Model.$(MAN3EXT) \
-	  lib/DBIx/Custom/Next/Order.pm $(INST_MAN3DIR)/DBIx::Custom::Next::Order.$(MAN3EXT) \
-	  lib/DBIx/Custom/Next/NotExists.pm $(INST_MAN3DIR)/DBIx::Custom::Next::NotExists.$(MAN3EXT) \
-	  lib/DBIx/Custom/Next/Mapper.pm $(INST_MAN3DIR)/DBIx::Custom::Next::Mapper.$(MAN3EXT) \
-	  lib/DBIx/Custom/Next/Where.pm $(INST_MAN3DIR)/DBIx::Custom::Next::Where.$(MAN3EXT) \
-	  lib/DBIx/Custom/Next.pm $(INST_MAN3DIR)/DBIx::Custom::Next.$(MAN3EXT) \
-	  lib/DBIx/Custom/Next/Result.pm $(INST_MAN3DIR)/DBIx::Custom::Next::Result.$(MAN3EXT) 
-
-
-
-
-# --- MakeMaker processPL section:
-
-
-# --- MakeMaker installbin section:
-
-
-# --- MakeMaker subdirs section:
-
-# none
-
-# --- MakeMaker clean_subdirs section:
-clean_subdirs :
-	$(NOECHO) $(NOOP)
-
-
-# --- MakeMaker clean section:
-
-# Delete temporary files but do not touch installed files. We don't delete
-# the Makefile here so a later make realclean still has a makefile to use.
-
-clean :: clean_subdirs
-	- $(RM_F) \
-	  *$(LIB_EXT) core \
-	  core.[0-9] $(INST_ARCHAUTODIR)/extralibs.all \
-	  core.[0-9][0-9] $(BASEEXT).bso \
-	  pm_to_blib.ts core.[0-9][0-9][0-9][0-9] \
-	  $(BASEEXT).x $(BOOTSTRAP) \
-	  perl$(EXE_EXT) tmon.out \
-	  *$(OBJ_EXT) pm_to_blib \
-	  $(INST_ARCHAUTODIR)/extralibs.ld blibdirs.ts \
-	  core.[0-9][0-9][0-9][0-9][0-9] *perl.core \
-	  core.*perl.*.? $(MAKE_APERL_FILE) \
-	  perl $(BASEEXT).def \
-	  core.[0-9][0-9][0-9] mon.out \
-	  lib$(BASEEXT).def perlmain.c \
-	  perl.exe so_locations \
-	  $(BASEEXT).exp 
-	- $(RM_RF) \
-	  DBIx-Custom-* blib 
-	- $(MV) $(FIRST_MAKEFILE) $(MAKEFILE_OLD) $(DEV_NULL)
-
-
-# --- MakeMaker realclean_subdirs section:
-realclean_subdirs :
-	$(NOECHO) $(NOOP)
-
-
-# --- MakeMaker realclean section:
-# Delete temporary files (via clean) and also delete dist files
-realclean purge ::  clean realclean_subdirs
-	- $(RM_F) \
-	  $(MAKEFILE_OLD) $(FIRST_MAKEFILE) 
-	- $(RM_RF) \
-	  $(DISTVNAME) 
-
-
-# --- MakeMaker metafile section:
-metafile : create_distdir
-	$(NOECHO) $(ECHO) Generating META.yml
-	$(NOECHO) $(ECHO) '--- #YAML:1.0' > META_new.yml
-	$(NOECHO) $(ECHO) 'name:               DBIx-Custom' >> META_new.yml
-	$(NOECHO) $(ECHO) 'version:            0.20_01' >> META_new.yml
-	$(NOECHO) $(ECHO) 'abstract:           ~' >> META_new.yml
-	$(NOECHO) $(ECHO) 'author:' >> META_new.yml
-	$(NOECHO) $(ECHO) '    - Yuki Kimoto <kimoto.yuki@gmail.com>' >> META_new.yml
-	$(NOECHO) $(ECHO) 'license:            perl' >> META_new.yml
-	$(NOECHO) $(ECHO) 'distribution_type:  module' >> META_new.yml
-	$(NOECHO) $(ECHO) 'configure_requires:' >> META_new.yml
-	$(NOECHO) $(ECHO) '    ExtUtils::MakeMaker:  0' >> META_new.yml
-	$(NOECHO) $(ECHO) 'build_requires:' >> META_new.yml
-	$(NOECHO) $(ECHO) '    ExtUtils::MakeMaker:  0' >> META_new.yml
-	$(NOECHO) $(ECHO) 'requires:' >> META_new.yml
-	$(NOECHO) $(ECHO) '    DBD::SQLite:     1.25' >> META_new.yml
-	$(NOECHO) $(ECHO) '    DBI:             1.605' >> META_new.yml
-	$(NOECHO) $(ECHO) '    Object::Simple:  3.0621' >> META_new.yml
-	$(NOECHO) $(ECHO) '    Test::More:      0' >> META_new.yml
-	$(NOECHO) $(ECHO) 'no_index:' >> META_new.yml
-	$(NOECHO) $(ECHO) '    directory:' >> META_new.yml
-	$(NOECHO) $(ECHO) '        - t' >> META_new.yml
-	$(NOECHO) $(ECHO) '        - inc' >> META_new.yml
-	$(NOECHO) $(ECHO) 'generated_by:       ExtUtils::MakeMaker version 6.56' >> META_new.yml
-	$(NOECHO) $(ECHO) 'meta-spec:' >> META_new.yml
-	$(NOECHO) $(ECHO) '    url:      http://module-build.sourceforge.net/META-spec-v1.4.html' >> META_new.yml
-	$(NOECHO) $(ECHO) '    version:  1.4' >> META_new.yml
-	-$(NOECHO) $(MV) META_new.yml $(DISTVNAME)/META.yml
-
-
-# --- MakeMaker signature section:
-signature :
-	cpansign -s
-
-
-# --- MakeMaker dist_basics section:
-distclean :: realclean distcheck
-	$(NOECHO) $(NOOP)
-
-distcheck :
-	$(PERLRUN) "-MExtUtils::Manifest=fullcheck" -e fullcheck
-
-skipcheck :
-	$(PERLRUN) "-MExtUtils::Manifest=skipcheck" -e skipcheck
-
-manifest :
-	$(PERLRUN) "-MExtUtils::Manifest=mkmanifest" -e mkmanifest
-
-veryclean : realclean
-	$(RM_F) *~ */*~ *.orig */*.orig *.bak */*.bak *.old */*.old 
-
-
-
-# --- MakeMaker dist_core section:
-
-dist : $(DIST_DEFAULT) $(FIRST_MAKEFILE)
-	$(NOECHO) $(ABSPERLRUN) -l -e 'print '\''Warning: Makefile possibly out of date with $(VERSION_FROM)'\''' \
-	  -e '    if -e '\''$(VERSION_FROM)'\'' and -M '\''$(VERSION_FROM)'\'' < -M '\''$(FIRST_MAKEFILE)'\'';' --
-
-tardist : $(DISTVNAME).tar$(SUFFIX)
-	$(NOECHO) $(NOOP)
-
-uutardist : $(DISTVNAME).tar$(SUFFIX)
-	uuencode $(DISTVNAME).tar$(SUFFIX) $(DISTVNAME).tar$(SUFFIX) > $(DISTVNAME).tar$(SUFFIX)_uu
-
-$(DISTVNAME).tar$(SUFFIX) : distdir
-	$(PREOP)
-	$(TO_UNIX)
-	$(TAR) $(TARFLAGS) $(DISTVNAME).tar $(DISTVNAME)
-	$(RM_RF) $(DISTVNAME)
-	$(COMPRESS) $(DISTVNAME).tar
-	$(POSTOP)
-
-zipdist : $(DISTVNAME).zip
-	$(NOECHO) $(NOOP)
-
-$(DISTVNAME).zip : distdir
-	$(PREOP)
-	$(ZIP) $(ZIPFLAGS) $(DISTVNAME).zip $(DISTVNAME)
-	$(RM_RF) $(DISTVNAME)
-	$(POSTOP)
-
-shdist : distdir
-	$(PREOP)
-	$(SHAR) $(DISTVNAME) > $(DISTVNAME).shar
-	$(RM_RF) $(DISTVNAME)
-	$(POSTOP)
-
-
-# --- MakeMaker distdir section:
-create_distdir :
-	$(RM_RF) $(DISTVNAME)
-	$(PERLRUN) "-MExtUtils::Manifest=manicopy,maniread" \
-		-e "manicopy(maniread(),'$(DISTVNAME)', '$(DIST_CP)');"
-
-distdir : create_distdir distmeta 
-	$(NOECHO) $(NOOP)
-
-
-
-# --- MakeMaker dist_test section:
-disttest : distdir
-	cd $(DISTVNAME) && $(ABSPERLRUN) Makefile.PL 
-	cd $(DISTVNAME) && $(MAKE) $(PASTHRU)
-	cd $(DISTVNAME) && $(MAKE) test $(PASTHRU)
-
-
-
-# --- MakeMaker dist_ci section:
-
-ci :
-	$(PERLRUN) "-MExtUtils::Manifest=maniread" \
-	  -e "@all = keys %{ maniread() };" \
-	  -e "print(qq{Executing $(CI) @all\n}); system(qq{$(CI) @all});" \
-	  -e "print(qq{Executing $(RCS_LABEL) ...\n}); system(qq{$(RCS_LABEL) @all});"
-
-
-# --- MakeMaker distmeta section:
-distmeta : create_distdir metafile
-	$(NOECHO) cd $(DISTVNAME) && $(ABSPERLRUN) -MExtUtils::Manifest=maniadd -e 'eval { maniadd({q{META.yml} => q{Module meta-data (added by MakeMaker)}}) } ' \
-	  -e '    or print "Could not add META.yml to MANIFEST: $${'\''@'\''}\n"' --
-
-
-
-# --- MakeMaker distsignature section:
-distsignature : create_distdir
-	$(NOECHO) cd $(DISTVNAME) && $(ABSPERLRUN) -MExtUtils::Manifest=maniadd -e 'eval { maniadd({q{SIGNATURE} => q{Public-key signature (added by MakeMaker)}}) } ' \
-	  -e '    or print "Could not add SIGNATURE to MANIFEST: $${'\''@'\''}\n"' --
-	$(NOECHO) cd $(DISTVNAME) && $(TOUCH) SIGNATURE
-	cd $(DISTVNAME) && cpansign -s
-
-
-
-# --- MakeMaker install section:
-
-install :: pure_install doc_install
-	$(NOECHO) $(NOOP)
-
-install_perl :: pure_perl_install doc_perl_install
-	$(NOECHO) $(NOOP)
-
-install_site :: pure_site_install doc_site_install
-	$(NOECHO) $(NOOP)
-
-install_vendor :: pure_vendor_install doc_vendor_install
-	$(NOECHO) $(NOOP)
-
-pure_install :: pure_$(INSTALLDIRS)_install
-	$(NOECHO) $(NOOP)
-
-doc_install :: doc_$(INSTALLDIRS)_install
-	$(NOECHO) $(NOOP)
-
-pure__install : pure_site_install
-	$(NOECHO) $(ECHO) INSTALLDIRS not defined, defaulting to INSTALLDIRS=site
-
-doc__install : doc_site_install
-	$(NOECHO) $(ECHO) INSTALLDIRS not defined, defaulting to INSTALLDIRS=site
-
-pure_perl_install :: all
-	$(NOECHO) $(MOD_INSTALL) \
-		read $(PERL_ARCHLIB)/auto/$(FULLEXT)/.packlist \
-		write $(DESTINSTALLARCHLIB)/auto/$(FULLEXT)/.packlist \
-		$(INST_LIB) $(DESTINSTALLPRIVLIB) \
-		$(INST_ARCHLIB) $(DESTINSTALLARCHLIB) \
-		$(INST_BIN) $(DESTINSTALLBIN) \
-		$(INST_SCRIPT) $(DESTINSTALLSCRIPT) \
-		$(INST_MAN1DIR) $(DESTINSTALLMAN1DIR) \
-		$(INST_MAN3DIR) $(DESTINSTALLMAN3DIR)
-	$(NOECHO) $(WARN_IF_OLD_PACKLIST) \
-		$(SITEARCHEXP)/auto/$(FULLEXT)
-
-
-pure_site_install :: all
-	$(NOECHO) $(MOD_INSTALL) \
-		read $(SITEARCHEXP)/auto/$(FULLEXT)/.packlist \
-		write $(DESTINSTALLSITEARCH)/auto/$(FULLEXT)/.packlist \
-		$(INST_LIB) $(DESTINSTALLSITELIB) \
-		$(INST_ARCHLIB) $(DESTINSTALLSITEARCH) \
-		$(INST_BIN) $(DESTINSTALLSITEBIN) \
-		$(INST_SCRIPT) $(DESTINSTALLSITESCRIPT) \
-		$(INST_MAN1DIR) $(DESTINSTALLSITEMAN1DIR) \
-		$(INST_MAN3DIR) $(DESTINSTALLSITEMAN3DIR)
-	$(NOECHO) $(WARN_IF_OLD_PACKLIST) \
-		$(PERL_ARCHLIB)/auto/$(FULLEXT)
-
-pure_vendor_install :: all
-	$(NOECHO) $(MOD_INSTALL) \
-		read $(VENDORARCHEXP)/auto/$(FULLEXT)/.packlist \
-		write $(DESTINSTALLVENDORARCH)/auto/$(FULLEXT)/.packlist \
-		$(INST_LIB) $(DESTINSTALLVENDORLIB) \
-		$(INST_ARCHLIB) $(DESTINSTALLVENDORARCH) \
-		$(INST_BIN) $(DESTINSTALLVENDORBIN) \
-		$(INST_SCRIPT) $(DESTINSTALLVENDORSCRIPT) \
-		$(INST_MAN1DIR) $(DESTINSTALLVENDORMAN1DIR) \
-		$(INST_MAN3DIR) $(DESTINSTALLVENDORMAN3DIR)
-
-doc_perl_install :: all
-	$(NOECHO) $(ECHO) Appending installation info to $(DESTINSTALLARCHLIB)/perllocal.pod
-	-$(NOECHO) $(MKPATH) $(DESTINSTALLARCHLIB)
-	-$(NOECHO) $(DOC_INSTALL) \
-		"Module" "$(NAME)" \
-		"installed into" "$(INSTALLPRIVLIB)" \
-		LINKTYPE "$(LINKTYPE)" \
-		VERSION "$(VERSION)" \
-		EXE_FILES "$(EXE_FILES)" \
-		>> $(DESTINSTALLARCHLIB)/perllocal.pod
-
-doc_site_install :: all
-	$(NOECHO) $(ECHO) Appending installation info to $(DESTINSTALLARCHLIB)/perllocal.pod
-	-$(NOECHO) $(MKPATH) $(DESTINSTALLARCHLIB)
-	-$(NOECHO) $(DOC_INSTALL) \
-		"Module" "$(NAME)" \
-		"installed into" "$(INSTALLSITELIB)" \
-		LINKTYPE "$(LINKTYPE)" \
-		VERSION "$(VERSION)" \
-		EXE_FILES "$(EXE_FILES)" \
-		>> $(DESTINSTALLARCHLIB)/perllocal.pod
-
-doc_vendor_install :: all
-	$(NOECHO) $(ECHO) Appending installation info to $(DESTINSTALLARCHLIB)/perllocal.pod
-	-$(NOECHO) $(MKPATH) $(DESTINSTALLARCHLIB)
-	-$(NOECHO) $(DOC_INSTALL) \
-		"Module" "$(NAME)" \
-		"installed into" "$(INSTALLVENDORLIB)" \
-		LINKTYPE "$(LINKTYPE)" \
-		VERSION "$(VERSION)" \
-		EXE_FILES "$(EXE_FILES)" \
-		>> $(DESTINSTALLARCHLIB)/perllocal.pod
-
-
-uninstall :: uninstall_from_$(INSTALLDIRS)dirs
-	$(NOECHO) $(NOOP)
-
-uninstall_from_perldirs ::
-	$(NOECHO) $(UNINSTALL) $(PERL_ARCHLIB)/auto/$(FULLEXT)/.packlist
-
-uninstall_from_sitedirs ::
-	$(NOECHO) $(UNINSTALL) $(SITEARCHEXP)/auto/$(FULLEXT)/.packlist
-
-uninstall_from_vendordirs ::
-	$(NOECHO) $(UNINSTALL) $(VENDORARCHEXP)/auto/$(FULLEXT)/.packlist
-
-
-# --- MakeMaker force section:
-# Phony target to force checking subdirectories.
-FORCE :
-	$(NOECHO) $(NOOP)
-
-
-# --- MakeMaker perldepend section:
-
-
-# --- MakeMaker makefile section:
-# We take a very conservative approach here, but it's worth it.
-# We move Makefile to Makefile.old here to avoid gnu make looping.
-$(FIRST_MAKEFILE) : Makefile.PL $(CONFIGDEP)
-	$(NOECHO) $(ECHO) "Makefile out-of-date with respect to $?"
-	$(NOECHO) $(ECHO) "Cleaning current config before rebuilding Makefile..."
-	-$(NOECHO) $(RM_F) $(MAKEFILE_OLD)
-	-$(NOECHO) $(MV)   $(FIRST_MAKEFILE) $(MAKEFILE_OLD)
-	- $(MAKE) $(USEMAKEFILE) $(MAKEFILE_OLD) clean $(DEV_NULL)
-	$(PERLRUN) Makefile.PL 
-	$(NOECHO) $(ECHO) "==> Your Makefile has been rebuilt. <=="
-	$(NOECHO) $(ECHO) "==> Please rerun the $(MAKE) command.  <=="
-	$(FALSE)
-
-
-
-# --- MakeMaker staticmake section:
-
-# --- MakeMaker makeaperl section ---
-MAP_TARGET    = perl
-FULLPERL      = /usr/bin/perl
-
-$(MAP_TARGET) :: static $(MAKE_APERL_FILE)
-	$(MAKE) $(USEMAKEFILE) $(MAKE_APERL_FILE) $@
-
-$(MAKE_APERL_FILE) : $(FIRST_MAKEFILE) pm_to_blib
-	$(NOECHO) $(ECHO) Writing \"$(MAKE_APERL_FILE)\" for this $(MAP_TARGET)
-	$(NOECHO) $(PERLRUNINST) \
-		Makefile.PL DIR= \
-		MAKEFILE=$(MAKE_APERL_FILE) LINKTYPE=static \
-		MAKEAPERL=1 NORECURS=1 CCCDLFLAGS=
-
-
-# --- MakeMaker test section:
-
-TEST_VERBOSE=0
-TEST_TYPE=test_$(LINKTYPE)
-TEST_FILE = test.pl
-TEST_FILES = t/*.t t/next/*.t
-TESTDB_SW = -d
-
-testdb :: testdb_$(LINKTYPE)
-
-test :: $(TEST_TYPE) subdirs-test
-
-subdirs-test ::
-	$(NOECHO) $(NOOP)
-
-
-test_dynamic :: pure_all
-	PERL_DL_NONLAZY=1 $(FULLPERLRUN) "-MExtUtils::Command::MM" "-e" "test_harness($(TEST_VERBOSE), '$(INST_LIB)', '$(INST_ARCHLIB)')" $(TEST_FILES)
-
-testdb_dynamic :: pure_all
-	PERL_DL_NONLAZY=1 $(FULLPERLRUN) $(TESTDB_SW) "-I$(INST_LIB)" "-I$(INST_ARCHLIB)" $(TEST_FILE)
-
-test_ : test_dynamic
-
-test_static :: test_dynamic
-testdb_static :: testdb_dynamic
-
-
-# --- MakeMaker ppd section:
-# Creates a PPD (Perl Package Description) for a binary distribution.
-ppd :
-	$(NOECHO) $(ECHO) '<SOFTPKG NAME="$(DISTNAME)" VERSION="0.20_01">' > $(DISTNAME).ppd
-	$(NOECHO) $(ECHO) '    <ABSTRACT></ABSTRACT>' >> $(DISTNAME).ppd
-	$(NOECHO) $(ECHO) '    <AUTHOR>Yuki Kimoto &lt;kimoto.yuki@gmail.com&gt;</AUTHOR>' >> $(DISTNAME).ppd
-	$(NOECHO) $(ECHO) '    <IMPLEMENTATION>' >> $(DISTNAME).ppd
-	$(NOECHO) $(ECHO) '        <REQUIRE NAME="DBD::SQLite" VERSION="1.25" />' >> $(DISTNAME).ppd
-	$(NOECHO) $(ECHO) '        <REQUIRE NAME="DBI::" VERSION="1.605" />' >> $(DISTNAME).ppd
-	$(NOECHO) $(ECHO) '        <REQUIRE NAME="Object::Simple" VERSION="3.0621" />' >> $(DISTNAME).ppd
-	$(NOECHO) $(ECHO) '        <REQUIRE NAME="Test::More" />' >> $(DISTNAME).ppd
-	$(NOECHO) $(ECHO) '        <ARCHITECTURE NAME="i386-linux-thread-multi-5.8" />' >> $(DISTNAME).ppd
-	$(NOECHO) $(ECHO) '        <CODEBASE HREF="" />' >> $(DISTNAME).ppd
-	$(NOECHO) $(ECHO) '    </IMPLEMENTATION>' >> $(DISTNAME).ppd
-	$(NOECHO) $(ECHO) '</SOFTPKG>' >> $(DISTNAME).ppd
-
-
-# --- MakeMaker pm_to_blib section:
-
-pm_to_blib : $(FIRST_MAKEFILE) $(TO_INST_PM)
-	$(NOECHO) $(ABSPERLRUN) -MExtUtils::Install -e 'pm_to_blib({@ARGV}, '\''$(INST_LIB)/auto'\'', q[$(PM_FILTER)], '\''$(PERM_DIR)'\'')' -- \
-	  lib/DBIx/Custom/Next/Util.pm blib/lib/DBIx/Custom/Next/Util.pm \
-	  lib/DBIx/Custom/Next/Model.pm blib/lib/DBIx/Custom/Next/Model.pm \
-	  lib/DBIx/Custom/Next/Order.pm blib/lib/DBIx/Custom/Next/Order.pm \
-	  lib/DBIx/Custom/Next/NotExists.pm blib/lib/DBIx/Custom/Next/NotExists.pm \
-	  lib/DBIx/Custom/Next/Mapper.pm blib/lib/DBIx/Custom/Next/Mapper.pm \
-	  lib/DBIx/Custom/Next/Where.pm blib/lib/DBIx/Custom/Next/Where.pm \
-	  lib/DBIx/Custom/Next.pm blib/lib/DBIx/Custom/Next.pm \
-	  next.pl $(INST_LIB)/DBIx/next.pl \
-	  lib/DBIx/Custom/Next/Result.pm blib/lib/DBIx/Custom/Next/Result.pm 
-	$(NOECHO) $(TOUCH) pm_to_blib
-
-
-# --- MakeMaker selfdocument section:
-
-
-# --- MakeMaker postamble section:
-
-
-# End.

+1 -7

lib/DBIx/Custom.pm

View

@@ -1237,13 +1237,7 @@ sub _create_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,

-2809

lib/DBIx/Custom/Next.pm

View

@@ -1,2809 +0,0 @@
-package DBIx::Custom::Next;
-use Object::Simple -base;
-
-our $VERSION = '0.20_01';
-$VERSION = eval $VERSION;
-use 5.008001;
-
-use Carp 'croak';
-use DBI;
-use DBIx::Custom::Next::Result;
-use DBIx::Custom::Next::Where;
-use DBIx::Custom::Next::Model;
-use DBIx::Custom::Next::Order;
-use DBIx::Custom::Next::Util qw/_array_to_hash _subname/;
-use DBIx::Custom::Next::Mapper;
-use DBIx::Custom::Next::NotExists;
-use Encode qw/encode encode_utf8 decode_utf8/;
-use Scalar::Util qw/weaken/;
-
-has [qw/connector dsn password quote user exclude_table user_table_info
-        user_column_info/],
-    option => sub { {} },
-    default_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 { {} },
-    now => sub {
-        sub {
-            my ($sec, $min, $hour, $mday, $mon, $year) = localtime;
-            $mon++;
-            $year += 1900;
-            my $now = sprintf("%04d-%02d-%02d %02d:%02d:%02d",
-              $year, $mon, $mday, $hour, $min, $sec);
-            return $now;
-        }
-    },
-    result_class  => 'DBIx::Custom::Next::Result',
-    safety_character => '\w',
-    separator => '.',
-    stash => sub { {} };
-
-sub available_datatype {
-    my $self = shift;
-    
-    my $data_types = '';
-    for 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_typename {
-    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;
-}
-
-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_clause {
-    my ($self, $param, $opts) = @_;
-    
-    my $wrap = $opts->{wrap} || {};
-    my ($q, $p) = split //, $self->q('');
-    
-    # Assign clause (performance is important)
-    join(
-      ', ',
-      map {
-          ref $param->{$_} eq 'SCALAR' ? "$q$_$p = " . ${$param->{$_}}
-          : $wrap->{$_} ? "$q$_$p = " . $wrap->{$_}->(":$_")
-          : "$q$_$p = :$_";
-      } sort keys %$param
-    );
-}
-
-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 (defined $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(@_);
-    
-    my $connector = $self->connector;
-    
-    if (!ref $connector && $connector) {
-        require DBIx::Connector;
-        
-        my $dsn = $self->dsn;
-        my $user = $self->user;
-        my $password = $self->password;
-        my $option = $self->option;
-        my $connector = DBIx::Connector->new($dsn, $user, $password,
-          {%{$self->default_option} , %$option});
-        $self->connector($connector);
-    }
-    
-    # Connect
-    $self->dbh;
-    
-    return $self;
-}
-
-sub count { shift->select(column => 'count(*)', @_)->fetch_first->[0] }
-
-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
-        unless (defined $self->quote) {
-            my $driver = $self->_driver;
-            my $quote =  $driver eq 'odbc' ? '[]'
-                       : $driver eq 'ado' ? '[]'
-                       : $driver eq 'mysql' ? '`'
-                       : '"';
-            $self->quote($quote);
-        }
-        
-        return $self->{dbh};
-    }
-}
-
-sub delete {
-    my ($self, %opt) = @_;
-    
-    # Don't allow delete all rows
-    croak qq{delete method where or id option must be specified } . _subname
-      if !$opt{where} && !defined $opt{id} && !$opt{allow_delete_all};
-    
-    # Where
-    my $w = $self->_where_clause_and_param($opt{where}, {},
-      delete $opt{id}, $opt{primary_key}, $opt{table});
-
-    # Delete statement
-    my $sql = "delete ";
-    $sql .= "$opt{prefix} " if defined $opt{prefix};
-    $sql .= "from " . $self->q($opt{table}) . " $w->{clause} ";
-    
-    # Execute query
-    $self->execute($sql, $w->{param}, %opt);
-}
-
-sub delete_all { shift->delete(@_, allow_delete_all => 1) }
-
-sub DESTROY {}
-
-sub create_model {
-    my $self = shift;
-    
-    # Options
-    my $opt = ref $_[0] eq 'HASH' ? $_[0] : {@_};
-    $opt->{dbi} = $self;
-    my $model_class = delete $opt->{model_class} || 'DBIx::Custom::Next::Model';
-    my $model_table = delete $opt->{table};
-    
-    # Create model
-    my $model = $model_class->new($opt);
-    weaken $model->{dbi};
-    $model->table($model_table) unless $model->table;
-    
-    # Set model
-    $self->model($model->table, $model);
-    
-    return $self->model($model->table);
-}
-
-sub each_column {
-    my ($self, $cb, %options) = @_;
-
-    my $user_column_info = $self->user_column_info;
-    
-    if ($user_column_info) {
-        $self->$cb($_->{table}, $_->{column}, $_->{info}) for @$user_column_info;
-    }
-    else {
-    
-        my $re = $self->exclude_table || $options{exclude_table};
-        # Tables
-        my %tables;
-        $self->each_table(sub { $tables{$_[1]}++ });
-
-        # Iterate all tables
-        my @tables = sort keys %tables;
-        for (my $i = 0; $i < @tables; $i++) {
-            my $table = $tables[$i];
-            
-            # Iterate all columns
-            my $sth_columns;
-            eval {$sth_columns = $self->dbh->column_info(undef, undef, $table, '%')};
-            next if $@;
-            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, %option) = @_;
-    
-    my $user_table_infos = $self->user_table_info;
-    
-    # Iterate tables
-    if ($user_table_infos) {
-        $self->$cb($_->{table}, $_->{info}) for @$user_table_infos;
-    }
-    else {
-        my $re = $self->exclude_table || $option{exclude};
-        my $sth_tables = $self->dbh->table_info;
-        while (my $table_info = $sth_tables->fetchrow_hashref) {
-            
-            # Table
-            my $table = $table_info->{TABLE_NAME};
-            next if defined $re && $table =~ /$re/;
-            $self->$cb($table, $table_info);
-        }
-    }
-}
-
-sub execute {
-    my ($self, $sql, $param, %opt) = @_;
-    $param ||= {};
-
-    my $tables = $opt{table} || [];
-    $tables = [$tables] unless ref $tables eq 'ARRAY';
-    
-    # Merge second parameter
-    my @cleanup;
-    my $saved_param;
-    if (ref $param eq 'ARRAY') {
-        my $param2 = $param->[1];
-        $param = $param->[0];
-        for my $column (keys %$param2) {
-            if (!exists $param->{$column}) {
-                $param->{$column} = $param2->{$column};
-                push @cleanup, $column;
-            }
-            else {
-                delete $param->{$_} for @cleanup;
-                @cleanup = ();
-                $saved_param  = $param;
-                $param = $self->merge_param($param, $param2);
-                delete $saved_param->{$_} for (@{$opt{cleanup} || []});
-                last;
-            }
-        }
-    }
-    
-    # Append
-    $sql .= " $opt{append}" if defined $opt{append};
-    
-    # Query
-    my $query;
-    $query = $opt{reuse}->{$sql} if $opt{reuse};
-    
-    if ($query) {
-        # Save query
-        $self->{last_sql} = $query->{sql};
-    }
-    else {
-        
-        my $safety = $self->{safety_character} || $self->safety_character;
-        # Check unsafety keys
-        unless ((join('', keys %$param) || '') =~ /^[$safety\.]+$/) {
-            for my $column (keys %$param) {
-                croak qq{"$column" is not safety column name } . _subname
-                  unless $column =~ /^[$safety\.]+$/;
-            }
-        }
-
-        # Query
-        $query = $self->_build_query($sql);
-
-        # After build sql
-        $query->{sql} = $opt{after_build_sql}->($query->{sql})
-          if $opt{after_build_sql};
-            
-        # 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;
-        
-        # Save query
-        $opt{reuse}->{$sql} = $query if $opt{reuse};
-    }
-
-    # Return query
-    if ($opt{query}) {
-      delete $param->{$_} for (@cleanup, @{$opt{cleanup} || []});
-      return $query;
-    }
-    
-    # Tables
-    my $main_table = @{$tables}[-1];
-    
-    # Type rule
-    my $type_filters = {};
-    my $type_rule_off = !$self->{_type_rule_is_called} || $opt{type_rule_off};
-    unless ($type_rule_off) {
-        my $type_rule_off_parts = {
-            1 => $opt{type_rule1_off},
-            2 => $opt{type_rule2_off}
-        };
-        for my $i (1, 2) {
-            unless ($type_rule_off_parts->{$i}) {
-                $type_filters->{$i} = {};
-                my $table_alias = $opt{table_alias} || {};
-                for my $alias (keys %$table_alias) {
-                    my $table = $table_alias->{$alias};
-                    
-                    for 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;
-            }
-        }
-    }
-
-    my $sth = $query->{sth};
-    my $affected;
-    
-    # Execute
-    my $bind;
-    my $bind_types;
-    if (!$query->{duplicate} && $type_rule_off &&
-      !$opt{filter} && !$opt{bind_type} && !$ENV{DBIX_CUSTOM_DEBUG}) 
-    {
-        eval { $affected = $sth->execute(map { $param->{$_} } @{$query->{columns}}) };
-    }
-    else {
-        ($bind, $bind_types) = $self->_create_bind_values($param,
-           $query->{columns}, $opt{filter}, $type_filters, $opt{bind_type});
-        eval {
-            if ($opt{bind_type}) {
-                $sth->bind_param($_ + 1, $bind->[$_],
-                    $bind_types->[$_] ? $bind_types->[$_] : ())
-                  for (0 .. @$bind - 1);
-                $affected = $sth->execute;
-            }
-            else { $affected = $sth->execute(@$bind) }
-        };
-    }
-    $self->_croak($@, qq{. Following SQL is executed.\n}
-      . qq{$query->{sql}\n} . _subname) if $@;
-
-    # Remove id from parameter
-    delete $param->{$_} for (@cleanup, @{$opt{cleanup} || []});
-    
-    # DEBUG message
-    if ($ENV{DBIX_CUSTOM_DEBUG}) {
-        warn "SQL:\n" . $query->{sql} . "\n";
-        my @output;
-        for my $value (@$bind) {
-            $value = 'undef' unless defined $value;
-            $value = encode($ENV{DBIX_CUSTOM_DEBUG_ENCODING} || 'UTF-8', $value)
-              if utf8::is_utf8($value);
-            push @output, $value;
-        }
-        warn "Bind values: " . join(', ', @output) . "\n\n";
-    }
-    
-    # Not select statement
-    return $affected unless $sth->{NUM_OF_FIELDS};
-    
-    # Result
-    return $self->result_class->new(
-        sth => $sth,
-        dbi => $self,
-        type_rule => {
-            from1 => $self->type_rule->{from1},
-            from2 => $self->type_rule->{from2}
-        },
-    );
-}
-
-sub get_table_info {
-    my ($self, %opt) = @_;
-    
-    my $exclude = delete $opt{exclude};
-    croak qq/"$_" is wrong option/ for keys %opt;
-    
-    my $table_info = [];
-    $self->each_table(
-        sub { push @$table_info, {table => $_[1], info => $_[2] } },
-        exclude => $exclude
-    );
-    
-    return [sort {$a->{table} cmp $b->{table} } @$table_info];
-}
-
-sub get_column_info {
-    my ($self, %opt) = @_;
-    
-    my $exclude_table = delete $opt{exclude_table};
-    croak qq/"$_" is wrong option/ for keys %opt;
-    
-    my $column_info = [];
-    $self->each_column(
-        sub { push @$column_info, {table => $_[1], column => $_[2], info => $_[3] } },
-        exclude_table => $exclude_table
-    );
-    
-    return [
-      sort {$a->{table} cmp $b->{table} || $a->{column} cmp $b->{column} }
-        @$column_info];
-}
-
-sub helper {
-    my $self = shift;
-    
-    # Register method
-    my $methods = ref $_[0] eq 'HASH' ? $_[0] : {@_};
-    $self->{_methods} = {%{$self->{_methods} || {}}, %$methods};
-    
-    return $self;
-}
-
-sub insert {
-    my ($self, $param, %opt) = @_;
-    $param ||= {};
-
-    # Created time and updated time
-    my @cleanup;
-    if (defined $opt{created_at} || defined $opt{updated_at}) {
-        my $now = $self->now;
-        $now = $now->() if ref $now eq 'CODE';
-        if (defined $opt{created_at}) {
-            $param->{$opt{created_at}} = $now;
-            push @cleanup, $opt{created_at};
-        }
-        if (defined $opt{updated_at}) {
-            $param->{$opt{updated_at}} = $now;
-            push @cleanup, $opt{updated_at};
-        }
-    }
-    
-    # Merge id to parameter
-    my $id_param = {};
-    if (defined $opt{id}) {
-        croak "insert id option must be specified with primary_key option"
-          unless $opt{primary_key};
-        $opt{primary_key} = [$opt{primary_key}] unless ref $opt{primary_key};
-        $opt{id} = [$opt{id}] unless ref $opt{id};
-        for (my $i = 0; $i < @{$opt{id}}; $i++) {
-           my $key = $opt{primary_key}->[$i];
-           next if exists $param->{$key};
-           $param->{$key} = $opt{id}->[$i];
-           push @cleanup, $key;
-        }
-        delete $opt{id};
-    }
-    
-    # Insert statement
-    my $sql = "insert ";
-    $sql .= "$opt{prefix} " if defined $opt{prefix};
-    $sql .= "into " . $self->q($opt{table}) . " "
-      . $self->values_clause($param, {wrap => $opt{wrap}}) . " ";
-    
-    # Execute query
-    $opt{cleanup} = \@cleanup;
-    $self->execute($sql, $param, %opt);
-}
-
-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
-    for my $model_info (@$model_infos) {
-        
-        # Load model
-        my $model_class;
-        my $model_table;
-        if (ref $model_info eq 'HASH') {
-            $model_class = $model_info->{class};
-            $model_table = $model_info->{table};
-            $model_table ||= $model_class;
-        }
-        else { $model_class = $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 $opt = {};
-        $opt->{model_class} = $mclass if $mclass;
-        $opt->{table}       = $model_table if $model_table;
-        $self->create_model($opt);
-    }
-    
-    return $self;
-}
-
-sub like_value { sub { "%$_[0]%" } }
-
-sub mapper {
-    my $self = shift;
-    return DBIx::Custom::Next::Mapper->new(@_);
-}
-
-sub merge_param {
-    my ($self, @params) = @_;
-    
-    # Merge parameters
-    my $merge = {};
-    for my $param (@params) {
-        for 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 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;
-    for my $attr (@attrs) {
-        croak qq{Invalid attribute: "$attr" } . _subname
-          unless $self->can($attr);
-    }
-
-    return $self;
-}
-
-sub not_exists { DBIx::Custom::Next::NotExists->singleton }
-
-sub order {
-    my $self = shift;
-    return DBIx::Custom::Next::Order->new(dbi => $self, @_);
-}
-
-sub q {
-    my ($self, $value, $quotemeta) = @_;
-    
-    my $quote = $self->{quote} || $self->quote || '';
-    return "$quote$value$quote"
-      if !$quotemeta && ($quote eq '`' || $quote eq '"');
-    
-    my $q = substr($quote, 0, 1) || '';
-    my $p;
-    if (defined $quote && length $quote > 1) {
-        $p = substr($quote, 1, 1);
-    }
-    else { $p = $q }
-    
-    if ($quotemeta) {
-        $q = quotemeta($q);
-        $p = quotemeta($p);
-    }
-    
-    return "$q$value$p";
-}
-
-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, %opt) = @_;
-
-    # Options
-    my $tables = [$opt{table}];
-    my $param = delete $opt{param} || {};
-    
-    # Select statement
-    my $sql = 'select ';
-    
-    # Prefix
-    $sql .= "$opt{prefix} " if defined $opt{prefix};
-    
-    # Column
-    if (defined $opt{column}) {
-        my $columns
-          = ref $opt{column} eq 'ARRAY' ? $opt{column} : [$opt{column}];
-        for my $column (@$columns) {
-            $column = $self->column(%$column) if ref $column eq 'HASH';
-            unshift @$tables, @{$self->_search_tables($column)};
-            $sql .= "$column, ";
-        }
-        $sql =~ s/, $/ /;
-    }
-    else { $sql .= '* ' }
-    
-    # Table
-    croak "select method table option must be specified " . _subname
-      unless defined $tables->[-1];
-    $sql .= 'from ' . $self->q($tables->[-1] || '') . ' ';
-    $sql =~ s/, $/ /;
-
-    # Add tables in parameter
-    unshift @$tables,
-            @{$self->_search_tables(join(' ', keys %$param) || '')};
-    
-    # Where
-    my $w = $self->_where_clause_and_param($opt{where}, $param,
-      delete $opt{id}, $opt{primary_key}, $tables->[-1]);
-    
-    # Add table names in where clause
-    unshift @$tables, @{$self->_search_tables($w->{clause})};
-    
-    # Join statement
-    $self->_push_join(\$sql, $opt{join}, $tables) if defined $opt{join};
-    
-    # Add where clause
-    $sql .= "$w->{clause} ";
-    
-    # Execute query
-    my $result = $self->execute($sql, $w->{param}, %opt);
-    
-    $result;
-}
-
-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 show_datatype {
-    my ($self, $table) = @_;
-    croak "Table name must be specified" unless defined $table;
-    print "$table\n";
-    
-    my $result = $self->select(table => $table, where => "'0' <> '0'");
-    my $sth = $result->sth;
-
-    my $columns = $sth->{NAME};
-    my $data_types = $sth->{TYPE};
-    
-    for (my $i = 0; $i < @$columns; $i++) {
-        my $column = $columns->[$i];
-        my $data_type = lc $data_types->[$i];
-        print "$column: $data_type\n";
-    }
-}
-
-sub show_typename {
-    my ($self, $t) = @_;
-    croak "Table name must be specified" unless defined $t;
-    print "$t\n";
-    
-    $self->each_column(sub {
-        my ($self, $table, $column, $infos) = @_;
-        return unless $table eq $t;
-        my $typename = lc $infos->{TYPE_NAME};
-        print "$column: $typename\n";
-    });
-    
-    return $self;
-}
-
-sub show_tables {
-    my $self = shift;
-    
-    my %tables;
-    $self->each_table(sub { $tables{$_[1]}++ });
-    print join("\n", sort keys %tables) . "\n";
-    return $self;
-}
-
-sub type_rule {
-    my $self = shift;
-
-    $self->{_type_rule_is_called} = 1;
-    
-    if (@_) {
-        my $type_rule = ref $_[0] eq 'HASH' ? $_[0] : {@_};
-        
-        # Into
-        for my $i (1 .. 2) {
-            my $into = "into$i";
-            my $exists_into = exists $type_rule->{$into};
-            $type_rule->{$into} = _array_to_hash($type_rule->{$into});
-            $self->{type_rule} = $type_rule;
-            $self->{"_$into"} = {};
-            for 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
-        for my $i (1 .. 2) {
-            $type_rule->{"from$i"} = _array_to_hash($type_rule->{"from$i"});
-            for 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, $param, %opt) = @_;
-    $param ||= {};
-    
-    # Don't allow update all rows
-    croak qq{update method where option must be specified } . _subname
-      if !$opt{where} && !defined $opt{id} && !$opt{allow_update_all};
-    
-    # Created time and updated time
-    my @cleanup;
-    if (defined $opt{updated_at}) {
-        my $now = $self->now;
-        $now = $now->() if ref $now eq 'CODE';
-        $param->{$opt{updated_at}} = $self->now->();
-        push @cleanup, $opt{updated_at};
-    }
-
-    # Assign clause
-    my $assign_clause = $self->assign_clause($param, {wrap => $opt{wrap}});
-    
-    # Where
-    my $w = $self->_where_clause_and_param($opt{where}, {},
-      delete $opt{id}, $opt{primary_key}, $opt{table});
-    
-    # Update statement
-    my $sql = "update ";
-    $sql .= "$opt{prefix} " if defined $opt{prefix};
-    $sql .= $self->q($opt{table}) . " set $assign_clause $w->{clause} ";
-    
-    # Execute query
-    $opt{cleanup} = \@cleanup;
-    $self->execute($sql, [$param, $w->{param}], %opt);
-}
-
-sub update_all { shift->update(@_, allow_update_all => 1) };
-
-sub update_or_insert {
-    my ($self, $param, %opt) = @_;
-    croak "update_or_insert method need primary_key and id option "
-      unless defined $opt{id} && defined $opt{primary_key};
-    my $statement_opt = $opt{option} || {};
-
-    my $rows = $self->select(%opt, %{$statement_opt->{select} || {}})->all;
-    if (@$rows == 0) {
-        return $self->insert($param, %opt, %{$statement_opt->{insert} || {}});
-    }
-    elsif (@$rows == 1) {
-        return $self->update($param, %opt, %{$statement_opt->{update} || {}});
-    }
-    else {
-        croak "selected row must be one " . _subname;
-    }
-}
-
-sub values_clause {
-    my ($self, $param, $opts) = @_;
-    
-    my $wrap = $opts->{wrap} || {};
-    
-    # Create insert parameter
-    my ($q, $p) = split //, $self->q('');
-    
-    # values clause(performance is important)
-    '(' .
-    join(
-      ', ',
-      map { "$q$_$p" } sort keys %$param
-    ) .
-    ') values (' .
-    join(
-      ', ',
-      map {
-          ref $param->{$_} eq 'SCALAR' ? ${$param->{$_}} :
-          $wrap->{$_} ? $wrap->{$_}->(":$_") :
-          ":$_";
-      } sort keys %$param
-    ) .
-    ')'
-}
-
-sub where { DBIx::Custom::Next::Where->new(dbi => shift, @_) }
-
-sub _build_query {
-    my ($self, $sql) = @_;
-    
-    $sql ||= '';
-    my $columns = [];
-    my %duplicate;
-    my $duplicate;
-    my $c = $self->{safety_character} || $self->safety_character;
-    # Parameter regex
-    $sql =~ s/([0-9]):/$1\\:/g;
-    while ($sql =~ /(^|.*?[^\\]):([$c\.]+)(?:\{(.*?)\})?(.*)/sg) {
-        push @$columns, $2;
-        $duplicate = 1 if ++$duplicate{$columns->[-1]} > 1;
-        $sql = defined $3 ? "$1$2 $3 ?$4" : "$1?$4";
-    }
-    $sql =~ s/\\:/:/g if index($sql, "\\:") != -1;
-
-    # Create query
-    {sql => $sql, columns => $columns, duplicate => $duplicate};
-}
-
-sub _create_query {
-    
-    my ($self, $source, $after_build_sql) = @_;
-    
-    # Query
-    my $query = $self->_build_query($source);
-
-    # After build sql
-    $query->{sql} = $after_build_sql->($query->{sql}) if $after_build_sql;
-        
-    # 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;
-    
-    return $query;
-}
-
-sub _create_bind_values {
-    my ($self, $params, $columns, $filter, $type_filters, $bind_type) = @_;
-    
-    # Bind type
-    $bind_type ||= {};
-    $bind_type = _array_to_hash($bind_type) if ref $bind_type eq 'ARRAY';
-
-    # Replace filter name to code
-    $filter ||= {};
-    $filter = ref $filter eq 'ARRAY' ? _array_to_hash($filter) : $filter;
-    for 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;
-    my @types;
-    my %count;
-    my %not_exists;
-    for my $column (@$columns) {
-        
-        # Bind 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::Next::NotExists') {
-                    $not_exists{$column}++;
-                }
-                else  {
-                    push @bind, $params->{$column}->[$k];
-                    $found = 1;
-                    last
-                }
-            }
-            next unless $found;
-        }
-        else { push @bind, $params->{$column} }
-        
-        # Filter
-        $bind[-1] = $filter->{$column}->($bind[-1]) if $filter->{$column};
-        
-        # Type rule
-        if ($self->{_type_rule_is_called}) {
-            my $tf1 = $self->{"_into1"}->{dot}->{$column}
-              || $type_filters->{1}->{$column};
-            $bind[-1] = $tf1->($bind[-1]) if $tf1;
-            my $tf2 = $self->{"_into2"}->{dot}->{$column}
-              || $type_filters->{2}->{$column};
-            $bind[-1] = $tf2->($bind[-1]) if $tf2;
-        }
-       
-        # Bind types
-        push @types, $bind_type->{$column};
-        
-        # Count up 
-        $count{$column}++;
-    }
-    
-    return (\@bind, \@types);
-}
-
-sub _id_to_param {
-    my ($self, $id, $primary_keys, $table) = @_;
-    
-    # Check primary key
-    croak "primary_key option " .
-          "must be specified when id option is used" . _subname
-      unless defined $primary_keys;
-    $primary_keys = [$primary_keys] unless ref $primary_keys eq 'ARRAY';
-    
-    # Create parameter
-    my $param = {};
-    if (defined $id) {
-        $id = [$id] unless ref $id;
-        for(my $i = 0; $i < @$id; $i++) {
-           my $key = $primary_keys->[$i];
-           $key = "$table." . $key if $table;
-           $param->{$key} = $id->[$i];
-        }
-    }
-    
-    return $param;
-}
-
-sub _connect {
-    my $self = shift;
-    
-    # Attributes
-    my $dsn = $self->dsn;
-    croak qq{"dsn" must be specified } . _subname
-      unless $dsn;
-    my $user        = $self->user;
-    my $password    = $self->password;
-    my $option = $self->option;
-    $option = {%{$self->default_option}, %$option};
-    
-    # Connect
-    my $dbh;
-    eval {
-        $dbh = DBI->connect(
-            $dsn,
-            $user,
-            $password,
-            $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 _driver { lc shift->{dbh}->{Driver}->{Name} }
-
-sub _need_tables {
-    my ($self, $tree, $need_tables, $tables) = @_;
-    
-    # Get needed tables
-    for 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) = @_;
-    
-    $join = [$join] unless ref $join eq 'ARRAY';
-    
-    # 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 @j_clauses = reverse split /\s(and|on)\s/, $j_clause;
-            my $c = $self->safety_character;
-            my $join_re = qr/($c+)\.$c+[^$c].*?($c+)\.$c+/sm;
-            for my $clause (@j_clauses) {
-                if ($clause =~ $join_re) {
-                    $table1 = $1;
-                    $table2 = $2;
-                    last;
-                }                
-            }
-        }
-        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
-    $$sql .= $tree->{$_}{join} . ' ' for @need_tables;
-}
-
-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 $quoted_safety_character_re = $self->q("?([$safety_character]+)", 1);
-    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_clause_and_param {
-    my ($self, $where, $param, $id, $primary_key, $table) = @_;
-
-    $where ||= {};
-    $where = $self->_id_to_param($id, $primary_key, $table) if defined $id;
-    $param ||= {};
-    my $w = {};
-    my $where_clause = '';
-
-    my $obj;
-    
-    if (ref $where) {
-        if (ref $where eq 'HASH') {
-            my $clause = ['and'];
-            my $column_join = '';
-            for my $column (keys %$where) {
-                $column_join .= $column;
-                my $table;
-                my $c;
-                if ($column =~ /(?:(.*?)\.)?(.*)/) {
-                    $table = $1;
-                    $c = $2;
-                }
-                
-                my $table_quote;
-                $table_quote = $self->q($table) if defined $table;
-                my $column_quote = $self->q($c);
-                $column_quote = $table_quote . '.' . $column_quote
-                  if defined $table_quote;
-                push @$clause, "$column_quote = :$column";
-            }
-
-            # Check unsafety column
-            my $safety = $self->safety_character;
-            unless ($column_join =~ /^[$safety\.]+$/) {
-                for my $column (keys %$where) {
-                    croak qq{"$column" is not safety column name } . _subname
-                      unless $column =~ /^[$safety\.]+$/;
-                }
-            }
-            
-            $obj = $self->where(clause => $clause, param => $where);
-        }
-        elsif (ref $where eq 'DBIx::Custom::Next::Where') { $obj = $where }
-        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::Next::Where object}
-            . qq{or array reference, which contains where clause and parameter}
-            . _subname
-          unless ref $obj eq 'DBIx::Custom::Next::Where';
-
-        $w->{param} = keys %$param
-                    ? $self->merge_param($param, $obj->param)
-                    : $obj->param;
-        $w->{clause} = $obj->to_string;
-    }
-    elsif ($where) {
-        $w->{clause} = "where $where";
-        $w->{param} = $param;
-    }
-    
-    return $w;
-}
-
-1;
-
-=head1 NAME
-
-DBIx::Custom::Next - DBI extension to execute insert, update, delete, and select easily
-
-=head1 SYNOPSIS
-
-    use DBIx::Custom::Next;
-    
-    # Connect
-    my $dbi = DBIx::Custom::Next->connect(
-        dsn => "dbi:mysql:database=dbname",
-        user => 'ken',
-        password => '!LFKD%$&',
-        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 DESCRIPTION
-
-L<DBIx::Custom::Next> 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
-
-=item *
-
-Create C<order by> clause flexibly
-
-=back
-
-=head1 DOCUMENTATION
-
-L<DBIx::Custom::Next::Guide> - How to use L<DBIx::Custom::Next>
-
-L<DBIx::Custom::Next Wiki|https://github.com/yuki-kimoto/DBIx-Custom/wiki>
-- Theare are various examples.
-
-Module documentations - 
-L<DBIx::Custom::Next::Result>,
-L<DBIx::Custom::Next::Query>,
-L<DBIx::Custom::Next::Where>,
-L<DBIx::Custom::Next::Model>,
-L<DBIx::Custom::Next::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_option> to L<DBIx::Connector> C<new> method.
-
-    my $connector = DBIx::Connector->new(
-        "dbi:mysql:database=$database",
-        $user,
-        $password,
-        DBIx::Custom::Next->new->default_option
-    );
-    
-    my $dbi = DBIx::Custom::Next->connect(connector => $connector);
-
-If C<connector> is set to 1 when connect method is called,
-L<DBIx::Connector> is automatically set to C<connector>
-
-    my $dbi = DBIx::Custom::Next->connect(
-      dsn => $dsn, user => $user, password => $password, connector => 1);
-    
-    my $connector = $dbi->connector; # DBIx::Connector
-
-Note that L<DBIx::Connector> must be installed.
-
-=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<default_option>
-
-    my $default_option = $dbi->default_option;
-    $dbi = $dbi->default_option($default_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<exclude_table>
-
-    my $exclude_table = $dbi->exclude_table;
-    $dbi = $dbi->exclude_table(qr/pg_/);
-
-Excluded table regex.
-C<each_column>, C<each_table>, C<type_rule>,
-and C<setup_model> methods ignore matching tables.
-
-=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<now>
-
-    my $now = $dbi->now;
-    $dbi = $dbi->now($now);
-
-Code reference which return current time, default to the following code reference.
-
-    sub {
-        my ($sec, $min, $hour, $mday, $mon, $year) = localtime;
-        $mon++;
-        $year += 1900;
-        return sprintf("%04d-%02d-%02d %02d:%02d:%02d");
-    }
-
-This return the time like C<2011-10-14 05:05:27>.
-
-This is used by C<insert> method's C<created_at> option and C<updated_at> option,
-and C<update> method's C<updated_at> option.
-
-=head2 C<models>
-
-    my $models = $dbi->models;
-    $dbi = $dbi->models(\%models);
-
-Models, included by C<include_model> method.
-
-=head2 C<option>
-
-    my $option = $dbi->option;
-    $dbi = $dbi->option($option);
-
-L<DBI> option, used when C<connect> method is executed.
-Each value in option override the value of C<default_option>.
-
-=head2 C<password>
-
-    my $password = $dbi->password;
-    $dbi = $dbi->password('lkj&le`@s');
-
-Password, used when C<connect> method is executed.
-
-=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::Next::Result');
-
-Result class, default to L<DBIx::Custom::Next::Result>.
-
-=head2 C<safety_character>
-
-    my $safety_character = $dbi->safety_character;
-    $dbi = $dbi->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<separator>
-
-    my $separator = $dbi->separator;
-    $dbi = $dbi->separator('-');
-
-Separator which join table name and column name.
-This have effect to C<column> and C<mycolumn> method,
-and C<select> method's column option.
-
-Default to C<.>.
-
-=head2 C<user>
-
-    my $user = $dbi->user;
-    $dbi = $dbi->user('Ken');
-
-User name, used when C<connect> method is executed.
-
-=head2 C<user_column_info>
-
-    my $user_column_info = $dbi->user_column_info;
-    $dbi = $dbi->user_column_info($user_column_info);
-
-You can set the date like the following one.
-
-    [
-        {table => 'book', column => 'title', info => {...}},
-        {table => 'author', column => 'name', info => {...}}
-    ]
-
-Usually, you set return value of C<get_column_info>.
-
-    my $user_column_info
-      = $dbi->get_column_info(exclude_table => qr/^system/);
-    $dbi->user_column_info($user_column_info);
-
-If C<user_column_info> is set, C<each_column> use C<user_column_info>
-to find column info. this is very fast.
-
-=head2 C<user_table_info>
-
-    my $user_table_info = $dbi->user_table_info;
-    $dbi = $dbi->user_table_info($user_table_info);
-
-You can set the following data.
-
-    [
-        {table => 'book', info => {...}},
-        {table => 'author', info => {...}}
-    ]
-
-Usually, you can set return value of C<get_table_info>.
-
-    my $user_table_info = $dbi->get_table_info(exclude => qr/^system/);
-    $dbi->user_table_info($user_table_info);
-
-If C<user_table_info> is set, C<each_table> use C<user_table_info>
-to find table info.
-
-=head1 METHODS
-
-L<DBIx::Custom::Next> inherits all methods from L<Object::Simple>
-and use all methods of L<DBI>
-and implements the following new ones.
-
-=head2 C<available_datatype>
-
-    print $dbi->available_datatype;
-
-Get available data types. You can use these data types
-in C<type rule>'s C<from1> and C<from2> section.
-
-=head2 C<available_typename>
-
-    print $dbi->available_typename;
-
-Get available type names. You can use these type names in
-C<type_rule>'s C<into1> and C<into2> section.
-
-=head2 C<assign_clause>
-
-    my $assign_clause = $dbi->assign_clause({title => 'a', age => 2});
-
-Create assign clause
-
-    title = :title, author = :author
-
-This is used to create update clause.
-
-    "update book set " . $dbi->assign_clause({title => 'a', age => 2});
-
-=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> attribute.
-
-    # Separator is hyphen
-    $dbi->separator('-');
-    
-    book.author as "book-author",
-    book.title as "book-title"
-    
-=head2 C<connect>
-
-    my $dbi = DBIx::Custom::Next->connect(
-        dsn => "dbi:mysql:database=dbname",
-        user => 'ken',
-        password => '!LFKD%$&',
-        option => {mysql_enable_utf8 => 1}
-    );
-
-Connect to the database and create a new L<DBIx::Custom::Next> object.
-
-L<DBIx::Custom::Next> is a wrapper of L<DBI>.
-C<AutoCommit> and C<RaiseError> options are true, 
-and C<PrintError> option is false by default.
-
-=head2 C<count>
-
-    my $count = $dbi->count(table => 'book');
-
-Get rows count.
-
-Options is same as C<select> method's ones.
-
-=head2 C<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::Next::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<delete>
-
-    $dbi->delete(table => 'book', where => {title => 'Perl'});
-
-Execute delete statement.
-
-The following opitons are available.
-
-B<OPTIONS>
-
-C<delete> method use all of C<execute> method's options,
-and use the following new ones.
-
-=over 4
-
-=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(
-        primary_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<table>
-
-    table => 'book'
-
-Table name.
-
-=item C<where>
-
-Same as C<select> method's C<where> 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<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 in database.
-Argument is callback which is executed when one column is found.
-Callback receive four arguments. C<DBIx::Custom::Next object>, C<table name>,
-C<column name>, and C<column information>.
-
-If C<user_column_info> is set, C<each_column> method use C<user_column_info>
-infromation, you can improve the performance of C<each_column> in
-the following way.
-
-    my $column_infos = $dbi->get_column_info(exclude_table => qr/^system_/);
-    $dbi->user_column_info($column_info);
-    $dbi->each_column(sub { ... });
-
-=head2 C<each_table>
-
-    $dbi->each_table(
-        sub {
-            my ($dbi, $table, $table_info) = @_;
-            
-            my $table_name = $table_info->{TABLE_NAME};
-        }
-    );
-
-Iterate all table informationsfrom in database.
-Argument is callback which is executed when one table is found.
-Callback receive three arguments, C<DBIx::Custom::Next object>, C<table name>,
-C<table information>.
-
-If C<user_table_info> is set, C<each_table> method use C<user_table_info>
-infromation, you can improve the performance of C<each_table> in
-the following way.
-
-    my $table_infos = $dbi->get_table_info(exclude => qr/^system_/);
-    $dbi->user_table_info($table_info);
-    $dbi->each_table(sub { ... });
-
-=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::Next::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";
-
-B<OPTIONS>
-
-The following opitons are available.
-
-=over 4
-
-=item C<after_build_sql> 
-
-You can filter sql after the sql is build.
-
-    after_build_sql => $code_ref
-
-The following one is one example.
-
-    $dbi->select(
-        table => 'book',
-        column => 'distinct(name)',
-        after_build_sql => sub {
-            "select count(*) from ($_[0]) as t1"
-        }
-    );
-
-The following SQL is executed.
-
-    select count(*) from (select distinct(name) from book) as t1;
-
-=item C<append>
-
-    append => 'order by name'
-
-Append some statement after SQL.
-
-=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<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::Next::Query> object, not executing SQL.
-You can check SQL, column, or get statment handle.
-
-    my $sql = $query->{sql};
-    my $sth = $query->{sth};
-    my $columns = $query->{columns};
-    
-=item C<reuse>
-    
-    reuse => $hash_ref
-
-Reuse query object if the hash reference variable is set.
-    
-    my $queries = {};
-    $dbi->execute($sql, $param, reuse => $queries);
-
-This will improved performance when you want to execute same query repeatedly
-because generally creating query object is slow.
-
-=item C<primary_key>
-
-    primary_key => 'id'
-    primary_key => ['id1', 'id2']
-
-Priamry key. This is used for C<id> option.
-
-=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<table_alias>
-
-    table_alias => {user => 'worker'}
-
-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>
-
-    type_rule_off => 1
-
-Turn C<into1> and C<into2> type rule off.
-
-=item C<type_rule1_off>
-
-    type_rule1_off => 1
-
-Turn C<into1> type rule off.
-
-=item C<type_rule2_off>
-
-    type_rule2_off => 1
-
-Turn C<into2> type rule off.
-
-=back
-
-=head2 C<get_column_info>
-
-    my $column_infos = $dbi->get_column_info(exclude_table => qr/^system_/);
-
-get column infomation except for one which match C<exclude_table> pattern.
-
-    [
-        {table => 'book', column => 'title', info => {...}},
-        {table => 'author', column => 'name' info => {...}}
-    ]
-
-=head2 C<get_table_info>
-
-    my $table_infos = $dbi->get_table_info(exclude => qr/^system_/);
-
-get table infomation except for one which match C<exclude> pattern.
-
-    [
-        {table => 'book', info => {...}},
-        {table => 'author', info => {...}}
-    ]
-
-You can set this value to C<user_table_info>.
-
-=head2 C<helper>
-
-    $dbi->helper(
-        find_or_create   => sub {
-            my $self = shift;
-            
-            # Process
-        },
-        ...
-    );
-
-Register helper. These helper is called directly from L<DBIx::Custom::Next> object.
-
-    $dbi->find_or_create;
-
-=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()"}
-
-B<options>
-
-C<insert> method use all of C<execute> method's options,
-and use the following new ones.
-
-=over 4
-
-=item C<created_at>
-
-    created_at => 'created_datetime'
-
-Created timestamp column name. time when row is created is set to the column.
-default time format is "YYYY-mm-dd HH:MM:SS", which can be changed by
-C<now> attribute.
-
-=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'}
-        primary_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<table>
-
-    table => 'book'
-
-Table name.
-
-=item C<updated_at>
-
-This option is same as C<update> method C<updated_at> option.
-
-=item C<wrap>
-
-    wrap => {price => sub { "max($_[0])" }}
-
-placeholder wrapped string.
-
-If the following statement
-
-    $dbi->insert({price => 100}, table => 'book',
-      {price => sub { "$_[0] + 5" }});
-
-is executed, the following SQL is executed.
-
-    insert into book price values ( ? + 5 );
-
-=back
-
-=over 4
-
-=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::Next::Model>.
-
-B<MyModel.pm>
-
-    package MyModel;
-    use DBIx::Custom::Next::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::Next::Model> to know model features.
-
-=head2 C<like_value>
-
-    my $like_value = $dbi->like_value
-
-Code reference which return a value for the like value.
-
-    sub { "%$_[0]%" }
-
-=head2 C<mapper>
-
-    my $mapper = $dbi->mapper(param => $param);
-
-Create a new L<DBIx::Custom::Next::Mapper> object.
-
-=head2 C<merge_param>
-
-    my $param = $dbi->merge_param({key1 => 1}, {key1 => 1, key2 => 2});
-
-Merge parameters. The following new parameter is created.
-
-    {key1 => [1, 1], key2 => 2}
-
-If same keys contains, the value is converted to array reference.
-
-=head2 C<model>
-
-    my $model = $dbi->model('book');
-
-Get a L<DBIx::Custom::Next::Model> object
-create by C<create_model> or C<include_model>
-
-=head2 C<mycolumn>
-
-    my $column = $dbi->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::Next->new(
-        dsn => "dbi:mysql:database=dbname",
-        user => 'ken',
-        password => '!LFKD%$&',
-        option => {mysql_enable_utf8 => 1}
-    );
-
-Create a new L<DBIx::Custom::Next> object.
-
-=head2 C<not_exists>
-
-    my $not_exists = $dbi->not_exists;
-
-DBIx::Custom::Next::NotExists object, indicating the column is not exists.
-This is used in C<param> of L<DBIx::Custom::Next::Where> .
-
-=head2 C<order>
-
-    my $order = $dbi->order;
-
-Create a new L<DBIx::Custom::Next::Order> object.
-
-=head2 C<q>
-
-    my $quooted = $dbi->q("title");
-
-Quote string by value of C<quote>.
-
-=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<select>
-
-    my $result = $dbi->select(
-        table  => 'book',
-        column => ['author', 'title'],
-        where  => {author => 'Ken'},
-    );
-    
-Execute select statement.
-
-B<OPTIONS>
-
-C<select> method use all of C<execute> method's options,
-and use the following new ones.
-
-=over 4
-
-=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<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(
-        primary_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>
-
-    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.
-
-    $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<table>
-
-    table => 'book'
-
-Table name.
-
-=item C<where>
-    
-    # Hash refrence
-    where => {author => 'Ken', 'title' => 'Perl'}
-    
-    # DBIx::Custom::Next::Where object
-    where => $dbi->where(
-        clause => ['and', ':author{=}', ':title{like}'],
-        param  => {author => 'Ken', title => '%Perl%'}
-    );
-    
-    # Array reference, this is same as above
-    where => [
-        ['and', ':author{=}', ':title{like}'],
-        {author => 'Ken', title => '%Perl%'}
-    ];
-    
-    # String
-    where => 'title is null'
-
-Where clause. See L<DBIx::Custom::Next::Where>.
-    
-=back
-
-=head2 C<setup_model>
-
-    $dbi->setup_model;
-
-Setup all model objects.
-C<columns> of model object is automatically set, parsing database information.
-
-=head2 C<type_rule>
-
-    $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_typename>.
-
-    print $dbi->available_typename;
-
-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_datatype>.
-
-    print $dbi->available_datatype;
-
-You can also specify multiple types at once.
-
-    $dbi->type_rule(
-        into1 => [
-            [qw/DATE DATETIME/] => sub { ... },
-        ],
-    );
-
-=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()"}
-
-B<OPTIONS>
-
-C<update> method use all of C<execute> method's options,
-and use the following new ones.
-
-=over 4
-
-=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'}
-        primary_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<table>
-
-    table => 'book'
-
-Table name.
-
-=item C<where>
-
-Same as C<select> method's C<where> option.
-
-=item C<wrap>
-
-    wrap => {price => sub { "max($_[0])" }}
-
-placeholder wrapped string.
-
-If the following statement
-
-    $dbi->update({price => 100}, table => 'book',
-      {price => sub { "$_[0] + 5" }});
-
-is executed, the following SQL is executed.
-
-    update book set price =  ? + 5;
-
-=item C<updated_at>
-
-    updated_at => 'updated_datetime'
-
-Updated timestamp column name. time when row is updated is set to the column.
-default time format is C<YYYY-mm-dd HH:MM:SS>, which can be changed by
-C<now> attribute.
-
-=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_or_insert>
-    
-    # ID
-    $dbi->update_or_insert(
-        {title => 'Perl'},
-        table => 'book',
-        id => 1,
-        primary_key => 'id',
-        option => {
-            select => {
-                 append => 'for update'
-            }
-        }
-    );
-
-Update or insert.
-
-C<update_or_insert> method execute C<select> method first to find row.
-If the row is exists, C<update> is executed.
-If not, C<insert> is executed.
-
-C<OPTIONS>
-
-C<update_or_insert> method use all common option
-in C<select>, C<update>, C<delete>, and has the following new ones.
-
-=over 4
-
-=item C<option>
-
-    option => {
-        select => {
-            append => '...'
-        },
-        insert => {
-            prefix => '...'
-        },
-        update => {
-            filter => {}
-        }
-    }
-
-If you want to pass option to each method,
-you can use C<option> option.
-
-=over 4
-
-=item C<select_option>
-
-    select_option => {append => 'for update'}
-
-select method option,
-select method is used to check the row is already exists.
-
-=head2 C<show_datatype>
-
-    $dbi->show_datatype($table);
-
-Show data type of the columns of specified table.
-
-    book
-    title: 5
-    issue_date: 91
-
-This data type is used in C<type_rule>'s C<from1> and C<from2>.
-
-=head2 C<show_tables>
-
-    $dbi->show_tables;
-
-Show tables.
-
-=head2 C<show_typename>
-
-    $dbi->show_typename($table);
-
-Show type name of the columns of specified table.
-
-    book
-    title: varchar
-    issue_date: date
-
-This type name is used in C<type_rule>'s C<into1> and C<into2>.
-
-=head2 C<values_clause>
-
-    my $values_clause = $dbi->values_clause({title => 'a', age => 2});
-
-Create values clause.
-
-    (title, author) values (title = :title, age = :age);
-
-You can use this in insert statement.
-
-    my $insert_sql = "insert into book $values_clause";
-
-=head2 C<where>
-
-    my $where = $dbi->where(
-        clause => ['and', 'title = :title', 'author = :author'],
-        param => {title => 'Perl', author => 'Ken'}
-    );
-
-Create a new L<DBIx::Custom::Next::Where> object.
-
-=head1 ENVIRONMENTAL VARIABLES
-
-=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 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

-249

lib/DBIx/Custom/Next/Mapper.pm

View

@@ -1,249 +0,0 @@
-package DBIx::Custom::Next::Mapper;
-use Object::Simple -base;
-
-use DBIx::Custom::Next::NotExists;
-
-use Carp 'croak';
-use DBIx::Custom::Next::Util '_subname';
-
-# Carp trust relationship
-push @DBIx::Custom::Next::CARP_NOT, __PACKAGE__;
-
-has [qw/param/],
-    condition => sub {
-        sub { defined $_[0] && length $_[0] }
-    },
-    pass => sub { [] };
-
-sub map {
-    my ($self, %rule) = @_;
-    my $param = $self->param;
-    $rule{$_} = {key => $_} for @{$self->pass};
-    
-    # Mapping
-    my $new_param = {};
-    for my $key (keys %rule) {
-        
-        my $mapping = $rule{$key};
-        
-        # Get mapping information
-        my $new_key;
-        my $value;
-        my $condition;
-        
-        if (ref $mapping eq 'ARRAY') {
-            $new_key = $mapping->[0];
-            $value = $mapping->[1];
-            $condition = ref $mapping->[2] eq 'HASH' ? $mapping->[2]->{condition} : $mapping->[2];
-        }
-        elsif (ref $mapping eq 'HASH') {
-            $new_key = $mapping->{key};
-            $value = $mapping->{value};
-            $condition = $mapping->{condition};
-        }
-        
-        $new_key = $key unless defined $new_key;
-        $condition ||= $self->condition;
-        $condition = $self->_condition_to_sub($condition);
-
-        # Map parameter
-        if (ref $condition eq 'CODE') {
-            if (ref $param->{$key} eq 'ARRAY') {
-                $new_param->{$new_key} = [];
-                for (my $i = 0; $i < @{$param->{$key}}; $i++) {
-                    $new_param->{$new_key}->[$i]
-                      = $condition->($param->{$key}->[$i]) ? $param->{$key}->[$i]
-                      : DBIx::Custom::Next::NotExists->singleton;
-                }
-            }
-            else {
-              if ($condition->($param->{$key})) {
-                  $new_param->{$new_key} = defined $value
-                                         ? $value->($param->{$key})
-                                         : $param->{$key};
-              }
-            }
-        }
-        elsif ($condition eq 'exists') {
-            if (ref $param->{$key} eq 'ARRAY') {
-                $new_param->{$new_key} = [];
-                for (my $i = 0; $i < @{$param->{$key}}; $i++) {
-                    $new_param->{$new_key}->[$i]
-                      = exists $param->{$key}->[$i] ? $param->{$key}->[$i]
-                      : DBIx::Custom::Next::NotExists->singleton;
-                }
-            }
-            else {
-                if (exists $param->{$key}) {
-                    $new_param->{$new_key} = defined $value
-                                           ? $value->($param->{$key})
-                                           : $param->{$key};
-                }
-            }
-        }
-        else { croak qq/Condition must be code reference or "exists" / . _subname }
-    }
-    
-    return $new_param;
-}
-
-sub new {
-    my $self = shift->SUPER::new(@_);
-    
-    # Check attribute names
-    my @attrs = keys %$self;
-    for my $attr (@attrs) {
-        croak qq{"$attr" is invalid attribute name (} . _subname . ")"
-          unless $self->can($attr);
-    }
-    
-    return $self;
-}
-
-
-sub _condition_to_sub {
-    my ($self, $if) = @_;
-    $if = $if eq 'exists' ? $if
-            : $if eq 'defined' ? sub { defined $_[0] }
-            : $if eq 'length'  ? sub { defined $_[0] && length $_[0] }
-            : ref $if eq 'CODE' ? $if
-            : undef;
-
-    croak "You can must specify right value to C<condition> " . _subname
-      unless $if;
-    
-    return $if;
-}
-
-1;
-
-=head1 NAME
-
-DBIx::Custom::Next::Mapper - Mapper of parameter
-
-=head1 SYNOPSYS
-
-    my $mapper = $dbi->mapper(param => $param);
-    my $new_param = $mapper->map(
-        title => 'book.title', # Key
-        author => sub { '%' . $_[0] . '%'} # Value
-        price => ['book.price' => sub { '%' . $_[0] . '%' }], # Key and value
-    );
-
-=head1 ATTRIBUTES
-
-=head2 C<param>
-
-    my $param = $mapper->param;
-    $mapper = $mapper->param({title => 'Perl', author => 'Ken'});
-
-Parameter.
-
-=head2 C<pass>
-
-    my $pass = $mapper->pass;
-    $mapper = $mapper->pass([qw/title author/]);
-
-the key and value is copied without change when C<map> method is executed.
-
-=head2 C<condition>
-
-    my $condition = $mapper->condition;
-    $mapper = $mapper->condition('exists');
-
-Mapping condtion, default to C<length>.
-
-You can set the following values to C<condition>.
-
-=over 4
-
-=item * C<exists>
-   
-    condition => 'exists'
-
-If key exists, key and value is mapped.
-
-=item * C<defined>
-
-    condition => 'defined';
-
-If value is defined, key and value is mapped.
-
-=item * C<length>
-
-    condition => 'length';
-
-If value is defined and has length, key and value is mapped.
-
-=item * C<code reference>
-
-    condition => sub { defined $_[0] }
-
-You can set code reference to C<condtion>.
-The subroutine return true, key and value is mapped.
-
-=head1 METHODS
-
-L<DBIx::Custom::Next::Mapper> inherits all methods from L<Object::Simple>
-and implements the following new ones.
-
-=head2 C<map>
-
-    my $new_param = $mapper->map(
-        price => {key => 'book.price'}
-        title => {value => sub { '%' . $_[0] . '%'}}
-        author => ['book.author' => sub { '%' . $_[0] . '%'}] # Key and value
-    );
-
-Map C<param> into new parameter.
-
-For example, if C<param> is set to
-
-    {
-        price => 1900,
-        title => 'Perl',
-        author => 'Ken',
-        issue_date => '2010-11-11'
-    }
-
-The following hash reference is returned.
-
-    {
-        'book.price' => 1900,
-        title => '%Perl%',
-        'book.author' => '%Ken%',
-    }
-
-By default, If the value has length, key and value is mapped.
-
-    title => 'Perl'  # Mapped
-    {title => '' }   # Not mapped
-    {title => undef} # Not mapped
-    {}               # Not mapped
-
-You can set change mapping condition by C<condition> attribute.
-
-    $mapper->condition('defined');
-
-Or you can set C<condtion> option for each key.
-
-    my $new_param = $mapper->map(
-        price => {key => 'book.price', condition => 'defined'}]
-        title => {value => sub { '%' . $_[0] . '%'}, condition => 'defined'}
-        author => ['book.author', sub { '%' . $_[0] . '%'}, 'exists']
-    );
-
-If C<pass> attrivute is set, the keys and value is copied without change.
-
-    $mapper->pass([qw/title author/]);
-    my $new_param = $mapper->map(price => {key => 'book.price'});
-
-The following hash reference
-    
-    {title => 'Perl', author => 'Ken', price => 1900}
-
-is mapped to
-
-    {title => 'Perl', author => 'Ken', 'book.price' => 1900}
-
-=cut

-302

lib/DBIx/Custom/Next/Model.pm

View

@@ -1,302 +0,0 @@
-package DBIx::Custom::Next::Model;
-use Object::Simple -base;
-
-use Carp 'croak';
-use DBIx::Custom::Next::Util '_subname';
-
-# Carp trust relationship
-push @DBIx::Custom::Next::CARP_NOT, __PACKAGE__;
-
-has [qw/dbi table created_at updated_at bind_type join primary_key/],
-    columns => 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 update update_all delete delete_all select count/;
-for my $method (@methods) {
-    
-    my $code =
-         qq/sub {/ .
-         qq/my \$self = shift;/ .
-         qq/\$self->dbi->$method(/;
-    
-    $code .= qq/shift,/
-      if $method eq  'insert' || $method eq 'update' || $method eq 'update_all';
-    
-    my @attrs = qw/table primary_key bind_type/;
-    my @insert_attrs = qw/created_at updated_at/;
-    my @update_attrs = qw/updated_at/;
-    my @select_attrs = qw/join/;
-    if ($method eq 'insert') { push @attrs, @insert_attrs }
-    elsif ($method eq 'update') { push @attrs, @update_attrs }
-    elsif (index($method, 'select') != -1) { push @attrs, @select_attrs }
-    
-    for my $attr (@attrs) {
-        $code .= "exists \$self->{$attr} ? ($attr => \$self->{$attr}) : (),";
-    }
-    
-    $code .= qq/\@_);/ .
-         qq/}/;
-    
-    no strict 'refs';
-    *{__PACKAGE__ . "::$method"} = eval $code;
-    croak $code if $@;
-}
-
-sub update_or_insert {
-    my ($self, $param, %opt) = @_;
-    
-    croak "update_or_insert method need primary_key and id option "
-      unless (defined $opt{id} || defined $self->{id})
-          && (defined $opt{primary_key} || defined $self->{primary_key});
-    
-    my $statement_opt = $opt{option} || {};
-    my $rows = $self->select(%opt, %{$statement_opt->{select} || {}})->all;
-    if (@$rows == 0) {
-        return $self->insert($param, %opt, %{$statement_opt->{insert} || {}});
-    }
-    elsif (@$rows == 1) {
-        return $self->update($param, %opt, %{$statement_opt->{update} || {}});
-    }
-    else {
-        croak "selected row must be one " . _subname;
-    }
-}
-
-sub DESTROY { }
-
-sub helper {
-    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;
-    for my $attr (@attrs) {
-        croak qq{"$attr" is invalid attribute name } . _subname
-          unless $self->can($attr);
-    }
-    
-    # Cache
-    for my $attr (qw/dbi table created_at updated_at bind_type join primary_key/) {
-        $self->$attr;
-        $self->{$attr} = undef unless exists $self->{$attr};
-    }
-    $self->columns;
-    
-    return $self;
-}
-
-1;
-
-=head1 NAME
-
-DBIx::Custom::Next::Model - Model
-
-=head1 SYNOPSIS
-
-use DBIx::Custom::Next::Model;
-
-my $model = DBIx::Custom::Next::Model->new(table => 'books');
-
-=head1 ATTRIBUTES
-
-=head2 C<dbi>
-
-    my $dbi = $model->dbi;
-    $model = $model->dbi($dbi);
-
-L<DBIx::Custom::Next> object.
-
-=head2 C<created_at EXPERIMENTAL>
-
-    my $created_at = $model->created_at;
-    $model = $model->created_at('created_datatime');
-
-Create timestamp column, this is passed to C<insert> or C<update> method.
-
-=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 $model = $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>,
-and C<select> method
-
-=head2 C<updated_at EXPERIMENTAL>
-
-    my $updated_at = $model->updated_at;
-    $model = $model->updated_at('updated_datatime');
-
-Updated timestamp column, this is passed to C<update> method.
-
-=head1 METHODS
-
-L<DBIx::Custom::Next::Model> inherits all methods from L<Object::Simple>,
-and you can use all methods of L<DBIx::Custom::Next> and L<DBI>
-and implements the following new ones.
-
-=head2 C<count>
-
-    my $count = $model->count;
-
-Get rows count.
-
-Options is same as C<select> method's ones.
-
-=head2 C<delete>
-
-    $model->delete(...);
-    
-Same as C<delete> of L<DBIx::Custom::Next> except that
-you don't have to specify options if you set attribute in model.
-
-=head2 C<delete_all>
-
-    $model->delete_all(...);
-    
-Same as C<delete_all> of L<DBIx::Custom::Next> except that
-you don't have to specify options if you set attribute in model.
-
-=head2 C<insert>
-
-    $model->insert(...);
-    
-Same as C<insert> of L<DBIx::Custom::Next> except that
-you don't have to specify options if you set attribute in model.
-
-=head2 C<helper>
-
-    $model->helper(
-        update_or_insert => sub {
-            my $self = shift;
-            
-            # ...
-        },
-        find_or_create   => sub {
-            my $self = shift;
-            
-            # ...
-    );
-
-Register helper. These helper is called directly from L<DBIx::Custom::Next::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 $model = DBIx::Custom::Next::Model->new;
-
-Create a L<DBIx::Custom::Next::Model> object.
-
-=head2 C<select>
-
-    $model->select(...);
-    
-Same as C<select> of L<DBIx::Custom::Next> except that
-you don't have to specify options if you set attribute in model.
-
-=head2 C<update>
-
-    $model->update(...);
-    
-Same as C<update> of L<DBIx::Custom::Next> except that
-you don't have to specify options if you set attribute in model.
-
-=head2 C<update_all>
-
-    $model->update_all(param => \%param);
-    
-Same as C<update_all> of L<DBIx::Custom::Next> except that
-you don't have to specify options if you set attribute in model.
-
-=head2 C<update_or_insert>
-
-    $model->update_or_insert(...);
-    
-Same as C<update> of L<DBIx::Custom::Next> except that
-you don't have to specify options if you set attribute in model.
-
-=cut

-26

lib/DBIx/Custom/Next/NotExists.pm

View

@@ -1,26 +0,0 @@
-package DBIx::Custom::Next::NotExists;
-
-use strict;
-use warnings;
-
-my $not_exists = bless {}, 'DBIx::Custom::Next::NotExists';
-
-sub singleton { $not_exists }
-
-=head1 NAME
-
-DBIx::Custom::Next::NotExists
-
-=head1 SYNOPSYS
-
-    $not_exists = DBIx::Custom::Next::NotExists->singleton;
-
-=head1 METHODS
-
-=head2 C<singleton>
-
-    $not_exists = DBIx::Custom::Next::NotExists->singleton;
-
-L<DBIx::Custom::Next::NotExists> singleton object.
-
-=cut

-89

lib/DBIx/Custom/Next/Order.pm

View

@@ -1,89 +0,0 @@
-package DBIx::Custom::Next::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;
-    
-    for my $order (reverse @_) {
-        unshift @{$self->orders}, $order;
-    }
-    
-    return $self;
-}
-
-sub to_string {
-    my $self = shift;
-    
-    my $exists = {};
-    my @orders;
-    for 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::Next::Order - Order by
-
-=head1 SYNOPSIS
-
-    # Result
-    my $order = DBIx::Custom::Next::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::Next> object.
-
-=head2 C<orders>
-
-    my $orders = $result->orders;
-    $result = $result->orders(\%orders);
-
-Parts of order by clause
-
-=head1 METHODS
-
-L<DBIx::Custom::Next::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>.
-
-=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
-

-505

lib/DBIx/Custom/Next/Result.pm

View

@@ -1,505 +0,0 @@
-package DBIx::Custom::Next::Result;
-use Object::Simple -base;
-
-use Carp 'croak';
-use DBIx::Custom::Next::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);
-        for 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 fetch {
-    my $self = shift;
-    
-    # Info
-    $self->_cache unless $self->{_cache};
-    
-    # Fetch
-    my @row = $self->{sth}->fetchrow_array;
-    return unless @row;
-    
-    # Type rule
-    if ($self->{type_rule}->{from1} && !$self->{type_rule_off} && !$self->{type_rule1_off}) {
-        my $from = $self->{type_rule}->{from1};
-        for my $type (keys %$from) {
-            for my $column (@{$self->{_type_map}->{$type}}) {
-                $row[$_] = $from->{$type}->($row[$_])
-                  for @{$self->{_pos}{$column} || []};
-            }
-        }
-    }
-    if ($self->{type_rule}->{from2} && !$self->{type_rule_off} && !$self->{type_rule2_off}) {
-        my $from = $self->{type_rule}->{from2};
-        for my $type (keys %$from) {
-            for my $column (@{$self->{_type_map}->{$type}}) {
-                $row[$_] = $from->{$type}->($row[$_])
-                  for @{$self->{_pos}{$column} || []};
-            }
-        }
-    }
-    
-    # Filter
-    if ($self->{filter}) {
-         for my $column (keys %{$self->{filter}}) {
-             my $filter = $self->{filter}->{$column};
-             next unless $filter;
-             $row[$_] = $filter->($row[$_])
-               for @{$self->{_pos}{$column} || []};
-         }
-    }
-    return \@row;
-}
-
-sub fetch_hash {
-    my $self = shift;
-    
-    # Info
-    $self->_cache unless $self->{_cache};
-    
-    # Fetch
-    return unless my $row = $self->{sth}->fetchrow_hashref;
-    
-    # Type rule
-    if ($self->{type_rule}->{from1} &&
-      !$self->{type_rule_off} && !$self->{type_rule1_off})
-    {
-        my $from = $self->{type_rule}->{from1};
-        for my $type (keys %$from) {
-            $from->{$type} and $row->{$_} = $from->{$type}->($row->{$_})
-              for @{$self->{_type_map}->{$type}};
-        }
-    }
-    if ($self->{type_rule}->{from2} &&
-      !$self->{type_rule_off} && !$self->{type_rule2_off})
-    {
-        my $from = $self->{type_rule}->{from2};
-        for my $type (keys %{$self->{type_rule}->{from2}}) {
-            $from->{$type} and $row->{$_} = $from->{$type}->($row->{$_})
-              for @{$self->{_type_map}->{$type}};
-        }
-    }        
-    # Filter
-    if ($self->{filter}) {
-       exists $row->{$_} && $self->{filter}->{$_}
-           and $row->{$_} = $self->{filter}->{$_}->($row->{$_})
-         for keys %{$self->{filter}};
-    }
-    $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_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;
-    
-    return if $self->{_finished};
-
-    my $rows = [];
-    for (my $i = 0; $i < $count; $i++) {
-        my $row = $self->fetch_hash;
-        unless ($row) {
-            $self->{_finished} = 1;
-            last;
-        }
-        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;
-    
-    return if $self->{_finished};
-    
-    # Fetch multi rows
-    my $rows = [];
-    for (my $i = 0; $i < $count; $i++) {
-        my $row = $self->fetch;
-        unless ($row) {
-            $self->{_finished} = 1;
-            last;
-        }
-        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
-        for my $i (1 .. 2) {
-            $type_rule->{"from$i"} = _array_to_hash($type_rule->{"from$i"});
-            for 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;
-}
-
-sub _cache {
-    my $self = shift;
-    $self->{_type_map} = {};
-    $self->{_pos} = {};
-    $self->{_columns} = {};
-    for (my $i = 0; $i < @{$self->{sth}->{NAME}}; $i++) {
-        my $type = lc $self->{sth}{TYPE}[$i];
-        my $name = $self->{sth}{NAME}[$i];
-        $self->{_type_map}{$type} ||= [];
-        push @{$self->{_type_map}{$type}}, $name;
-        $self->{_pos}{$name} ||= [];
-        push @{$self->{_pos}{$name}}, $i;
-        $self->{_columns}{$name} = 1;
-    }
-    $self->{_cache} = 1;
-}
-
-1;
-
-=head1 NAME
-
-DBIx::Custom::Next::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::Next> object.
-
-=head2 C<sth>
-
-    my $sth = $reuslt->sth
-    $result = $result->sth($sth);
-
-Statement handle of L<DBI>.
-
-=head1 METHODS
-
-L<DBIx::Custom::Next::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<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>
-    
-    # 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::Next>'s C<type_rule>'s <from>.
-
-=head2 C<type_rule_off>
-
-    $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>
-
-    $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>
-
-    $result = $result->type_rule1_off;
-
-Turn C<from1> type rule off.
-By default, type rule is on.
-
-=head2 C<type_rule1_on>
-
-    $result = $result->type_rule1_on;
-
-Turn C<from1> type rule on.
-By default, type rule is on.
-
-=head2 C<type_rule2_off>
-
-    $result = $result->type_rule2_off;
-
-Turn C<from2> type rule off.
-By default, type rule is on.
-
-=head2 C<type_rule2_on>
-
-    $result = $result->type_rule2_on;
-
-Turn C<from2> type rule on.
-By default, type rule is on.
-
-=cut

-41

lib/DBIx/Custom/Next/Util.pm

View

@@ -1,41 +0,0 @@
-package DBIx::Custom::Next::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') {
-            for my $k (@$key) {
-                $hash->{$k} = $f;
-            }
-        }
-        else {
-            $hash->{$key} = $f;
-        }
-    }
-    return $hash;
-}
-
-sub _subname { '(' . (caller 1)[3] . ')' }
-
-1;
-
-=head1 NAME
-
-DBIx::Custom::Next::Util - Utility class
-

-255

lib/DBIx/Custom/Next/Where.pm

View

@@ -1,255 +0,0 @@
-package DBIx::Custom::Next::Where;
-use Object::Simple -base;
-
-use Carp 'croak';
-use DBIx::Custom::Next::Util '_subname';
-use overload 'bool' => sub {1}, fallback => 1;
-use overload '""' => sub { shift->to_string }, fallback => 1;
-
-# Carp trust relationship
-push @DBIx::Custom::Next::CARP_NOT, __PACKAGE__;
-
-has [qw/dbi param/],
-    clause => sub { [] };
-
-sub new {
-    my $self = shift->SUPER::new(@_);
-    
-    # Check attribute names
-    my @attrs = keys %$self;
-    for my $attr (@attrs) {
-        croak qq{"$attr" is invalid attribute name (} . _subname . ")"
-          unless $self->can($attr);
-    }
-    
-    return $self;
-}
-
-sub to_string {
-    my $self = shift;
-    
-    # Clause
-    my $clause = $self->clause;
-    $clause = ['and', $clause] unless ref $clause eq 'ARRAY';
-    $clause->[0] = 'and' unless @$clause;
-    
-    # Parse
-    my $where = [];
-    my $count = {};
-    $self->{_safety_character} = $self->dbi->safety_character;
-    $self->{_quote} = $self->dbi->quote;
-    $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, $info) = @_;
-    
-    # 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 $c = $self->{_safety_character};
-        
-        my $column;
-        my $sql = $clause;
-        $sql =~ s/([0-9]):/$1\\:/g;
-        if ($sql =~ /[^\\]:([$c\.]+)/s || $sql =~ /^:([$c\.]+)/s) {
-            $column = $1;
-        }
-        unless (defined $column) {
-            push @$where, $clause;
-            $pushed = 1;
-            return $pushed;
-        }
-        
-        # Column count up
-        my $count = ++$count->{$column};
-        
-        # Push
-        my $param = $self->{param};
-        if (ref $param eq 'HASH') {
-            if (exists $param->{$column}) {
-                my $if = $self->{_if};
-                
-                if (ref $param->{$column} eq 'ARRAY') {
-                    $pushed = 1 if exists $param->{$column}->[$count - 1]
-                      && ref $param->{$column}->[$count - 1] ne 'DBIx::Custom::Next::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::Next::Where - Where clause
-
-=head1 SYNOPSYS
-    
-    # Create DBIx::Custom::Next::Where object
-    my $where = $dbi->where;
-    
-    # Set clause and parameter
-    $where->clause(['and', ':title{like}', ':price{=}']);
-    
-    # Create where clause by to_string method
-    my $where_clause = $where->to_string;
-    
-    # Create where clause by stringify
-    my $where_clause = "$where";
-    
-    # Created where clause in the above way
-    where :title{=} and :price{like}
-    
-    # Only price condition
-    $where->clause(['and', ':title{like}', ':price{=}']);
-    $where->param({price => 1900});
-    my $where_clause = "$where";
-    
-    # Created where clause in the above way
-    where :price{=}
-    
-    # Only title condition
-    $where->clause(['and', ':title{like}', ':price{=}']);
-    $where->param({title => 'Perl'});
-    my $where_clause = "$where";
-    
-    # Created where clause in the above way
-    where :title{like}
-    
-    # Nothing
-    $where->clause(['and', ':title{like}', ':price{=}']);
-    $where->param({});
-    my $where_clause = "$where";
-    
-    # or condition
-    $where->clause(['or', ':title{like}', ':price{=}']);
-    
-    # More than one parameter
-    $where->clause(['and', ':price{>}', ':price{<}']);
-    $where->param({price => [1000, 2000]});
-    
-    # Only first condition
-    $where->clause(['and', ':price{>}', ':price{<}']);
-    $where->param({price => [1000, $dbi->not_exists]});
-    
-    # Only second condition
-    $where->clause(['and', ':price{>}', ':price{<}']);
-    $where->param({price => [$dbi->not_exists, 2000]});
-    
-    # More complex condition
-    $where->clause(
-        [
-            'and',
-            ':price{=}',
-            ['or', ':title{=}', ':title{=}', ':title{=}']
-        ]
-    );
-    my $where_clause = "$where";
-    
-    # Created where clause in the above way
-    where :price{=} and (:title{=} or :title{=} or :title{=})
-    
-    # Using Full-qualified column name
-    $where->clause(['and', ':book.title{like}', ':book.price{=}']);
-
-=head1 ATTRIBUTES
-
-=head2 C<clause>
-
-    my $clause = $where->clause;
-    $where = $where->clause(
-        ['and',
-            ':title{=}', 
-            ['or', ':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::Next> object.
-
-=head1 METHODS
-
-L<DBIx::Custom::Next::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

t/next/_run/access.run

View

No changes.

t/next/_run/access2007-accdb.run

View

No changes.

t/next/_run/access2010-accdb.run

View

No changes.

-5

t/next/_run/common-db2.run

View

@@ -1,5 +0,0 @@
-### DB2 Install
-
-cd /usr/local/src
-
-curl -L https://www6.software.ibm.com/sdfdl/v2/regs2/db2pmopn/db2_v97/expc/Xa.2/Xb.aA_60_-iVlRRTUNBO90Dq4FHTisv_wdecoCQFeRQbw/Xc.db2exc_974_LNX_x86.tar.gz/Xd./Xf.LPr.D1vk/Xg.6107654/Xi.swg-db2expressc/XY.regsrvs/XZ.2ygJIAbTC5bn3tv2hlm2PnXUcz8/db2exc_974_LNX_x86.tar.gz > db2exc_974_LNX_x86.tar.gz

-5

t/next/_run/common-mysql.run

View

@@ -1,5 +0,0 @@
-# Create database
-create database dbix_custom;
-
-# Create User
-GRANT ALL PRIVILEGES ON dbix_custom.* TO dbix_custom@"localhost" IDENTIFIED BY 'dbix_custom';

-55

t/next/_run/common-oracle.run

View

@@ -1,55 +0,0 @@
-# Download
-http://download.oracle.com/otn/linux/oracle10g/xe/10201/oracle-xe-univ-10.2.0.1-1.0.i386.rpm
-
-# Install
-rpm -ivh oracle-xe-univ-10.2.0.1-1.0.i386.rpm
-/etc/init.d/oracle-xe configure
-
-# Note
-Port number is set to 8090
-
-# HTTP access
-http://127.0.0.1:8090/apex
-
-# Create user
-id: dbix_custom
-password: dbix_custom
-
-Add all privirage
-
-# DBD::Oracle
-You must be install install client
-oracle-instantclient11.2-basic-11.2.0.2.0.i386.rpm
-oracle-instantclient11.2-devel-11.2.0.2.0.i386.rpm
-oracle-instantclient11.2-sqlplus-11.2.0.2.0.i386.rpm
-
-rpm -hiv oracle-instantclient11.2-basic-11.2.0.2.0.i386.rpm
-rpm -hiv oracle-instantclient11.2-devel-11.2.0.2.0.i386.rpm
-rpm -hiv oracle-instantclient11.2-sqlplus-11.2.0.2.0.i386.rpm
-
-vi /etc/profile.d/oracle.sh
-export ORACLE_HOME='/usr/lib/oracle/11.2/client'
-export C_INCLUDE_PATH='/usr/include/oracle/11.2/client'
-export LD_LIBRARY_PATH='/usr/lib/oracle/11.2/client/lib'
-
-vi /etc/ld.so.conf.d/oracle.conf
-/usr/lib/oracle/11.2/client/lib
-
-cpan DBD::Oracle
-
-sqlplus dbix_custom/dbix_custom@localhost:1521/XE
-
-mkdir -p $ORACLE_HOME/network/admin/
-vi $ORACLE_HOME/network/admin/tnsnames.ora
-
-XE =
-  (DESCRIPTION =
-    (ADDRESS_LIST =
-      (ADDRESS = (PROTOCOL = TCP)(HOST = localhost)(PORT = 1521))
-    )
-    (CONNECT_DATA =
-      (SID = orcl)
-    )
-  )
-
-

-35

t/next/_run/common-postgresql.run

View

@@ -1,35 +0,0 @@
-### CentOS5
-
-# Install
-yum -y install postgresql-server
-yum -y install postgresql
-yum -y install postgresql-devel
-chkconfig --level 2345 postgresql on
-
-# Start server
-service postgresql start
-
-# Change config file
-vi /var/lib/pgsql/data/pg_hba.conf
-  # "local" is for Unix domain socket connections only
-  local   all         all                               trust
-
-# Create user and database
-su - postgres
-createuser -a -d -U postgres -P dbix_custom
-  # Shall the new role be a superuser? (y/n) -> y
-  # Shall the new role be allowed to create databases? (y/n) -> y
-  # Shall the new role be allowed to create more new roles? (y/n) -> y
-
-createdb dbix_custom -U dbix_custom
-
-# Connect to database
-psql -U dbix_custom dbix_custom
-
-# Install DBD::pg
-cpanm DBD::Pg
-
-### Memo
-
-# Drop user
-dropuser dbix_custom

-13

t/next/_run/common-sqlserver.run

View

@@ -1,13 +0,0 @@
-# Site
-http://awoni.net/fc/sql-server-2008-express/
-
-
-# Install
-http://www.microsoft.com/downloads/ja-jp/details.aspx?displaylang=ja&FamilyID=967225eb-207b-4950-91df-eeb5f35a80ee
-
-
-# Note
-You enable SQL Server authentication.
-You create user "dbix_custom", password "dbix_custom"
-You give create_table, insert, update, delete, select authority to user "dbix_custom".
-

t/next/_run/mysql.run

View

No changes.

t/next/_run/mysql2.run

View

No changes.

BIN

t/next/access.mdb

View

Binary file not shown.

-35

t/next/access.t

View

@@ -1,35 +0,0 @@
-use Test::More;
-use strict;
-use warnings;
-use utf8;
-
-use FindBin;
-use DBIx::Custom;
-
-my $dbi;
-my $dsn;
-my $args;
-my $database = "$FindBin::Bin/access.mdb";
-
-$dsn = "dbi:ODBC:driver=Microsoft Access Driver (*.mdb);dbq=$database";
-
-plan skip_all => 'Microsoft access(ODBC, *.mdb) private test' unless -f "$FindBin::Bin/run/access.run"
-  && eval { $dbi = DBIx::Custom->connect(dsn => $dsn); 1 };
-plan 'no_plan';
-
-my $model;
-my $result;
-my $rows;
-
-eval { $dbi->execute("drop table table1") };
-$dbi->execute("create table table1 (key1 varchar(255), key2 varchar(255))");
-$model = $dbi->create_model(table => 'table1');
-$model->insert({key1 => 1, key2 => 2});
-$model->insert({key1 => 4, key2 => 5});
-$model->insert({key1 => 6, key2 => 7});
-$model->update({key2 => 3}, where => {key1 => 1});
-$model->delete(where => {key1 => 6});
-$rows = $model->select->all;
-is_deeply($rows, [{key1 => 1, key2 => 3}, {key1 => 4, key2 => 5}]);
-is($model->count, 2);
-

-46

t/next/access2007-accdb.t

View

@@ -1,46 +0,0 @@
-use Test::More;
-use strict;
-use warnings;
-use utf8;
-
-use FindBin;
-use DBIx::Custom;
-
-my $dbi;
-my $dsn;
-my $database = "$FindBin::Bin/access2007.accdb";
-
-$dsn = "dbi:ODBC:Driver={Microsoft Access Driver (*.mdb, *.accdb)};DBQ=$database";
-
-plan skip_all => 'Microsoft access(ODBC, *.accdb(2007)) private test'
-  unless -f "$FindBin::Bin/run/access2007-accdb.run"
-      && eval { $dbi = DBIx::Custom->connect(dsn => $dsn); 1 };
-plan 'no_plan';
-
-my $model;
-my $result;
-my $row;
-my $rows;
-
-eval { $dbi->execute("drop table table1") };
-eval { $dbi->execute("drop table table2") };
-$dbi->execute("create table table1 (key1 varchar(255), key2 varchar(255))");
-$dbi->execute("create table table2 (key1 varchar(255), key3 varchar(255))");
-$model = $dbi->create_model(table => 'table1');
-$model->insert({key1 => 1, key2 => 2});
-$model->insert({key1 => 4, key2 => 5});
-$model->insert({key1 => 6, key2 => 7});
-$model->update({key2 => 3}, where => {key1 => 1});
-$model->delete(where => {key1 => 6});
-$rows = $model->select->all;
-is_deeply($rows, [{key1 => 1, key2 => 3}, {key1 => 4, key2 => 5}]);
-is($model->count, 2);
-$dbi->insert({key1 => 1, key3 => 2}, table => 'table2');
-$dbi->separator('-');
-$row = $model->select(
-    table => 'table1',
-    column => {table2 => [qw/key3/]},
-    join => ['left outer join table2 on table1.key1 = table2.key1']
-)->one;
-is_deeply($row, {"table2-key3" => 2});
-

BIN

t/next/access2007.accdb

View

Binary file not shown.

-46

t/next/access2010-accdb.t

View

@@ -1,46 +0,0 @@
-use Test::More;
-use strict;
-use warnings;
-use utf8;
-
-use FindBin;
-use DBIx::Custom;
-
-my $dbi;
-my $dsn;
-my $database = "$FindBin::Bin/access2010.accdb";
-
-$dsn = "dbi:ODBC:Driver={Microsoft Access Driver (*.mdb, *.accdb)};DBQ=$database";
-
-plan skip_all => 'Microsoft access(ODBC, *.accdb(2010)) private test'
-  unless -f "$FindBin::Bin/run/access2010-accdb.run"
-      && eval { $dbi = DBIx::Custom->connect(dsn => $dsn); 1 };
-plan 'no_plan';
-
-my $model;
-my $result;
-my $row;
-my $rows;
-
-eval { $dbi->execute("drop table table1") };
-eval { $dbi->execute("drop table table2") };
-$dbi->execute("create table table1 (key1 varchar(255), key2 varchar(255))");
-$dbi->execute("create table table2 (key1 varchar(255), key3 varchar(255))");
-$model = $dbi->create_model(table => 'table1');
-$model->insert({key1 => 1, key2 => 2});
-$model->insert({key1 => 4, key2 => 5});
-$model->insert({key1 => 6, key2 => 7});
-$model->update({key2 => 3}, where => {key1 => 1});
-$model->delete(where => {key1 => 6});
-$rows = $model->select->all;
-is_deeply($rows, [{key1 => 1, key2 => 3}, {key1 => 4, key2 => 5}]);
-is($model->count, 2);
-$dbi->insert({key1 => 1, key3 => 2}, table => 'table2');
-$dbi->separator('-');
-$row = $model->select(
-    table => 'table1',
-    column => {table2 => [qw/key3/]},
-    join => ['left outer join table2 on table1.key1 = table2.key1']
-)->one;
-is_deeply($row, {"table2-key3" => 2});
-

BIN

t/next/access2010.accdb

View

Binary file not shown.

-77

t/next/common-mysql.t

View

@@ -1,77 +0,0 @@
-use strict;
-use warnings;
-
-use FindBin;
-use lib "$FindBin::Bin/common";
-$ENV{DBIX_CUSTOM_TEST_RUN} = 1
-  if -f "$FindBin::Bin/run/common-mysql.run";
-$ENV{DBIX_CUSTOM_SKIP_MESSAGE} = 'mysql private test';
-
-
-
-use DBIx::Custom;
-{
-    package DBIx::Custom;
-    no warnings 'redefine';
-
-    my $table1 = 'table1';
-    my $table2 = 'table2';
-    my $table2_alias = 'table2_alias';
-    my $table3 = 'table3';
-    my $key1 = 'key1';
-    my $key2 = 'key2';
-    my $key3 = 'key3';
-    my $key4 = 'key4';
-    my $key5 = 'key5';
-    my $key6 = 'key6';
-    my $key7 = 'key7';
-    my $key8 = 'key8';
-    my $key9 = 'key9';
-    my $key10 = 'key10';
-
-    has table1 => $table1;
-    has table2 => $table2;
-    has table2_alias => $table2_alias;
-    has table3 => $table3;
-    has key1 => $key1;
-    has key2 => $key2;
-    has key3 => $key3;
-    has key4 => $key4;
-    has key5 => $key5;
-    has key6 => $key6;
-    has key7 => $key7;
-    has key8 => $key8;
-    has key9 => $key9;
-    has key10 => $key10;
-
-    my $date_typename = 'Date';
-    my $datetime_typename = 'Datetime';
-    
-    sub date_typename { lc $date_typename }
-    sub datetime_typename { lc $datetime_typename }
-
-    my $date_datatype = 9;
-    my $datetime_datatype = 11;
-    
-    sub date_datatype { lc $date_datatype }
-    sub datetime_datatype { lc $datetime_datatype }
-
-    no warnings 'redefine';
-    has dsn => "dbi:mysql:database=dbix_custom";
-    has user => 'dbix_custom';
-    has password => 'dbix_custom';
-    
-    sub create_table1 { "create table $table1 ($key1 varchar(255), $key2 varchar(255)) engine=InnoDB" }
-    sub create_table1_2 { "create table $table1 ($key1 varchar(255), $key2 varchar(255), "
-     . "$key3 varchar(255), key4 varchar(255), key5 varchar(255)) engine=InnoDB" }
-    sub create_table1_type { "create table $table1 ($key1 $date_typename, $key2 $datetime_typename) engine=InnoDB" }
-    sub create_table1_highperformance { "create table $table1 ($key1 varchar(255), $key2 varchar(255), "
-      . "$key3 varchar(255), $key4 varchar(255), $key5 varchar(255), $key6 varchar(255), $key7 varchar(255)) engine=InnoDB" }
-    sub create_table2 { "create table $table2 ($key1 varchar(255), $key3 varchar(255)) engine=InnoDB" }
-    sub create_table2_2 { "create table $table2 ($key1 varchar(255), $key2 varchar(255), $key3 varchar(255)) engine=InnoDB" }
-    sub create_table3 { "create table $table3 ($key1 varchar(255), $key2 varchar(255), $key3 varchar(255)) engine=InnoDB" }
-    sub create_table_reserved {
-      'create table `table` (`select` varchar(255), `update` varchar(255)) engine=InnoDB' }
-}
-
-require "$FindBin::Bin/common.t";

-1663

t/next/common-oracle.t

View

@@ -1,1663 +0,0 @@
-use strict;
-use warnings;
-
-use FindBin;
-use lib "$FindBin::Bin/common_uc";
-$ENV{DBIX_CUSTOM_TEST_RUN} = 1
-  if -f "$FindBin::Bin/run/common-oracle.run";
-$ENV{DBIX_CUSTOM_SKIP_MESSAGE} = 'oracle private test';
-
-use DBIx::Custom;
-{
-    package DBIx::Custom;
-    no warnings 'redefine';
-    
-    has option => sub {
-        {
-            Callbacks => {
-              connected => sub {
-                  shift->do(
-                      "ALTER SESSION SET NLS_DATE_FORMAT = 'YYYY-MM-DD HH24:MI:SS'"
-                  );
-                  return;
-              },
-            }
-        }
-    };
-
-    my $table1 = 'TABLE1';
-    my $table2 = 'TABLE2';
-    my $table2_alias = 'TABLE2_ALIAS';
-    my $table3 = 'TABLE3';
-    my $key1 = 'KEY1';
-    my $key2 = 'KEY2';
-    my $key3 = 'KEY3';
-    my $key4 = 'KEY4';
-    my $key5 = 'KEY5';
-    my $key6 = 'KEY6';
-    my $key7 = 'KEY7';
-    my $key8 = 'KEY8';
-    my $key9 = 'KEY9';
-    my $key10 = 'KEY10';
-    
-    has table1 => $table1;
-    has table2 => $table2;
-    has table2_alias => $table2_alias;
-    has table3 => $table3;
-    has key1 => $key1;
-    has key2 => $key2;
-    has key3 => $key3;
-    has key4 => $key4;
-    has key5 => $key5;
-    has key6 => $key6;
-    has key7 => $key7;
-    has key8 => $key8;
-    has key9 => $key9;
-    has key10 => $key10;
-
-    my $date_typename = 'CHAR(10)';
-    my $datetime_typename = 'DATE';
-
-    sub date_typename { lc 'CHAR' }
-    sub datetime_typename { lc $datetime_typename }
-
-    my $date_datatype = 1;
-    my $datetime_datatype = 93;
-
-    sub date_datatype { lc $date_datatype }
-    sub datetime_datatype { lc $datetime_datatype }
-
-    my @system_tables = qw#
-        WWV_FLOW_SESSION_SEQ
-        WWV_SEQ
-        SAMPLE_SEQ
-        SDO_IDX_TAB_SEQUENCE
-        TMP_COORD_OPS
-        XDB$NAMESUFF_SEQ
-        ABSPATH
-        ALERT_TYPE
-        ALL_
-        ANYDATA
-        ANYDATASET
-        ANYTYPE
-        APEX
-        APPLICATION_AUTHENTICATION
-        AQ$INTERNET_USERS
-        AREA
-        ASBINARY
-        ASTEXT
-        AUDIT_ACTIONS
-        AWRDRPT_TEXT_TYPE
-        AWRRPT_CLB_ARY
-        AWRRPT_HTML_TYPE
-        AWRRPT_NUM_ARY
-        AWRRPT_ROW_TYPE
-        AWRRPT_TEXT_TYPE
-        AWRRPT_VCH_ARY
-        AWRSQRPT_TEXT_TYPE
-        BOUNDARY
-        BUFFER
-        CAT
-        CATSEARCH
-        CENTROID
-        CHANGE_PROPAGATIONS
-        CHANGE_PROPAGATION_SETS
-        CHANGE_SETS
-        CHANGE_SOURCES
-        CIRCULARSTRING
-        CLU
-        COL
-        COLLECT
-        COLS
-        COLUMN_PRIVILEGES
-        COMPOUNDCURVE
-        CONTAINS
-        CONTENTSCHEMAIS
-        CONTEXT
-        CONVEXHULL
-        CROSS
-        CS_SRS
-        CTXCAT
-        CTXRULE
-        CTXXPATH
-        CTX_CLASSES
-        CTX_CLS
-        CTX_DDL
-        CTX_DOC
-        CTX_INDEX_SETS
-        CTX_INDEX_SET_INDEXES
-        CTX_OBJECTS
-        CTX_OBJECT_ATTRIBUTES
-        CTX_OBJECT_ATTRIBUTE_LOV
-        CTX_OUTPUT
-        CTX_PARAMETERS
-        CTX_PREFERENCES
-        CTX_PREFERENCE_VALUES
-        CTX_QUERY
-        CTX_REPORT
-        CTX_SECTIONS
-        CTX_SECTION_GROUPS
-        CTX_SQES
-        CTX_STOPLISTS
-        CTX_STOPWORDS
-        CTX_SUB_LEXERS
-        CTX_THES
-        CTX_THESAURI
-        CTX_THES_PHRASES
-        CTX_TRACE_VALUES
-        CTX_ULEXER
-        CTX_USER_INDEXES
-        CTX_USER_INDEX_ERRORS
-        CTX_USER_INDEX_OBJECTS
-        CTX_USER_INDEX_PARTITIONS
-        CTX_USER_INDEX_SETS
-        CTX_USER_INDEX_SET_INDEXES
-        CTX_USER_INDEX_SUB_LEXERS
-        CTX_USER_INDEX_SUB_LEXER_VALS
-        CTX_USER_INDEX_VALUES
-        CTX_USER_PENDING
-        CTX_USER_PREFERENCES
-        CTX_USER_PREFERENCE_VALUES
-        CTX_USER_SECTIONS
-        CTX_USER_SECTION_GROUPS
-        CTX_USER_SQES
-        CTX_USER_STOPLISTS
-        CTX_USER_STOPWORDS
-        CTX_USER_SUB_LEXERS
-        CTX_USER_THESAURI
-        CTX_USER_THES_PHRASES
-        CURVE
-        CURVEPOLYGON
-        DATABASE_COMPATIBLE_LEVEL
-        DATABASE_EXPORT_OBJECTS
-        DATABASE_PROPERTIES
-        DATAPUMP_OBJECT_CONNECT
-        DATAPUMP_PATHMAP
-        DATAPUMP_PATHS
-        DATAPUMP_REMAP_OBJECTS
-        DBA_2PC_NEIGHBORS
-        DBA_
-        DBMSHSXP
-        DBMSHSXP_SQL_PROFILE_ATTR
-        DBMSOBJGWRAPPER
-        DBMSOUTPUT_LINESARRAY
-        DBMSZEXP_SYSPKGGRNT
-        DBMS_
-        DBURITYPE
-        DEFCALL
-        DEFCALLDEST
-        DEFDEFAULTDEST
-        DEFERRCOUNT
-        DEFERROR
-        DEFLOB
-        DEFPROPAGATOR
-        DEFSCHEDULE
-        DEFTRAN
-        DEFTRANDEST
-        DEPTH
-        DEVELOPMENT_SERVICE_HOME
-        DEVELOPMENT_SERVICE_HOME_LOGIN
-        DEVELOPMENT_SERVICE_SIGNUP
-        DICT
-        DICTIONARY
-        DICT_COLUMNS
-        DIFFERENCE
-        DIMENSION
-        DISJOINT
-        DISTANCE
-        DM_CENTROIDS
-        DM_CL_BUILD
-        DM_SVM_APPLY
-        DM_SVM_BUILD
-        DRVODM
-        DS_SQL_WORKSHOP
-        DUAL
-        ENDPOINT
-        ENVELOPE
-        EQUALS
-        EQUALS_PATH
-        EXPLAINMVARRAYTYPE
-        EXPLAINMVMESSAGE
-        EXTERIORRING
-        F
-        FLASHBACK_TRANSACTION_QUERY
-        FTPURITYPE
-        GEOMETRY
-        GEOMETRYCOLLECTION
-        GEOMETRYN
-        GEOMETRYTYPE
-        GLOBAL_CONTEXT
-        GLOBAL_NAME
-        GV$ACCESS
-        GV$ACTIVE_INSTANCES
-        GV$ACTIVE_SERVICES
-        GV$ACTIVE_SESSION_HISTORY
-        GV$ACTIVE_SESS_POOL_MTH
-        GV$ADVISOR_PROGRESS
-        GV$ALERT_TYPES
-        GV$AQ
-        GV$AQ1
-        GV$ARCHIVE
-        GV$ARCHIVED_LOG
-        GV$ARCHIVE_DEST
-        GV$ARCHIVE_DEST_STATUS
-        GV$ARCHIVE_GAP
-        GV$ARCHIVE_PROCESSES
-        GV$ASM_ALIAS
-        GV$ASM_CLIENT
-        GV$ASM_DISK
-        GV$ASM_DISKGROUP
-        GV$ASM_DISKGROUP_STAT
-        GV$ASM_DISK_STAT
-        GV$ASM_FILE
-        GV$ASM_OPERATION
-        GV$ASM_TEMPLATE
-        GV$AW_AGGREGATE_OP
-        GV$AW_ALLOCATE_OP
-        GV$AW_CALC
-        GV$AW_LONGOPS
-        GV$AW_OLAP
-        GV$AW_SESSION_INFO
-        GV$BACKUP
-        GV$BACKUP_ASYNC_IO
-        GV$BACKUP_CORRUPTION
-        GV$BACKUP_DATAFILE
-        GV$BACKUP_DEVICE
-        GV$BACKUP_PIECE
-        GV$BACKUP_REDOLOG
-        GV$BACKUP_SET
-        GV$BACKUP_SPFILE
-        GV$BACKUP_SYNC_IO
-        GV$BGPROCESS
-        GV$BH
-        GV$BLOCKING_QUIESCE
-        GV$BSP
-        GV$BUFFERED_PUBLISHERS
-        GV$BUFFERED_QUEUES
-        GV$BUFFERED_SUBSCRIBERS
-        GV$BUFFER_POOL
-        GV$BUFFER_POOL_STATISTICS
-        GV$CIRCUIT
-        GV$CLASS_CACHE_TRANSFER
-        GV$CLASS_PING
-        GV$CLIENT_STATS
-        GV$CLUSTER_INTERCONNECTS
-        GV$CONFIGURED_INTERCONNECTS
-        GV$CONTEXT
-        GV$CONTROLFILE
-        GV$CONTROLFILE_RECORD_SECTION
-        GV$COPY_CORRUPTION
-        GV$CR_BLOCK_SERVER
-        GV$CURRENT_BLOCK_SERVER
-        GV$DATABASE
-        GV$DATABASE_BLOCK_CORRUPTION
-        GV$DATABASE_INCARNATION
-        GV$DATAFILE
-        GV$DATAFILE_COPY
-        GV$DATAFILE_HEADER
-        GV$DATAGUARD_CONFIG
-        GV$DATAGUARD_STATUS
-        GV$DATAPUMP_JOB
-        GV$DATAPUMP_SESSION
-        GV$DBFILE
-        GV$DBLINK
-        GV$DB_CACHE_ADVICE
-        GV$DB_OBJECT_CACHE
-        GV$DB_PIPES
-        GV$DELETED_OBJECT
-        GV$DISPATCHER
-        GV$DISPATCHER_CONFIG
-        GV$DISPATCHER_RATE
-        GV$DLM_ALL_LOCKS
-        GV$DLM_CONVERT_LOCAL
-        GV$DLM_CONVERT_REMOTE
-        GV$DLM_LATCH
-        GV$DLM_LOCKS
-        GV$DLM_MISC
-        GV$DLM_RESS
-        GV$DLM_TRAFFIC_CONTROLLER
-        GV$ENABLEDPRIVS
-        GV$ENQUEUE_LOCK
-        GV$ENQUEUE_STAT
-        GV$ENQUEUE_STATISTICS
-        GV$EVENTMETRIC
-        GV$EVENT_HISTOGRAM
-        GV$EVENT_NAME
-        GV$EXECUTION
-        GV$FAST_START_SERVERS
-        GV$FAST_START_TRANSACTIONS
-        GV$FILEMETRIC
-        GV$FILEMETRIC_HISTORY
-        GV$FILESPACE_USAGE
-        GV$FILESTAT
-        GV$FILE_CACHE_TRANSFER
-        GV$FILE_HISTOGRAM
-        GV$FILE_PING
-        GV$FIXED_VIEW_DEFINITION
-        GV$FLASHBACK_DATABASE_LOG
-        GV$FLASHBACK_DATABASE_LOGFILE
-        GV$FLASHBACK_DATABASE_STAT
-        GV$GCSHVMASTER_INFO
-        GV$GCSPFMASTER_INFO
-        GV$GC_ELEMENT
-        GV$GC_ELEMENTS_WITH_COLLISIONS
-        GV$GES_BLOCKING_ENQUEUE
-        GV$GES_ENQUEUE
-        GV$GLOBALCONTEXT
-        GV$GLOBAL_BLOCKED_LOCKS
-        GV$GLOBAL_TRANSACTION
-        GV$HS_AGENT
-        GV$HS_PARAMETER
-        GV$HS_SESSION
-        GV$HVMASTER_INFO
-        GV$INDEXED_FIXED_COLUMN
-        GV$INSTANCE
-        GV$INSTANCE_CACHE_TRANSFER
-        GV$INSTANCE_LOG_GROUP
-        GV$INSTANCE_RECOVERY
-        GV$JAVAPOOL
-        GV$JAVA_LIBRARY_CACHE_MEMORY
-        GV$JAVA_POOL_ADVICE
-        GV$LATCH
-        GV$LATCHHOLDER
-        GV$LATCHNAME
-        GV$LATCH_CHILDREN
-        GV$LATCH_MISSES
-        GV$LATCH_PARENT
-        GV$LIBRARYCACHE
-        GV$LIBRARY_CACHE_MEMORY
-        GV$LICENSE
-        GV$LOADISTAT
-        GV$LOADPSTAT
-        GV$LOCK
-        GV$LOCKED_OBJECT
-        GV$LOCKS_WITH_COLLISIONS
-        GV$LOCK_ACTIVITY
-        GV$LOCK_ELEMENT
-        GV$LOCK_TYPE
-        GV$LOG
-        GV$LOGFILE
-        GV$LOGHIST
-        GV$LOGMNR_CALLBACK
-        GV$LOGMNR_CONTENTS
-        GV$LOGMNR_DICTIONARY
-        GV$LOGMNR_DICTIONARY_LOAD
-        GV$LOGMNR_LATCH
-        GV$LOGMNR_LOGFILE
-        GV$LOGMNR_LOGS
-        GV$LOGMNR_PARAMETERS
-        GV$LOGMNR_PROCESS
-        GV$LOGMNR_REGION
-        GV$LOGMNR_SESSION
-        GV$LOGMNR_STATS
-        GV$LOGMNR_TRANSACTION
-        GV$LOGSTDBY
-        GV$LOGSTDBY_PROCESS
-        GV$LOGSTDBY_PROGRESS
-        GV$LOGSTDBY_STATE
-        GV$LOGSTDBY_STATS
-        GV$LOGSTDBY_TRANSACTION
-        GV$LOG_HISTORY
-        GV$MANAGED_STANDBY
-        GV$MAP_COMP_LIST
-        GV$MAP_ELEMENT
-        GV$MAP_EXT_ELEMENT
-        GV$MAP_FILE
-        GV$MAP_FILE_EXTENT
-        GV$MAP_FILE_IO_STACK
-        GV$MAP_LIBRARY
-        GV$MAP_SUBELEMENT
-        GV$MAX_ACTIVE_SESS_TARGET_MTH
-        GV$METRIC
-        GV$METRICGROUP
-        GV$METRICNAME
-        GV$METRIC_HISTORY
-        GV$MTTR_TARGET_ADVICE
-        GV$MUTEX_SLEEP
-        GV$MUTEX_SLEEP_HISTORY
-        GV$MVREFRESH
-        GV$MYSTAT
-        GV$NLS_PARAMETERS
-        GV$NLS_VALID_VALUES
-        GV$OBJECT_DEPENDENCY
-        GV$OBSOLETE_PARAMETER
-        GV$OFFLINE_RANGE
-        GV$OPEN_CURSOR
-        GV$OPTION
-        GV$OSSTAT
-        GV$PARALLEL_DEGREE_LIMIT_MTH
-        GV$PARAMETER
-        GV$PARAMETER2
-        GV$PARAMETER_VALID_VALUES
-        GV$PGASTAT
-        GV$PGA_TARGET_ADVICE
-        GV$PGA_TARGET_ADVICE_HISTOGRAM
-        GV$PQ_SESSTAT
-        GV$PQ_SLAVE
-        GV$PQ_SYSSTAT
-        GV$PQ_TQSTAT
-        GV$PROCESS
-        GV$PROCESS_MEMORY
-        GV$PROCESS_MEMORY_DETAIL
-        GV$PROCESS_MEMORY_DETAIL_PROG
-        GV$PROPAGATION_RECEIVER
-        GV$PROPAGATION_SENDER
-        GV$PROXY_ARCHIVEDLOG
-        GV$PROXY_DATAFILE
-        GV$PWFILE_USERS
-        GV$PX_BUFFER_ADVICE
-        GV$PX_PROCESS
-        GV$PX_PROCESS_SYSSTAT
-        GV$PX_SESSION
-        GV$PX_SESSTAT
-        GV$QUEUE
-        GV$QUEUEING_MTH
-        GV$RECOVERY_FILE_STATUS
-        GV$RECOVERY_LOG
-        GV$RECOVERY_PROGRESS
-        GV$RECOVERY_STATUS
-        GV$RECOVER_FILE
-        GV$REPLPROP
-        GV$REPLQUEUE
-        GV$REQDIST
-        GV$RESERVED_WORDS
-        GV$RESOURCE
-        GV$RESOURCE_LIMIT
-        GV$RESTORE_POINT
-        GV$RESUMABLE
-        GV$RFS_THREAD
-        GV$RMAN_CONFIGURATION
-        GV$RMAN_OUTPUT
-        GV$ROLLSTAT
-        GV$ROWCACHE
-        GV$ROWCACHE_PARENT
-        GV$ROWCACHE_SUBORDINATE
-        GV$RSRC_CONSUMER_GROUP
-        GV$RSRC_CONSUMER_GROUP_CPU_MTH
-        GV$RSRC_CONS_GROUP_HISTORY
-        GV$RSRC_PLAN
-        GV$RSRC_PLAN_CPU_MTH
-        GV$RSRC_PLAN_HISTORY
-        GV$RSRC_SESSION_INFO
-        GV$RULE
-        GV$RULE_SET
-        GV$RULE_SET_AGGREGATE_STATS
-        GV$SCHEDULER_RUNNING_JOBS
-        GV$SEGMENT_STATISTICS
-        GV$SEGSTAT
-        GV$SEGSTAT_NAME
-        GV$SERVICEMETRIC
-        GV$SERVICEMETRIC_HISTORY
-        GV$SERVICES
-        GV$SERVICE_EVENT
-        GV$SERVICE_STATS
-        GV$SERVICE_WAIT_CLASS
-        GV$SERV_MOD_ACT_STATS
-        GV$SESSION
-        GV$SESSION_CONNECT_INFO
-        GV$SESSION_CURSOR_CACHE
-        GV$SESSION_EVENT
-        GV$SESSION_LONGOPS
-        GV$SESSION_OBJECT_CACHE
-        GV$SESSION_WAIT
-        GV$SESSION_WAIT_CLASS
-        GV$SESSION_WAIT_HISTORY
-        GV$SESSMETRIC
-        GV$SESSTAT
-        GV$SESS_IO
-        GV$SESS_TIME_MODEL
-        GV$SES_OPTIMIZER_ENV
-        GV$SGA
-        GV$SGAINFO
-        GV$SGASTAT
-        GV$SGA_CURRENT_RESIZE_OPS
-        GV$SGA_DYNAMIC_COMPONENTS
-        GV$SGA_DYNAMIC_FREE_MEMORY
-        GV$SGA_RESIZE_OPS
-        GV$SGA_TARGET_ADVICE
-        GV$SHARED_POOL_ADVICE
-        GV$SHARED_POOL_RESERVED
-        GV$SHARED_SERVER
-        GV$SHARED_SERVER_MONITOR
-        GV$SORT_SEGMENT
-        GV$SORT_USAGE
-        GV$SPPARAMETER
-        GV$SQL
-        GV$SQLAREA
-        GV$SQLAREA_PLAN_HASH
-        GV$SQLSTATS
-        GV$SQLTEXT
-        GV$SQLTEXT_WITH_NEWLINES
-        GV$SQL_BIND_CAPTURE
-        GV$SQL_BIND_DATA
-        GV$SQL_BIND_METADATA
-        GV$SQL_CURSOR
-        GV$SQL_JOIN_FILTER
-        GV$SQL_OPTIMIZER_ENV
-        GV$SQL_PLAN
-        GV$SQL_PLAN_STATISTICS
-        GV$SQL_PLAN_STATISTICS_ALL
-        GV$SQL_REDIRECTION
-        GV$SQL_SHARED_CURSOR
-        GV$SQL_SHARED_MEMORY
-        GV$SQL_WORKAREA
-        GV$SQL_WORKAREA_ACTIVE
-        GV$SQL_WORKAREA_HISTOGRAM
-        GV$STANDBY_APPLY_SNAPSHOT
-        GV$STANDBY_LOG
-        GV$STATISTICS_LEVEL
-        GV$STATNAME
-        GV$STREAMS_APPLY_COORDINATOR
-        GV$STREAMS_APPLY_READER
-        GV$STREAMS_APPLY_SERVER
-        GV$STREAMS_CAPTURE
-        GV$STREAMS_POOL_ADVICE
-        GV$STREAMS_TRANSACTION
-        GV$SUBCACHE
-        GV$SYSAUX_OCCUPANTS
-        GV$SYSMETRIC
-        GV$SYSMETRIC_HISTORY
-        GV$SYSMETRIC_SUMMARY
-        GV$SYSSTAT
-        GV$SYSTEM_CURSOR_CACHE
-        GV$SYSTEM_EVENT
-        GV$SYSTEM_PARAMETER
-        GV$SYSTEM_PARAMETER2
-        GV$SYSTEM_WAIT_CLASS
-        GV$SYS_OPTIMIZER_ENV
-        GV$SYS_TIME_MODEL
-        GV$TEMPFILE
-        GV$TEMPORARY_LOBS
-        GV$TEMPSEG_USAGE
-        GV$TEMPSTAT
-        GV$TEMP_CACHE_TRANSFER
-        GV$TEMP_EXTENT_MAP
-        GV$TEMP_EXTENT_POOL
-        GV$TEMP_HISTOGRAM
-        GV$TEMP_PING
-        GV$TEMP_SPACE_HEADER
-        GV$THREAD
-        GV$THRESHOLD_TYPES
-        GV$TIMER
-        GV$TIMEZONE_FILE
-        GV$TIMEZONE_NAMES
-        GV$TRANSACTION
-        GV$TRANSACTION_ENQUEUE
-        GV$TSM_SESSIONS
-        GV$TYPE_SIZE
-        GV$UNDOSTAT
-        GV$VERSION
-        GV$VPD_POLICY
-        GV$WAITCLASSMETRIC
-        GV$WAITCLASSMETRIC_HISTORY
-        GV$WAITSTAT
-        GV$WALLET
-        GV$XML_AUDIT_TRAIL
-        GV$_LOCK
-        HHAND
-        HHBYTELEN
-        HHCBIT
-        HHCELLBNDRY
-        HHCELLSIZE
-        HHCLDATE
-        HHCOLLAPSE
-        HHCOMMONCODE
-        HHCOMPARE
-        HHCOMPOSE
-        HHDECODE
-        HHDISTANCE
-        HHENCODE
-        HHENCODE_BYLEVEL
-        HHGBIT
-        HHGETCID
-        HHGROUP
-        HHGTBIT
-        HHGTYPE
-        HHIDLPART
-        HHIDPART
-        HHINCRLEV
-        HHJLDATE
-        HHLENGTH
-        HHLEVELS
-        HHMATCH
-        HHMAXCODE
-        HHNCOMPARE
-        HHNDIM
-        HHOR
-        HHORDER
-        HHPRECISION
-        HHSBIT
-        HHSETCID
-        HHSTBIT
-        HHSTYPE
-        HHSUBDIVIDE
-        HHSUBSTR
-        HHXOR
-        HS_ALL_CAPS
-        HS_ALL_DD
-        HS_ALL_INITS
-        HS_BASE_CAPS
-        HS_BASE_DD
-        HS_CLASS_CAPS
-        HS_CLASS_DD
-        HS_CLASS_INIT
-        HS_FDS_CLASS
-        HS_FDS_CLASS_DATE
-        HS_FDS_INST
-        HS_INST_CAPS
-        HS_INST_DD
-        HS_INST_INIT
-        HTF
-        HTMLDB
-        HTMLDB_ACTIVITY_LOG
-        HTMLDB_APPLICATION
-        HTMLDB_APPLICATION_FILES
-        HTMLDB_APPLICATION_GLOBAL
-        HTMLDB_COLLECTION
-        HTMLDB_COLLECTIONS
-        HTMLDB_CUSTOM_AUTH
-        HTMLDB_ITEM
-        HTMLDB_LANG
-        HTMLDB_LDAP
-        HTMLDB_LOGIN
-        HTMLDB_MAIL
-        HTMLDB_MAIL_LOG
-        HTMLDB_MAIL_QUEUE
-        HTMLDB_PLSQL_JOB
-        HTMLDB_PLSQL_JOBS
-        HTMLDB_SYSTEM
-        HTMLDB_UTIL
-        HTP
-        HTTPURITYPE
-        IND
-        INDEX_HISTOGRAM
-        INDEX_STATS
-        INTERIORRINGN
-        INTERSECTION
-        INTERSECTS
-        ISCLOSED
-        ISEMPTY
-        ISRING
-        ISSIMPLE
-        KU$_AUDDEF_T
-        KU$_AUDIT_DEFAULT_LIST_T
-        KU$_AUDIT_LIST_T
-        KU$_AUDOBJ_T
-        KU$_CHUNK_LIST_T
-        KU$_CHUNK_T
-        KU$_DDL
-        KU$_DDLS
-        KU$_DUMPFILE
-        KU$_DUMPFILE1010
-        KU$_DUMPFILE1020
-        KU$_DUMPFILESET
-        KU$_DUMPFILESET1010
-        KU$_DUMPFILESET1020
-        KU$_DUMPFILE_INFO
-        KU$_DUMPFILE_ITEM
-        KU$_ERRORLINE
-        KU$_ERRORLINES
-        KU$_JAVA_T
-        KU$_JOBDESC
-        KU$_JOBDESC1010
-        KU$_JOBDESC1020
-        KU$_JOBSTATUS
-        KU$_JOBSTATUS1010
-        KU$_JOBSTATUS1020
-        KU$_LOGENTRY
-        KU$_LOGENTRY1010
-        KU$_LOGENTRY1020
-        KU$_LOGLINE
-        KU$_LOGLINE1010
-        KU$_LOGLINE1020
-        KU$_MULTI_DDL
-        KU$_MULTI_DDLS
-        KU$_OBJNUMPAIR
-        KU$_OBJNUMPAIRLIST
-        KU$_OBJNUMSET
-        KU$_PARAMVALUE
-        KU$_PARAMVALUE1010
-        KU$_PARAMVALUE1020
-        KU$_PARAMVALUES
-        KU$_PARAMVALUES1010
-        KU$_PARAMVALUES1020
-        KU$_PARSED_ITEM
-        KU$_PARSED_ITEMS
-        KU$_PROCOBJ_LINE
-        KU$_PROCOBJ_LINES
-        KU$_PROCOBJ_LOC
-        KU$_PROCOBJ_LOCS
-        KU$_SOURCE_LIST_T
-        KU$_SOURCE_T
-        KU$_STATUS
-        KU$_STATUS1010
-        KU$_STATUS1020
-        KU$_SUBMITRESULT
-        KU$_SUBMITRESULTS
-        KU$_TACTION_LIST_T
-        KU$_TACTION_T
-        KU$_VCNT
-        KU$_WORKERSTATUS
-        KU$_WORKERSTATUS1010
-        KU$_WORKERSTATUS1020
-        KU$_WORKERSTATUSLIST
-        KU$_WORKERSTATUSLIST1010
-        KU$_WORKERSTATUSLIST1020
-        KUPCC
-        LINESTRING
-        LINESTRINGFROMTEXT
-        LINESTRINGFROMWKB
-        LOADER_COL_FLAGS
-        LOADER_COL_INFO
-        LOADER_COL_TYPE
-        LOADER_CONSTRAINT_INFO
-        LOADER_DIR_OBJS
-        LOADER_FILE_TS
-        LOADER_FULL_ATTR_NAME
-        LOADER_INTCOL_INFO
-        LOADER_LOB_FLAGS
-        LOADER_NESTED_VARRAYS
-        LOADER_OID_INFO
-        LOADER_PARAM_INFO
-        LOADER_PART_INFO
-        LOADER_REF_INFO
-        LOADER_SKIP_UNUSABLE_INDEXES
-        LOADER_TAB_INFO
-        LOADER_TRIGGER_INFO
-        LOCATOR_WITHIN_DISTANCE
-        MAP_OBJECT
-        MATCHES
-        MATCH_SCORE
-        MD
-        MD_LRS
-        MULTICURVE
-        MULTILINESTRING
-        MULTILINESTRINGFROMTEXT
-        MULTILINESTRINGFROMWKB
-        MULTIPOINT
-        MULTIPOLYGON
-        MULTIPOLYGONFROMTEXT
-        MULTIPOLYGONFROMWKB
-        MULTISURFACE
-        MY_SDO_INDEX_METADATA
-        NLS_DATABASE_PARAMETERS
-        NLS_INSTANCE_PARAMETERS
-        NLS_SESSION_PARAMETERS
-        NUMGEOMETRIES
-        NUMINTERIORRINGS
-        NUMPOINTS
-        NV
-        OBJ
-        ODCICONST
-        ODM_UTIL
-        OGC_CONTAINS
-        OGC_LENGTH
-        OGC_UNION
-        OGIS_GEOMETRY_COLUMNS
-        OGIS_SPATIAL_REFERENCE_SYSTEMS
-        OL$
-        OL$HINTS
-        OL$NODES
-        OLAP_BOOL_SRF
-        OLAP_CONDITION
-        OLAP_DATE_SRF
-        OLAP_EXPRESSION
-        OLAP_EXPRESSION_BOOL
-        OLAP_EXPRESSION_DATE
-        OLAP_EXPRESSION_TEXT
-        OLAP_NUMBER_SRF
-        OLAP_SRF_T
-        OLAP_TEXT_SRF
-        ORA_CLIENT_IP_ADDRESS
-        ORA_DATABASE_NAME
-        ORA_DES_ENCRYPTED_PASSWORD
-        ORA_DICT_OBJ_NAME
-        ORA_DICT_OBJ_NAME_LIST
-        ORA_DICT_OBJ_OWNER
-        ORA_DICT_OBJ_OWNER_LIST
-        ORA_DICT_OBJ_TYPE
-        ORA_DM_TREE_NODES
-        ORA_FI_DECISION_TREE_HORIZ
-        ORA_GRANTEE
-        ORA_INSTANCE_NUM
-        ORA_IS_ALTER_COLUMN
-        ORA_IS_DROP_COLUMN
-        ORA_IS_SERVERERROR
-        ORA_KGLR7_DB_LINKS
-        ORA_KGLR7_DEPENDENCIES
-        ORA_KGLR7_IDL_CHAR
-        ORA_KGLR7_IDL_SB4
-        ORA_KGLR7_IDL_UB1
-        ORA_KGLR7_IDL_UB2
-        ORA_LOGIN_USER
-        ORA_PARTITION_POS
-        ORA_PRIVILEGE_LIST
-        ORA_REVOKEE
-        ORA_SERVER_ERROR
-        ORA_SERVER_ERROR_DEPTH
-        ORA_SERVER_ERROR_MSG
-        ORA_SERVER_ERROR_NUM_PARAMS
-        ORA_SERVER_ERROR_PARAM
-        ORA_SPACE_ERROR_INFO
-        ORA_SQL_TXT
-        ORA_SYSEVENT
-        ORA_WITH_GRANT_OPTION
-        OUTLINE
-        OUTLN_PKG
-        OVERLAP
-        OWA
-        OWA_CACHE
-        OWA_COOKIE
-        OWA_CUSTOM
-        OWA_GLOBAL
-        OWA_IMAGE
-        OWA_INIT
-        OWA_MATCH
-        OWA_OPT_LOCK
-        OWA_PATTERN
-        OWA_SEC
-        OWA_TEXT
-        OWA_UTIL
-        P
-        PATH
-        PATH_VIEW
-        PBSDE
-        PLITBLM
-        POINT
-        POINTFROMTEXT
-        POINTFROMWKB
-        POINTN
-        POINTONSURFACE
-        POLYGON
-        POLYGONFROMTEXT
-        POLYGONFROMWKB
-        PRODUCT_COMPONENT_VERSION
-        PRODUCT_PROFILE
-        PRODUCT_USER_PROFILE
-        PROXY_ROLES
-        PROXY_USERS
-        PROXY_USERS_AND_ROLES
-        PUBLIC_DEPENDENCY
-        QUEUE_PRIVILEGES
-        RECYCLEBIN
-        RELATE
-        REPCAT_REPCOLUMN_BASE
-        RESOURCE_COST
-        RESOURCE_VIEW
-        REWRITEARRAYTYPE
-        REWRITEMESSAGE
-        ROLE_ROLE_PRIVS
-        ROLE_SYS_PRIVS
-        ROLE_TAB_PRIVS
-        RTREEJOINFUNC
-        SCHEMA_EXPORT_OBJECTS
-        SCN_TO_TIMESTAMP
-        SCORE
-        SDO
-        SDOAGGRTYPE
-        SDO_3GL
-        SDO_ADDR_ARRAY
-        SDO_ADMIN
-        SDO_AGGR_CENTROID
-        SDO_AGGR_CONCAT_LINES
-        SDO_AGGR_CONVEXHULL
-        SDO_AGGR_LRS_CONCAT
-        SDO_AGGR_LRS_CONCAT_3D
-        SDO_AGGR_MBR
-        SDO_AGGR_UNION
-        SDO_ANGLE_UNITS
-        SDO_ANYINTERACT
-        SDO_AREA_UNITS
-        SDO_AVAILABLE_ELEM_OPS
-        SDO_AVAILABLE_NON_ELEM_OPS
-        SDO_AVAILABLE_OPS
-        SDO_CATALOG
-        SDO_CONTAINS
-        SDO_COORD_AXES
-        SDO_COORD_AXIS_NAMES
-        SDO_COORD_OPS
-        SDO_COORD_OP_METHODS
-        SDO_COORD_OP_PARAMS
-        SDO_COORD_OP_PARAM_USE
-        SDO_COORD_OP_PARAM_VALS
-        SDO_COORD_OP_PATHS
-        SDO_COORD_REF_SYS
-        SDO_COORD_REF_SYSTEM
-        SDO_COORD_SYS
-        SDO_COVEREDBY
-        SDO_COVERS
-        SDO_CRS_COMPOUND
-        SDO_CRS_ENGINEERING
-        SDO_CRS_GEOCENTRIC
-        SDO_CRS_GEOGRAPHIC2D
-        SDO_CRS_GEOGRAPHIC3D
-        SDO_CRS_PROJECTED
-        SDO_CRS_VERTICAL
-        SDO_CS
-        SDO_DATUMS
-        SDO_DATUMS_OLD_FORMAT
-        SDO_DATUMS_OLD_SNAPSHOT
-        SDO_DATUM_ENGINEERING
-        SDO_DATUM_GEODETIC
-        SDO_DATUM_VERTICAL
-        SDO_DIM_ARRAY
-        SDO_DIM_ELEMENT
-        SDO_DIST_UNITS
-        SDO_EDGE_ARRAY
-        SDO_ELEM_INFO_ARRAY
-        SDO_ELLIPSOIDS
-        SDO_ELLIPSOIDS_OLD_FORMAT
-        SDO_ELLIPSOIDS_OLD_SNAPSHOT
-        SDO_EQUAL
-        SDO_FILTER
-        SDO_GEOM
-        SDO_GEOMETRY
-        SDO_GEO_ADDR
-        SDO_INDEX_METADATA
-        SDO_INSIDE
-        SDO_JOIN
-        SDO_KEYWORDARRAY
-        SDO_LIST_TYPE
-        SDO_LRS
-        SDO_MBR
-        SDO_MIGRATE
-        SDO_NN
-        SDO_NN_DISTANCE
-        SDO_NUMBER_ARRAY
-        SDO_ON
-        SDO_ORDINATE_ARRAY
-        SDO_OVERLAPBDYDISJOINT
-        SDO_OVERLAPBDYINTERSECT
-        SDO_OVERLAPS
-        SDO_POINT_TYPE
-        SDO_PREFERRED_OPS_SYSTEM
-        SDO_PREFERRED_OPS_USER
-        SDO_PRIDX
-        SDO_PRIME_MERIDIANS
-        SDO_PROJECTIONS_OLD_FORMAT
-        SDO_PROJECTIONS_OLD_SNAPSHOT
-        SDO_REGAGGR
-        SDO_REGAGGRSET
-        SDO_REGION
-        SDO_REGIONSET
-        SDO_RELATE
-        SDO_RELATE_MASK
-        SDO_ROWIDPAIR
-        SDO_ROWIDSET
-        SDO_RTREE_ADMIN
-        SDO_RTREE_FILTER
-        SDO_RTREE_RELATE
-        SDO_SRID_CHAIN
-        SDO_SRID_LIST
-        SDO_STRING_ARRAY
-        SDO_TFM_CHAIN
-        SDO_TGL_OBJECT
-        SDO_TGL_OBJECT_ARRAY
-        SDO_TOPO_DATA$
-        SDO_TOPO_GEOMETRY
-        SDO_TOPO_GEOMETRY_LAYER
-        SDO_TOPO_GEOMETRY_LAYER_ARRAY
-        SDO_TOPO_NSTD_TBL
-        SDO_TOPO_OBJECT
-        SDO_TOPO_OBJECT_ARRAY
-        SDO_TOPO_TRANSACT_DATA$
-        SDO_TOUCH
-        SDO_TRANSIENT_RULE
-        SDO_TRANSIENT_RULE_SET
-        SDO_TUNE
-        SDO_TXN_IDX_DELETES
-        SDO_TXN_IDX_EXP_UPD_RGN
-        SDO_TXN_IDX_INSERTS
-        SDO_UNITS_OF_MEASURE
-        SDO_UTIL
-        SDO_VERSION
-        SDO_VPOINT_TYPE
-        SDO_WITHIN_DISTANCE
-        SEQ
-        SESSION_CONTEXT
-        SESSION_PRIVS
-        SESSION_ROLES
-        SM$VERSION
-        SPATIAL_INDEX
-        SQLPROF_ATTR
-        SQLSET
-        SQLSET_ROW
-        SQL_BIND
-        SQL_BINDS
-        SQL_BIND_SET
-        SQL_OBJECTS
-        SQL_PLAN_ROW_TYPE
-        SQL_PLAN_STAT_ROW_TYPE
-        SRID
-        STARTPOINT
-        STMT_AUDIT_OPTION_MAP
-        SURFACE
-        SYMMETRICDIFFERENCE
-        SYN
-        SYSTEM_PRIVILEGE_MAP
-        SYS_IXQAGG
-        SYS_NT_COLLECT
-        SYS_XMLAGG
-        TEMP$LOB
-        TFM_PLAN
-        TIMESTAMP_TO_SCN
-        TMP_COORD_OPS
-        TOUCH
-        TRUSTED_SERVERS
-        UNDER_PATH
-        URIFACTORY
-        URITYPE
-        USER_
-        UTL_
-        V
-        V$
-        WITHIN
-        WPG_DOCLOAD
-        WWV_
-        X
-        XDB$STRING_LIST_T
-        XDBURITYPE
-        XDB_PVTRIG_PKG
-        XDB_RVTRIG_PKG
-        XMLAGG
-        XMLDOM
-        XMLFORMAT
-        XMLPARSER
-        XMLSEQUENCE
-        XMLSEQUENCETYPE
-        XMLTYPE
-        XQSEQUENCE
-        XSLPROCESSOR
-        Y
-        Z
-        _ALL_INSTANTIATION_DDL
-        _ALL_REPEXTENSIONS
-        _ALL_REPSITES_NEW
-        _ALL_SQLSET_STATEMENTS_ONLY
-        _ALL_SQLSET_STATEMENTS_PHV
-        _ALL_SQLSET_STATISTICS_ONLY
-        SCHEDULER$_JOBSUFFIX_S
-        AUDIT_ACTIONS
-        DUAL
-        IMPDP_STATS
-        KU$NOEXP_TAB
-        ODCI_SECOBJ$
-        ODCI_WARNINGS$
-        PSTUBTBL
-        STMT_AUDIT_OPTION_MAP
-        SYSTEM_PRIVILEGE_MAP
-        WRI$_ADV_ASA_RECO_DATA
-        DEF$_TEMP$LOB
-        HELP
-        OL$
-        OL$HINTS
-        OL$NODES
-        ALL_
-        CATALOG
-        COL
-        COLUMN_PRIVILEGES
-        DATABASE_COMPATIBLE_LEVEL
-        DATABASE_EXPORT_OBJECTS
-        DATABASE_PROPERTIES
-        DATAPUMP_DDL_TRANSFORM_PARAMS
-        DATAPUMP_OBJECT_CONNECT
-        DATAPUMP_PATHMAP
-        DATAPUMP_PATHS
-        DATAPUMP_REMAP_OBJECTS
-        DBA_AUTO_SEGADV_CTL
-        DBA_AUTO_SEGADV_SUMMARY
-        DEFERRCOUNT
-        DICTIONARY
-        DICT_COLUMNS
-        EXPCOMPRESSEDPART
-        EXPCOMPRESSEDSUB
-        EXPCOMPRESSEDTAB
-        EXPEXEMPT
-        EXPGETENCCOLNAM
-        EXPTABSUBPART
-        EXPTABSUBPARTDATA_VIEW
-        EXPTABSUBPARTLOBFRAG
-        EXPTABSUBPARTLOB_VIEW
-        EXU102XTYPU
-        EXU10ADEFPSWITCHES
-        EXU10AOBJSWITCH
-        EXU10ASCU
-        EXU10CCLO
-        EXU10CCLU
-        EXU10COEU
-        EXU10DEFPSWITCHES
-        EXU10DOSO
-        EXU10IND_BASE
-        EXU10LNKU
-        EXU10MVL
-        EXU10MVLU
-        EXU10OBJSWITCH
-        EXU10R2DEFPSWITCHES
-        EXU10R2OBJSWITCH
-        EXU10SNAPLU
-        EXU10SNAPU
-        EXU10TABSU
-        EXU10TABU
-        EXU816MAXSQV
-        EXU816TGRU
-        EXU81ACTIONOBJ
-        EXU81ACTIONPKG
-        EXU81ASSOC
-        EXU81CSC
-        EXU81DOIU
-        EXU81IND
-        EXU81IND_BASE
-        EXU81ITYU
-        EXU81IXCPU
-        EXU81IXSPU
-        EXU81JAV
-        EXU81JAVT
-        EXU81LBCPU
-        EXU81LBPU
-        EXU81LBSPU
-        EXU81NOS
-        EXU81OBJECTPKG
-        EXU81OPRU
-        EXU81PLBU
-        EXU81PROCOBJ
-        EXU81PROCOBJINSTANCE
-        EXU81RGCU
-        EXU81RGSU
-        EXU81RLS
-        EXU81SCMU
-        EXU81SLFCU
-        EXU81SNAPLU
-        EXU81SNAPU
-        EXU81SPOKIU
-        EXU81SPOKU
-        EXU81SRTU
-        EXU81TABSU
-        EXU81TABU
-        EXU81TBCPU
-        EXU81TBSPU
-        EXU81TGRU
-        EXU81TYPU
-        EXU81USCIU
-        EXU8ANAL
-        EXU8ASCU
-        EXU8BSZ
-        EXU8CCLO
-        EXU8CCLU
-        EXU8CCOU
-        EXU8CGRU
-        EXU8CLUU
-        EXU8CMTU
-        EXU8COEU
-        EXU8COLU
-        EXU8CONU
-        EXU8COOU
-        EXU8CPO
-        EXU8CSET
-        EXU8CSNU
-        EXU8DIM
-        EXU8DIMU
-        EXU8FPTU
-        EXU8FUL
-        EXU8GLOB
-        EXU8GRNU
-        EXU8HSTU
-        EXU8ICO
-        EXU8ICOU
-        EXU8ICPLSQL
-        EXU8INDU
-        EXU8INKU
-        EXU8IOVU
-        EXU8IXPU
-        EXU8JBQU
-        EXU8LIBU
-        EXU8LNKU
-        EXU8LOBU
-        EXU8NTBU
-        EXU8NXPU
-        EXU8OIDU
-        EXU8OPT
-        EXU8ORD
-        EXU8ORDU
-        EXU8ORFS
-        EXU8PDSU
-        EXU8PNTU
-        EXU8POKIU
-        EXU8POKU
-        EXU8PSTU
-        EXU8REFU
-        EXU8RFSU
-        EXU8RGCU
-        EXU8RGSU
-        EXU8SCMU
-        EXU8SEQU
-        EXU8SLFCU
-        EXU8SLOGU
-        EXU8SNAPLU
-        EXU8SNAPU
-        EXU8SPSU
-        EXU8SPU
-        EXU8SRTU
-        EXU8STOU
-        EXU8SYNU
-        EXU8TABU
-        EXU8TBPU
-        EXU8TGRU
-        EXU8TNE
-        EXU8TNEB
-        EXU8TYPBU
-        EXU8TYPTU
-        EXU8TYPU
-        EXU8USCU
-        EXU8USRU
-        EXU8VDPTU
-        EXU8VER
-        EXU8VEWU
-        EXU8VINFU
-        EXU8VNCU
-        EXU92FPTPU
-        EXU92FPTU
-        EXU92TGRU
-        EXU92TSP
-        EXU92TSPL
-        EXU9ACTIONOBJ
-        EXU9BJF
-        EXU9BJW
-        EXU9CCLO
-        EXU9CCLU
-        EXU9COEU
-        EXU9COOU
-        EXU9DEFPSWITCHES
-        EXU9DOIU
-        EXU9DOSO
-        EXU9EIP
-        EXU9FGA
-        EXU9GSAS
-        EXU9IND
-        EXU9IND_BASE
-        EXU9INHCOLCONS
-        EXU9IXCPU
-        EXU9LBCPU
-        EXU9LBPU
-        EXU9LNKU
-        EXU9LOBU
-        EXU9MVL
-        EXU9MVLCDCCC
-        EXU9MVLCDCS
-        EXU9MVLCDCSC
-        EXU9MVLCDCST
-        EXU9MVLU
-        EXU9NLS
-        EXU9NOS
-        EXU9OBJSWITCH
-        EXU9OTNNULL
-        EXU9PCT
-        EXU9PDSU
-        EXU9PGP
-        EXU9PLBU
-        EXU9PTS
-        EXU9RLS
-        EXU9SNAPLU
-        EXU9SNAPU
-        EXU9STOU
-        EXU9SYNU
-        EXU9TABSU
-        EXU9TABU
-        EXU9TAB_UNUSED_COLS
-        EXU9TBCPU
-        EXU9TNE
-        EXU9TNEB
-        EXU9TYPTU
-        EXU9TYPTU2
-        EXU9TYPU
-        EXU9UTSU
-        EXU9XDBUID
-        EXU9XMLST
-        EXU9XTB
-        FLASHBACK_TRANSACTION_QUERY
-        GLOBAL_CONTEXT
-        GLOBAL_NAME
-        GV_$ACTIVE_INSTANCES
-        GV_$ACTIVE_SESS_POOL_MTH
-        GV_$AW_AGGREGATE_OP
-        GV_$AW_ALLOCATE_OP
-        GV_$AW_CALC
-        GV_$AW_LONGOPS
-        GV_$AW_OLAP
-        GV_$AW_SESSION_INFO
-        GV_$BH
-        GV_$BLOCKING_QUIESCE
-        GV_$LOADISTAT
-        GV_$LOADPSTAT
-        GV_$LOCK_ACTIVITY
-        GV_$MAX_ACTIVE_SESS_TARGET_MTH
-        GV_$NLS_PARAMETERS
-        GV_$NLS_VALID_VALUES
-        GV_$OPTION
-        GV_$PARALLEL_DEGREE_LIMIT_MTH
-        GV_$PQ_SESSTAT
-        GV_$PQ_TQSTAT
-        GV_$QUEUEING_MTH
-        GV_$RESTORE_POINT
-        GV_$RSRC_CONSUMER_GROUP
-        GV_$RSRC_CONSUME_GROUP_CPU_MTH
-        GV_$RSRC_CONS_GROUP_HISTORY
-        GV_$RSRC_PLAN
-        GV_$RSRC_PLAN_CPU_MTH
-        GV_$RSRC_PLAN_HISTORY
-        GV_$RSRC_SESSION_INFO
-        GV_$SESSION_LONGOPS
-        GV_$TEMPORARY_LOBS
-        GV_$TIMEZONE_FILE
-        GV_$TIMEZONE_NAMES
-        GV_$VERSION
-        IMP8CDTU
-        IMP8REPCAT
-        IMP8TTDU
-        IMP8UEC
-        IMP9COMPAT
-        IMP9SYN4
-        IMP9TVOID
-        IMP9USR
-        IMP_LOB_INFO
-        IMP_LOB_NOTNULL
-        IMP_TAB_TRIG
-        INDEX_HISTOGRAM
-        INDEX_STATS
-        KU$
-        KU_NOEXP_VIEW
-        LOADER_
-        NLS_DATABASE_PARAMETERS
-        NLS_INSTANCE_PARAMETERS
-        NLS_SESSION_PARAMETERS
-        ORA_KGLR7_DB_LINKS
-        ORA_KGLR7_DEPENDENCIES
-        ORA_KGLR7_IDL_CHAR
-        ORA_KGLR7_IDL_SB4
-        ORA_KGLR7_IDL_UB1
-        ORA_KGLR7_IDL_UB2
-        PRODUCT_COMPONENT_VERSION
-        PUBLICSYN
-        PUBLIC_DEPENDENCY
-        QUEUE_PRIVILEGES
-        RESOURCE_COST
-        ROLE_ROLE_PRIVS
-        ROLE_SYS_PRIVS
-        ROLE_TAB_PRIVS
-        SCHEMA_EXPORT_OBJECTS
-        SESSION_CONTEXT
-        SESSION_PRIVS
-        SESSION_ROLES
-        SM_$VERSION
-        SYNONYMS
-        SYSCATALOG
-        SYSFILES
-        SYSSEGOBJ
-        USER_
-        UTL_ALL_IND_COMPS
-        V$OBJECT_USAGE
-        V_$ACTIVE_INSTANCES
-        V_$ACTIVE_SESS_POOL_MTH
-        V_$ADVISOR_PROGRESS
-        V_$AW_AGGREGATE_OP
-        V_$AW_ALLOCATE_OP
-        V_$AW_CALC
-        V_$AW_LONGOPS
-        V_$AW_OLAP
-        V_$AW_SESSION_INFO
-        V_$BH
-        V_$BLOCKING_QUIESCE
-        V_$LOADISTAT
-        V_$LOADPSTAT
-        V_$LOCK_ACTIVITY
-        V_$MAX_ACTIVE_SESS_TARGET_MTH
-        V_$NLS_PARAMETERS
-        V_$NLS_VALID_VALUES
-        V_$OPTION
-        V_$PARALLEL_DEGREE_LIMIT_MTH
-        V_$PQ_SESSTAT
-        V_$PQ_TQSTAT
-        V_$QUEUEING_MTH
-        V_$RESTORE_POINT
-        V_$RSRC_CONSUMER_GROUP
-        V_$RSRC_CONSUMER_GROUP_CPU_MTH
-        V_$RSRC_CONS_GROUP_HISTORY
-        V_$RSRC_PLAN
-        V_$RSRC_PLAN_CPU_MTH
-        V_$RSRC_PLAN_HISTORY
-        V_$RSRC_SESSION_INFO
-        V_$SESSION_CONNECT_INFO
-        V_$SESSION_LONGOPS
-        V_$TEMPORARY_LOBS
-        V_$TIMEZONE_FILE
-        V_$TIMEZONE_NAMES
-        V_$VERSION
-        _ALL_FILE_GROUPS
-        _ALL_FILE_GROUP_EXPORT_INFO
-        _ALL_FILE_GROUP_FILES
-        _ALL_FILE_GROUP_TABLES
-        _ALL_FILE_GROUP_TABLESPACES
-        _ALL_FILE_GROUP_VERSIONS
-        _ALL_INSTANTIATION_DDL
-        _ALL_REPCOLUMN
-        _ALL_REPCOLUMN_GROUP
-        _ALL_REPCONFLICT
-        _ALL_REPEXTENSIONS
-        _ALL_REPFLAVOR_OBJECTS
-        _ALL_REPGROUPED_COLUMN
-        _ALL_REPPARAMETER_COLUMN
-        _ALL_REPRESOLUTION
-        _ALL_REPSITES_NEW
-        _ALL_SQLSET_STATEMENTS_ONLY
-        _ALL_SQLSET_STATEMENTS_PHV
-        _ALL_SQLSET_STATISTICS_ONLY
-        PRODUCT_PRIVS
-        DR$NUMBER_SEQUENCE
-        DR$OBJECT_ATTRIBUTE
-        DR$POLICY_TAB
-        BIN$qoPod3b/5/jgQAB/AQB1gw==$0
-        BIN$qoa+IroQdCDgQAB/AQAShg==$0
-        BIN$qoa+gX3av6bgQAB/AQASoA==$0
-        BIN$qoa97kXfAGHgQAB/AQASdw==$0
-        BIN$qoaJ7wJwYOLgQAB/AQAITA==$0
-        BIN$qoamIR+TOebgQAB/AQANmw==$0
-        BIN$qoamP2m44xXgQAB/AQANoA==$0
-        BIN$qoamm6N5i3bgQAB/AQANtg==$0
-        BIN$qob17xzsmp3gQAB/AQAgOA==$0
-        BIN$qod/Sxxh583gQAB/AQAGVg==$0
-        BIN$qod/pFQZipXgQAB/AQAGaw==$0
-        WWV_FLOW_DUAL100
-        WWV_FLOW_FIELD_TEMPLATES
-        WWV_FLOW_LISTS_OF_VALUES$
-        WWV_FLOW_LIST_OF_VALUES_DATA
-        WWV_FLOW_LOV_TEMP
-        WWV_FLOW_PATCHES
-        WWV_FLOW_TEMP_TABLE
-        OGIS_GEOMETRY_COLUMNS
-        OGIS_SPATIAL_REFERENCE_SYSTEMS
-        SDO_COORD_AXES
-        SDO_COORD_AXIS_NAMES
-        SDO_COORD_OPS
-        SDO_COORD_OP_METHODS
-        SDO_COORD_OP_PARAMS
-        SDO_COORD_OP_PARAM_USE
-        SDO_COORD_OP_PARAM_VALS
-        SDO_COORD_OP_PATHS
-        SDO_COORD_REF_SYS
-        SDO_COORD_SYS
-        SDO_CS_SRS
-        SDO_DATUMS
-        SDO_DATUMS_OLD_SNAPSHOT
-        SDO_ELLIPSOIDS
-        SDO_ELLIPSOIDS_OLD_SNAPSHOT
-        SDO_PREFERRED_OPS_SYSTEM
-        SDO_PREFERRED_OPS_USER
-        SDO_PRIME_MERIDIANS
-        SDO_PROJECTIONS_OLD_SNAPSHOT
-        SDO_TOPO_DATA$
-        SDO_TOPO_RELATION_DATA
-        SDO_TOPO_TRANSACT_DATA
-        SDO_TXN_IDX_DELETES
-        SDO_TXN_IDX_EXP_UPD_RGN
-        SDO_TXN_IDX_INSERTS
-        SDO_UNITS_OF_MEASURE
-        XDB$ACL
-        XDB$ALL_MODEL
-        XDB$ANY
-        XDB$ANYATTR
-        XDB$ATTRGROUP_DEF
-        XDB$ATTRGROUP_REF
-        XDB$ATTRIBUTE
-        XDB$CHOICE_MODEL
-        XDB$COMPLEX_TYPE
-        XDB$ELEMENT
-        XDB$GROUP_DEF
-        XDB$GROUP_REF
-        XDB$SCHEMA
-        XDB$SEQUENCE_MODEL
-        XDB$SIMPLE_TYPE
-        CTX_CLASSES
-        CTX_INDEX_SETS
-        CTX_INDEX_SET_INDEXES
-        CTX_OBJECTS
-        CTX_OBJECT_ATTRIBUTES
-        CTX_OBJECT_ATTRIBUTE_LOV
-        CTX_PARAMETERS
-        CTX_PREFERENCES
-        CTX_PREFERENCE_VALUES
-        CTX_SECTIONS
-        CTX_SECTION_GROUPS
-        CTX_SQES
-        CTX_STOPLISTS
-        CTX_STOPWORDS
-        CTX_SUB_LEXERS
-        CTX_THESAURI
-        CTX_THES_PHRASES
-        CTX_TRACE_VALUES
-        CTX_USER_INDEXES
-        CTX_USER_INDEX_ERRORS
-        CTX_USER_INDEX_OBJECTS
-        CTX_USER_INDEX_PARTITIONS
-        CTX_USER_INDEX_SETS
-        CTX_USER_INDEX_SET_INDEXES
-        CTX_USER_INDEX_SUB_LEXERS
-        CTX_USER_INDEX_SUB_LEXER_VALS
-        CTX_USER_INDEX_VALUES
-        CTX_USER_PENDING
-        CTX_USER_PREFERENCES
-        CTX_USER_PREFERENCE_VALUES
-        CTX_USER_SECTIONS
-        CTX_USER_SECTION_GROUPS
-        CTX_USER_SQES
-        CTX_USER_STOPLISTS
-        CTX_USER_STOPWORDS
-        CTX_USER_SUB_LEXERS
-        CTX_USER_THESAURI
-        CTX_USER_THES_PHRASES
-        DRV$DELETE
-        DRV$DELETE2
-        DRV$ONLINE_PENDING
-        DRV$PENDING
-        DRV$UNINDEXED
-        DRV$UNINDEXED2
-        DRV$WAITING
-        WWV_FLOW_CLICKTHRU_LOG
-        WWV_FLOW_COLLECTIONS
-        WWV_FLOW_FILES
-        WWV_FLOW_GROUP_USERS
-        WWV_FLOW_HOURS_12
-        WWV_FLOW_HOURS_24
-        WWV_FLOW_MINUTES
-        WWV_FLOW_MINUTES_5
-        WWV_FLOW_MONTHS_MON
-        WWV_FLOW_MONTHS_MONTH
-        WWV_FLOW_PLSQL_JOBS
-        WWV_FLOW_USERS
-        WWV_FLOW_USER_ACTIVITY_LOG
-        WWV_FLOW_USER_MAIL_LOG
-        WWV_FLOW_USER_MAIL_QUEUE
-        WWV_FLOW_YEARS
-        ALL_GEOMETRY_COLUMNS
-        ALL_SDO_GEOM_METADATA
-        ALL_SDO_INDEX_INFO
-        ALL_SDO_INDEX_METADATA
-        ALL_SDO_LRS_METADATA
-        ALL_SDO_MAPS
-        ALL_SDO_STYLES
-        ALL_SDO_THEMES
-        ALL_SDO_TOPO_INFO
-        ALL_SDO_TOPO_METADATA
-        CS_SRS
-        DBA_SDO_MAPS
-        DBA_SDO_STYLES
-        DBA_SDO_THEMES
-        GEODETIC_SRIDS
-        MY_SDO_INDEX_METADATA
-        SDO_ANGLE_UNITS
-        SDO_AREA_UNITS
-        SDO_AVAILABLE_ELEM_OPS
-        SDO_AVAILABLE_NON_ELEM_OPS
-        SDO_AVAILABLE_OPS
-        SDO_COORD_REF_SYSTEM
-        SDO_CRS_COMPOUND
-        SDO_CRS_ENGINEERING
-        SDO_CRS_GEOCENTRIC
-        SDO_CRS_GEOGRAPHIC2D
-        SDO_CRS_GEOGRAPHIC3D
-        SDO_CRS_PROJECTED
-        SDO_CRS_VERTICAL
-        SDO_DATUMS_OLD_FORMAT
-        SDO_DATUM_ENGINEERING
-        SDO_DATUM_GEODETIC
-        SDO_DATUM_VERTICAL
-        SDO_DIST_UNITS
-        SDO_ELLIPSOIDS_OLD_FORMAT
-        SDO_PROJECTIONS_OLD_FORMAT
-        SDO_RELATEMASK_TABLE
-        SDO_TOPO_TRANSACT_DATA$
-        USER_
-        PATH_VIEW
-        RESOURCE_VIEW
-        CHANGE_TABLES
-        DATAPUMP_TABLE_DATA
-        GV$DB_TRANSPORTABLE_PLATFORM
-        GV$FIXED_TABLE
-        GV$TABLESPACE
-        GV$TRANSPORTABLE_PLATFORM
-        OLAPRC_TABLE
-        OLAP_TABLE
-        ORA_IS_CREATING_NESTED_TABLE
-        SQL_PLAN_TABLE_TYPE
-        TABLESPACE_EXPORT_OBJECTS
-        TABLE_EXPORT_OBJECTS
-        TABLE_PRIVILEGES
-        TABLE_PRIVILEGE_MAP
-        TABQUOTAS
-        TABS
-        TRANSPORTABLE_EXPORT_OBJECTS
-    #;
-
-    @system_tables = map {quotemeta $_} @system_tables;
-    push @system_tables, 'BIN';
-    my $system_table_re = '^(' . join('|', @system_tables) . ')';
-    
-    has exclude_table => sub {
-        return $system_table_re;
-    };
-
-    has dsn => 'dbi:Oracle:host=localhost;port=1521;sid=XE';
-    has user  => 'dbix_custom';
-    has password => 'dbix_custom';
-
-    sub create_table1 { "create table $table1 ($key1 varchar2(255), $key2 varchar2(255))" }
-    sub create_table1_2 { "create table $table1 ($key1 varchar2(255), $key2 varchar2(255), "
-     . "$key3 varchar2(255), $key4 varchar2(255), $key5 varchar2(255))" }
-    sub create_table1_type { "create table $table1 ($key1 $date_typename, $key2 $datetime_typename)" }
-    sub create_table1_highperformance { "create table $table1 ($key1 varchar2(255), $key2 varchar2(255), "
-      . "$key3 varchar2(255), $key4 varchar2(255), $key5 varchar2(255), $key6 varchar2(255), $key7 varchar2(255))" }
-    sub create_table2 { "create table $table2 ($key1 varchar2(255), $key3 varchar2(255))" }
-    sub create_table2_2 { "create table $table2 ($key1 varchar2(255), $key2 varchar2(255), $key3 varchar2(255))" }
-    sub create_table3 { "create table $table3 ($key1 varchar2(255), $key2 varchar2(255), $key3 varchar2(255))" }
-    sub create_table_reserved { 'create table "table" ("select" varchar2(255), "update" varchar2(255))' }
-}
-
-require "$FindBin::Bin/common.t";

-105

t/next/common-postgresql.t

View

@@ -1,105 +0,0 @@
-use strict;
-use warnings;
-
-use FindBin;
-use lib "$FindBin::Bin/common";
-$ENV{DBIX_CUSTOM_TEST_RUN} = 1
-  if -f "$FindBin::Bin/run/common-postgresql.run";
-$ENV{DBIX_CUSTOM_SKIP_MESSAGE} = 'postgresql private test';
-
-use DBIx::Custom;
-{
-    package DBIx::Custom;
-    no warnings 'redefine';
-
-    my $table1 = 'table1';
-    my $table2 = 'table2';
-    my $table2_alias = 'table2_alias';
-    my $table3 = 'table3';
-    my $key1 = 'key1';
-    my $key2 = 'key2';
-    my $key3 = 'key3';
-    my $key4 = 'key4';
-    my $key5 = 'key5';
-    my $key6 = 'key6';
-    my $key7 = 'key7';
-    my $key8 = 'key8';
-    my $key9 = 'key9';
-    my $key10 = 'key10';
-    
-    has table1 => $table1;
-    has table2 => $table2;
-    has table2_alias => $table2_alias;
-    has table3 => $table3;
-    has key1 => $key1;
-    has key2 => $key2;
-    has key3 => $key3;
-    has key4 => $key4;
-    has key5 => $key5;
-    has key6 => $key6;
-    has key7 => $key7;
-    has key8 => $key8;
-    has key9 => $key9;
-    has key10 => $key10;
-
-    my $date_typename = 'Date';
-    my $datetime_typename = 'Timestamp';
-
-    sub date_typename { lc $date_typename }
-    sub datetime_typename { 'timestamp without time zone' }
-
-    my $date_datatype = 91;
-    my $datetime_datatype = 11;
-
-    sub date_datatype { lc $date_datatype }
-    sub datetime_datatype { lc $datetime_datatype }
-
-    has dsn => "dbi:Pg:dbname=dbix_custom";
-    has user  => 'dbix_custom';
-    has password => 'dbix_custom';
-    has exclude_table => sub {
-
-        return qr/^(
-            pg_|column_|role_|view_|sql_
-            |applicable_roles
-            |check_constraints
-            |columns
-            |constraint_column_usage
-            |constraint_table_usage
-            |data_type_privileges
-            |domain_constraints
-            |domain_udt_usage
-            |domains
-            |element_types
-            |enabled_roles
-            |information_schema
-            |information_schema_catalog_name
-            |key_column_usage
-            |parameters
-            |referential_constraints
-            |routine_privileges
-            |routines
-            |schemata
-            |table_constraints
-            |table_privileges
-            |tables
-            |triggered_update_columns
-            |triggers
-            |usage_privileges
-            |views
-        )/x
-    };
-    
-    sub create_table1 { "create table $table1 ($key1 varchar(255), $key2 varchar(255))" }
-    sub create_table1_2 {"create table $table1 ($key1 varchar(255), $key2 varchar(255), "
-     . "$key3 varchar(255), $key4 varchar(255), $key5 varchar(255))" }
-    sub create_table1_type { "create table $table1 ($key1 $date_typename, $key2 $datetime_typename)" }
-    sub create_table1_highperformance { "create table $table1 ($key1 varchar(255), $key2 varchar(255), "
-      . "$key3 varchar(255), $key4 varchar(255), $key5 varchar(255), $key6 varchar(255), $key7 varchar(255))" }
-    sub create_table2 { "create table $table2 ($key1 varchar(255), $key3 varchar(255))" }
-    sub create_table2_2 { "create table $table2 ($key1 varchar(255), $key2 varchar(255), $key3 varchar(255))" }
-    sub create_table3 { "create table $table3 ($key1 varchar(255), $key2 varchar(255), $key3 varchar(255))" }
-    sub create_table_reserved { 'create table "table" ("select" varchar(255), "update" varchar(255))' }
-}
-
-require "$FindBin::Bin/common.t";

-70

t/next/common-sqlite-quote.t

View

@@ -1,70 +0,0 @@
-use strict;
-use warnings;
-
-use FindBin;
-use lib "$FindBin::Bin/common";
-$ENV{DBIX_CUSTOM_TEST_RUN} = 1;
-
-use DBIx::Custom;
-{
-    package DBIx::Custom;
-    no warnings 'redefine';
-    
-    my $table1 = 'table1';
-    my $table2 = 'table2';
-    my $table2_alias = 'table2_alias';
-    my $table3 = 'table3';
-    my $key1 = 'key1';
-    my $key2 = 'key2';
-    my $key3 = 'key3';
-    my $key4 = 'key4';
-    my $key5 = 'key5';
-    my $key6 = 'key6';
-    my $key7 = 'key7';
-    my $key8 = 'key8';
-    my $key9 = 'key9';
-    my $key10 = 'key10';
-    
-    has table1 => $table1;
-    has table2 => $table2;
-    has table2_alias => $table2_alias;
-    has table3 => $table3;
-    has key1 => $key1;
-    has key2 => $key2;
-    has key3 => $key3;
-    has key4 => $key4;
-    has key5 => $key5;
-    has key6 => $key6;
-    has key7 => $key7;
-    has key8 => $key8;
-    has key9 => $key9;
-    has key10 => $key10;
-    
-    my $date_typename = 'Date';
-    my $datetime_typename = 'Datetime';
-    
-    sub date_typename { lc $date_typename }
-    sub datetime_typename { lc $datetime_typename }
-
-    my $date_datatype = 'Date';
-    my $datetime_datatype = 'Datetime';
-    
-    sub date_datatype { lc $date_datatype }
-    sub datetime_datatype { lc $datetime_datatype }
-
-    has dsn => 'dbi:SQLite:dbname=:memory:';
-    sub create_table1 { "create table $table1 ($key1 varchar, $key2 varchar)" }
-    sub create_table1_2 {"create table $table1 ($key1 varchar, $key2 varchar, $key3 varchar, key4 varchar, key5 varchar)" }
-    sub create_table1_type { "create table $table1 ($key1 $date_typename, $key2 $datetime_typename)" }
-    
-    sub create_table1_highperformance { "create table $table1 (key1 varchar, key2 varchar, key3 varchar, key4 varchar, key5 varchar, key6 varchar, key7 varchar)" }
-    
-    sub create_table2 { "create table $table2 ($key1 varchar, $key3 varchar)" }
-    sub create_table2_2 { "create table $table2 ($key1 varchar, $key2 varchar, $key3 varchar)" }
-    sub create_table3 { "create table $table3 ($key1 varchar, $key2 varchar, $key3 varchar)" }
-    sub create_table_reserved { 'create table "table" ("select" varchar, "update" varchar)' }
-
-    sub quote { '""' }
-}
-
-require "$FindBin::Bin/common.t";

-69

t/next/common-sqlite.t

View

@@ -1,69 +0,0 @@
-use strict;
-use warnings;
-
-use FindBin;
-use lib "$FindBin::Bin/common";
-$ENV{DBIX_CUSTOM_TEST_RUN} = 1;
-
-use DBIx::Custom;
-{
-    package DBIx::Custom;
-    no warnings 'redefine';
-    
-    my $table1 = 'table1';
-    my $table2 = 'table2';
-    my $table2_alias = 'table2_alias';
-    my $table3 = 'table3';
-    my $key1 = 'key1';
-    my $key2 = 'key2';
-    my $key3 = 'key3';
-    my $key4 = 'key4';
-    my $key5 = 'key5';
-    my $key6 = 'key6';
-    my $key7 = 'key7';
-    my $key8 = 'key8';
-    my $key9 = 'key9';
-    my $key10 = 'key10';
-    
-    has table1 => $table1;
-    has table2 => $table2;
-    has table2_alias => $table2_alias;
-    has table3 => $table3;
-    has key1 => $key1;
-    has key2 => $key2;
-    has key3 => $key3;
-    has key4 => $key4;
-    has key5 => $key5;
-    has key6 => $key6;
-    has key7 => $key7;
-    has key8 => $key8;
-    has key9 => $key9;
-    has key10 => $key10;
-    
-    my $date_typename = 'Date';
-    my $datetime_typename = 'Datetime';
-    
-    sub date_typename { lc $date_typename }
-    sub datetime_typename { lc $datetime_typename }
-
-    my $date_datatype = 'Date';
-    my $datetime_datatype = 'Datetime';
-    
-    sub date_datatype { lc $date_datatype }
-    sub datetime_datatype { lc $datetime_datatype }
-
-    has dsn => 'dbi:SQLite:dbname=:memory:';
-    sub create_table1 { "create table $table1 ($key1 varchar, $key2 varchar)" }
-    sub create_table1_2 {"create table $table1 ($key1 varchar, $key2 varchar, $key3 varchar, key4 varchar, key5 varchar)" }
-    sub create_table1_type { "create table $table1 ($key1 $date_typename, $key2 $datetime_typename)" }
-    
-    sub create_table1_highperformance { "create table $table1 (key1 varchar, key2 varchar, key3 varchar, key4 varchar, key5 varchar, key6 varchar, key7 varchar)" }
-    
-    sub create_table2 { "create table $table2 ($key1 varchar, $key3 varchar)" }
-    sub create_table2_2 { "create table $table2 ($key1 varchar, $key2 varchar, $key3 varchar)" }
-    sub create_table3 { "create table $table3 ($key1 varchar, $key2 varchar, $key3 varchar)" }
-    sub create_table_reserved { 'create table "table" ("select" varchar, "update" varchar)' }
-    
-}
-
-require "$FindBin::Bin/common.t";

-428

t/next/common-sqlserver.t

View

@@ -1,428 +0,0 @@
-use strict;
-use warnings;
-
-use FindBin;
-use lib "$FindBin::Bin/common";
-$ENV{DBIX_CUSTOM_TEST_RUN} = 1
-  if -f "$FindBin::Bin/run/common-sqlserver.run";
-$ENV{DBIX_CUSTOM_SKIP_MESSAGE} = 'sqlserver private test';
-
-use DBIx::Custom;
-{
-    package DBIx::Custom;
-    no warnings 'redefine';
-
-    my $table1 = 'table1';
-    my $table2 = 'table2';
-    my $table2_alias = 'table2_alias';
-    my $table3 = 'table3';
-    my $key1 = 'key1';
-    my $key2 = 'key2';
-    my $key3 = 'key3';
-    my $key4 = 'key4';
-    my $key5 = 'key5';
-    my $key6 = 'key6';
-    my $key7 = 'key7';
-    my $key8 = 'key8';
-    my $key9 = 'key9';
-    my $key10 = 'key10';
-    
-    has table1 => $table1;
-    has table2 => $table2;
-    has table2_alias => $table2_alias;
-    has table3 => $table3;
-    has key1 => $key1;
-    has key2 => $key2;
-    has key3 => $key3;
-    has key4 => $key4;
-    has key5 => $key5;
-    has key6 => $key6;
-    has key7 => $key7;
-    has key8 => $key8;
-    has key9 => $key9;
-    has key10 => $key10;
-
-    my $date_typename = 'date';
-    my $datetime_typename = 'datetime';
-
-    sub date_typename { lc $date_typename }
-    sub datetime_typename { lc $datetime_typename }
-
-    my $date_datatype = -9;
-    my $datetime_datatype = 93;
-
-    sub date_datatype { lc $date_datatype }
-    sub datetime_datatype { lc $datetime_datatype }
-
-    has exclude_table => sub {
-        return qr/^(
-          CHECK_CONSTRAINTS
-          |COLUMN_DOMAIN_USAGE
-          |COLUMN_PRIVILEGES
-          |COLUMNS
-          |CONSTRAINT_COLUMN_USAGE
-          |CONSTRAINT_TABLE_USAGE
-          |DOMAIN_CONSTRAINTS
-          |DOMAINS
-          |KEY_COLUMN_USAGE
-          |PARAMETERS
-          |REFERENTIAL_CONSTRAINTS
-          |ROUTINE_COLUMNS
-          |ROUTINES
-          |SCHEMATA
-          |TABLE_CONSTRAINTS
-          |TABLE_PRIVILEGES
-          |TABLES
-          |VIEW_COLUMN_USAGE
-          |VIEW_TABLE_USAGE
-          |VIEWS
-          |all_columns
-          |all_objects
-          |all_parameters
-          |all_sql_modules
-          |all_views
-          |allocation_units
-          |assemblies
-          |assembly_files
-          |assembly_modules
-          |assembly_references
-          |assembly_types
-          |asymmetric_keys
-          |backup_devices
-          |certificates
-          |change_tracking_databases
-          |change_tracking_tables
-          |check_constraints
-          |column_type_usages
-          |column_xml_schema_collection_usages
-          |columns
-          |computed_columns
-          |configurations
-          |conversation_endpoints
-          |conversation_groups
-          |conversation_priorities
-          |credentials
-          |crypt_properties
-          |cryptographic_providers
-          |data_spaces
-          |database_audit_specification_details
-          |database_audit_specifications
-          |database_files
-          |database_mirroring
-          |database_mirroring_endpoints
-          |database_permissions
-          |database_principal_aliases
-          |database_principals
-          |database_recovery_status
-          |database_role_members
-          |databases
-          |default_constraints
-          |destination_data_spaces
-          |dm_audit_actions
-          |dm_audit_class_type_map
-          |dm_broker_activated_tasks
-          |dm_broker_connections
-          |dm_broker_forwarded_messages
-          |dm_broker_queue_monitors
-          |dm_cdc_errors
-          |dm_cdc_log_scan_sessions
-          |dm_clr_appdomains
-          |dm_clr_loaded_assemblies
-          |dm_clr_properties
-          |dm_clr_tasks
-          |dm_cryptographic_provider_properties
-          |dm_database_encryption_keys
-          |dm_db_file_space_usage
-          |dm_db_index_usage_stats
-          |dm_db_mirroring_auto_page_repair
-          |dm_db_mirroring_connections
-          |dm_db_mirroring_past_actions
-          |dm_db_missing_index_details
-          |dm_db_missing_index_group_stats
-          |dm_db_missing_index_groups
-          |dm_db_partition_stats
-          |dm_db_persisted_sku_features
-          |dm_db_script_level
-          |dm_db_session_space_usage
-          |dm_db_task_space_usage
-          |dm_exec_background_job_queue
-          |dm_exec_background_job_queue_stats
-          |dm_exec_cached_plans
-          |dm_exec_connections
-          |dm_exec_procedure_stats
-          |dm_exec_query_memory_grants
-          |dm_exec_query_optimizer_info
-          |dm_exec_query_resource_semaphores
-          |dm_exec_query_stats
-          |dm_exec_query_transformation_stats
-          |dm_exec_requests
-          |dm_exec_sessions
-          |dm_exec_trigger_stats
-          |dm_filestream_file_io_handles
-          |dm_filestream_file_io_requests
-          |dm_fts_active_catalogs
-          |dm_fts_fdhosts
-          |dm_fts_index_population
-          |dm_fts_memory_buffers
-          |dm_fts_memory_pools
-          |dm_fts_outstanding_batches
-          |dm_fts_population_ranges
-          |dm_io_backup_tapes
-          |dm_io_cluster_shared_drives
-          |dm_io_pending_io_requests
-          |dm_os_buffer_descriptors
-          |dm_os_child_instances
-          |dm_os_cluster_nodes
-          |dm_os_dispatcher_pools
-          |dm_os_dispatchers
-          |dm_os_hosts
-          |dm_os_latch_stats
-          |dm_os_loaded_modules
-          |dm_os_memory_allocations
-          |dm_os_memory_brokers
-          |dm_os_memory_cache_clock_hands
-          |dm_os_memory_cache_counters
-          |dm_os_memory_cache_entries
-          |dm_os_memory_cache_hash_tables
-          |dm_os_memory_clerks
-          |dm_os_memory_node_access_stats
-          |dm_os_memory_nodes
-          |dm_os_memory_objects
-          |dm_os_memory_pools
-          |dm_os_nodes
-          |dm_os_performance_counters
-          |dm_os_process_memory
-          |dm_os_ring_buffers
-          |dm_os_schedulers
-          |dm_os_spinlock_stats
-          |dm_os_stacks
-          |dm_os_sublatches
-          |dm_os_sys_info
-          |dm_os_sys_memory
-          |dm_os_tasks
-          |dm_os_threads
-          |dm_os_virtual_address_dump
-          |dm_os_wait_stats
-          |dm_os_waiting_tasks
-          |dm_os_worker_local_storage
-          |dm_os_workers
-          |dm_qn_subscriptions
-          |dm_repl_articles
-          |dm_repl_schemas
-          |dm_repl_tranhash
-          |dm_repl_traninfo
-          |dm_resource_governor_configuration
-          |dm_resource_governor_resource_pools
-          |dm_resource_governor_workload_groups
-          |dm_server_audit_status
-          |dm_tran_active_snapshot_database_transactions
-          |dm_tran_active_transactions
-          |dm_tran_commit_table
-          |dm_tran_current_snapshot
-          |dm_tran_current_transaction
-          |dm_tran_database_transactions
-          |dm_tran_locks
-          |dm_tran_session_transactions
-          |dm_tran_top_version_generators
-          |dm_tran_transactions_snapshot
-          |dm_tran_version_store
-          |dm_xe_map_values
-          |dm_xe_object_columns
-          |dm_xe_objects
-          |dm_xe_packages
-          |dm_xe_session_event_actions
-          |dm_xe_session_events
-          |dm_xe_session_object_columns
-          |dm_xe_session_targets
-          |dm_xe_sessions
-          |endpoint_webmethods
-          |endpoints
-          |event_notification_event_types
-          |event_notifications
-          |events
-          |extended_procedures
-          |extended_properties
-          |filegroups
-          |foreign_key_columns
-          |foreign_keys
-          |fulltext_catalogs
-          |fulltext_document_types
-          |fulltext_index_catalog_usages
-          |fulltext_index_columns
-          |fulltext_index_fragments
-          |fulltext_indexes
-          |fulltext_languages
-          |fulltext_stoplists
-          |fulltext_stopwords
-          |fulltext_system_stopwords
-          |function_order_columns
-          |http_endpoints
-          |identity_columns
-          |index_columns
-          |indexes
-          |internal_tables
-          |key_constraints
-          |key_encryptions
-          |linked_logins
-          |login_token
-          |master_files
-          |master_key_passwords
-          |message_type_xml_schema_collection_usages
-          |messages
-          |module_assembly_usages
-          |numbered_procedure_parameters
-          |numbered_procedures
-          |objects
-          |openkeys
-          |parameter_type_usages
-          |parameter_xml_schema_collection_usages
-          |parameters
-          |partition_functions
-          |partition_parameters
-          |partition_range_values
-          |partition_schemes
-          |partitions
-          |plan_guides
-          |procedures
-          |remote_logins
-          |remote_service_bindings
-          |resource_governor_configuration
-          |resource_governor_resource_pools
-          |resource_governor_workload_groups
-          |routes
-          |schemas
-          |securable_classes
-          |server_assembly_modules
-          |server_audit_specification_details
-          |server_audit_specifications
-          |server_audits
-          |server_event_notifications
-          |server_event_session_actions
-          |server_event_session_events
-          |server_event_session_fields
-          |server_event_session_targets
-          |server_event_sessions
-          |server_events
-          |server_file_audits
-          |server_permissions
-          |server_principal_credentials
-          |server_principals
-          |server_role_members
-          |server_sql_modules
-          |server_trigger_events
-          |server_triggers
-          |servers
-          |service_broker_endpoints
-          |service_contract_message_usages
-          |service_contract_usages
-          |service_contracts
-          |service_message_types
-          |service_queue_usages
-          |service_queues
-          |services
-          |soap_endpoints
-          |spatial_index_tessellations
-          |spatial_indexes
-          |spatial_reference_systems
-          |sql_dependencies
-          |sql_logins
-          |sql_modules
-          |stats
-          |stats_columns
-          |symmetric_keys
-          |synonyms
-          |syscacheobjects
-          |syscharsets
-          |syscolumns
-          |syscomments
-          |sysconfigures
-          |sysconstraints
-          |syscurconfigs
-          |syscursorcolumns
-          |syscursorrefs
-          |syscursors
-          |syscursortables
-          |sysdatabases
-          |sysdepends
-          |sysdevices
-          |sysfilegroups
-          |sysfiles
-          |sysforeignkeys
-          |sysfulltextcatalogs
-          |sysindexes
-          |sysindexkeys
-          |syslanguages
-          |syslockinfo
-          |syslogins
-          |sysmembers
-          |sysmessages
-          |sysobjects
-          |sysoledbusers
-          |sysopentapes
-          |sysperfinfo
-          |syspermissions
-          |sysprocesses
-          |sysprotects
-          |sysreferences
-          |sysremotelogins
-          |sysservers
-          |system_columns
-          |system_components_surface_area_configuration
-          |system_objects
-          |system_parameters
-          |system_sql_modules
-          |system_views
-          |systypes
-          |sysusers
-          |table_types
-          |tables
-          |tcp_endpoints
-          |trace_categories
-          |trace_columns
-          |trace_event_bindings
-          |trace_events
-          |trace_subclass_values
-          |traces
-          |transmission_queue
-          |trigger_event_types
-          |trigger_events
-          |triggers
-          |type_assembly_usages
-          |types
-          |user_token
-          |via_endpoints
-          |views
-          |xml_indexes
-          |xml_schema_attributes
-          |xml_schema_collections
-          |xml_schema_component_placements
-          |xml_schema_components
-          |xml_schema_elements
-          |xml_schema_facets
-          |xml_schema_model_groups
-          |xml_schema_namespaces
-          |xml_schema_types
-          |xml_schema_wildcard_namespaces
-          |xml_schema_wildcards
-        )/x
-    };
-
-    my $dsn = "dbi:ODBC:driver={SQL Server};Server={localhost\\SQLEXPRESS};"
-      . "Trusted_Connection=No;AutoTranslate=No;Database=dbix_custom;";
-    has dsn => $dsn;
-    has user  => 'dbix_custom';
-    has password => 'dbix_custom';
-    
-    sub create_table1 { "create table $table1 ($key1 varchar(255), $key2 varchar(255))" }
-    sub create_table1_2 {"create table $table1 ($key1 varchar(255), $key2 varchar(255), "
-     . "$key3 varchar(255), $key4 varchar(255), $key5 varchar(255))" }
-    sub create_table1_type { "create table $table1 ($key1 $date_typename, $key2 $datetime_typename)" }
-    sub create_table1_highperformance { "create table $table1 ($key1 varchar(255), $key2 varchar(255), "
-      . "$key3 varchar(255), $key4 varchar(255), $key5 varchar(255), $key6 varchar(255), $key7 varchar(255))" }
-    sub create_table2 { "create table $table2 ($key1 varchar(255), $key3 varchar(255))" }
-    sub create_table2_2 { "create table $table2 ($key1 varchar(255), $key2 varchar(255), $key3 varchar(255))" }
-    sub create_table3 { "create table $table3 ($key1 varchar(255), $key2 varchar(255), $key3 varchar(255))" }
-    sub create_table_reserved { 'create table "table" ("select" varchar(255), "update" varchar(255))' }
-}
-
-require "$FindBin::Bin/common.t";

-3898

t/next/common.t

View

@@ -1,3898 +0,0 @@
-use Test::More;
-use strict;
-use warnings;
-use Encode qw/encode_utf8/;
-use FindBin;
-use Scalar::Util 'isweak';
-
-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';
-
-$SIG{__WARN__} = sub { warn $_[0] unless $_[0] =~ /DEPRECATED/};
-sub test { print "# $_[0]\n" }
-
-# Constant
-my $table1 = $dbi->table1;
-my $table2 = $dbi->table2;
-my $table2_alias = $dbi->table2_alias;
-my $table3 = $dbi->table3;
-my $key1 = $dbi->key1;
-my $key2 = $dbi->key2;
-my $key3 = $dbi->key3;
-my $key4 = $dbi->key4;
-my $key5 = $dbi->key5;
-my $key6 = $dbi->key6;
-my $key7 = $dbi->key7;
-my $key8 = $dbi->key8;
-my $key9 = $dbi->key9;
-my $key10 = $dbi->key10;
-my $create_table1 = $dbi->create_table1;
-my $create_table1_2 = $dbi->create_table1_2;
-my $create_table1_type = $dbi->create_table1_type;
-my $create_table2 = $dbi->create_table2;
-my $create_table2_2 = $dbi->create_table2_2;
-my $create_table3 = $dbi->create_table3;
-my $create_table_reserved = $dbi->create_table_reserved;
-my $q = substr($dbi->quote, 0, 1);
-my $p = substr($dbi->quote, 1, 1) || $q;
-my $date_typename = $dbi->date_typename;
-my $datetime_typename = $dbi->datetime_typename;
-my $date_datatype = $dbi->date_datatype;
-my $datetime_datatype = $dbi->datetime_datatype;
-
-# Variables
-my $builder;
-my $datas;
-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;
-my $binary;
-my $user_table_info;
-my $user_column_info;
-my $values_clause;
-my $assign_clause;
-my $reuse;
-
-require MyDBI1;
-{
-    package MyDBI4;
-
-    use strict;
-    use warnings;
-
-    use base 'DBIx::Custom';
-
-    sub connect {
-        my $self = shift->SUPER::connect(@_);
-        
-        $self->include_model(
-            MyModel2 => [
-                $table1,
-                {class => $table2, name => $table2}
-            ]
-        );
-    }
-
-    package MyModel2::Base1;
-
-    use strict;
-    use warnings;
-
-    use base 'DBIx::Custom::Model';
-
-    package MyModel2::table1;
-
-    use strict;
-    use warnings;
-
-    use base 'MyModel2::Base1';
-
-    sub insert {
-        my ($self, $param) = @_;
-        
-        return $self->SUPER::insert($param);
-    }
-
-    sub list { shift->select; }
-
-    package MyModel2::table2;
-
-    use strict;
-    use warnings;
-
-    use base 'MyModel2::Base1';
-
-    sub insert {
-        my ($self, $param) = @_;
-        
-        return $self->SUPER::insert($param);
-    }
-
-    sub list { shift->select; }
-
-    package MyModel2::TABLE1;
-
-    use strict;
-    use warnings;
-
-    use base 'MyModel2::Base1';
-
-    sub insert {
-        my ($self, $param) = @_;
-        
-        return $self->SUPER::insert($param);
-    }
-
-    sub list { shift->select; }
-
-    package MyModel2::TABLE2;
-
-    use strict;
-    use warnings;
-
-    use base 'MyModel2::Base1';
-
-    sub insert {
-        my ($self, $param) = @_;
-        
-        return $self->SUPER::insert($param);
-    }
-
-    sub list { shift->select; }
-}
-{
-     package MyDBI5;
-
-    use strict;
-    use warnings;
-
-    use base 'DBIx::Custom';
-
-    sub connect {
-        my $self = shift->SUPER::connect(@_);
-        
-        $self->include_model('MyModel4');
-    }
-}
-{
-    package MyDBI6;
-    
-    use base 'DBIx::Custom';
-    
-    sub connect {
-        my $self = shift->SUPER::connect(@_);
-        
-        $self->include_model('MyModel5');
-        
-        return $self;
-    }
-}
-{
-    package MyDBI7;
-    
-    use base 'DBIx::Custom';
-    
-    sub connect {
-        my $self = shift->SUPER::connect(@_);
-        
-        $self->include_model('MyModel6');
-        
-        
-        return $self;
-    }
-}
-{
-    package MyDBI8;
-    
-    use base 'DBIx::Custom';
-    
-    sub connect {
-        my $self = shift->SUPER::connect(@_);
-        
-        $self->include_model('MyModel7');
-        
-        return $self;
-    }
-}
-
-{
-    package MyDBI9;
-    
-    use base 'DBIx::Custom';
-    
-    sub connect {
-        my $self = shift->SUPER::connect(@_);
-        
-        $self->include_model('MyModel8');
-        
-        return $self;
-    }
-}
-
-test 'execute reuse option';
-eval { $dbi->execute("drop table $table1") };
-$dbi->execute($create_table1);
-$reuse = {};
-for my $i (1 .. 2) {
-  $dbi->insert({$key1 => 1, $key2 => 2}, table => $table1, reuse => $reuse);
-}
-$rows = $dbi->select(table => $table1)->all;
-is_deeply($rows, [{$key1 => 1, $key2 => 2}, {$key1 => 1, $key2 => 2}]);
-
-# Get user table info
-$dbi = DBIx::Custom->connect;
-eval { $dbi->execute("drop table $table1") };
-eval { $dbi->execute("drop table $table2") };
-eval { $dbi->execute("drop table $table3") };
-$dbi->execute($create_table1);
-$dbi->execute($create_table2);
-$dbi->execute($create_table3);
-$user_table_info = $dbi->get_table_info(exclude => $dbi->exclude_table);
-
-# Create table
-$dbi = DBIx::Custom->connect;
-eval { $dbi->execute("drop table $table1") };
-$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}]);
-
-test 'DBIx::Custom::Result test';
-$dbi->delete_all(table => $table1);
-$dbi->insert({$key1 => 1, $key2 => 2}, table => $table1);
-$dbi->insert({$key1 => 3, $key2 => 4}, table => $table1);
-$source = "select $key1, $key2 from $table1";
-$result = $dbi->execute($source);
-
-@rows = ();
-while (my $row = $result->fetch) {
-    push @rows, [@$row];
-}
-is_deeply(\@rows, [[1, 2], [3, 4]], "fetch");
-
-$result = $dbi->execute($source);
-@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($source);
-$rows = $result->fetch_all;
-is_deeply($rows, [[1, 2], [3, 4]], "fetch_all");
-
-$result = $dbi->execute($source);
-$rows = $result->fetch_hash_all;
-is_deeply($rows, [{$key1 => 1, $key2 => 2}, {$key1 => 3, $key2 => 4}], "all");
-
-test 'Insert query return value';
-$source = "insert into $table1 " . $dbi->values_clause({$key1 => 1, $key2 => 2});
-$query = $dbi->execute($source, {}, query => 1);
-$ret_val = $dbi->execute($source, {$key1 => 1, $key2 => 2});
-ok($ret_val);
-
-test 'Direct query';
-$dbi->delete_all(table => $table1);
-$insert_source = "insert into $table1 " . $dbi->values_clause({$key1 => 1, $key2 => 2});
-$dbi->execute($insert_source, {$key1 => 1, $key2 => 2});
-$result = $dbi->execute("select * from $table1");
-$rows = $result->all;
-is_deeply($rows, [{$key1 => 1, $key2 => 2}]);
-
-test 'Filter basic';
-$dbi->delete_all(table => $table1);
-$dbi->register_filter(twice       => sub { $_[0] * 2}, 
-                    three_times => sub { $_[0] * 3});
-
-$insert_source  = "insert into $table1 " . $dbi->values_clause({$key1 => 1, $key2 => 2});
-$dbi->execute($insert_source, {$key1 => 1, $key2 => 2}, filter => {$key1 => 'twice'});
-$result = $dbi->execute("select * from $table1");
-$rows = $result->filter({$key2 => 'three_times'})->all;
-is_deeply($rows, [{$key1 => 2, $key2 => 6}], "filter fetch_filter");
-
-test 'Named placeholder';
-eval { $dbi->execute("drop table $table1") };
-$dbi->execute($create_table1_2);
-$dbi->insert({$key1 => 1, $key2 => 2, $key3 => 3, $key4 => 4, $key5 => 5}, table => $table1);
-$dbi->insert({$key1 => 6, $key2 => 7, $key3 => 8, $key4 => 9, $key5 => 10}, table => $table1);
-
-$source = "select * from $table1 where $key1 = :$key1 and $key2 = :$key2";
-$result = $dbi->execute($source, {$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, {$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, {$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,
-    {"$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}]);
-
-eval { $dbi->execute("drop table $table1") };
-$dbi->execute($create_table1);
-$dbi->insert({$key1 => '2011-10-14 12:19:18', $key2 => 2}, table => $table1);
-$source = "select * from $table1 where $key1 = '2011-10-14 12:19:18' and $key2 = :$key2";
-$result = $dbi->execute(
-    $source,
-    {$key2 => 2},
-);
-
-$rows = $result->all;
-like($rows->[0]->{$key1}, qr/2011-10-14 12:19:18/);
-is($rows->[0]->{$key2}, 2);
-
-$dbi->delete_all(table => $table1);
-$dbi->insert({$key1 => 'a:b c:d', $key2 => 2}, table => $table1);
-$source = "select * from $table1 where $key1 = 'a\\:b c\\:d' and $key2 = :$key2";
-$result = $dbi->execute(
-    $source,
-    {$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");
-
-test 'insert';
-eval { $dbi->execute("drop table $table1") };
-$dbi->execute($create_table1);
-$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");
-
-eval { $dbi->execute("drop table $table1") };
-$dbi->execute($create_table1);
-$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->execute("delete from $table1");
-$dbi->register_filter(
-    twice       => sub { $_[0] * 2 },
-    three_times => sub { $_[0] * 3 }
-);
-$dbi->insert({$key1 => 1, $key2 => 2}, table => $table1, filter => {$key1 => 'three_times'});
-$result = $dbi->execute("select * from $table1");
-$rows   = $result->all;
-is_deeply($rows, [{$key1 => 3, $key2 => 2}], "filter");
-
-eval { $dbi->execute("drop table $table1") };
-$dbi->execute($create_table1);
-$dbi->insert({$key1 => 1, $key2 => 2}, table => $table1, append => '   ');
-$rows = $dbi->select(table => $table1)->all;
-is_deeply($rows, [{$key1 => 1, $key2 => 2}], 'insert append');
-
-eval{$dbi->insert({';' => 1}, table => 'table')};
-like($@, qr/safety/);
-
-eval { $dbi->execute("drop table $table1") };
-$dbi->execute($create_table1);
-$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");
-
-eval { $dbi->execute("drop table $table1") };
-$dbi->execute($create_table1);
-$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");
-
-eval { $dbi->execute("drop table $table1") };
-$dbi->execute($create_table1);
-$dbi->insert({$key1 => 1, $key2 => 2}, table => $table1,
-  wrap => {$key1 => sub { "$_[0] - 1" }});
-$dbi->insert({$key1 => 3, $key2 => 4}, table => $table1);
-$result = $dbi->execute("select * from $table1");
-$rows   = $result->all;
-is_deeply($rows, [{$key1 => 0, $key2 => 2}, {$key1 => 3, $key2 => 4}], "basic");
-
-eval { $dbi->execute("drop table $table1") };
-$dbi->execute($create_table1_2);
-$param = {$key1 => 1};
-$dbi->insert($param, table => $table1, created_at => $key2);
-$result = $dbi->select(table => $table1);
-is_deeply($param, {$key1 => 1});
-$row   = $result->one;
-is($row->{$key1}, 1);
-like($row->{$key2}, qr/^\d{4}-\d{2}-\d{2} \d{2}:\d{2}:\d{2}$/);
-
-eval { $dbi->execute("drop table $table1") };
-$dbi->execute($create_table1_2);
-$param = {$key1 => 1};
-$dbi->insert($param, table => $table1, updated_at => $key3);
-$result = $dbi->select(table => $table1);
-is_deeply($param, {$key1 => 1});
-$row   = $result->one;
-is($row->{$key1}, 1);
-like($row->{$key3}, qr/^\d{4}-\d{2}-\d{2} \d{2}:\d{2}:\d{2}$/);
-
-eval { $dbi->execute("drop table $table1") };
-$dbi->execute($create_table1_2);
-$param = {$key1 => 1};
-$dbi->insert($param, table => $table1, created_at => $key2, updated_at => $key3);
-$result = $dbi->select(table => $table1);
-is_deeply($param, {$key1 => 1});
-$row   = $result->one;
-is($row->{$key1}, 1);
-like($row->{$key2}, qr/^\d{4}-\d{2}-\d{2} \d{2}:\d{2}:\d{2}$/);
-like($row->{$key3}, qr/^\d{4}-\d{2}-\d{2} \d{2}:\d{2}:\d{2}$/);
-is($row->{$key2}, $row->{$key3});
-
-eval { $dbi->execute("drop table $table1") };
-$dbi->execute($create_table1_2);
-$model = $dbi->create_model(table => $table1, created_at => $key2);
-$param = {$key1 => 1};
-$model->insert($param);
-$result = $dbi->select(table => $table1);
-is_deeply($param, {$key1 => 1});
-$row   = $result->one;
-is($row->{$key1}, 1);
-like($row->{$key2}, qr/^\d{4}-\d{2}-\d{2} \d{2}:\d{2}:\d{2}$/);
-
-eval { $dbi->execute("drop table $table1") };
-$dbi->execute($create_table1_2);
-$param = {$key1 => 1};
-$model = $dbi->create_model(table => $table1, updated_at => $key3);
-$model->insert($param);
-$result = $dbi->select(table => $table1);
-is_deeply($param, {$key1 => 1});
-$row   = $result->one;
-is($row->{$key1}, 1);
-like($row->{$key3}, qr/^\d{4}-\d{2}-\d{2} \d{2}:\d{2}:\d{2}$/);
-
-eval { $dbi->execute("drop table $table1") };
-$dbi->execute($create_table1_2);
-$param = {$key1 => 1};
-$model = $dbi->create_model(table => $table1, created_at => $key2, updated_at => $key3);
-$model->insert($param);
-$result = $dbi->select(table => $table1);
-is_deeply($param, {$key1 => 1});
-$row   = $result->one;
-is($row->{$key1}, 1);
-like($row->{$key2}, qr/^\d{4}-\d{2}-\d{2} \d{2}:\d{2}:\d{2}$/);
-like($row->{$key3}, qr/^\d{4}-\d{2}-\d{2} \d{2}:\d{2}:\d{2}$/);
-is($row->{$key2}, $row->{$key3});
-
-test 'update_or_insert';
-eval { $dbi->execute("drop table $table1") };
-$dbi->execute($create_table1);
-$dbi->update_or_insert(
-    {$key2 => 2},
-    table => $table1,
-    primary_key => $key1,
-    id => 1
-);
-$row = $dbi->select(id => 1, table => $table1, primary_key => $key1)->one;
-is_deeply($row, {$key1 => 1, $key2 => 2}, "basic");
-
-$dbi->update_or_insert(
-    {$key2 => 3},
-    table => $table1,
-    primary_key => $key1,
-    id => 1
-);
-$rows = $dbi->select(id => 1, table => $table1, primary_key => $key1)->all;
-is_deeply($rows, [{$key1 => 1, $key2 => 3}], "basic");
-
-eval {
-    $dbi->update_or_insert(
-        {$key2 => 3},
-        table => $table1,
-    );
-};
-
-like($@, qr/primary_key/);
-
-eval {
-    $dbi->insert({$key1 => 1}, table => $table1);
-    $dbi->update_or_insert(
-        {$key2 => 3},
-        table => $table1,
-        primary_key => $key1,
-        id => 1
-    );
-};
-like($@, qr/one/);
-
-test 'model update_or_insert';
-eval { $dbi->execute("drop table $table1") };
-$dbi->execute($create_table1);
-$model = $dbi->create_model(
-    table => $table1,
-    primary_key => $key1
-);
-$model->update_or_insert({$key2 => 2}, id => 1);
-$row = $model->select(id => 1)->one;
-is_deeply($row, {$key1 => 1, $key2 => 2}, "basic");
-
-eval {
-    $model->insert({$key1 => 1});
-    $model->update_or_insert(
-        {$key2 => 3},
-        id => 1
-    );
-};
-like($@, qr/one/);
-
-test 'filter';
-$dbi->execute("delete from $table1");
-$dbi->register_filter(
-    twice       => sub { $_[0] * 2 },
-    three_times => sub { $_[0] * 3 }
-);
-$dbi->insert({$key1 => 1, $key2 => 2}, table => $table1, filter => {$key1 => 'three_times'});
-$result = $dbi->execute("select * from $table1");
-$rows   = $result->all;
-is_deeply($rows, [{$key1 => 3, $key2 => 2}], "filter");
-
-test 'update';
-eval { $dbi->execute("drop table $table1") };
-$dbi->execute($create_table1_2);
-$dbi->insert({$key1 => 1, $key2 => 2, $key3 => 3, $key4 => 4, $key5 => 5}, table => $table1);
-$dbi->insert({$key1 => 6, $key2 => 7, $key3 => 8, $key4 => 9, $key5 => 10}, table => $table1);
-$dbi->update({$key2 => 11}, table => $table1, where => {$key1 => 1});
-$result = $dbi->execute("select * from $table1 order by $key1");
-$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");
-
-eval { $dbi->execute("drop table $table1") };
-$dbi->execute($create_table1_2);
-$dbi->insert({$key1 => 1, $key2 => 2, $key3 => 3, $key4 => 4, $key5 => 5}, table => $table1);
-$dbi->insert({$key1 => 6, $key2 => 7, $key3 => 8, $key4 => 9, $key5 => 10}, table => $table1);
-$dbi->update({$key2 => 11}, table => $table1, where => {$key1 => 1});
-$result = $dbi->execute("select * from $table1 order by $key1");
-$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({$key1 => 1, $key2 => 2, $key3 => 3, $key4 => 4, $key5 => 5}, table => $table1);
-$dbi->insert({$key1 => 6, $key2 => 7, $key3 => 8, $key4 => 9, $key5 => 10}, table => $table1);
-$dbi->update({$key2 => 12}, table => $table1, where => {$key2 => 2, $key3 => 3});
-$result = $dbi->execute("select * from $table1 order by $key1");
-$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({$key2 => [12]}, table => $table1, where => {$key2 => 2, $key3 => 3});
-$result = $dbi->execute("select * from $table1 order by $key1");
-$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({$key1 => 1, $key2 => 2, $key3 => 3, $key4 => 4, $key5 => 5}, table => $table1);
-$dbi->insert({$key1 => 6, $key2 => 7, $key3 => 8, $key4 => 9, $key5 => 10}, table => $table1);
-$dbi->register_filter(twice => sub { $_[0] * 2 });
-$dbi->update({$key2 => 11}, table => $table1, where => {$key1 => 1},
-              filter => {$key2 => sub { $_[0] * 2 }});
-$result = $dbi->execute("select * from $table1 order by $key1");
-$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({$key2 => 11}, table => $table1, where => {$key1 => 1}, append => '   ');
-
-eval{$dbi->update({}, table => $table1)};
-like($@, qr/where/, "not contain where");
-
-eval { $dbi->execute("drop table $table1") };
-$dbi->execute($create_table1);
-$dbi->insert({$key1 => 1, $key2 => 2}, table => $table1);
-$where = $dbi->where;
-$where->clause(['and', "$key1 = :$key1", "$key2 = :$key2"]);
-$where->param({$key1 => 1, $key2 => 2});
-$dbi->update({$key1 => 3}, table => $table1, where => $where);
-$result = $dbi->select(table => $table1);
-is_deeply($result->all, [{$key1 => 3, $key2 => 2}], 'update() where');
-
-eval { $dbi->execute("drop table $table1") };
-$dbi->execute($create_table1);
-$dbi->insert({$key1 => 1, $key2 => 2}, table => $table1);
-$dbi->update(
-    {$key1 => 3},
-    table => $table1,
-    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');
-
-eval { $dbi->execute("drop table $table1") };
-$dbi->execute($create_table1);
-$dbi->insert({$key1 => 1, $key2 => 2}, table => $table1);
-$where = $dbi->where;
-$where->clause(['and', "$key2 = :$key2"]);
-$where->param({$key2 => 2});
-$dbi->update({$key1 => 3}, table => $table1, where => $where);
-$result = $dbi->select(table => $table1);
-is_deeply($result->all, [{$key1 => 3, $key2 => 2}], 'update() where');
-
-eval{$dbi->update({';' => 1}, table => $table1, where => {$key1 => 1})};
-like($@, qr/safety/);
-
-eval{$dbi->update({$key1 => 1}, table => $table1, where => {';' => 1})};
-like($@, qr/safety/);
-
-eval { $dbi->execute("drop table $table1") };
-eval { $dbi->execute("drop table ${q}table$p") };
-$dbi->execute($create_table_reserved);
-$dbi->insert({select => 1}, table => 'table');
-$dbi->update({update => 2}, table => 'table', where => {select => 1});
-$result = $dbi->execute("select * from ${q}table$p");
-$rows   = $result->all;
-is_deeply($rows, [{select => 1, update => 2}], "reserved word");
-
-eval {$dbi->update_all({';' => 2}, table => 'table') };
-like($@, qr/safety/);
-
-eval { $dbi->execute("drop table ${q}table$p") };
-$dbi->execute($create_table_reserved);
-$dbi->insert({select => 1}, table => 'table');
-$dbi->update({update => 2}, table => 'table', where => {'table.select' => 1});
-$result = $dbi->execute("select * from ${q}table$p");
-$rows   = $result->all;
-is_deeply($rows, [{select => 1, update => 2}], "reserved word");
-
-eval { $dbi->execute("drop table $table1") };
-$dbi->execute($create_table1_2);
-$dbi->insert({$key1 => 1, $key2 => 2, $key3 => 3, $key4 => 4, $key5 => 5}, table => $table1);
-$dbi->insert({$key1 => 6, $key2 => 7, $key3 => 8, $key4 => 9, $key5 => 10}, table => $table1);
-$dbi->update({$key2 => 11}, table => $table1, where => {$key1 => 1});
-$result = $dbi->execute("select * from $table1 order by $key1");
-$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");
-
-eval { $dbi->execute("drop table $table1") };
-$dbi->execute($create_table1_2);
-$dbi->insert({$key1 => 1, $key2 => 2, $key3 => 3, $key4 => 4, $key5 => 5}, table => $table1);
-$dbi->insert({$key1 => 6, $key2 => 7, $key3 => 8, $key4 => 9, $key5 => 10}, table => $table1);
-$dbi->update({$key2 => 11}, table => $table1, where => {$key1 => 1},
-wrap => {$key2 => sub { "$_[0] - 1" }});
-$result = $dbi->execute("select * from $table1 order by $key1");
-$rows   = $result->all;
-is_deeply($rows, [{$key1 => 1, $key2 => 10, $key3 => 3, $key4 => 4, $key5 => 5},
-                  {$key1 => 6, $key2 => 7,  $key3 => 8, $key4 => 9, $key5 => 10}],
-                  "basic");
-
-eval { $dbi->execute("drop table $table1") };
-$dbi->execute($create_table1_2);
-$dbi->insert({$key1 => 1, $key2 => 2, $key3 => 3, $key4 => 4, $key5 => 5}, table => $table1);
-$dbi->insert({$key1 => 6, $key2 => 7, $key3 => 8, $key4 => 9, $key5 => 10}, table => $table1);
-$dbi->update({$key2 => \"'11'"}, table => $table1, where => {$key1 => 1});
-$result = $dbi->execute("select * from $table1 order by $key1");
-$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");
-
-eval { $dbi->execute("drop table $table1") };
-$dbi->execute($create_table1_2);
-$dbi->insert({$key1 => 1, $key2 => 2, $key3 => 3, $key4 => 4, $key5 => 5}, table => $table1);
-$dbi->insert({$key1 => 6, $key2 => 7, $key3 => 8, $key4 => 9, $key5 => 10}, table => $table1);
-$param = {$key2 => 11};
-$dbi->update($param, table => $table1, where => {$key1 => 1});
-is_deeply($param, {$key2 => 11});
-$result = $dbi->execute("select * from $table1 order by $key1");
-$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");
-
-eval { $dbi->execute("drop table $table1") };
-$dbi->execute($create_table1_2);
-$dbi->insert({$key1 => 1, $key2 => 2, $key3 => 3, $key4 => 4, $key5 => 5}, table => $table1);
-$dbi->insert({$key1 => 6, $key2 => 7, $key3 => 8, $key4 => 9, $key5 => 10}, table => $table1);
-$param = {$key2 => 11};
-$dbi->update($param, table => $table1, where => {$key2 => 2});
-is_deeply($param, {$key2 => 11});
-$result = $dbi->execute("select * from $table1 order by $key1");
-$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");
-
-eval { $dbi->execute("drop table $table1") };
-$dbi->execute($create_table1_2);
-$param = {$key3 => 4};
-$dbi->insert({$key1 => 1, $key2 => 2, $key3 => 3}, table => $table1);
-$dbi->update($param, table => $table1, updated_at => $key2, where => {$key1 => 1});
-$result = $dbi->select(table => $table1);
-is_deeply($param, {$key3 => 4});
-$row   = $result->one;
-is($row->{$key3}, 4);
-like($row->{$key2}, qr/^\d{4}-\d{2}-\d{2} \d{2}:\d{2}:\d{2}$/);
-
-eval { $dbi->execute("drop table $table1") };
-$dbi->execute($create_table1_2);
-$param = {$key3 => 4};
-$dbi->insert({$key1 => 1, $key2 => 2, $key3 => 3}, table => $table1);
-$dbi->update($param, table => $table1, updated_at => $key2, where => {$key3 => 3});
-$result = $dbi->select(table => $table1);
-is_deeply($param, {$key3 => 4});
-$row   = $result->one;
-is($row->{$key3}, 4);
-like($row->{$key2}, qr/^\d{4}-\d{2}-\d{2} \d{2}:\d{2}:\d{2}$/);
-
-eval { $dbi->execute("drop table $table1") };
-$dbi->execute($create_table1_2);
-$model = $dbi->create_model(table => $table1, updated_at => $key2);
-$param = {$key3 => 4};
-$dbi->insert({$key1 => 1, $key2 => 2, $key3 => 3}, table => $table1);
-$model->update($param, where => {$key1 => 1});
-$result = $dbi->select(table => $table1);
-is_deeply($param, {$key3 => 4});
-$row   = $result->one;
-is($row->{$key3}, 4);
-like($row->{$key2}, qr/^\d{4}-\d{2}-\d{2} \d{2}:\d{2}:\d{2}$/);
-
-test 'update_all';
-eval { $dbi->execute("drop table $table1") };
-$dbi->execute($create_table1_2);
-$dbi->insert({$key1 => 1, $key2 => 2, $key3 => 3, $key4 => 4, $key5 => 5}, table => $table1);
-$dbi->insert({$key1 => 6, $key2 => 7, $key3 => 8, $key4 => 9, $key5 => 10}, table => $table1);
-$dbi->register_filter(twice => sub { $_[0] * 2 });
-$dbi->update_all({$key2 => 10}, table => $table1, 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';
-eval { $dbi->execute("drop table $table1") };
-$dbi->execute($create_table1);
-$dbi->insert({$key1 => 1, $key2 => 2}, table => $table1);
-$dbi->insert({$key1 => 3, $key2 => 4}, table => $table1);
-$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({$key1 => 1, $key2 => 2}, table => $table1);
-$dbi->insert({$key1 => 3, $key2 => 4}, table => $table1);
-$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({$key1 => 1, $key2 => 2}, table => $table1);
-$dbi->insert({$key1 => 3, $key2 => 4}, table => $table1);
-$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->execute("drop table $table1") };
-$dbi->execute($create_table1);
-$dbi->insert({$key1 => 1, $key2 => 2}, table => $table1);
-$dbi->insert({$key1 => 3, $key2 => 4}, table => $table1);
-$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');
-
-eval { $dbi->execute("drop table $table1") };
-$dbi->execute($create_table1);
-$dbi->insert({$key1 => 1, $key2 => 2}, table => $table1);
-$dbi->insert({$key1 => 3, $key2 => 4}, table => $table1);
-$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');
-
-eval { $dbi->execute("drop table $table1") };
-$dbi->execute($create_table1);
-$dbi->insert({$key1 => 1, $key2 => 2}, table => $table1);
-$dbi->delete(table => $table1, where => {$key1 => 1}, prefix => '    ');
-$result = $dbi->execute("select * from $table1");
-$rows   = $result->all;
-is_deeply($rows, [], "basic");
-
-test 'delete error';
-eval { $dbi->execute("drop table $table1") };
-$dbi->execute($create_table1);
-eval{$dbi->delete(table => $table1)};
-like($@, qr/where/, "where key-value pairs not specified");
-
-eval{$dbi->delete(table => $table1, where => {';' => 1})};
-like($@, qr/safety/);
-
-$dbi = undef;
-$dbi = DBIx::Custom->connect;
-eval { $dbi->execute("drop table ${q}table$p") };
-$dbi->execute($create_table_reserved);
-$dbi->insert({select => 1}, table => 'table');
-$dbi->delete(table => 'table', where => {select => 1});
-$result = $dbi->execute("select * from ${q}table$p");
-$rows   = $result->all;
-is_deeply($rows, [], "reserved word");
-
-test 'delete_all';
-eval { $dbi->execute("drop table $table1") };
-$dbi->execute($create_table1);
-$dbi->insert({$key1 => 1, $key2 => 2}, table => $table1);
-$dbi->insert({$key1 => 3, $key2 => 4}, table => $table1);
-$dbi->delete_all(table => $table1);
-$result = $dbi->execute("select * from $table1");
-$rows   = $result->all;
-is_deeply($rows, [], "basic");
-
-
-test 'select';
-eval { $dbi->execute("drop table $table1") };
-$dbi->execute($create_table1);
-$dbi->insert({$key1 => 1, $key2 => 2}, table => $table1);
-$dbi->insert({$key1 => 3, $key2 => 4}, table => $table1);
-$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");
-
-$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");
-
-eval { $dbi->execute("drop table $table2") };
-$dbi->execute($create_table2);
-$dbi->insert({$key1 => 1, $key3 => 5}, table => $table2);
-$rows = $dbi->select(
-    table => $table1,
-    column => "$table1.$key1 as ${table1}_$key1, $table2.$key1 as ${table2}_$key1, $key2, $key3",
-    where   => {"$table1.$key2" => 2},
-    join  => "inner join $table2 on $table1.$key1 = $table2.$key1"
-)->all;
-is_deeply($rows, [{"${table1}_$key1" => 1, "${table2}_$key1" => 1, $key2 => 2, $key3 => 5}], "exists where");
-
-$rows = $dbi->select(
-    table => $table1,
-    column => ["$table1.$key1 as ${table1}_$key1", "${table2}.$key1 as ${table2}_$key1", $key2, $key3],
-    join  => "inner join $table2 on $table1.$key1 = $table2.$key1"
-)->all;
-is_deeply($rows, [{"${table1}_$key1" => 1, "${table2}_$key1" => 1, $key2 => 2, $key3 => 5}], "no exists where");
-
-$dbi = DBIx::Custom->connect;
-eval { $dbi->execute("drop table ${q}table$p") };
-$dbi->execute($create_table_reserved);
-$dbi->insert({select => 1, update => 2}, table => 'table');
-$result = $dbi->select(table => 'table', where => {select => 1});
-$rows   = $result->all;
-is_deeply($rows, [{select => 1, update => 2}], "reserved word");
-
-test 'fetch filter';
-eval { $dbi->execute("drop table $table1") };
-$dbi->register_filter(
-    twice       => sub { $_[0] * 2 },
-    three_times => sub { $_[0] * 3 }
-);
-$dbi->execute($create_table1);
-$dbi->insert({$key1 => 1, $key2 => 2}, table => $table1);
-$result = $dbi->select(table => $table1);
-$result->filter({$key1 => 'three_times'});
-$row = $result->one;
-is_deeply($row, {$key1 => 3, $key2 => 2}, "default_fetch_filter and filter");
-
-eval { $dbi->execute("drop table $table1") };
-$dbi->execute($create_table1);
-$dbi->insert({$key1 => 1, $key2 => 2}, table => $table1);
-$result = $dbi->select(column => [$key1, $key1, $key2], table => $table1);
-$result->filter({$key1 => 'three_times'});
-$row = $result->fetch_first;
-is_deeply($row, [3, 3, 2], "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 'transaction1';
-$dbi = DBIx::Custom->connect;
-eval { $dbi->execute("drop table $table1") };
-$dbi->execute($create_table1);
-$dbi->begin_work;
-$dbi->dbh->{AutoCommit} = 0;
-$dbi->insert({$key1 => 1, $key2 => 2}, table => $table1);
-$dbi->rollback;
-$dbi->dbh->{AutoCommit} = 1;
-
-$result = $dbi->select(table => $table1);
-ok(! $result->fetch_first, "rollback");
-
-
-$dbi = DBIx::Custom->connect;
-eval { $dbi->execute("drop table $table1") };
-$dbi->execute($create_table1);
-$dbi->begin_work;
-$dbi->dbh->{AutoCommit} = 0;
-$dbi->insert({$key1 => 1, $key2 => 2}, table => $table1);
-$dbi->insert({$key1 => 2, $key2 => 3}, table => $table1);
-$dbi->commit;
-$dbi->dbh->{AutoCommit} = 1;
-$result = $dbi->select(table => $table1);
-is_deeply(scalar $result->all, [{$key1 => 1, $key2 => 2}, {$key1 => 2, $key2 => 3}],
-          "commit");
-
-test 'execute';
-eval { $dbi->execute("drop table $table1") };
-$dbi->execute($create_table1);
-{
-    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");
-}
-
-$query = $dbi->execute("select * from $table1 where $key1 = :$key1", {}, query => 1);
-$dbi->dbh->disconnect;
-eval{$dbi->execute($query, {$key1 => {a => 1}})};
-ok($@, "execute fail");
-
-test 'transaction2';
-$dbi = DBIx::Custom->connect;
-eval { $dbi->execute("drop table $table1") };
-$dbi->execute($create_table1);
-
-$dbi->begin_work;
-
-eval {
-    $dbi->insert({$key1 => 1, $key2 => 2}, table => $table1);
-    die "Error";
-    $dbi->insert({$key1 => 3, $key2 => 4}, table => $table1);
-};
-
-$dbi->rollback if $@;
-
-$result = $dbi->select(table => $table1);
-$rows = $result->all;
-is_deeply($rows, [], "rollback");
-
-$dbi->begin_work;
-
-eval {
-    $dbi->insert({$key1 => 1, $key2 => 2}, table => $table1);
-    $dbi->insert({$key1 => 3, $key2 => 4}, table => $table1);
-};
-
-$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 'execute';
-eval { $dbi->execute("drop table $table1") };
-$dbi->execute($create_table1);
-{
-    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");
-}
-
-$query = $dbi->execute("select * from $table1 where $key1 = :$key1", {}, query => 1);
-$dbi->dbh->disconnect;
-eval{$dbi->execute($query, {$key1 => {a => 1}})};
-ok($@, "execute fail");
-
-test 'helper';
-$dbi->helper(
-    one => sub { 1 }
-);
-$dbi->helper(
-    two => sub { 2 }
-);
-$dbi->helper({
-    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;
-eval { $dbi->execute("drop table $table1") };
-$dbi->execute($create_table1);
-$dbi->register_filter(twice => sub { $_[0] * 2 });
-$dbi->register_filter(three_times => sub { $_[0] * 3});
-$dbi->insert({$key1 => 1, $key2 => 2}, table => $table1);
-$result = $dbi->execute("select * from $table1");
-$row   = $result->fetch_hash_first;
-is_deeply($row, {$key1 => 1, $key2 => 2}, "insert");
-$result = $dbi->select(table => $table1);
-$row   = $result->one;
-is_deeply($row, {$key1 => 1, $key2 => 2}, "insert");
-
-$dbi = DBIx::Custom->connect;
-eval { $dbi->execute("drop table $table1") };
-$dbi->execute($create_table1);
-$dbi->register_filter(twice => sub { $_[0] * 2 });
-$dbi->register_filter(three_times => sub { $_[0] * 3});
-$dbi->insert({$key1 => 1, $key2 => 2}, table => $table1);
-$result = $dbi->execute("select * from $table1");
-$row   = $result->one;
-is_deeply($row, {$key1 => 1, $key2 => 2}, "insert");
-
-$dbi = DBIx::Custom->connect;
-eval { $dbi->execute("drop table $table1") };
-$dbi->execute($create_table1);
-$dbi->register_filter(twice => sub { $_[0] * 2 });
-$dbi->insert({$key1 => 1, $key2 => 2},table => $table1, filter => {$key1 => undef});
-$dbi->update({$key1 => 2}, table => $table1, where => {$key2 => 2});
-$result = $dbi->execute("select * from $table1");
-$row   = $result->one;
-is_deeply($row, {$key1 => 2, $key2 => 2}, "update");
-
-$dbi = DBIx::Custom->connect;
-eval { $dbi->execute("drop table $table1") };
-$dbi->execute($create_table1);
-$dbi->register_filter(twice => sub { $_[0] * 2 });
-$dbi->insert({$key1 => 2, $key2 => 2}, table => $table1, filter => {$key1=> undef});
-$dbi->delete(table => $table1, where => {$key1 => 2});
-$result = $dbi->execute("select * from $table1");
-$rows   = $result->all;
-is_deeply($rows, [], "delete");
-
-$dbi = DBIx::Custom->connect;
-eval { $dbi->execute("drop table $table1") };
-$dbi->execute($create_table1);
-$dbi->register_filter(twice => sub { $_[0] * 2 });
-$dbi->insert({$key1 => 2, $key2 => 2}, table => $table1, filter => {$key1 => undef});
-$result = $dbi->select(table => $table1, where => {$key1 => 2});
-$result->filter({$key2 => 'twice'});
-$rows   = $result->all;
-is_deeply($rows, [{$key1 => 2, $key2 => 4}], "select");
-
-$dbi = DBIx::Custom->connect;
-eval { $dbi->execute("drop table $table1") };
-$dbi->execute($create_table1);
-$dbi->register_filter(twice => sub { $_[0] * 2 });
-$dbi->insert({$key1 => 2, $key2 => 2}, table => $table1, filter => {$key1 => undef});
-$result = $dbi->execute("select * from $table1 where $key1 = :$key1 and $key2 = :$key2",
-                        {$key1 => 2, $key2 => 2},
-                        table => [$table1]);
-$rows   = $result->all;
-is_deeply($rows, [{$key1 => 2, $key2 => 2}], "execute");
-
-$dbi = DBIx::Custom->connect;
-eval { $dbi->execute("drop table $table1") };
-$dbi->execute($create_table1);
-$dbi->register_filter(twice => sub { $_[0] * 2 });
-$dbi->insert({$key1 => 2, $key2 => 2}, table => $table1, filter => {$key1 => undef});
-$result = $dbi->execute("select * from $table1 where $key1 = :$key1 and $key2 = :$key2",
-                        {$key1 => 2, $key2 => 2}, table => $table1);
-$rows   = $result->all;
-is_deeply($rows, [{$key1 => 2, $key2 => 2}], "execute table tag");
-
-$dbi = DBIx::Custom->connect;
-eval { $dbi->execute("drop table $table1") };
-eval { $dbi->execute("drop table $table2") };
-$dbi->execute($create_table1);
-$dbi->execute($create_table2);
-$dbi->register_filter(twice => sub { $_[0] * 2 });
-$dbi->register_filter(three_times => sub { $_[0] * 3 });
-$dbi->insert({$key1 => 5, $key2 => 2}, table => $table1, filter => {$key2 => undef});
-$dbi->insert({$key1 => 5, $key3 => 6}, table => $table2, filter => {$key3 => undef});
-$result = $dbi->select(
-     table => $table1,
-     column => [$key2, $key3],
-     where => {"$table1.$key2" => 2, "$table2.$key3" => 6},
-     join => "inner join $table2 on $table1.$key1 = $table2.$key1"
-);
-$result->filter({$key2 => 'twice'});
-$rows   = $result->all;
-is_deeply($rows, [{$key2 => 4, $key3 => 6}], "select : join");
-
-$result = $dbi->select(
-     table => $table1,
-     column => [$key2, $key3, "$table2.$key3 as ${table2}_$key3"],
-     where => {$key2 => 2, $key3 => 6},
-     join => "inner join $table2 on $table1.$key1 = $table2.$key1"
-);
-
-$result->filter({$key2 => 'twice'});
-$rows   = $result->all;
-is_deeply($rows, [{$key2 => 4, $key3 => 6, "${table2}_$key3" => 6}], "select : join : omit");
-
-test 'connect super';
-$dbi = DBIx::Custom->connect;
-eval { $dbi->execute("drop table $table1") };
-$dbi->execute($create_table1);
-$dbi->insert({$key1 => 1, $key2 => 2}, table => $table1);
-is($dbi->select(table => $table1)->one->{$key1}, 1);
-
-$dbi = DBIx::Custom->new;
-$dbi->connect;
-eval { $dbi->execute("drop table $table1") };
-$dbi->execute($create_table1);
-$dbi->insert({$key1 => 1, $key2 => 2}, table => $table1);
-is($dbi->select(table => $table1)->one->{$key1}, 1);
-
-$dbi = DBIx::Custom->connect;
-eval { $dbi->execute("drop table $table1") };
-$dbi->execute($create_table1);
-$dbi->insert({$key1 => 1, $key2 => 2}, table => $table1);
-is($dbi->select(table => $table1)->one->{$key1}, 1);
-
-test 'filter';
-$dbi = DBIx::Custom->connect;
-eval { $dbi->execute("drop table $table1") };
-$dbi->execute($create_table1);
-$dbi->insert({$key1 => 1, $key2 => 2}, table => $table1);
-$result = $dbi->select(table => $table1);
-$result->filter($key1 => sub { $_[0] * 2 }, $key2 => sub { $_[0] * 4 });
-$row = $result->fetch_first;
-is_deeply($row, [2, 8]);
-
-$dbi = DBIx::Custom->connect;
-eval { $dbi->execute("drop table $table1") };
-$dbi->execute($create_table1);
-$dbi->insert({$key1 => 1, $key2 => 2}, table => $table1);
-$result = $dbi->select(column => [$key1, $key1, $key2], table => $table1);
-$result->filter($key1 => sub { $_[0] * 2 }, $key2 => sub { $_[0] * 4 });
-$row = $result->fetch_first;
-is_deeply($row, [2, 2, 8]);
-
-$dbi = DBIx::Custom->connect;
-eval { $dbi->execute("drop table $table1") };
-$dbi->execute($create_table1);
-$dbi->insert({$key1 => 1, $key2 => 2}, table => $table1);
-$result = $dbi->select(table => $table1);
-$result->filter([$key1, $key2] => sub { $_[0] * 2 });
-$row = $result->fetch_first;
-is_deeply($row, [2, 4]);
-
-$dbi = DBIx::Custom->connect;
-eval { $dbi->execute("drop table $table1") };
-$dbi->execute($create_table1);
-$dbi->insert({$key1 => 1, $key2 => 2}, table => $table1);
-$result = $dbi->select(table => $table1);
-$result->filter([[$key1, $key2] => sub { $_[0] * 2 }]);
-$row = $result->fetch_first;
-is_deeply($row, [2, 4]);
-
-$dbi->register_filter(five_times => sub { $_[0] * 5 });
-$result = $dbi->select(table => $table1);
-$result->filter($key1 => sub { $_[0] * 2 }, $key2 => sub { $_[0] * 4 });
-$row = $result->one;
-is_deeply($row, {$key1 => 2, $key2 => 8});
-
-$dbi->register_filter(five_times => sub { $_[0] * 5 });
-$result = $dbi->select(table => $table1);
-$result->filter($key1 => sub { $_[0] * 2 }, $key2 => sub { $_[0] * 4 });
-$row = $result->one;
-is_deeply($row, {$key1 => 2, $key2 => 8}, 'apply_filter');
-
-test 'empty where select';
-$dbi = DBIx::Custom->connect;
-eval { $dbi->execute("drop table $table1") };
-$dbi->execute($create_table1);
-$dbi->insert({$key1 => 1, $key2 => 2}, table => $table1);
-$result = $dbi->select(table => $table1, where => {});
-$row = $result->one;
-is_deeply($row, {$key1 => 1, $key2 => 2});
-
-test 'select query option';
-$dbi = DBIx::Custom->connect;
-eval { $dbi->execute("drop table $table1") };
-$dbi->execute($create_table1);
-$query = $dbi->insert({$key1 => 1, $key2 => 2}, table => $table1, query => 1);
-ok(ref $query);
-$query = $dbi->update({$key2 => 2}, table => $table1, where => {$key1 => 1}, query => 1);
-ok(ref $query);
-$query = $dbi->delete(table => $table1, where => {$key1 => 1}, query => 1);
-ok(ref $query);
-$query = $dbi->select(table => $table1, where => {$key1 => 1, $key2 => 2}, query => 1);
-ok(ref $query);
-
-test 'where';
-$dbi = DBIx::Custom->connect;
-eval { $dbi->execute("drop table $table1") };
-$dbi->execute($create_table1);
-$dbi->insert({$key1 => 1, $key2 => 2}, table => $table1);
-$dbi->insert({$key1 => 3, $key2 => 4}, table => $table1);
-$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(['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}]);
-
-$where = $dbi->where;
-$where->clause(['and', ":${key1}{=}"]);
-$where->param({$key1 => undef});
-$result = $dbi->execute("select * from $table1 $where", {$key1 => 1});
-$row = $result->all;
-is_deeply($row, [{$key1 => 1, $key2 => 2}]);
-
-$where = $dbi->where;
-$where->clause(['or', ":${key1}{=}", ":${key1}{=}"]);
-$where->param({$key1 => [undef, undef]});
-$result = $dbi->execute("select * from $table1 $where", {$key1 => [1, 0]});
-$row = $result->all;
-is_deeply($row, [{$key1 => 1, $key2 => 2}]);
-$result = $dbi->execute("select * from $table1 $where", {$key1 => [0, 1]});
-$row = $result->all;
-is_deeply($row, [{$key1 => 1, $key2 => 2}]);
-
-
-$dbi = DBIx::Custom->connect;
-eval { $dbi->execute("drop table $table1") };
-$dbi->execute($create_table1);
-$dbi->insert({$key1 => 1, $key2 => '00:00:00'}, table => $table1);
-$dbi->insert({$key1 => 1, $key2 => '3'}, table => $table1);
-$where = $dbi->where
-             ->clause(['and', "$key1 = :$key1", "$key2 = '00:00:00'"])
-             ->param({$key1 => 1});
-
-$result = $dbi->select(
-    table => $table1,
-    where => $where
-);
-$row = $result->all;
-is_deeply($row, [{$key1 => 1, $key2 => '00:00:00'}]);
-
-test 'table not specify exception';
-$dbi = DBIx::Custom->connect;
-eval {$dbi->select};
-like($@, qr/table/);
-
-$dbi = DBIx::Custom->connect;
-eval { $dbi->execute("drop table $table1") };
-$dbi->execute($create_table1);
-$dbi->insert({$key1 => 1, $key2 => 2}, table => $table1);
-$dbi->insert({$key1 => 3, $key2 => 4}, table => $table1);
-$rows = $dbi->select(table => $table1, where => {$key2 => 2})->all;
-is_deeply($rows, [{$key1 => 1, $key2 => 2}]);
-
-$dbi = DBIx::Custom->connect;
-eval { $dbi->execute("drop table $table1") };
-$dbi->execute($create_table1);
-$dbi->insert({$key1 => 1, $key2 => 2}, table => $table1);
-$dbi->insert({$key1 => 3, $key2 => 4}, table => $table1);
-$rows = $dbi->select(table => $table1, where => {$key2 => 2})->all;
-is_deeply($rows, [{$key1 => 1, $key2 => 2}]);
-
-$dbi->helper({one => sub { 1 }});
-is($dbi->one, 1);
-
-eval{DBIx::Custom->connect(dsn => undef)};
-like($@, qr/_connect/);
-
-$dbi = DBIx::Custom->connect;
-eval { $dbi->execute("drop table $table1") };
-$dbi->execute($create_table1);
-$dbi->register_filter(twice => sub { $_[0] * 2 });
-$dbi->insert({$key1 => 1, $key2 => 2}, table => $table1,
-             filter => {$key1 => 'twice'});
-$row = $dbi->select(table => $table1)->one;
-is_deeply($row, {$key1 => 2, $key2 => 2});
-eval {$dbi->insert({$key1 => 1, $key2 => 2}, table => $table1,
-             filter => {$key1 => 'no'}) };
-like($@, qr//);
-
-$dbi = DBIx::Custom->connect;
-eval { $dbi->execute("drop table $table1") };
-$dbi->execute($create_table1);
-$dbi->register_filter(one => sub { 1 });
-$result = $dbi->select(table => $table1);
-eval {$result->filter($key1 => 'no')};
-like($@, qr/not registered/);
-
-test 'option';
-$dbi = DBIx::Custom->connect(option => {PrintError => 1});
-ok($dbi->dbh->{PrintError});
-$dbi = DBIx::Custom->connect(option => {PrintError => 1});
-ok($dbi->dbh->{PrintError});
-$dbi = DBIx::Custom->connect(option => {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 'delete';
-$dbi = DBIx::Custom->connect;
-eval { $dbi->execute("drop table $table1") };
-$dbi->execute($create_table1_2);
-$dbi->insert({$key1 => 1, $key2 => 2, $key3 => 3}, table => $table1);
-$dbi->delete(
-    table => $table1,
-    primary_key => [$key1, $key2],
-    id => [1, 2],
-);
-is_deeply($dbi->select(table => $table1)->all, []);
-
-$dbi->insert({$key1 => 1, $key2 => 2, $key3 => 3}, table => $table1);
-$dbi->delete(
-    table => $table1,
-    primary_key => $key1,
-    id => 1,
-);
-is_deeply($dbi->select(table => $table1)->all, []);
-
-test 'insert';
-$dbi = DBIx::Custom->connect;
-eval { $dbi->execute("drop table $table1") };
-$dbi->execute($create_table1_2);
-$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);
-
-$dbi->delete_all(table => $table1);
-$dbi->insert({$key1 => 1, $key2 => 2, $key3 => 3}, table => $table1);
-$dbi->insert(
-    {$key2 => 2, $key3 => 3},
-    primary_key => $key1, 
-    table => $table1,
-    id => 1,
-);
-
-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 = DBIx::Custom->connect;
-eval { $dbi->execute("drop table $table1") };
-$dbi->execute($create_table1_2);
-$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 'update';
-$dbi = DBIx::Custom->connect;
-eval { $dbi->execute("drop table $table1") };
-$dbi->execute($create_table1_2);
-$dbi->insert({$key1 => 1, $key2 => 2, $key3 => 3}, table => $table1);
-$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);
-
-$dbi->delete_all(table => $table1);
-$dbi->insert({$key1 => 1, $key2 => 2, $key3 => 3}, table => $table1);
-$dbi->update(
-    {$key3 => 4},
-    table => $table1,
-    primary_key => $key1,
-    id => 1,
-);
-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;
-eval { $dbi->execute("drop table $table1") };
-$dbi->execute($create_table1_2);
-$dbi->insert({$key1 => 1, $key2 => 2, $key3 => 3}, table => $table1);
-$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 'select';
-$dbi = DBIx::Custom->connect;
-eval { $dbi->execute("drop table $table1") };
-$dbi->execute($create_table1_2);
-$dbi->insert({$key1 => 1, $key2 => 2, $key3 => 3}, table => $table1);
-$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({$key1 => 1, $key2 => 2, $key3 => 3}, table => $table1);
-$result = $dbi->select(
-    table => $table1,
-    primary_key => $key1,
-    id => 1,
-);
-$row = $result->one;
-is($row->{$key1}, 1);
-is($row->{$key2}, 2);
-is($row->{$key3}, 3);
-
-$dbi->delete_all(table => $table1);
-$dbi->insert({$key1 => 1, $key2 => 2, $key3 => 3}, table => $table1);
-$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 delete';
-$dbi = MyDBI6->connect;
-eval { $dbi->execute("drop table $table1") };
-eval { $dbi->execute("drop table $table2") };
-eval { $dbi->execute("drop table $table3") };
-$dbi->execute($create_table1_2);
-$dbi->execute($create_table2_2);
-$dbi->execute($create_table3);
-$dbi->insert({$key1 => 1, $key2 => 2, $key3 => 3}, table => $table1);
-$dbi->model($table1)->delete(id => [1, 2]);
-is_deeply($dbi->select(table => $table1)->all, []);
-$dbi->insert({$key1 => 1, $key2 => 2, $key3 => 3}, table => $table2);
-$dbi->model($table1)->delete(id => [1, 2]);
-is_deeply($dbi->select(table => $table1)->all, []);
-$dbi->insert({$key1 => 1, $key2 => 2, $key3 => 3}, table => $table3);
-$dbi->model($table3)->delete(id => [1, 2]);
-is_deeply($dbi->select(table => $table3)->all, []);
-
-test 'model insert';
-$dbi = MyDBI6->connect;
-eval { $dbi->execute("drop table $table1") };
-$dbi->execute($create_table1_2);
-$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 'model update';
-$dbi = MyDBI6->connect;
-eval { $dbi->execute("drop table $table1") };
-$dbi->execute($create_table1_2);
-$dbi->insert({$key1 => 1, $key2 => 2, $key3 => 3}, table => $table1);
-$dbi->model($table1)->update(
-    {$key3 => 4},
-    id => [1, 2],
-);
-$result = $dbi->model($table1)->select;
-$row = $result->one;
-is($row->{$key1}, 1);
-is($row->{$key2}, 2);
-is($row->{$key3}, 4);
-
-test 'model select';
-$dbi = MyDBI6->connect;
-eval { $dbi->execute("drop table $table1") };
-$dbi->execute($create_table1_2);
-$dbi->insert({$key1 => 1, $key2 => 2, $key3 => 3}, table => $table1);
-$result = $dbi->model($table1)->select(id => [1, 2]);
-$row = $result->one;
-is($row->{$key1}, 1);
-is($row->{$key2}, 2);
-is($row->{$key3}, 3);
-
-
-test 'mycolumn and column';
-$dbi = MyDBI7->connect;
-$dbi->user_table_info($user_table_info);
-eval { $dbi->execute("drop table $table1") };
-eval { $dbi->execute("drop table $table2") };
-$dbi->execute($create_table1);
-$dbi->execute($create_table2);
-$dbi->separator('__');
-$dbi->setup_model;
-$dbi->insert({$key1 => 1, $key2 => 2}, table => $table1);
-$dbi->insert({$key1 => 1, $key3 => 3}, table => $table2);
-$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 'values_clause';
-$dbi = DBIx::Custom->connect;
-eval { $dbi->execute("drop table $table1") };
-$dbi->execute($create_table1_2);
-$param = {$key1 => 1, $key2 => 2};
-$values_clause = $dbi->values_clause($param);
-$sql = <<"EOS";
-insert into $table1 $values_clause
-EOS
-$dbi->execute($sql, $param, table => $table1);
-is($dbi->select(table => $table1)->one->{$key1}, 1);
-is($dbi->select(table => $table1)->one->{$key2}, 2);
-
-$dbi = DBIx::Custom->connect;
-eval { $dbi->execute("drop table $table1") };
-$dbi->execute($create_table1_2);
-$param = {$key1 => 1, $key2 => 2};
-$values_clause = $dbi->values_clause($param);
-$sql = <<"EOS";
-insert into $table1 $values_clause
-EOS
-$dbi->execute($sql, $param, table => $table1);
-is($dbi->select(table => $table1)->one->{$key1}, 1);
-is($dbi->select(table => $table1)->one->{$key2}, 2);
-
-test 'mycolumn';
-$dbi = MyDBI8->connect;
-$dbi->user_table_info($user_table_info);
-eval { $dbi->execute("drop table $table1") };
-eval { $dbi->execute("drop table $table2") };
-$dbi->execute($create_table1);
-$dbi->execute($create_table2);
-$dbi->setup_model;
-$dbi->insert({$key1 => 1, $key2 => 2}, table => $table1);
-$dbi->insert({$key1 => 1, $key3 => 3}, table => $table2);
-$model = $dbi->model($table1);
-$result = $model->select(
-    column => [
-        $model->mycolumn,
-        $model->column($table2)
-    ]
-);
-is_deeply($result->one,
-          {$key1 => 1, $key2 => 2, "$table2.$key1" => 1, "$table2.$key3" => 3});
-
-$result = $model->select(
-    column => [
-        $model->mycolumn([$key1]),
-        $model->column($table2 => [$key1])
-    ]
-);
-is_deeply($result->one,
-          {$key1 => 1, "$table2.$key1" => 1});
-$result = $model->select(
-    column => [
-        $model->mycolumn([$key1]),
-        {$table2 => [$key1]}
-    ]
-);
-is_deeply($result->one,
-          {$key1 => 1, "$table2.$key1" => 1});
-
-$result = $model->select(
-    column => [
-        $model->mycolumn([$key1]),
-        "$table2.$key1 as " . $dbi->q("$table2.$key1")
-    ]
-);
-is_deeply($result->one,
-          {$key1 => 1, "$table2.$key1" => 1});
-
-$result = $model->select(
-    column => [
-        $model->mycolumn([$key1]),
-        "$table2.$key1 as " . $dbi->q("$table2.$key1")
-    ]
-);
-is_deeply($result->one,
-          {$key1 => 1, "$table2.$key1" => 1});
-
-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;
-eval { $dbi->execute("drop table $table1") };
-$dbi->execute($create_table1);
-$dbi->insert({$key1 => 1, $key2 => 2}, table => $table1);
-$dbi->insert({$key1 => 2, $key2 => 3}, table => $table1);
-eval { $dbi->execute("drop table $table2") };
-$dbi->execute($create_table2);
-$dbi->insert({$key1 => 1, $key3 => 4}, table => $table2);
-$dbi->insert({$key1 => 2, $key3 => 5}, table => $table2);
-$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}{=})" . 
-              " $table2 on $table1.$key1 = $table2.$key1"],
-    param => {"$table2.$key3" => 5}
-)->all;
-is_deeply($rows, [{"${table1}_$key1" => 2, $key2 => 3, $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}{=})" . 
-             " $table2 on $table1.$key1 = $table2.$key1",
-    param => {"$table2.$key3" => 5}
-)->all;
-is_deeply($rows, [{"${table1}_$key1" => 2, $key2 => 3, $key3 => 5}]);
-
-test 'select() string where';
-$dbi = DBIx::Custom->connect;
-eval { $dbi->execute("drop table $table1") };
-$dbi->execute($create_table1);
-$dbi->insert({$key1 => 1, $key2 => 2}, table => $table1);
-$dbi->insert({$key1 => 2, $key2 => 3}, table => $table1);
-$rows = $dbi->select(
-    table => $table1,
-    where => [
-        "$key1 = :$key1 and $key2 = :$key2",
-        {$key1 => 1, $key2 => 2}
-    ]
-)->all;
-is_deeply($rows, [{$key1 => 1, $key2 => 2}]);
-
-$dbi = DBIx::Custom->connect;
-eval { $dbi->execute("drop table $table1") };
-$dbi->execute($create_table1);
-$dbi->insert({$key1 => 1, $key2 => 2}, table => $table1);
-$dbi->insert({$key1 => 2, $key2 => 3}, table => $table1);
-$rows = $dbi->select(
-    table => $table1,
-    where => [
-        "$key1 = :$key1 and $key2 = :$key2",
-        {$key1 => 1, $key2 => 2}
-    ]
-)->all;
-is_deeply($rows, [{$key1 => 1, $key2 => 2}]);
-
-$dbi = DBIx::Custom->connect;
-eval { $dbi->execute("drop table $table1") };
-$dbi->execute($create_table1);
-$dbi->insert({$key1 => 1, $key2 => 2}, table => $table1);
-$dbi->insert({$key1 => 2, $key2 => 3}, table => $table1);
-$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;
-eval { $dbi->execute("drop table $table1") };
-$dbi->execute($create_table1);
-$dbi->insert({$key1 => 1, $key2 => 2}, table => $table1);
-$dbi->insert({$key1 => 2, $key2 => 3}, table => $table1);
-$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}]);
-
-$dbi = DBIx::Custom->connect;
-eval { $dbi->execute("drop table $table1") };
-$dbi->execute($create_table1);
-$dbi->insert({$key1 => 1, $key2 => 2}, table => $table1);
-$dbi->insert({$key1 => 2, $key2 => 3}, table => $table1);
-$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;
-eval { $dbi->execute("drop table $table1") };
-$dbi->execute($create_table1);
-$dbi->insert({$key1 => 1, $key2 => 2}, table => $table1);
-$dbi->update(
-    {$key1 => 5},
-    table => $table1,
-    where => [
-        "$key1 = :$key1 and $key2 = :$key2",
-        {$key1 => 1, $key2 => 2}
-    ]
-);
-$rows = $dbi->select(table => $table1)->all;
-is_deeply($rows, [{$key1 => 5, $key2 => 2}]);
-
-$dbi = DBIx::Custom->connect;
-eval { $dbi->execute("drop table $table1") };
-$dbi->execute($create_table1);
-$dbi->insert({$key1 => 1, $key2 => 2}, table => $table1);
-$dbi->update(
-    {$key1 => 5},
-    table => $table1,
-    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;
-eval { $dbi->execute("drop table $table1") };
-$dbi->execute($create_table1_2);
-$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);
-
-$dbi->delete_all(table => $table1);
-$dbi->insert(
-    {$key2 => 2, $key3 => 3},
-    primary_key => $key1, 
-    table => $table1,
-    id => 0,
-);
-
-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;
-eval { $dbi->execute("drop table $table1") };
-$dbi->execute($create_table1_2);
-$dbi->insert(
-    {$key3 => 3},
-    primary_key => [$key1, $key2], 
-    table => $table1,
-    id => 1,
-);
-is($dbi->select(table => $table1)->one->{$key1}, 1);
-ok(!$dbi->select(table => $table1)->one->{$key2});
-is($dbi->select(table => $table1)->one->{$key3}, 3);
-
-$dbi = DBIx::Custom->connect;
-eval { $dbi->execute("drop table $table1") };
-$dbi->execute($create_table1_2);
-$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);
-
-$dbi = DBIx::Custom->connect;
-eval { $dbi->execute("drop table $table1") };
-$dbi->execute($create_table1_2);
-$param = {$key3 => 3, $key2 => 4};
-$dbi->insert(
-    $param,
-    primary_key => [$key1, $key2], 
-    table => $table1,
-    id => [1, 2],
-);
-is($dbi->select(table => $table1)->one->{$key1}, 1);
-is($dbi->select(table => $table1)->one->{$key2}, 4);
-is($dbi->select(table => $table1)->one->{$key3}, 3);
-is_deeply($param, {$key3 => 3, $key2 => 4});
-
-$dbi = DBIx::Custom->connect;
-eval { $dbi->execute("drop table $table1") };
-$dbi->execute($create_table1_2);
-$param = {$key3 => 3, $key2 => 4};
-$dbi->insert(
-    $param,
-    primary_key => [$key1, $key2], 
-    table => $table1,
-    id => [1, 2],
-    query => 1
-);
-ok(ref $query);
-is_deeply($param, {$key3 => 3, $key2 => 4});
-
-test 'model insert id and primary_key option';
-$dbi = MyDBI6->connect;
-eval { $dbi->execute("drop table $table1") };
-$dbi->execute($create_table1_2);
-$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);
-
-$dbi = MyDBI6->connect;
-eval { $dbi->execute("drop table $table1") };
-$dbi->execute($create_table1_2);
-$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;
-eval { $dbi->execute("drop table $table1") };
-$dbi->execute($create_table1_2);
-$dbi->insert({$key1 => 1, $key2 => 2, $key3 => 3}, table => $table1);
-$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);
-
-$dbi->delete_all(table => $table1);
-$dbi->insert({$key1 => 0, $key2 => 2, $key3 => 3}, table => $table1);
-$dbi->update(
-    {$key3 => 4},
-    table => $table1,
-    primary_key => $key1,
-    id => 0,
-);
-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;
-eval { $dbi->execute("drop table $table1") };
-$dbi->execute($create_table1_2);
-$dbi->insert({$key1 => 1, $key2 => 2, $key3 => 3}, table => $table1);
-$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;
-eval { $dbi->execute("drop table $table1") };
-$dbi->execute($create_table1_2);
-$dbi->insert({$key1 => 1, $key2 => 2, $key3 => 3}, table => $table1);
-$dbi->model($table1)->update(
-    {$key3 => 4},
-    id => [1, 2],
-);
-$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;
-eval { $dbi->execute("drop table $table1") };
-$dbi->execute($create_table1_2);
-$dbi->insert({$key1 => 1, $key2 => 2, $key3 => 3}, table => $table1);
-$dbi->delete(
-    table => $table1,
-    primary_key => [$key1, $key2],
-    id => [1, 2],
-);
-is_deeply($dbi->select(table => $table1)->all, []);
-
-$dbi->insert({$key1 => 0, $key2 => 2, $key3 => 3}, table => $table1);
-$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;
-eval { $dbi->execute("drop table $table1") };
-eval { $dbi->execute("drop table $table2") };
-eval { $dbi->execute("drop table $table3") };
-$dbi->execute($create_table1_2);
-$dbi->execute($create_table2_2);
-$dbi->execute($create_table3);
-$dbi->insert({$key1 => 1, $key2 => 2, $key3 => 3}, table => $table1);
-$dbi->model($table1)->delete(id => [1, 2]);
-is_deeply($dbi->select(table => $table1)->all, []);
-$dbi->insert({$key1 => 1, $key2 => 2, $key3 => 3}, table => $table2);
-$dbi->model($table1)->delete(id => [1, 2]);
-is_deeply($dbi->select(table => $table1)->all, []);
-$dbi->insert({$key1 => 1, $key2 => 2, $key3 => 3}, table => $table3);
-$dbi->model($table3)->delete(id => [1, 2]);
-is_deeply($dbi->select(table => $table3)->all, []);
-
-
-test 'select and id option';
-$dbi = DBIx::Custom->connect;
-eval { $dbi->execute("drop table $table1") };
-$dbi->execute($create_table1_2);
-$dbi->insert({$key1 => 1, $key2 => 2, $key3 => 3}, table => $table1);
-$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({$key1 => 0, $key2 => 2, $key3 => 3}, table => $table1);
-$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({$key1 => 1, $key2 => 2, $key3 => 3}, table => $table1);
-$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';
-$dbi = MyDBI6->connect;
-eval { $dbi->execute("drop table $table1") };
-$dbi->execute($create_table1_2);
-$dbi->insert({$key1 => 1, $key2 => 2, $key3 => 3}, table => $table1);
-$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;
-$dbi->user_table_info($user_table_info);
-eval { $dbi->execute("drop table $table1") };
-eval { $dbi->execute("drop table $table2") };
-$dbi->execute($create_table1);
-$dbi->execute($create_table2);
-$dbi->setup_model;
-$dbi->insert({$key1 => 1, $key2 => 2}, table => $table1);
-$dbi->insert({$key1 => 1, $key3 => 3}, table => $table2);
-$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 => [$key1, $key3])],
-    where => {"$table1.$key1" => 1}
-);
-is_deeply($result->one,
-          {"$table2.$key1" => 1, "$table2.$key3" => 3});
-
-test 'separator';
-$dbi = DBIx::Custom->connect;
-$dbi->user_table_info($user_table_info);
-eval { $dbi->execute("drop table $table1") };
-eval { $dbi->execute("drop table $table2") };
-$dbi->execute($create_table1);
-$dbi->execute($create_table2);
-
-$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({$key1 => 1, $key2 => 2}, table => $table1);
-$dbi->insert({$key1 => 1, $key3 => 3}, table => $table2);
-$model = $dbi->model($table1);
-$result = $model->select(
-    column => [
-        $model->mycolumn,
-        {$table2 => [$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 => [$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 => [$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 = DBIx::Custom->connect;
-$dbi->user_table_info($user_table_info);
-eval { $dbi->execute("drop table $table1") };
-eval { $dbi->execute("drop table $table2") };
-$dbi->execute($create_table1);
-$dbi->execute($create_table2);
-
-$dbi->create_model(
-    table => $table1,
-    join => [
-       "left outer join $table2 on $table1.$key1 = $table2.$key1"
-    ],
-    primary_key => [$key1],
-);
-$dbi->setup_model;
-$dbi->insert({$key1 => 1, $key2 => 2}, table => $table1);
-$model = $dbi->model($table1);
-$result = $model->select(column => $key1);
-$result->filter($key1 => sub { $_[0] * 2 });
-is_deeply($result->one, {$key1 => 2});
-
-test 'available_datetype';
-$dbi = DBIx::Custom->connect;
-ok($dbi->can('available_datatype'));
-
-
-test 'select prefix option';
-$dbi = DBIx::Custom->connect;
-eval { $dbi->execute("drop table $table1") };
-$dbi->execute($create_table1);
-$dbi->insert({$key1 => 1, $key2 => 2}, table => $table1);
-$rows = $dbi->select(prefix => "$key1,", column => $key2, table => $table1)->all;
-is_deeply($rows, [{$key1 => 1, $key2 => 2}], "table");
-
-
-test 'mapper';
-$dbi = DBIx::Custom->connect;
-$param = $dbi->mapper(param => {id => 1, author => 'Ken', price => 1900})->map(
-    id => {key => "$table1.id"},
-    author => ["$table1.author" => sub { '%' . $_[0] . '%' }],
-    price => {key => "$table1.price", condition => sub { $_[0] eq 1900 }}
-);
-is_deeply($param, {"$table1.id" => 1, "$table1.author" => '%Ken%',
-  "$table1.price" => 1900});
-
-$dbi = DBIx::Custom->connect;
-$param = $dbi->mapper(param => {id => 1, author => 'Ken', price => 1900})->map(
-    id => {key => "$table1.id"},
-    author => ["$table1.author" => $dbi->like_value],
-    price => {key => "$table1.price", condition => sub { $_[0] eq 1900 }}
-);
-is_deeply($param, {"$table1.id" => 1, "$table1.author" => '%Ken%',
-  "$table1.price" => 1900});
-
-$param = $dbi->mapper(param => {id => 0, author => 0, price => 0})->map(
-    id => {key => "$table1.id"},
-    author => ["$table1.author" => sub { '%' . $_[0] . '%' }],
-    price => ["$table1.price", sub { '%' . $_[0] . '%' }, sub { $_[0] eq 0 }]
-);
-is_deeply($param, {"$table1.id" => 0, "$table1.author" => '%0%', "$table1.price" => '%0%'});
-
-$param = $dbi->mapper(param => {id => '', author => '', price => ''})->map(
-    id => {key => "$table1.id"},
-    author => ["$table1.author" => sub { '%' . $_[0] . '%' }],
-    price => ["$table1.price", sub { '%' . $_[0] . '%' }, sub { $_[0] eq 1 }]
-);
-is_deeply($param, {});
-
-$param = $dbi->mapper(param => {id => undef, author => undef, price => undef})->map(
-    id => {key => "$table1.id"},
-    price => {key => "$table1.price", condition => 'exists'}
-);
-is_deeply($param, {"$table1.price" => undef});
-
-$param = $dbi->mapper(param => {price => 'a'})->map(
-    id => {key => "$table1.id", condition => 'exists'},
-    price => ["$table1.price", sub { '%' . $_[0] }, 'exists']
-);
-is_deeply($param, {"$table1.price" => '%a'});
-
-$param = $dbi->mapper(param => {price => 'a'}, condition => 'exists')->map(
-    id => {key => "$table1.id"},
-    price => ["$table1.price", sub { '%' . $_[0] }]
-);
-is_deeply($param, {"$table1.price" => '%a'});
-
-eval { $dbi->execute("drop table $table1") };
-$dbi->execute($create_table1);
-$dbi->insert({$key1 => 1, $key2 => 2}, table => $table1);
-$dbi->insert({$key1 => 3, $key2 => 4}, table => $table1);
-
-$where = $dbi->where;
-$where->clause(['and', ":${key1}{=}"]);
-$param = $dbi->mapper(param => {$key1 => undef}, condition => 'defined')->map;
-$where->param($param);
-$result = $dbi->execute("select * from $table1 $where", {$key1 => 1});
-$row = $result->all;
-is_deeply($row, [{$key1 => 1, $key2 => 2}, {$key1 => 3, $key2 => 4}]);
-
-$where = $dbi->where;
-$where->clause(['or', ":${key1}{=}", ":${key1}{=}"]);
-$param = $dbi->mapper(param => {$key1 => [undef, undef]}, condition => 'exists')->map;
-$result = $dbi->execute("select * from $table1 $where", {$key1 => [1, 0]});
-$row = $result->all;
-is_deeply($row, [{$key1 => 1, $key2 => 2}]);
-$result = $dbi->execute("select * from $table1 $where", {$key1 => [0, 1]});
-$row = $result->all;
-is_deeply($row, [{$key1 => 1, $key2 => 2}]);
-
-$where = $dbi->where;
-$where->clause(['and', ":${key1}{=}"]);
-$param = $dbi->mapper(param => {$key1 => [undef, undef]}, condition => 'defined')->map;
-$where->param($param);
-$result = $dbi->execute("select * from $table1 $where", {$key1 => [1, 0]});
-$row = $result->all;
-is_deeply($row, [{$key1 => 1, $key2 => 2}, {$key1 => 3, $key2 => 4}]);
-$result = $dbi->execute("select * from $table1 $where", {$key1 => [0, 1]});
-$row = $result->all;
-is_deeply($row, [{$key1 => 1, $key2 => 2}, {$key1 => 3, $key2 => 4}]);
-
-
-$where = $dbi->where;
-$where->clause(['and', ":${key1}{=}"]);
-$param = $dbi->mapper(param => {$key1 => 0}, condition => 'length')
-  ->pass([$key1, $key2])->map;
-$where->param($param);
-$result = $dbi->execute("select * from $table1 $where", {$key1 => 1});
-$row = $result->all;
-is_deeply($row, [{$key1 => 1, $key2 => 2}]);
-
-$where = $dbi->where;
-$where->clause(['and', ":${key1}{=}"]);
-$param = $dbi->mapper(param => {$key1 => ''}, condition => 'length')->map;
-$where->param($param);
-$result = $dbi->execute("select * from $table1 $where", {$key1 => 1});
-$row = $result->all;
-is_deeply($row, [{$key1 => 1, $key2 => 2}, {$key1 => 3, $key2 => 4}]);
-
-$where = $dbi->where;
-$where->clause(['and', ":${key1}{=}"]);
-$param = $dbi->mapper(param => {$key1 => 5}, condition => sub { ($_[0] || '') eq 5 })
-  ->pass([$key1, $key2])->map;
-$where->param($param);
-$result = $dbi->execute("select * from $table1 $where", {$key1 => 1});
-$row = $result->all;
-is_deeply($row, [{$key1 => 1, $key2 => 2}]);
-
-
-$where = $dbi->where;
-$where->clause(['and', ":${key1}{=}"]);
-$param = $dbi->mapper(param => {$key1 => 7}, condition => sub { ($_[0] || '') eq 5 })->map;
-$where->param($param);
-$result = $dbi->execute("select * from $table1 $where", {$key1 => 1});
-$row = $result->all;
-is_deeply($row, [{$key1 => 1, $key2 => 2}, {$key1 => 3, $key2 => 4}]);
-
-$where = $dbi->where;
-$param = $dbi->mapper(param => {id => 1, author => 'Ken', price => 1900})->map(
-    id => {key => "$table1.id"},
-    author => ["$table1.author", sub { '%' . $_[0] . '%' }],
-    price => {key => "$table1.price", condition => sub { $_[0] eq 1900 }}
-);
-$where->param($param);
-is_deeply($where->param, {"$table1.id" => 1, "$table1.author" => '%Ken%',
-  "$table1.price" => 1900});
-
-$where = $dbi->where;
-$param = $dbi->mapper(param => {id => 0, author => 0, price => 0})->map(
-    id => {key => "$table1.id"},
-    author => ["$table1.author", sub { '%' . $_[0] . '%' }],
-    price => ["$table1.price", sub { '%' . $_[0] . '%' }, sub { $_[0] eq 0 }]
-);
-$where->param($param);
-is_deeply($where->param, {"$table1.id" => 0, "$table1.author" => '%0%', "$table1.price" => '%0%'});
-
-$where = $dbi->where;
-$param = $dbi->mapper(param => {id => '', author => '', price => ''})->map(
-    id => {key => "$table1.id"},
-    author => ["$table1.author", sub { '%' . $_[0] . '%' }],
-    price => ["$table1.price", sub { '%' . $_[0] . '%' }, sub { $_[0] eq 1 }]
-);
-$where->param($param);
-is_deeply($where->param, {});
-
-$where = $dbi->where;
-$param = $dbi->mapper(param => {id => undef, author => undef, price => undef}, condition => 'exists')->map(
-    id => {key => "$table1.id"},
-    price => {key => "$table1.price", condition => 'exists'}
-);
-is_deeply($param, {"$table1.id"  => undef,"$table1.price" => undef});
-
-$where = $dbi->where;
-$param = $dbi->mapper(param => {price => 'a'})->map(
-    id => {key => "$table1.id", condition => 'exists'},
-    price => ["$table1.price", sub { '%' . $_[0] }, 'exists']
-);
-is_deeply($param, {"$table1.price" => '%a'});
-
-$where = $dbi->where;
-$param = $dbi->mapper(param => {id => [1, 2], author => 'Ken', price => 1900})->map(
-    id => {key => "$table1.id"},
-    author => ["$table1.author", sub { '%' . $_[0] . '%' }],
-    price => {key => "$table1.price", condition => sub { $_[0] eq 1900 }}
-);
-is_deeply($param, {"$table1.id" => [1, 2], "$table1.author" => '%Ken%',
-  "$table1.price" => 1900});
-
-$where = $dbi->where;
-$param = $dbi->mapper(param => {id => ['', ''], author => 'Ken', price => 1900}, condition => 'length')->map(
-    id => {key => "$table1.id"},
-    author => ["$table1.author", sub { '%' . $_[0] . '%' }],
-    price => {key => "$table1.price", condition => sub { $_[0] eq 1900 }}
-);
-is_deeply($param, {"$table1.id" => [$dbi->not_exists, $dbi->not_exists], "$table1.author" => '%Ken%',
-  "$table1.price" => 1900});
-
-$where = $dbi->where;
-$param = $dbi->mapper(param => {id => ['', ''], author => 'Ken', price => 1900})->map(
-    id => {key => "$table1.id", condition => 'length'},
-    author => ["$table1.author", sub { '%' . $_[0] . '%' }, 'defined'],
-    price => {key => "$table1.price", condition => sub { $_[0] eq 1900 }}
-);
-is_deeply($param, {"$table1.id" => [$dbi->not_exists, $dbi->not_exists], "$table1.author" => '%Ken%',
-  "$table1.price" => 1900});
-
-$where = $dbi->where;
-$param = $dbi->mapper(param => {id => 'a', author => 'b', price => 'c'}, pass => [qw/id author/])
-  ->map(price => {key => 'book.price'});
-is_deeply($param, {id => 'a', author => 'b', 'book.price' => 'c'});
-
-test 'order';
-$dbi = DBIx::Custom->connect;
-eval { $dbi->execute("drop table $table1") };
-$dbi->execute($create_table1);
-$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($dbi->q("$table1-$key1"), $dbi->q("$table1-$key2") . ' desc');
-$result = $dbi->select(table => $table1,
-  column => ["$key1 as " . $dbi->q("$table1-$key1"), "$key2 as " . $dbi->q("$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 'last_sql';
-$dbi = DBIx::Custom->connect;
-eval { $dbi->execute("drop table $table1") };
-$dbi->execute($create_table1);
-$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;
-eval { $dbi->execute("drop table $table1") };
-$dbi->execute($create_table1);
-$result = $dbi->execute("select $key1 as h1, $key2 as h2 from $table1");
-is_deeply([map { lc } @{$result->header}], [qw/h1 h2/]);
-
-test 'Named placeholder :name(operater) syntax';
-eval { $dbi->execute("drop table $table1") };
-$dbi->execute($create_table1_2);
-$dbi->insert({$key1 => 1, $key2 => 2, $key3 => 3, $key4 => 4, $key5 => 5}, table => $table1);
-$dbi->insert({$key1 => 6, $key2 => 7, $key3 => 8, $key4 => 9, $key5 => 10}, table => $table1);
-
-$source = "select * from $table1 where :${key1}{=} and :${key2}{=}";
-$result = $dbi->execute($source, {$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, {$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, {$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,
-    {"$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}]);
-
-eval { $dbi->execute("drop table $table1") };
-eval { $dbi->execute("drop table $table2") };
-$dbi->execute($create_table1);
-$dbi->execute($create_table2);
-$model = $dbi->create_model(table => $table1, primary_key => $key1);
-$model->insert({$key1 => 1, $key2 => 2});
-$model = $dbi->create_model(table => $table2, primary_key => $key1,
-    join => ["left outer join $table1 on $table2.$key1 = $table1.$key1"]);
-$model->insert({$key1 => 1, $key3 => 3});
-$result = $model->select(
-    column => {$table1 => ["$key2"]},
-    id => 1
-);
-is_deeply($result->all, [{"$table1.$key2" => 2}]);
-
-test 'result';
-$dbi = DBIx::Custom->connect;
-eval { $dbi->execute("drop table $table1") };
-$dbi->execute($create_table1);
-$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}]);
-
-$dbi = DBIx::Custom->connect;
-eval { $dbi->execute("drop table $table1") };
-$dbi->execute($create_table1);
-$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(column => [$key1, $key1, $key2], table => $table1);
-$result->dbi->filters({three_times => sub { $_[0] * 3}});
-$result->filter({$key1 => 'three_times'});
-$rows = $result->fetch_all;
-is_deeply($rows, [[3, 3, 2], [9, 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 'DBIx::Custom::Result fetch_multi';
-eval { $dbi->execute("drop table $table1") };
-$dbi->execute($create_table1);
-$dbi->insert({$key1 => 1, $key2 => 2}, table => $table1);
-$dbi->insert({$key1 => 3, $key2 => 4}, table => $table1);
-$dbi->insert({$key1 => 5, $key2 => 6}, table => $table1);
-$result = $dbi->select(table => $table1);
-$rows = $result->fetch_multi(2);
-is_deeply($rows, [[1, 2], [3, 4]]);
-$rows = $result->fetch_multi(2);
-is_deeply($rows, [[5, 6]]);
-$rows = $result->fetch_multi(2);
-ok(!$rows);
-
-test 'DBIx::Custom::Result fetch_hash_multi';
-eval { $dbi->execute("drop table $table1") };
-$dbi->execute($create_table1);
-$dbi->insert({$key1 => 1, $key2 => 2}, table => $table1);
-$dbi->insert({$key1 => 3, $key2 => 4}, table => $table1);
-$dbi->insert({$key1 => 5, $key2 => 6}, table => $table1);
-$result = $dbi->select(table => $table1);
-$rows = $result->fetch_hash_multi(2);
-is_deeply($rows, [{$key1 => 1, $key2 => 2}, {$key1 => 3, $key2 => 4}]);
-$rows = $result->fetch_hash_multi(2);
-is_deeply($rows, [{$key1 => 5, $key2 => 6}]);
-$rows = $result->fetch_hash_multi(2);
-ok(!$rows);
-
-test 'select() after_build_sql option';
-$dbi = DBIx::Custom->connect;
-$dbi->user_table_info($user_table_info);
-eval { $dbi->execute("drop table $table1") };
-$dbi->execute($create_table1);
-$dbi->insert({$key1 => 1, $key2 => 2}, table => $table1);
-$dbi->insert({$key1 => 2, $key2 => 3}, table => $table1);
-$rows = $dbi->select(
-    table => $table1,
-    column => $key1,
-    after_build_sql => sub {
-        my $sql = shift;
-        $sql = "select * from ( $sql ) t where $key1 = 1";
-        return $sql;
-    }
-)->all;
-is_deeply($rows, [{$key1 => 1}]);
-
-test 'select() after_build_sql option';
-$dbi = DBIx::Custom->connect;
-$dbi->user_table_info($user_table_info);
-eval { $dbi->execute("drop table $table1") };
-$dbi->execute($create_table1);
-$dbi->insert({$key1 => 1, $key2 => 2}, table => $table1);
-$dbi->insert({$key1 => 2, $key2 => 3}, table => $table1);
-$rows = $dbi->select(
-    table => $table1,
-    column => $key1,
-    after_build_sql => sub {
-        my $sql = shift;
-        $sql = "select * from ( $sql ) t where $key1 = 1";
-        return $sql;
-    }
-)->all;
-is_deeply($rows, [{$key1 => 1}]);
-
-test 'dbi helper from model';
-$dbi = MyDBI9->connect;
-eval { $dbi->execute("drop table $table1") };
-$dbi->execute($create_table1);
-$dbi->setup_model;
-$model = $dbi->model($table1);
-eval{$model->execute("select * from $table1")};
-ok(!$@);
-
-test 'column table option';
-$dbi = MyDBI9->connect;
-$dbi->user_table_info($user_table_info);
-eval { $dbi->execute("drop table $table1") };
-$dbi->execute($create_table1);
-eval { $dbi->execute("drop table $table2") };
-$dbi->execute($create_table2);
-$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 'create_model';
-$dbi = DBIx::Custom->connect;
-$dbi->user_table_info($user_table_info);
-eval { $dbi->execute("drop table $table1") };
-eval { $dbi->execute("drop table $table2") };
-$dbi->execute($create_table1);
-$dbi->execute($create_table2);
-
-$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,
-);
-$dbi->setup_model;
-$dbi->insert({$key1 => 1, $key2 => 2}, table => $table1);
-$dbi->insert({$key1 => 1, $key3 => 3}, table => $table2);
-$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 helper';
-$dbi = DBIx::Custom->connect;
-eval { $dbi->execute("drop table $table2") };
-$dbi->execute($create_table2);
-$dbi->insert({$key1 => 1, $key3 => 3}, table => $table2);
-$model = $dbi->create_model(
-    table => $table2
-);
-$model->helper(foo => sub { shift->select(@_) });
-is_deeply($model->foo->one, {$key1 => 1, $key3 => 3});
-
-test 'model helper';
-$dbi = DBIx::Custom->connect;
-eval { $dbi->execute("drop table $table2") };
-$dbi->execute($create_table2);
-$dbi->insert({$key1 => 1, $key3 => 3}, table => $table2);
-$model = $dbi->create_model(
-    table => $table2
-);
-$model->helper(foo => sub { shift->select(@_) });
-is_deeply($model->foo->one, {$key1 => 1, $key3 => 3});
-
-test 'assign_clause';
-$dbi = DBIx::Custom->connect;
-eval { $dbi->execute("drop table $table1") };
-$dbi->execute($create_table1_2);
-$dbi->insert({$key1 => 1, $key2 => 2, $key3 => 3, $key4 => 4, $key5 => 5}, table => $table1);
-$dbi->insert({$key1 => 6, $key2 => 7, $key3 => 8, $key4 => 9, $key5 => 10}, table => $table1);
-
-$param = {$key2 => 11};
-$assign_clause = $dbi->assign_clause($param);
-$sql = <<"EOS";
-update $table1 set $assign_clause
-where $key1 = 1
-EOS
-$dbi->execute($sql, $param);
-$result = $dbi->execute("select * from $table1 order by $key1", {}, 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;
-eval { $dbi->execute("drop table $table1") };
-$dbi->execute($create_table1_2);
-$dbi->insert({$key1 => 1, $key2 => 2, $key3 => 3, $key4 => 4, $key5 => 5}, table => $table1);
-$dbi->insert({$key1 => 6, $key2 => 7, $key3 => 8, $key4 => 9, $key5 => 10}, table => $table1);
-
-$param = {$key2 => 11, $key3 => 33};
-$assign_clause = $dbi->assign_clause($param);
-$sql = <<"EOS";
-update $table1 set $assign_clause
-where $key1 = 1
-EOS
-$dbi->execute($sql, $param);
-$result = $dbi->execute("select * from $table1 order by $key1", {}, 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;
-eval { $dbi->execute("drop table $table1") };
-$dbi->execute($create_table1_2);
-$dbi->insert({$key1 => 1, $key2 => 2, $key3 => 3, $key4 => 4, $key5 => 5}, table => $table1);
-$dbi->insert({$key1 => 6, $key2 => 7, $key3 => 8, $key4 => 9, $key5 => 10}, table => $table1);
-
-$param = {$key2 => 11, $key3 => 33};
-$assign_clause = $dbi->assign_clause($param);
-$sql = <<"EOS";
-update $table1 set $assign_clause
-where $key1 = 1
-EOS
-$dbi->execute($sql, $param);
-$result = $dbi->execute("select * from $table1 order by $key1", {}, 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");
-
-            
-$dbi = DBIx::Custom->connect;
-eval { $dbi->execute("drop table $table1") };
-$dbi->execute($create_table1_2);
-$dbi->insert({$key1 => 1, $key2 => 2, $key3 => 3, $key4 => 4, $key5 => 5}, table => $table1);
-$dbi->insert({$key1 => 6, $key2 => 7, $key3 => 8, $key4 => 9, $key5 => 10}, table => $table1);
-
-$param = {$key2 => 11};
-$assign_clause = $dbi->assign_clause($param);
-$sql = <<"EOS";
-update $table1 set $assign_clause
-where $key1 = 1
-EOS
-$dbi->execute($sql, $param, table => $table1);
-$result = $dbi->execute("select * from $table1 order by $key1");
-$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");
-
-$param = {$key2 => 11};
-$assign_clause = $dbi->assign_clause($param);
-$sql = <<"EOS";
-update $table1 set $assign_clause
-where $key1 = 1
-EOS
-$dbi->execute($sql, $param, table => $table1);
-$result = $dbi->execute("select * from $table1 order by $key1");
-$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 'Model class';
-$dbi = MyDBI1->connect;
-eval { $dbi->execute("drop table $table1") };
-$dbi->execute($create_table1);
-$model = $dbi->model($table1);
-$model->insert({$key1 => 'a', $key2 => 'b'});
-is_deeply($model->list->all, [{$key1 => 'a', $key2 => 'b'}], 'basic');
-eval { $dbi->execute("drop table $table2") };
-$dbi->execute($create_table2);
-$model = $dbi->model($table2);
-$model->insert({$key1 => 'a'});
-is_deeply($model->list->all, [{$key1 => 'a', $key3 => undef}], 'basic');
-is($dbi->models->{$table1}, $dbi->model($table1));
-is($dbi->models->{$table2}, $dbi->model($table2));
-
-$dbi = MyDBI4->connect;
-eval { $dbi->execute("drop table $table1") };
-$dbi->execute($create_table1);
-$model = $dbi->model($table1);
-$model->insert({$key1 => 'a', $key2 => 'b'});
-is_deeply($model->list->all, [{$key1 => 'a', $key2 => 'b'}], 'basic');
-eval { $dbi->execute("drop table $table2") };
-$dbi->execute($create_table2);
-$model = $dbi->model($table2);
-$model->insert({$key1 => 'a'});
-is_deeply($model->list->all, [{$key1 => 'a', $key3 => undef}], 'basic');
-
-$dbi = MyDBI5->connect;
-eval { $dbi->execute("drop table $table1") };
-eval { $dbi->execute("drop table $table2") };
-$dbi->execute($create_table1);
-$dbi->execute($create_table2);
-$model = $dbi->model($table2);
-$model->insert({$key1 => 'a'});
-is_deeply($model->list->all, [{$key1 => 'a', $key3 => undef}], 'include all model');
-$dbi->insert({$key1 => 1}, table => $table1);
-$model = $dbi->model($table1);
-is_deeply($model->list->all, [{$key1 => 1, $key2 => undef}], 'include all model');
-
-test 'primary_key';
-$dbi = MyDBI1->connect;
-$model = $dbi->model($table1);
-$model->primary_key([$key1, $key2]);
-is_deeply($model->primary_key, [$key1, $key2]);
-
-test 'columns';
-$dbi = MyDBI1->connect;
-$model = $dbi->model($table1);
-$model->columns([$key1, $key2]);
-is_deeply($model->columns, [$key1, $key2]);
-
-test 'setup_model';
-$dbi = MyDBI1->connect;
-$dbi->user_table_info($user_table_info);
-eval { $dbi->execute("drop table $table1") };
-eval { $dbi->execute("drop table $table2") };
-
-$dbi->execute($create_table1);
-$dbi->execute($create_table2);
-$dbi->setup_model;
-is_deeply([sort @{$dbi->model($table1)->columns}], [$key1, $key2]);
-is_deeply([sort @{$dbi->model($table2)->columns}], [$key1, $key3]);
-
-test 'each_column';
-$dbi = DBIx::Custom->connect;
-eval { $dbi->execute("drop table ${q}table$p") };
-eval { $dbi->execute("drop table $table1") };
-eval { $dbi->execute("drop table $table2") };
-eval { $dbi->execute("drop table $table3") };
-$dbi->execute($create_table1_type);
-$dbi->execute($create_table2);
-
-$infos = [];
-$dbi->each_column(sub {
-    my ($self, $table, $column, $cinfo) = @_;
-    
-    if ($table =~ /^table\d/i) {
-         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;
-eval { $dbi->execute("drop table $table1") };
-eval { $dbi->execute("drop table $table2") };
-$dbi->execute($create_table2);
-$dbi->execute($create_table1_type);
-
-$infos = [];
-$dbi->each_table(sub {
-    my ($self, $table, $table_info) = @_;
-    
-    if ($table =~ /^table\d/i) {
-         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],
-    ]
-);
-
-$dbi = DBIx::Custom->connect;
-eval { $dbi->execute("drop table $table1") };
-eval { $dbi->execute("drop table $table2") };
-$dbi->execute($create_table2);
-$dbi->execute($create_table1_type);
-
-$infos = [];
-$dbi->user_table_info($user_table_info);
-$dbi->each_table(sub {
-    my ($self, $table, $table_info) = @_;
-    
-    if ($table =~ /^table\d/i) {
-         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],
-        [$table3, $table3],
-    ]
-);
-
-test 'type_rule into';
-eval { $dbi->execute("drop table $table1") };
-$dbi->execute($create_table1_type);
-$user_column_info = $dbi->get_column_info(exclude_table => $dbi->exclude_table);
-
-
-$dbi = DBIx::Custom->connect;
-eval { $dbi->execute("drop table $table1") };
-$dbi->execute($create_table1_type);
-
-$dbi->user_column_info($user_column_info);
-$dbi->type_rule(
-    into1 => {
-        $date_typename => sub { '2010-' . $_[0] }
-    }
-);
-$dbi->insert({$key1 => '01-01'}, table => $table1);
-$result = $dbi->select(table => $table1);
-like($result->one->{$key1}, qr/^2010-01-01/);
-
-$dbi = DBIx::Custom->connect;
-eval { $dbi->execute("drop table $table1") };
-$dbi->execute($create_table1_type);
-$dbi->user_column_info($user_column_info);
-$dbi->type_rule(
-    into1 => [
-         [$date_typename, $datetime_typename] => sub {
-            my $value = shift;
-            $value =~ s/02/03/g;
-            return $value;
-         }
-    ]
-);
-$dbi->insert({$key1 => '2010-01-02', $key2 => '2010-01-01 01:01:02'}, table => $table1);
-$result = $dbi->select(table => $table1);
-$row = $result->one;
-like($row->{$key1}, qr/^2010-01-03/);
-like($row->{$key2}, qr/^2010-01-01 01:01:03/);
-
-$dbi = DBIx::Custom->connect;
-eval { $dbi->execute("drop table $table1") };
-$dbi->execute($create_table1_type);
-$dbi->insert({$key1 => '2010-01-03', $key2 => '2010-01-01 01:01:03'}, table => $table1);
-$dbi->user_column_info($user_column_info);
-$dbi->type_rule(
-    into1 => [
-        [$date_typename, $datetime_typename] => sub {
-            my $value = shift;
-            $value =~ s/02/03/g;
-            return $value;
-        }
-    ]
-);
-$result = $dbi->execute(
-    "select * from $table1 where $key1 = :$key1 and $key2 = :$table1.$key2",
-    {$key1 => '2010-01-03', "$table1.$key2" => '2010-01-01 01:01:02'}
-);
-$row = $result->one;
-like($row->{$key1}, qr/^2010-01-03/);
-like($row->{$key2}, qr/^2010-01-01 01:01:03/);
-
-$dbi = DBIx::Custom->connect;
-eval { $dbi->execute("drop table $table1") };
-$dbi->execute($create_table1_type);
-$dbi->insert({$key1 => '2010-01-03', $key2 => '2010-01-01 01:01:03'}, table => $table1);
-$dbi->user_column_info($user_column_info);
-$dbi->type_rule(
-    into1 => [
-        [$date_typename, $datetime_typename] => sub {
-            my $value = shift;
-            $value =~ s/02/03/g;
-            return $value;
-        }
-    ]
-);
-$result = $dbi->execute(
-    "select * from $table1 where $key1 = :$key1 and $key2 = :$table1.$key2",
-    {$key1 => '2010-01-02', "$table1.$key2" => '2010-01-01 01:01:02'},
-    table => $table1
-);
-$row = $result->one;
-like($row->{$key1}, qr/^2010-01-03/);
-like($row->{$key2}, qr/2010-01-01 01:01:03/);
-
-$dbi = DBIx::Custom->connect;
-eval { $dbi->execute("drop table $table1") };
-$dbi->execute($create_table1_type);
-$dbi->register_filter(convert => sub {
-    my $value = shift || '';
-    $value =~ s/02/03/;
-    return $value;
-});
-$dbi->user_column_info($user_column_info);
-$dbi->type_rule(
-    from1 => {
-        $date_datatype => 'convert',
-    },
-    into1 => {
-        $date_typename => 'convert',
-    }
-);
-$dbi->insert({$key1 => '2010-02-02'}, table => $table1);
-$result = $dbi->select(table => $table1);
-like($result->fetch->[0], qr/^2010-03-03/);
-$result = $dbi->select(column => [$key1, $key1], table => $table1);
-$row = $result->fetch;
-like($row->[0], qr/^2010-03-03/);
-like($row->[1], qr/^2010-03-03/);
-
-test 'type_rule and filter order';
-$dbi = DBIx::Custom->connect;
-eval { $dbi->execute("drop table $table1") };
-$dbi->execute($create_table1_type);
-$dbi->user_column_info($user_column_info);
-$dbi->type_rule(
-    into1 => {
-        $date_typename => sub { my $v = shift || ''; $v =~ s/4/5/; return $v }
-    },
-    into2 => {
-        $date_typename => sub { my $v = shift || ''; $v =~ s/5/6/; return $v }
-    },
-    from1 => {
-        $date_datatype => sub { my $v = shift || ''; $v =~ s/6/7/; return $v }
-    },
-    from2 => {
-        $date_datatype => sub { my $v = shift || ''; $v =~ s/7/8/; return $v }
-    }
-);
-$dbi->insert({$key1 => '2010-01-03'}, 
-  table => $table1, filter => {$key1 => sub { my $v = shift || ''; $v =~ s/3/4/; return $v }});
-$result = $dbi->select(table => $table1);
-$result->filter($key1 => sub { my $v = shift || ''; $v =~ s/8/9/; return $v });
-like($result->fetch_first->[0], qr/^2010-01-09/);
-
-
-$dbi = DBIx::Custom->connect;
-eval { $dbi->execute("drop table $table1") };
-$dbi->execute($create_table1_type);
-$dbi->user_column_info($user_column_info);
-$dbi->type_rule(
-    from1 => {
-        $date_datatype => sub { my $v = shift || ''; $v =~ s/3/4/; return $v }
-    },
-    from2 => {
-        $date_datatype => sub { my $v = shift || ''; $v =~ s/4/5/; return $v }
-    },
-);
-$dbi->insert({$key1 => '2010-01-03'}, table => $table1);
-$result = $dbi->select(table => $table1);
-$dbi->user_column_info($user_column_info);
-$result->type_rule(
-    from1 => {
-        $date_datatype => sub { my $v = shift || ''; $v =~ s/3/6/; return $v }
-    },
-    from2 => {
-        $date_datatype => sub { my $v = shift || ''; $v =~ s/6/8/; return $v }
-    }
-);
-$result->filter($key1 => sub { my $v = shift || ''; $v =~ s/8/9/; return $v });
-like($result->fetch_first->[0], qr/^2010-01-09/);
-
-test 'type_rule_off';
-$dbi = DBIx::Custom->connect;
-eval { $dbi->execute("drop table $table1") };
-$dbi->execute($create_table1_type);
-$dbi->user_column_info($user_column_info);
-$dbi->type_rule(
-    from1 => {
-        $date_datatype => sub { my $v = shift || ''; $v =~ s/3/5/; return $v }
-    },
-    into1 => {
-        $date_typename => sub { my $v = shift || ''; $v =~ s/3/4/; return $v }
-    }
-);
-$dbi->insert({$key1 => '2010-01-03'}, table => $table1, type_rule_off => 1);
-$result = $dbi->select(table => $table1, type_rule_off => 1);
-like($result->type_rule_off->fetch->[0], qr/^2010-01-03/);
-
-$dbi = DBIx::Custom->connect;
-eval { $dbi->execute("drop table $table1") };
-$dbi->execute($create_table1_type);
-$dbi->user_column_info($user_column_info);
-$dbi->type_rule(
-    from1 => {
-        $date_datatype => sub { my $v = shift || ''; $v =~ s/3/4/; return $v }
-    },
-    into1 => {
-        $date_typename => sub { my $v = shift || ''; $v =~ s/3/5/; return $v }
-    }
-);
-$dbi->insert({$key1 => '2010-01-03'}, table => $table1, type_rule_off => 1);
-$result = $dbi->select(table => $table1, type_rule_off => 1);
-like($result->one->{$key1}, qr/^2010-01-04/);
-
-$dbi = DBIx::Custom->connect;
-eval { $dbi->execute("drop table $table1") };
-$dbi->execute($create_table1_type);
-$dbi->user_column_info($user_column_info);
-$dbi->type_rule(
-    from1 => {
-        $date_datatype => sub { my $v = shift || ''; $v =~ s/4/5/; return $v }
-    },
-    into1 => {
-        $date_typename => sub { my $v = shift || ''; $v =~ s/3/4/; return $v }
-    }
-);
-$dbi->insert({$key1 => '2010-01-03'}, table => $table1);
-$result = $dbi->select(table => $table1);
-like($result->one->{$key1}, qr/^2010-01-05/);
-
-$dbi = DBIx::Custom->connect;
-eval { $dbi->execute("drop table $table1") };
-$dbi->execute($create_table1_type);
-$dbi->user_column_info($user_column_info);
-$dbi->type_rule(
-    from1 => {
-        $date_datatype => sub { my $v = shift || ''; $v =~ s/4/5/; return $v }
-    },
-    into1 => {
-        $date_typename => sub { my $v = shift || ''; $v =~ s/3/4/; return $v }
-    }
-);
-$dbi->insert({$key1 => '2010-01-03'}, table => $table1);
-$result = $dbi->select(table => $table1);
-like($result->fetch->[0], qr/2010-01-05/);
-
-$dbi = DBIx::Custom->connect;
-eval { $dbi->execute("drop table $table1") };
-$dbi->execute($create_table1_type);
-$dbi->register_filter(ppp => sub { my $v = shift || ''; $v =~ s/3/4/; return $v });
-$dbi->user_column_info($user_column_info);
-$dbi->type_rule(
-    into1 => {
-        $date_typename => 'ppp'
-    }
-);
-$dbi->insert({$key1 => '2010-01-03'}, table => $table1);
-$result = $dbi->select(table => $table1);
-like($result->one->{$key1}, qr/^2010-01-04/);
-
-eval{$dbi->type_rule(
-    into1 => {
-        $date_typename => 'pp'
-    }
-)};
-like($@, qr/not registered/);
-
-$dbi = DBIx::Custom->connect;
-eval { $dbi->execute("drop table $table1") };
-$dbi->execute($create_table1_type);
-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;
-eval { $dbi->execute("drop table $table1") };
-$dbi->execute($create_table1_type);
-$dbi->user_column_info($user_column_info);
-$dbi->type_rule(
-    from1 => {
-        $date_datatype => sub { my $v = shift || ''; $v =~ s/4/5/; return $v }
-    },
-    into1 => {
-        $date_typename => sub { my $v = shift || ''; $v =~ s/3/4/; return $v }
-    }
-);
-$dbi->insert({$key1 => '2010-01-03'}, table => $table1);
-$result = $dbi->select(table => $table1);
-$result->type_rule_off;
-like($result->one->{$key1}, qr/^2010-01-04/);
-
-$dbi = DBIx::Custom->connect;
-eval { $dbi->execute("drop table $table1") };
-$dbi->execute($create_table1_type);
-$dbi->user_column_info($user_column_info);
-$dbi->type_rule(
-    from1 => {
-        $date_datatype => sub { my $v = shift || ''; $v =~ s/3/4/; return $v },
-        $datetime_datatype => sub { my $v = shift || ''; $v =~ s/3/4/; return $v }
-    },
-);
-$dbi->insert({$key1 => '2010-01-03', $key2 => '2010-01-01 01:01:03'}, table => $table1);
-$result = $dbi->select(table => $table1);
-$result->type_rule(
-    from1 => {
-        $date_datatype => sub { my $v = shift || ''; $v =~ s/3/5/; return $v }
-    }
-);
-$row = $result->one;
-like($row->{$key1}, qr/^2010-01-05/);
-like($row->{$key2}, qr/^2010-01-01 01:01:03/);
-
-$result = $dbi->select(table => $table1);
-$result->type_rule(
-    from1 => {
-        $date_datatype => sub { my $v = shift || ''; $v =~ s/3/5/; return $v }
-    }
-);
-$row = $result->one;
-like($row->{$key1}, qr/2010-01-05/);
-like($row->{$key2}, qr/2010-01-01 01:01:03/);
-
-$result = $dbi->select(table => $table1);
-$result->type_rule(
-    from1 => {
-        $date_datatype => sub { my $v = shift || ''; $v =~ s/3/5/; return $v }
-    }
-);
-$row = $result->one;
-like($row->{$key1}, qr/2010-01-05/);
-like($row->{$key2}, qr/2010-01-01 01:01:03/);
-
-$result = $dbi->select(table => $table1);
-$result->type_rule(
-    from1 => [$date_datatype => sub { my $v = shift || ''; $v =~ s/3/5/; return $v }]
-);
-$row = $result->one;
-like($row->{$key1}, qr/2010-01-05/);
-like($row->{$key2}, qr/2010-01-01 01:01:03/);
-
-$dbi->register_filter(five => sub { my $v = shift || ''; $v =~ s/3/5/; return $v });
-$result = $dbi->select(table => $table1);
-$result->type_rule(
-    from1 => [$date_datatype => 'five']
-);
-$row = $result->one;
-like($row->{$key1}, qr/^2010-01-05/);
-like($row->{$key2}, qr/^2010-01-01 01:01:03/);
-
-$result = $dbi->select(table => $table1);
-$result->type_rule(
-    from1 => [$date_datatype => undef]
-);
-$row = $result->one;
-like($row->{$key1}, qr/^2010-01-03/);
-like($row->{$key2}, qr/^2010-01-01 01:01:03/);
-
-$dbi = DBIx::Custom->connect;
-eval { $dbi->execute("drop table $table1") };
-$dbi->execute($create_table1_type);
-$dbi->user_column_info($user_column_info);
-$dbi->type_rule(
-    from1 => {
-        $date_datatype => sub { my $v = shift || ''; $v =~ s/3/4/; return $v },
-    },
-);
-$dbi->insert({$key1 => '2010-01-03'}, table => $table1);
-$result = $dbi->select(table => $table1);
-$result->filter($key1 => sub { my $v = shift || ''; $v =~ s/4/5/; return $v });
-like($result->one->{$key1}, qr/^2010-01-05/);
-
-$dbi = DBIx::Custom->connect;
-eval { $dbi->execute("drop table $table1") };
-$dbi->execute($create_table1_type);
-$dbi->user_column_info($user_column_info);
-$dbi->type_rule(
-    from1 => {
-        $date_datatype => sub { my $v = shift || ''; $v =~ s/3/4/; return $v }
-    },
-);
-$dbi->insert({$key1 => '2010-01-03'}, table => $table1);
-$result = $dbi->select(table => $table1);
-$result->filter($key1 => sub { my $v = shift || ''; $v =~ s/4/5/; return $v });
-like($result->fetch->[0], qr/^2010-01-05/);
-
-$dbi = DBIx::Custom->connect;
-eval { $dbi->execute("drop table $table1") };
-$dbi->execute($create_table1_type);
-$dbi->user_column_info($user_column_info);
-$dbi->type_rule(
-    into1 => {
-        $date_typename => sub { my $v = shift || ''; $v =~ s/3/4/; return $v }
-    },
-    into2 => {
-        $date_typename => sub { my $v = shift || ''; $v =~ s/3/5/; return $v }
-    },
-    from1 => {
-        $date_datatype => sub { my $v = shift || ''; $v =~ s/3/6/; return $v }
-    },
-    from2 => {
-        $date_datatype => sub { my $v = shift || ''; $v =~ s/(3|6)/7/; return $v }
-    }
-);
-$dbi->insert({$key1 => '2010-01-03'}, table => $table1, type_rule_off => 1);
-$result = $dbi->select(table => $table1);
-like($result->type_rule_off->fetch_first->[0], qr/^2010-01-03/);
-$result = $dbi->select(table => $table1);
-like($result->type_rule_on->fetch_first->[0], qr/^2010-01-07/);
-
-$dbi = DBIx::Custom->connect;
-eval { $dbi->execute("drop table $table1") };
-$dbi->execute($create_table1_type);
-$dbi->user_column_info($user_column_info);
-$dbi->type_rule(
-    into1 => {
-        $date_typename => sub { my $v = shift || ''; $v =~ s/3/4/; return $v }
-    },
-    into2 => {
-        $date_typename => sub { my $v = shift || ''; $v =~ s/3/5/; return $v }
-    },
-    from1 => {
-        $date_datatype => sub { my $v = shift || ''; $v =~ s/(3|5)/6/; return $v }
-    },
-    from2 => {
-        $date_datatype => sub { my $v = shift || ''; $v =~ s/6/7/; return $v }
-    }
-);
-$dbi->insert({$key1 => '2010-01-03'}, table => $table1, type_rule1_off => 1);
-$result = $dbi->select(table => $table1);
-like($result->type_rule1_off->fetch_first->[0], qr/^2010-01-05/);
-$result = $dbi->select(table => $table1);
-like($result->type_rule1_on->fetch_first->[0], qr/^2010-01-07/);
-
-$dbi = DBIx::Custom->connect;
-eval { $dbi->execute("drop table $table1") };
-$dbi->execute($create_table1_type);
-$dbi->user_column_info($user_column_info);
-$dbi->type_rule(
-    into1 => {
-        $date_typename => sub { my $v = shift || ''; $v =~ s/3/5/; return $v }
-    },
-    into2 => {
-        $date_typename => sub { my $v = shift || ''; $v =~ s/3/4/; return $v }
-    },
-    from1 => {
-        $date_datatype => sub { my $v = shift || ''; $v =~ s/5/6/; return $v }
-    },
-    from2 => {
-        $date_datatype => sub { my $v = shift || ''; $v =~ s/(3|6)/7/; return $v }
-    }
-);
-$dbi->insert({$key1 => '2010-01-03'}, table => $table1, type_rule2_off => 1);
-$result = $dbi->select(table => $table1);
-like($result->type_rule2_off->fetch_first->[0], qr/^2010-01-06/);
-$result = $dbi->select(table => $table1);
-like($result->type_rule2_on->fetch_first->[0], qr/^2010-01-07/);
-
-test 'join';
-$dbi = DBIx::Custom->connect;
-eval { $dbi->execute("drop table $table1") };
-$dbi->execute($create_table1);
-$dbi->insert({$key1 => 1, $key2 => 2}, table => $table1);
-$dbi->insert({$key1 => 3, $key2 => 4}, table => $table1);
-eval { $dbi->execute("drop table $table2") };
-$dbi->execute($create_table2);
-$dbi->insert({$key1 => 1, $key3 => 5}, table => $table2);
-eval { $dbi->execute("drop table $table3") };
-$dbi->execute("create table $table3 ($key3 int, $key4 int)");
-$dbi->insert({$key3 => 5, $key4 => 4}, table => $table3);
-$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}]);
-
-$dbi = DBIx::Custom->connect;
-eval { $dbi->execute("drop table $table1") };
-$dbi->execute($create_table1);
-$dbi->insert({$key1 => 1, $key2 => 2}, table => $table1);
-$dbi->insert({$key1 => 3, $key2 => 4}, table => $table1);
-eval { $dbi->execute("drop table $table2") };
-$dbi->execute($create_table2);
-$dbi->insert({$key1 => 1, $key3 => 5}, table => $table2);
-eval { $dbi->execute("drop table $table3") };
-$dbi->execute("create table $table3 ($key3 int, $key4 int)");
-$dbi->insert({$key3 => 5, $key4 => 4}, table => $table3);
-$rows = $dbi->select(
-    table => $table1,
-    column => "$table1.$key1 as ${table1}_$key1, $table2.$key1 as ${table2}_$key1, $key2, $key3",
-    where   => {"$table1.$key2" => 2},
-    join  => {
-        clause => "left outer join $table2 on $table1.$key1 = $table2.$key1",
-        table => [$table1, $table2]
-    }
-)->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}]);
-
-$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;
-eval { $dbi->execute("drop table $table1") };
-$dbi->execute($create_table1);
-$dbi->insert({$key1 => 1, $key2 => 2}, table => $table1);
-eval { $dbi->execute("drop table $table2") };
-$dbi->execute($create_table2);
-$dbi->insert({$key1 => 1, $key3 => 5}, table => $table2);
-$rows = $dbi->select(
-    table => $table1,
-    column => "${q}$table1$p.${q}$key1$p as ${q}${table1}_$key1$p, ${q}$table2$p.${q}$key1$p as ${q}${table2}_$key1$p, ${q}$key2$p, ${q}$key3$p",
-    where   => {"$table1.$key2" => 2},
-    join  => ["left outer join ${q}$table2$p on ${q}$table1$p.${q}$key1$p = ${q}$table2$p.${q}$key1$p"],
-)->all;
-is_deeply($rows, [{"${table1}_$key1" => 1, "${table2}_$key1" => 1, $key2 => 2, $key3 => 5}],
-          'quote');
-
-
-$dbi = DBIx::Custom->connect;
-eval { $dbi->execute("drop table $table1") };
-$dbi->execute($create_table1);
-$dbi->insert({$key1 => 1, $key2 => 2}, table => $table1);
-$sql = <<"EOS";
-left outer join (
-  select * from $table1 t1
-  where t1.$key2 = (
-    select max(t2.$key2) from $table1 t2
-    where t1.$key1 = t2.$key1
-  )
-) $table3 on $table1.$key1 = $table3.$key1
-EOS
-$join = [$sql];
-$rows = $dbi->select(
-    table => $table1,
-    column => "$table3.$key1 as ${table3}__$key1",
-    join  => $join
-)->all;
-is_deeply($rows, [{"${table3}__$key1" => 1}]);
-
-$dbi = DBIx::Custom->connect;
-eval { $dbi->execute("drop table $table1") };
-eval { $dbi->execute("drop table $table2") };
-$dbi->execute($create_table1);
-$dbi->execute($create_table2);
-$dbi->insert({$key1 => 1, $key2 => 2}, table => $table1);
-$dbi->insert({$key1 => 1, $key3 => 4}, table => $table2);
-$dbi->insert({$key1 => 1, $key3 => 5}, table => $table2);
-$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;
-eval { $dbi->execute("drop table $table1") };
-eval { $dbi->execute("drop table $table2") };
-$dbi->execute($create_table1);
-$dbi->execute($create_table2);
-$dbi->insert({$key1 => 1, $key2 => 2}, table => $table1);
-$dbi->insert({$key1 => 1, $key3 => 4}, table => $table2);
-$dbi->insert({$key1 => 1, $key3 => 5}, table => $table2);
-$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}]);
-
-$dbi = DBIx::Custom->connect;
-eval { $dbi->execute("drop table $table1") };
-eval { $dbi->execute("drop table $table2") };
-$dbi->execute($create_table1);
-$dbi->execute($create_table2);
-$dbi->insert({$key1 => 1, $key2 => 2}, table => $table1);
-$dbi->insert({$key1 => 1, $key3 => 4}, table => $table2);
-$dbi->insert({$key1 => 1, $key3 => 1}, table => $table2);
-$result = $dbi->select(
-    table => $table1,
-    column => [{$table2 => [$key3]}],
-    join => [
-        "left outer join $table2 on $table1.$key1 = $table2.$key1 and $table2.$key3 > '3'"
-    ]
-);
-is_deeply($result->all, [{"$table2.$key3" => 4}]);
-
-$dbi = DBIx::Custom->connect;
-eval { $dbi->execute("drop table $table1") };
-eval { $dbi->execute("drop table $table2") };
-$dbi->execute($create_table1);
-$dbi->execute($create_table2);
-$dbi->insert({$key1 => 1, $key2 => 2}, table => $table1);
-$dbi->insert({$key1 => 1, $key3 => 4}, table => $table2);
-$dbi->insert({$key1 => 1, $key3 => 1}, table => $table2);
-$result = $dbi->select(
-    table => $table1,
-    column => [{$table2 => [$key3]}],
-    join => [
-        "left outer join $table2 on $table2.$key3 > '3' and $table1.$key1 = $table2.$key1"
-    ]
-);
-is_deeply($result->all, [{"$table2.$key3" => 4}]);
-
-test 'columns';
-$dbi = MyDBI1->connect;
-$model = $dbi->model($table1);
-
-test 'count';
-$dbi = DBIx::Custom->connect;
-eval { $dbi->execute("drop table $table1") };
-$dbi->execute($create_table1);
-$dbi->insert({$key1 => 1, $key2 => 2}, table => $table1);
-$dbi->insert({$key1 => 1, $key2 => 3}, table => $table1);
-is($dbi->count(table => $table1), 2);
-is($dbi->count(table => $table1, where => {$key2 => 2}), 1);
-$model = $dbi->create_model(table => $table1);
-is($model->count, 2);
-
-1;

-19

t/next/common/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 => [
-            $self->table1,
-            $self->table2
-        ]
-    );
-}
-
-1;

-13

t/next/common/MyModel1/table1.pm

View

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

-17

t/next/common/MyModel1/table2.pm

View

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

-5

t/next/common/MyModel4.pm

View

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

-9

t/next/common/MyModel4/table1.pm

View

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

-8

t/next/common/MyModel4/table2.pm

View

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

-5

t/next/common/MyModel5.pm

View

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

-7

t/next/common/MyModel5/table1.pm

View

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

-12

t/next/common/MyModel5/table2.pm

View

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

-12

t/next/common/MyModel5/table3.pm

View

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

-5

t/next/common/MyModel6.pm

View

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

-14

t/next/common/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

t/next/common/MyModel6/table2.pm

View

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

-11

t/next/common/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

t/next/common/MyModel7.pm

View

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

-14

t/next/common/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

t/next/common/MyModel7/table2.pm

View

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

-4

t/next/common/MyModel8.pm

View

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

-7

t/next/common/MyModel8/table1.pm

View

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

-10

t/next/common/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;

-19

t/next/common_uc/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 => [
-            $self->table1,
-            $self->table2
-        ]
-    );
-}
-
-1;

-13

t/next/common_uc/MyModel1/TABLE1.pm

View

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

-17

t/next/common_uc/MyModel1/TABLE2.pm

View

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

-5

t/next/common_uc/MyModel4.pm

View

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

-9

t/next/common_uc/MyModel4/TABLE1.pm

View

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

-8

t/next/common_uc/MyModel4/TABLE2.pm

View

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

-5

t/next/common_uc/MyModel5.pm

View

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

-7

t/next/common_uc/MyModel5/TABLE1.pm

View

@@ -1,7 +0,0 @@
-package MyModel5::TABLE1;
-
-use MyModel5 -base;
-
-has primary_key => sub { ['KEY1', 'KEY2'] };
-
-1;

-12

t/next/common_uc/MyModel5/TABLE2.pm

View

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

-12

t/next/common_uc/MyModel5/TABLE3.pm

View

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

-5

t/next/common_uc/MyModel6.pm

View

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

-14

t/next/common_uc/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

t/next/common_uc/MyModel6/TABLE2.pm

View

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

-11

t/next/common_uc/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

t/next/common_uc/MyModel7.pm

View

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

-14

t/next/common_uc/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

t/next/common_uc/MyModel7/TABLE2.pm

View

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

-4

t/next/common_uc/MyModel8.pm

View

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

-7

t/next/common_uc/MyModel8/TABLE1.pm

View

@@ -1,7 +0,0 @@
-package MyModel8::TABLE1;
-use MyModel8 -base;
-
-has join => sub { ['left join TABLE2 TABLE2_ALIAS on TABLE1.KEY1 = TABLE2_ALIAS.KEY1'] };
-
-
-1;

-10

t/next/common_uc/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;

-48

t/next/create_uppercase_module.pl

View

@@ -1,48 +0,0 @@
-use strict;
-use warnings;
-
-use FindBin;
-use File::Basename qw/basename fileparse/;
-use File::Copy 'copy';
-
-my $top = $FindBin::Bin;
-my $common = "$top/common";
-my $common_uc = "$top/common_uc";
-mkdir $common_uc unless -d $common_uc;
-
-my @modules = grep { -f $_ } glob("$common/*");
-for my $module (@modules) {
-    my $module_base = basename $module;
-    copy $module, "$common_uc/$module_base"
-      or die "Can't move module file: $!";
-}
-
-my @dirs = grep { -d $_ } glob("$FindBin::Bin/common/*");
-for my $dir (@dirs) {
-    my $base_dir = basename $dir;
-    my $model_dir_uc = "$common_uc/$base_dir";
-    mkdir $model_dir_uc unless -d $model_dir_uc;
-    
-    my @files = grep { /table\d\.pm/ } glob("$dir/*");
-    for my $file (@files) {
-    
-      my $content = do {
-        open my $fh, '<', $file;
-        local $/;
-        <$fh>;
-      };
-      
-      $content =~ s/table(\d)/TABLE$1/g;
-      $content =~ s/TABLE2_alias/TABLE2_ALIAS/g;
-      $content =~ s/key(\d)/KEY$1/g;
-      
-      my $base_name = (fileparse($file, qr/\..+$/))[0];
-      $base_name = uc $base_name;
-      my $new_file = "$common_uc/$base_dir/$base_name.pm";
-      
-      open my $fh, '>', $new_file
-        or die "Can't write file: $!";
-      
-      print $fh $content;
-    }
-}

-225

t/next/mysql.t

View

@@ -1,225 +0,0 @@
-use Test::More;
-use strict;
-use warnings;
-use utf8;
-
-use FindBin;
-use DBIx::Custom;
-
-my $dbi;
-my $dsn;
-my $args;
-my $user = 'dbix_custom';
-my $password = 'dbix_custom';
-my $database = 'dbix_custom';
-
-$dsn = "dbi:mysql:database=$database";
-$args = {dsn => $dsn, user => $user, password => $password,};
-
-plan skip_all => 'mysql private test' unless -f "$FindBin::Bin/run/mysql2.run"
-  && eval { $dbi = DBIx::Custom->connect($args); 1 };
-plan 'no_plan';
-
-$SIG{__WARN__} = sub { warn $_[0] unless $_[0] =~ /DEPRECATED/};
-
-require DBIx::Connector;
-
-# Function for test name
-sub test { print "# $_[0]\n" }
-
-# Varialbes for tests
-my $dbname;
-my $row;
-my $rows;
-my $result;
-my $model;
-
-test 'connect';
-eval {
-    $dbi = DBIx::Custom->connect(
-        dsn => "dbi:mysql:database=$database;host=localhost;port=10000",
-        user => $user,
-        password => $password
-    );
-};
-ok(!$@);
-
-eval { $dbi->do('drop table table1') };
-$dbi->do('create table table1 (key1 varchar(255), key2 varchar(255)) engine=InnoDB');
-
-test 'update_or_insert';
-$dbi->delete_all(table => 'table1');
-$dbi->update_or_insert(
-    {key2 => 2},
-    table => 'table1',
-    id => 1,
-    primary_key => 'key1',
-    option => {
-        select => {append => 'for update'},
-        insert => {append => '    #'},
-        update => {append => '     #'}
-    }
-);
-
-$row = $dbi->select(id => 1, table => 'table1', primary_key => 'key1')->one;
-is_deeply($row, {key1 => 1, key2 => 2}, "basic");
-
-$dbi->update_or_insert(
-    {key2 => 3},
-    table => 'table1',
-    id => 1,
-    primary_key => 'key1',
-    option => {
-        select => {append => 'for update'},
-        insert => {append => '    #'},
-        update => {append => '     #'}
-    }
-);
-
-$row = $dbi->select(id => 1, table => 'table1', primary_key => 'key1')->one;
-is_deeply($row, {key1 => 1, key2 => 3}, "basic");
-
-$dbi->delete_all(table => 'table1');
-$model = $dbi->create_model(
-    table => 'table1',
-    primary_key => 'key1',
-);
-$model->update_or_insert(
-    {key2 => 2},
-    id => 1,
-    option => {
-        select => {append => 'for update'},
-        insert => {append => '    #'},
-        update => {append => '     #'}
-    }
-);
-$row = $dbi->select(id => 1, table => 'table1', primary_key => 'key1')->one;
-is_deeply($row, {key1 => 1, key2 => 2}, "basic");
-$model->update_or_insert(
-    {key2 => 3},
-    id => 1,
-    option => {
-        select => {append => 'for update'},
-        insert => {append => '    #'},
-        update => {append => '     #'}
-    }
-);
-$row = $dbi->select(id => 1, table => 'table1', primary_key => 'key1')->one;
-is_deeply($row, {key1 => 1, key2 => 3}, "basic");
-
-# Test memory leaks
-for (1 .. 300) {
-    $dbi = DBIx::Custom->connect(
-        dsn => "dbi:mysql:database=$database;host=localhost;port=10000",
-        user => $user,
-        password => $password
-    );
-    $dbi->create_model(table => 'table1');
-    $dbi->create_model(table => 'table2');
-}
-
-test 'dbh';
-{
-    my $connector = DBIx::Connector->new(
-        "dbi:mysql:database=$database",
-        $user,
-        $password,
-        DBIx::Custom->new->default_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_option
-    );
-
-    my $dbi = DBIx::Custom->connect(connector => $connector);
-    $dbi->delete_all(table => 'table1');
-    
-    $dbi->connector->txn(sub {
-        $dbi->insert({key1 => 1, key2 => 2}, table => 'table1');
-        $dbi->insert({key1 => 3, key2 => 4}, table => 'table1');
-    });
-    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({key1 => 1, key2 => 2}, table => 'table1');
-            die "Error";
-            $dbi->insert({key1 => 3, key2 => 4}, table => 'table1');
-        });
-    };
-    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",
-        option => {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_option
-    );
-    
-    my $dbi = DBIx::Custom->new(connector => $connector);
-    $dbi->delete_all(table => 'table1');
-    $dbi->insert({key1 => 1, key2 => 2}, table => 'table1');
-    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;
-    }
-}
-

-65

t/next/mysql2.t

View

@@ -1,65 +0,0 @@
-use Test::More;
-use strict;
-use warnings;
-use utf8;
-
-use FindBin;
-use DBIx::Custom;
-
-my $dbi;
-my $dsn;
-my $args;
-my $user = 'dbix_custom';
-my $password = 'dbix_custom';
-my $database = 'dbix_custom';
-
-$dsn = "dbi:mysql:database=$database";
-$args = {dsn => $dsn, user => $user, password => $password,};
-
-plan skip_all => 'mysql private test' unless -f "$FindBin::Bin/run/mysql2.run"
-  && eval { $dbi = DBIx::Custom->connect($args); 1 };
-plan 'no_plan';
-
-$SIG{__WARN__} = sub { warn $_[0] unless $_[0] =~ /DEPRECATED/};
-
-
-require DBIx::Connector;
-
-# Function for test name
-sub test { print "# $_[0]\n" }
-
-# Varialbes for tests
-my $dbname;
-my $rows;
-my $result;
-
-$dbi = DBIx::Custom->connect(
-    dsn => "dbi:mysql:database=$database",
-    user => $user,
-    password => $password
-);
-eval { $dbi->execute('drop table table1') };
-$dbi->execute('create table table1 (key1 varchar(255), key2 varchar(255))');
-
-test 'connector => 1';
-{
-    my $dbi = DBIx::Custom->connect(dsn => $dsn, user => $user, password => $password,
-      option => {PrintError => 1}, connector => 1);
-    is(ref $dbi->connector, 'DBIx::Connector');
-    ok($dbi->dbh->{PrintError});
-    $dbi->delete_all(table => 'table1');
-    $dbi->insert({key1 => 1, key2 => 2}, table => 'table1');
-    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;
-    }
-}
-

-11

t/next/sqlite-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/sqlite.t";

-328

t/next/sqlite.t

View

@@ -1,328 +0,0 @@
-use Test::More;
-use strict;
-use warnings;
-use utf8;
-use Encode qw/encode_utf8 decode_utf8/;
-use FindBin;
-use lib "$FindBin::Bin/common";
-
-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" }
-
-use DBIx::Custom;
-{
-    package DBIx::Custom;
-    has dsn => sub { 'dbi:SQLite:dbname=:memory:' }
-}
-
-# Constant
-my $create_table1 = 'create table table1 (key1 varchar, key2 varchar);';
-my $create_table_quote = 'create table "table" ("select" varchar, "update" varchar)';
-my $q = '"';
-my $p = '"';
-
-# Variables
-my $dbi;
-my $result;
-my $row;
-my $rows;
-my $binary;
-my $model;
-
-# Prepare table
-$dbi = DBIx::Custom->connect;
-
-
-### SQLite only test
-test 'option default';
-$dbi = DBIx::Custom->new;
-is_deeply($dbi->option, {});
-
-
-test 'prefix';
-$dbi = DBIx::Custom->connect;
-eval { $dbi->execute('drop table table1') };
-$dbi->execute('create table table1 (key1 varchar, key2 varchar, primary key(key1));');
-$dbi->insert({key1 => 1, key2 => 2}, table => 'table1');
-$dbi->insert({key1 => 1, key2 => 4}, table => 'table1', prefix => 'or replace');
-$result = $dbi->execute('select * from table1;');
-$rows   = $result->all;
-is_deeply($rows, [{key1 => 1, key2 => 4}], "basic");
-
-
-test 'insert created_at and updated_at scalar reference';
-$dbi = DBIx::Custom->connect;
-eval { $dbi->execute('drop table table1') };
-$dbi->execute('create table table1 (key1, key2, key3)');
-$dbi->now(\"datetime('now')");
-$dbi->insert({key1 => \"datetime('now')"}, created_at => 'key2', updated_at => 'key3', table => 'table1');
-$result = $dbi->select(table => 'table1');
-$row   = $result->one;
-is($row->{key1}, $row->{key2});
-is($row->{key1}, $row->{key3});
-
-$dbi = DBIx::Custom->connect;
-eval { $dbi->execute('drop table table1') };
-$dbi->execute('create table table1 (key1, key2, key3)');
-$dbi->now(\"datetime('now')");
-$model = $dbi->create_model(created_at => 'key2', updated_at => 'key3', table => 'table1');
-$model->insert({key1 => \"datetime('now')"});
-$result = $dbi->select(table => 'table1');
-$row = $result->one;
-is($row->{key1}, $row->{key2});
-is($row->{key1}, $row->{key3});
-
-test 'insert created_at and updated_at scalar reference';
-$dbi = DBIx::Custom->connect;
-eval { $dbi->execute('drop table table1') };
-$dbi->execute('create table table1 (key1, key2, key3)');
-$dbi->now(\"datetime('now')");
-$dbi->insert({key1 => \"datetime('now')"}, created_at => 'key2', updated_at => 'key3', table => 'table1');
-$result = $dbi->select(table => 'table1');
-$row   = $result->one;
-is($row->{key1}, $row->{key2});
-is($row->{key1}, $row->{key3});
-
-test 'update updated_at scalar reference';
-$dbi = DBIx::Custom->connect;
-eval { $dbi->execute('drop table table1') };
-$dbi->execute('create table table1 (key1, key2)');
-$dbi->now(\"datetime('now')");
-$dbi->insert({key1 => \"datetime('now')"}, updated_at => 'key2', table => 'table1');
-$result = $dbi->select(table => 'table1');
-$row   = $result->one;
-is($row->{key1}, $row->{key2});
-
-test 'update_or_insert created_at and updated_at';
-eval { $dbi->execute('drop table table1') };
-$dbi->execute('create table table1 (key1, key2, key3, key4)');
-$dbi->now(\"datetime('now')");
-$model = $dbi->create_model(created_at => 'key2', updated_at => 'key3', table => 'table1',
-primary_key => 'key4');
-$model->update_or_insert({key1 => \"datetime('now')"}, id => 1);
-$result = $model->select(table => 'table1', id => 1);
-$row = $result->one;
-is($row->{key1}, $row->{key2});
-is($row->{key1}, $row->{key3});
-
-$dbi = DBIx::Custom->connect;
-eval { $dbi->execute('drop table table1') };
-$dbi->execute('create table table1 (key1, key2)');
-$dbi->now(\"datetime('now')");
-$model = $dbi->create_model(updated_at => 'key2', table => 'table1');
-$model->insert({key1 => \"datetime('now')"});
-$result = $dbi->select(table => 'table1');
-$row   = $result->one;
-is($row->{key1}, $row->{key2});
-
-test 'DBIX_CUSTOM_DEBUG ok';
-{
-    local $ENV{DBIX_CUSTOM_DEBUG} = 1;
-    $dbi = DBIx::Custom->connect;
-    eval { $dbi->execute('drop table table1') };
-    my $error;
-    local $SIG{__WARN__} = sub {
-        $error = shift;
-    };
-    $dbi->execute('create table table1 (key1 varchar, key2 varchar, primary key(key1));');
-    ok($error);
-}
-
-test 'quote';
-$dbi = DBIx::Custom->connect;
-$dbi->quote('"');
-eval { $dbi->execute("drop table ${q}table$p") };
-$dbi->execute($create_table_quote);
-$dbi->insert({select => 1}, table => 'table');
-$dbi->delete(table => 'table', where => {select => 1});
-$result = $dbi->execute("select * from ${q}table$p");
-$rows   = $result->all;
-is_deeply($rows, [], "quote");
-
-test 'finish statement handle';
-$dbi = DBIx::Custom->connect;
-$dbi->execute($create_table1);
-$dbi->insert({key1 => 1, key2 => 2}, table => 'table1');
-$dbi->insert({key1 => 3, key2 => 4}, table => 'table1');
-
-$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;
-eval { $dbi->execute('drop table table1') };
-$dbi->execute($create_table1);
-$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");
-
-test 'bind_type option';
-$binary = pack("I3", 1, 2, 3);
-$dbi = DBIx::Custom->connect(option => {sqlite_unicode => 1});
-$dbi->execute('create table table1(key1, key2)');
-$dbi->insert({key1 => $binary, key2 => 'あ'}, table => 'table1', 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 'type_rule from';
-$dbi = DBIx::Custom->connect;
-$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 'select limit';
-eval { $dbi->execute('drop table table1') };
-$dbi->execute($create_table1);
-$dbi->insert({key1 => 1, key2 => 2}, table => 'table1');
-$dbi->insert({key1 => 3, key2 => 4}, table => 'table1');
-$rows = $dbi->select(table => 'table1', append => "order by key1 desc limit 1")->all;
-is_deeply($rows, [{key1 => 3, key2 => 4}], "append statement");
-
-
-
-# DEPRECATED! test
-test 'filter __ expression';
-$dbi = DBIx::Custom->connect;
-eval { $dbi->execute('drop table table2') };
-eval { $dbi->execute('drop table table3') };
-$dbi->execute('create table table2 (id, name, table3_id)');
-$dbi->execute('create table table3 (id, name)');
-
-$dbi->insert({id => 1, name => 'a', table3_id => 2}, table => 'table2');
-$dbi->insert({id => 2, name => 'b'}, table => 'table3');
-
-$result = $dbi->select(
-    table => 'table2',
-    join => "inner join table3 on table2.table3_id = table3.id",
-    column => ['table3.name as table3__name']
-);
-is($result->fetch_first->[0], 'b');
-
-$result = $dbi->select(
-    table => 'table2',
-    join => "inner join table3 on table2.table3_id = table3.id",
-    column => ['table3.name as table3__name']
-);
-is($result->fetch_first->[0], 'b');
-
-$result = $dbi->select(
-    table => 'table2',
-    join => "inner join table3 on table2.table3_id = table3.id",
-    column => ['table3.name as "table3.name"']
-);
-is($result->fetch_first->[0], 'b');
-
-test 'quote';
-$dbi = DBIx::Custom->connect;
-eval { $dbi->execute("drop table ${q}table$p") };
-$dbi->quote('"');
-$dbi->execute($create_table_quote);
-$dbi->insert({select => 1}, table => 'table');
-$dbi->update({update => 2}, table => 'table', where => {'table.select' => 1});
-$result = $dbi->execute("select * from ${q}table$p");
-$rows   = $result->all;
-is_deeply($rows, [{select => 1, update => 2}]);
-
-test 'join function';
-$dbi = DBIx::Custom->connect;
-eval { $dbi->execute("drop table table1") };
-eval { $dbi->execute("drop table table2") };
-$dbi->execute($create_table1);
-$dbi->execute("create table table2 (key1, key3)");
-$dbi->insert({key1 => 1, key2 => 2}, table => 'table1');
-$dbi->insert({key1 => 1, key3 => 4}, table => 'table2');
-$dbi->insert({key1 => 1, key3 => 1}, table => 'table2');
-$result = $dbi->select(
-    table => 'table1',
-    column => [{table2 => ['key3']}],
-    join => [
-        "left outer join table2 on coalesce(table1.key1, 0) = coalesce(table2.key1, 0) and table2.key3 > '3'"
-    ]
-);
-is_deeply($result->all, [{"table2.key3" => 4}]);
-
-$dbi = DBIx::Custom->connect;
-eval { $dbi->execute("drop table table1") };
-eval { $dbi->execute("drop table table2") };
-$dbi->execute($create_table1);
-$dbi->execute("create table table2 (key1, key3)");
-$dbi->insert({key1 => 1, key2 => 2}, table => 'table1');
-$dbi->insert({key1 => 1, key3 => 4}, table => 'table2');
-$dbi->insert({key1 => 1, key3 => 1}, table => 'table2');
-$result = $dbi->select(
-    table => 'table1',
-    column => [{table2 => ['key3']}],
-    join => [
-        "left outer join table2 on table2.key3 > '3' and coalesce(table1.key1, 0) = coalesce(table2.key1, 0)"
-    ]
-);
-is_deeply($result->all, [{"table2.key3" => 4}]);

...	...	@@ -1237,13 +1237,7 @@ sub _create_query {
1237	1237	# Create query
1238	1238	my $builder = $self->query_builder;
1239	1239	$query = $builder->build_query($source);
1240		-
1241		- # Remove reserved word quote
1242		- if (my $q = $self->_quote) {
1243		- $q = quotemeta($q);
1244		- $_ =~ s/[$q]//g for @{$query->{columns}}
1245		- }
1246		-
	1240	+
1247	1241	# Save query to cache
1248	1242	$self->cache_method->(
1249	1243	$self, $source,

...	...	@@ -1,249 +0,0 @@
1		-package DBIx::Custom::Next::Mapper;
2		-use Object::Simple -base;
3		-
4		-use DBIx::Custom::Next::NotExists;
5		-
6		-use Carp 'croak';
7		-use DBIx::Custom::Next::Util '_subname';
8		-
9		-# Carp trust relationship
10		-push @DBIx::Custom::Next::CARP_NOT, __PACKAGE__;
11		-
12		-has [qw/param/],
13		- condition => sub {
14		- sub { defined $_[0] && length $_[0] }
15		- },
16		- pass => sub { [] };
17		-
18		-sub map {
19		- my ($self, %rule) = @_;
20		- my $param = $self->param;
21		- $rule{$_} = {key => $_} for @{$self->pass};
22		-
23		- # Mapping
24		- my $new_param = {};
25		- for my $key (keys %rule) {
26		-
27		- my $mapping = $rule{$key};
28		-
29		- # Get mapping information
30		- my $new_key;
31		- my $value;
32		- my $condition;
33		-
34		- if (ref $mapping eq 'ARRAY') {
35		- $new_key = $mapping->[0];
36		- $value = $mapping->[1];
37		- $condition = ref $mapping->[2] eq 'HASH' ? $mapping->[2]->{condition} : $mapping->[2];
38		- }
39		- elsif (ref $mapping eq 'HASH') {
40		- $new_key = $mapping->{key};
41		- $value = $mapping->{value};
42		- $condition = $mapping->{condition};
43		- }
44		-
45		- $new_key = $key unless defined $new_key;
46		- $condition \|\|= $self->condition;
47		- $condition = $self->_condition_to_sub($condition);
48		-
49		- # Map parameter
50		- if (ref $condition eq 'CODE') {
51		- if (ref $param->{$key} eq 'ARRAY') {
52		- $new_param->{$new_key} = [];
53		- for (my $i = 0; $i < @{$param->{$key}}; $i++) {
54		- $new_param->{$new_key}->[$i]
55		- = $condition->($param->{$key}->[$i]) ? $param->{$key}->[$i]
56		- : DBIx::Custom::Next::NotExists->singleton;
57		- }
58		- }
59		- else {
60		- if ($condition->($param->{$key})) {
61		- $new_param->{$new_key} = defined $value
62		- ? $value->($param->{$key})
63		- : $param->{$key};
64		- }
65		- }
66		- }
67		- elsif ($condition eq 'exists') {
68		- if (ref $param->{$key} eq 'ARRAY') {
69		- $new_param->{$new_key} = [];
70		- for (my $i = 0; $i < @{$param->{$key}}; $i++) {
71		- $new_param->{$new_key}->[$i]
72		- = exists $param->{$key}->[$i] ? $param->{$key}->[$i]
73		- : DBIx::Custom::Next::NotExists->singleton;
74		- }
75		- }
76		- else {
77		- if (exists $param->{$key}) {
78		- $new_param->{$new_key} = defined $value
79		- ? $value->($param->{$key})
80		- : $param->{$key};
81		- }
82		- }
83		- }
84		- else { croak qq/Condition must be code reference or "exists" / . _subname }
85		- }
86		-
87		- return $new_param;
88		-}
89		-
90		-sub new {
91		- my $self = shift->SUPER::new(@_);
92		-
93		- # Check attribute names
94		- my @attrs = keys %$self;
95		- for my $attr (@attrs) {
96		- croak qq{"$attr" is invalid attribute name (} . _subname . ")"
97		- unless $self->can($attr);
98		- }
99		-
100		- return $self;
101		-}
102		-
103		-
104		-sub _condition_to_sub {
105		- my ($self, $if) = @_;
106		- $if = $if eq 'exists' ? $if
107		- : $if eq 'defined' ? sub { defined $_[0] }
108		- : $if eq 'length' ? sub { defined $_[0] && length $_[0] }
109		- : ref $if eq 'CODE' ? $if
110		- : undef;
111		-
112		- croak "You can must specify right value to C<condition> " . _subname
113		- unless $if;
114		-
115		- return $if;
116		-}
117		-
118		-1;
119		-
120		-=head1 NAME
121		-
122		-DBIx::Custom::Next::Mapper - Mapper of parameter
123		-
124		-=head1 SYNOPSYS
125		-
126		- my $mapper = $dbi->mapper(param => $param);
127		- my $new_param = $mapper->map(
128		- title => 'book.title', # Key
129		- author => sub { '%' . $_[0] . '%'} # Value
130		- price => ['book.price' => sub { '%' . $_[0] . '%' }], # Key and value
131		- );
132		-
133		-=head1 ATTRIBUTES
134		-
135		-=head2 C<param>
136		-
137		- my $param = $mapper->param;
138		- $mapper = $mapper->param({title => 'Perl', author => 'Ken'});
139		-
140		-Parameter.
141		-
142		-=head2 C<pass>
143		-
144		- my $pass = $mapper->pass;
145		- $mapper = $mapper->pass([qw/title author/]);
146		-
147		-the key and value is copied without change when C<map> method is executed.
148		-
149		-=head2 C<condition>
150		-
151		- my $condition = $mapper->condition;
152		- $mapper = $mapper->condition('exists');
153		-
154		-Mapping condtion, default to C<length>.
155		-
156		-You can set the following values to C<condition>.
157		-
158		-=over 4
159		-
160		-=item * C<exists>
161		-
162		- condition => 'exists'
163		-
164		-If key exists, key and value is mapped.
165		-
166		-=item * C<defined>
167		-
168		- condition => 'defined';
169		-
170		-If value is defined, key and value is mapped.
171		-
172		-=item * C<length>
173		-
174		- condition => 'length';
175		-
176		-If value is defined and has length, key and value is mapped.
177		-
178		-=item * C<code reference>
179		-
180		- condition => sub { defined $_[0] }
181		-
182		-You can set code reference to C<condtion>.
183		-The subroutine return true, key and value is mapped.
184		-
185		-=head1 METHODS
186		-
187		-L<DBIx::Custom::Next::Mapper> inherits all methods from L<Object::Simple>
188		-and implements the following new ones.
189		-
190		-=head2 C<map>
191		-
192		- my $new_param = $mapper->map(
193		- price => {key => 'book.price'}
194		- title => {value => sub { '%' . $_[0] . '%'}}
195		- author => ['book.author' => sub { '%' . $_[0] . '%'}] # Key and value
196		- );
197		-
198		-Map C<param> into new parameter.
199		-
200		-For example, if C<param> is set to
201		-
202		- {
203		- price => 1900,
204		- title => 'Perl',
205		- author => 'Ken',
206		- issue_date => '2010-11-11'
207		- }
208		-
209		-The following hash reference is returned.
210		-
211		- {
212		- 'book.price' => 1900,
213		- title => '%Perl%',
214		- 'book.author' => '%Ken%',
215		- }
216		-
217		-By default, If the value has length, key and value is mapped.
218		-
219		- title => 'Perl' # Mapped
220		- {title => '' } # Not mapped
221		- {title => undef} # Not mapped
222		- {} # Not mapped
223		-
224		-You can set change mapping condition by C<condition> attribute.
225		-
226		- $mapper->condition('defined');
227		-
228		-Or you can set C<condtion> option for each key.
229		-
230		- my $new_param = $mapper->map(
231		- price => {key => 'book.price', condition => 'defined'}]
232		- title => {value => sub { '%' . $_[0] . '%'}, condition => 'defined'}
233		- author => ['book.author', sub { '%' . $_[0] . '%'}, 'exists']
234		- );
235		-
236		-If C<pass> attrivute is set, the keys and value is copied without change.
237		-
238		- $mapper->pass([qw/title author/]);
239		- my $new_param = $mapper->map(price => {key => 'book.price'});
240		-
241		-The following hash reference
242		-
243		- {title => 'Perl', author => 'Ken', price => 1900}
244		-
245		-is mapped to
246		-
247		- {title => 'Perl', author => 'Ken', 'book.price' => 1900}
248		-
249		-=cut

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

...	...	@@ -1,26 +0,0 @@
1		-package DBIx::Custom::Next::NotExists;
2		-
3		-use strict;
4		-use warnings;
5		-
6		-my $not_exists = bless {}, 'DBIx::Custom::Next::NotExists';
7		-
8		-sub singleton { $not_exists }
9		-
10		-=head1 NAME
11		-
12		-DBIx::Custom::Next::NotExists
13		-
14		-=head1 SYNOPSYS
15		-
16		- $not_exists = DBIx::Custom::Next::NotExists->singleton;
17		-
18		-=head1 METHODS
19		-
20		-=head2 C<singleton>
21		-
22		- $not_exists = DBIx::Custom::Next::NotExists->singleton;
23		-
24		-L<DBIx::Custom::Next::NotExists> singleton object.
25		-
26		-=cut

...	...	@@ -1,89 +0,0 @@
1		-package DBIx::Custom::Next::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		- for my $order (reverse @_) {
15		- unshift @{$self->orders}, $order;
16		- }
17		-
18		- return $self;
19		-}
20		-
21		-sub to_string {
22		- my $self = shift;
23		-
24		- my $exists = {};
25		- my @orders;
26		- for my $order (@{$self->orders}) {
27		- next unless defined $order;
28		- $order =~ s/^\s+//;
29		- $order =~ s/\s+$//;
30		- my ($column, $direction) = split /\s+/, $order;
31		- push @orders, $order unless $exists->{$column};
32		- $exists->{$column} = 1;
33		- }
34		-
35		- return '' unless @orders;
36		- return 'order by ' . join(', ', @orders);
37		-}
38		-
39		-1;
40		-
41		-=head1 NAME
42		-
43		-DBIx::Custom::Next::Order - Order by
44		-
45		-=head1 SYNOPSIS
46		-
47		- # Result
48		- my $order = DBIx::Custom::Next::Order->new;
49		- $order->prepend('title', 'author desc');
50		- my $order_by = "$order";
51		-
52		-=head1 ATTRIBUTES
53		-
54		-=head2 C<dbi>
55		-
56		- my $dbi = $order->dbi;
57		- $order = $order->dbi($dbi);
58		-
59		-L<DBIx::Custom::Next> object.
60		-
61		-=head2 C<orders>
62		-
63		- my $orders = $result->orders;
64		- $result = $result->orders(\%orders);
65		-
66		-Parts of order by clause
67		-
68		-=head1 METHODS
69		-
70		-L<DBIx::Custom::Next::Result> inherits all methods from L<Object::Simple>
71		-and implements the following new ones.
72		-
73		-=head2 C<prepend>
74		-
75		- $order->prepend('title', 'author desc');
76		-
77		-Prepend order parts to C<orders>.
78		-
79		-=head2 C<to_string>
80		-
81		- my $order_by = $order->to_string;
82		-
83		-Create order by clause. If column name is duplicated, First one is used.
84		-C<to_string> override stringification. so you can write the follwoing way.
85		-
86		- my $order_by = "$order";
87		-
88		-=cut
89		-

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

...	...	@@ -1,41 +0,0 @@
1		-package DBIx::Custom::Next::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		- for 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::Next::Util - Utility class
41		-

...	...	@@ -1,255 +0,0 @@
1		-package DBIx::Custom::Next::Where;
2		-use Object::Simple -base;
3		-
4		-use Carp 'croak';
5		-use DBIx::Custom::Next::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::Next::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		- for 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		- # Clause
32		- my $clause = $self->clause;
33		- $clause = ['and', $clause] unless ref $clause eq 'ARRAY';
34		- $clause->[0] = 'and' unless @$clause;
35		-
36		- # Parse
37		- my $where = [];
38		- my $count = {};
39		- $self->{_safety_character} = $self->dbi->safety_character;
40		- $self->{_quote} = $self->dbi->quote;
41		- $self->_parse($clause, $where, $count, 'and');
42		-
43		- # Stringify
44		- unshift @$where, 'where' if @$where;
45		- return join(' ', @$where);
46		-}
47		-
48		-our %VALID_OPERATIONS = map { $_ => 1 } qw/and or/;
49		-sub _parse {
50		- my ($self, $clause, $where, $count, $op, $info) = @_;
51		-
52		- # Array
53		- if (ref $clause eq 'ARRAY') {
54		-
55		- # Start
56		- push @$where, '(';
57		-
58		- # Operation
59		- my $op = $clause->[0] \|\| '';
60		- croak qq{First argument must be "and" or "or" in where clause } .
61		- qq{"$op" is passed} . _subname . ")"
62		- unless $VALID_OPERATIONS{$op};
63		-
64		- my $pushed_array;
65		- # Parse internal clause
66		- for (my $i = 1; $i < @$clause; $i++) {
67		- my $pushed = $self->_parse($clause->[$i], $where, $count, $op);
68		- push @$where, $op if $pushed;
69		- $pushed_array = 1 if $pushed;
70		- }
71		- pop @$where if $where->[-1] eq $op;
72		-
73		- # Undo
74		- if ($where->[-1] eq '(') {
75		- pop @$where;
76		- pop @$where if ($where->[-1] \|\| '') eq $op;
77		- }
78		- # End
79		- else { push @$where, ')' }
80		-
81		- return $pushed_array;
82		- }
83		-
84		- # String
85		- else {
86		- # Pushed
87		- my $pushed;
88		-
89		- # Column
90		- my $c = $self->{_safety_character};
91		-
92		- my $column;
93		- my $sql = $clause;
94		- $sql =~ s/([0-9]):/$1\\:/g;
95		- if ($sql =~ /[^\\]:([$c\.]+)/s \|\| $sql =~ /^:([$c\.]+)/s) {
96		- $column = $1;
97		- }
98		- unless (defined $column) {
99		- push @$where, $clause;
100		- $pushed = 1;
101		- return $pushed;
102		- }
103		-
104		- # Column count up
105		- my $count = ++$count->{$column};
106		-
107		- # Push
108		- my $param = $self->{param};
109		- if (ref $param eq 'HASH') {
110		- if (exists $param->{$column}) {
111		- my $if = $self->{_if};
112		-
113		- if (ref $param->{$column} eq 'ARRAY') {
114		- $pushed = 1 if exists $param->{$column}->[$count - 1]
115		- && ref $param->{$column}->[$count - 1] ne 'DBIx::Custom::Next::NotExists'
116		- }
117		- elsif ($count == 1) { $pushed = 1 }
118		- }
119		- push @$where, $clause if $pushed;
120		- }
121		- elsif (!defined $param) {
122		- push @$where, $clause;
123		- $pushed = 1;
124		- }
125		- else {
126		- croak "Parameter must be hash reference or undfined value ("
127		- . _subname . ")"
128		- }
129		- return $pushed;
130		- }
131		- return;
132		-}
133		-1;
134		-
135		-=head1 NAME
136		-
137		-DBIx::Custom::Next::Where - Where clause
138		-
139		-=head1 SYNOPSYS
140		-
141		- # Create DBIx::Custom::Next::Where object
142		- my $where = $dbi->where;
143		-
144		- # Set clause and parameter
145		- $where->clause(['and', ':title{like}', ':price{=}']);
146		-
147		- # Create where clause by to_string method
148		- my $where_clause = $where->to_string;
149		-
150		- # Create where clause by stringify
151		- my $where_clause = "$where";
152		-
153		- # Created where clause in the above way
154		- where :title{=} and :price{like}
155		-
156		- # Only price condition
157		- $where->clause(['and', ':title{like}', ':price{=}']);
158		- $where->param({price => 1900});
159		- my $where_clause = "$where";
160		-
161		- # Created where clause in the above way
162		- where :price{=}
163		-
164		- # Only title condition
165		- $where->clause(['and', ':title{like}', ':price{=}']);
166		- $where->param({title => 'Perl'});
167		- my $where_clause = "$where";
168		-
169		- # Created where clause in the above way
170		- where :title{like}
171		-
172		- # Nothing
173		- $where->clause(['and', ':title{like}', ':price{=}']);
174		- $where->param({});
175		- my $where_clause = "$where";
176		-
177		- # or condition
178		- $where->clause(['or', ':title{like}', ':price{=}']);
179		-
180		- # More than one parameter
181		- $where->clause(['and', ':price{>}', ':price{<}']);
182		- $where->param({price => [1000, 2000]});
183		-
184		- # Only first condition
185		- $where->clause(['and', ':price{>}', ':price{<}']);
186		- $where->param({price => [1000, $dbi->not_exists]});
187		-
188		- # Only second condition
189		- $where->clause(['and', ':price{>}', ':price{<}']);
190		- $where->param({price => [$dbi->not_exists, 2000]});
191		-
192		- # More complex condition
193		- $where->clause(
194		- [
195		- 'and',
196		- ':price{=}',
197		- ['or', ':title{=}', ':title{=}', ':title{=}']
198		- ]
199		- );
200		- my $where_clause = "$where";
201		-
202		- # Created where clause in the above way
203		- where :price{=} and (:title{=} or :title{=} or :title{=})
204		-
205		- # Using Full-qualified column name
206		- $where->clause(['and', ':book.title{like}', ':book.price{=}']);
207		-
208		-=head1 ATTRIBUTES
209		-
210		-=head2 C<clause>
211		-
212		- my $clause = $where->clause;
213		- $where = $where->clause(
214		- ['and',
215		- ':title{=}',
216		- ['or', ':date{<}', ':date{>}']
217		- ]
218		- );
219		-
220		-Where clause. Above one is expanded to the following SQL by to_string
221		-If all parameter names is exists.
222		-
223		- where title = :title and ( date < :date or date > :date )
224		-
225		-=head2 C<param>
226		-
227		- my $param = $where->param;
228		- $where = $where->param({
229		- title => 'Perl',
230		- date => ['2010-11-11', '2011-03-05'],
231		- });
232		-
233		-=head2 C<dbi>
234		-
235		- my $dbi = $where->dbi;
236		- $where = $where->dbi($dbi);
237		-
238		-L<DBIx::Custom::Next> object.
239		-
240		-=head1 METHODS
241		-
242		-L<DBIx::Custom::Next::Where> inherits all methods from L<Object::Simple>
243		-and implements the following new ones.
244		-
245		-=head2 C<to_string>
246		-
247		- $where->to_string;
248		-
249		-Convert where clause to string.
250		-
251		-double quote is override to execute C<to_string> method.
252		-
253		- my $string_where = "$where";
254		-
255		-=cut

...	...	@@ -1,5 +0,0 @@
1		-### DB2 Install
2		-
3		-cd /usr/local/src
4		-
5		-curl -L https://www6.software.ibm.com/sdfdl/v2/regs2/db2pmopn/db2_v97/expc/Xa.2/Xb.aA_60_-iVlRRTUNBO90Dq4FHTisv_wdecoCQFeRQbw/Xc.db2exc_974_LNX_x86.tar.gz/Xd./Xf.LPr.D1vk/Xg.6107654/Xi.swg-db2expressc/XY.regsrvs/XZ.2ygJIAbTC5bn3tv2hlm2PnXUcz8/db2exc_974_LNX_x86.tar.gz > db2exc_974_LNX_x86.tar.gz

...	...	@@ -1,5 +0,0 @@
1		-# Create database
2		-create database dbix_custom;
3		-
4		-# Create User
5		-GRANT ALL PRIVILEGES ON dbix_custom.* TO dbix_custom@"localhost" IDENTIFIED BY 'dbix_custom';

...	...	@@ -1,55 +0,0 @@
1		-# Download
2		-http://download.oracle.com/otn/linux/oracle10g/xe/10201/oracle-xe-univ-10.2.0.1-1.0.i386.rpm
3		-
4		-# Install
5		-rpm -ivh oracle-xe-univ-10.2.0.1-1.0.i386.rpm
6		-/etc/init.d/oracle-xe configure
7		-
8		-# Note
9		-Port number is set to 8090
10		-
11		-# HTTP access
12		-http://127.0.0.1:8090/apex
13		-
14		-# Create user
15		-id: dbix_custom
16		-password: dbix_custom
17		-
18		-Add all privirage
19		-
20		-# DBD::Oracle
21		-You must be install install client
22		-oracle-instantclient11.2-basic-11.2.0.2.0.i386.rpm
23		-oracle-instantclient11.2-devel-11.2.0.2.0.i386.rpm
24		-oracle-instantclient11.2-sqlplus-11.2.0.2.0.i386.rpm
25		-
26		-rpm -hiv oracle-instantclient11.2-basic-11.2.0.2.0.i386.rpm
27		-rpm -hiv oracle-instantclient11.2-devel-11.2.0.2.0.i386.rpm
28		-rpm -hiv oracle-instantclient11.2-sqlplus-11.2.0.2.0.i386.rpm
29		-
30		-vi /etc/profile.d/oracle.sh
31		-export ORACLE_HOME='/usr/lib/oracle/11.2/client'
32		-export C_INCLUDE_PATH='/usr/include/oracle/11.2/client'
33		-export LD_LIBRARY_PATH='/usr/lib/oracle/11.2/client/lib'
34		-
35		-vi /etc/ld.so.conf.d/oracle.conf
36		-/usr/lib/oracle/11.2/client/lib
37		-
38		-cpan DBD::Oracle
39		-
40		-sqlplus dbix_custom/dbix_custom@localhost:1521/XE
41		-
42		-mkdir -p $ORACLE_HOME/network/admin/
43		-vi $ORACLE_HOME/network/admin/tnsnames.ora
44		-
45		-XE =
46		- (DESCRIPTION =
47		- (ADDRESS_LIST =
48		- (ADDRESS = (PROTOCOL = TCP)(HOST = localhost)(PORT = 1521))
49		- )
50		- (CONNECT_DATA =
51		- (SID = orcl)
52		- )
53		- )
54		-
55		-

...	...	@@ -1,35 +0,0 @@
1		-### CentOS5
2		-
3		-# Install
4		-yum -y install postgresql-server
5		-yum -y install postgresql
6		-yum -y install postgresql-devel
7		-chkconfig --level 2345 postgresql on
8		-
9		-# Start server
10		-service postgresql start
11		-
12		-# Change config file
13		-vi /var/lib/pgsql/data/pg_hba.conf
14		- # "local" is for Unix domain socket connections only
15		- local all all trust
16		-
17		-# Create user and database
18		-su - postgres
19		-createuser -a -d -U postgres -P dbix_custom
20		- # Shall the new role be a superuser? (y/n) -> y
21		- # Shall the new role be allowed to create databases? (y/n) -> y
22		- # Shall the new role be allowed to create more new roles? (y/n) -> y
23		-
24		-createdb dbix_custom -U dbix_custom
25		-
26		-# Connect to database
27		-psql -U dbix_custom dbix_custom
28		-
29		-# Install DBD::pg
30		-cpanm DBD::Pg
31		-
32		-### Memo
33		-
34		-# Drop user
35		-dropuser dbix_custom

...	...	@@ -1,13 +0,0 @@
1		-# Site
2		-http://awoni.net/fc/sql-server-2008-express/
3		-
4		-
5		-# Install
6		-http://www.microsoft.com/downloads/ja-jp/details.aspx?displaylang=ja&FamilyID=967225eb-207b-4950-91df-eeb5f35a80ee
7		-
8		-
9		-# Note
10		-You enable SQL Server authentication.
11		-You create user "dbix_custom", password "dbix_custom"
12		-You give create_table, insert, update, delete, select authority to user "dbix_custom".
13		-

...	...	@@ -1,35 +0,0 @@
1		-use Test::More;
2		-use strict;
3		-use warnings;
4		-use utf8;
5		-
6		-use FindBin;
7		-use DBIx::Custom;
8		-
9		-my $dbi;
10		-my $dsn;
11		-my $args;
12		-my $database = "$FindBin::Bin/access.mdb";
13		-
14		-$dsn = "dbi:ODBC:driver=Microsoft Access Driver (*.mdb);dbq=$database";
15		-
16		-plan skip_all => 'Microsoft access(ODBC, *.mdb) private test' unless -f "$FindBin::Bin/run/access.run"
17		- && eval { $dbi = DBIx::Custom->connect(dsn => $dsn); 1 };
18		-plan 'no_plan';
19		-
20		-my $model;
21		-my $result;
22		-my $rows;
23		-
24		-eval { $dbi->execute("drop table table1") };
25		-$dbi->execute("create table table1 (key1 varchar(255), key2 varchar(255))");
26		-$model = $dbi->create_model(table => 'table1');
27		-$model->insert({key1 => 1, key2 => 2});
28		-$model->insert({key1 => 4, key2 => 5});
29		-$model->insert({key1 => 6, key2 => 7});
30		-$model->update({key2 => 3}, where => {key1 => 1});
31		-$model->delete(where => {key1 => 6});
32		-$rows = $model->select->all;
33		-is_deeply($rows, [{key1 => 1, key2 => 3}, {key1 => 4, key2 => 5}]);
34		-is($model->count, 2);
35		-

...	...	@@ -1,46 +0,0 @@
1		-use Test::More;
2		-use strict;
3		-use warnings;
4		-use utf8;
5		-
6		-use FindBin;
7		-use DBIx::Custom;
8		-
9		-my $dbi;
10		-my $dsn;
11		-my $database = "$FindBin::Bin/access2007.accdb";
12		-
13		-$dsn = "dbi:ODBC:Driver={Microsoft Access Driver (.mdb, .accdb)};DBQ=$database";
14		-
15		-plan skip_all => 'Microsoft access(ODBC, *.accdb(2007)) private test'
16		- unless -f "$FindBin::Bin/run/access2007-accdb.run"
17		- && eval { $dbi = DBIx::Custom->connect(dsn => $dsn); 1 };
18		-plan 'no_plan';
19		-
20		-my $model;
21		-my $result;
22		-my $row;
23		-my $rows;
24		-
25		-eval { $dbi->execute("drop table table1") };
26		-eval { $dbi->execute("drop table table2") };
27		-$dbi->execute("create table table1 (key1 varchar(255), key2 varchar(255))");
28		-$dbi->execute("create table table2 (key1 varchar(255), key3 varchar(255))");
29		-$model = $dbi->create_model(table => 'table1');
30		-$model->insert({key1 => 1, key2 => 2});
31		-$model->insert({key1 => 4, key2 => 5});
32		-$model->insert({key1 => 6, key2 => 7});
33		-$model->update({key2 => 3}, where => {key1 => 1});
34		-$model->delete(where => {key1 => 6});
35		-$rows = $model->select->all;
36		-is_deeply($rows, [{key1 => 1, key2 => 3}, {key1 => 4, key2 => 5}]);
37		-is($model->count, 2);
38		-$dbi->insert({key1 => 1, key3 => 2}, table => 'table2');
39		-$dbi->separator('-');
40		-$row = $model->select(
41		- table => 'table1',
42		- column => {table2 => [qw/key3/]},
43		- join => ['left outer join table2 on table1.key1 = table2.key1']
44		-)->one;
45		-is_deeply($row, {"table2-key3" => 2});
46		-

...	...	@@ -1,77 +0,0 @@
1		-use strict;
2		-use warnings;
3		-
4		-use FindBin;
5		-use lib "$FindBin::Bin/common";
6		-$ENV{DBIX_CUSTOM_TEST_RUN} = 1
7		- if -f "$FindBin::Bin/run/common-mysql.run";
8		-$ENV{DBIX_CUSTOM_SKIP_MESSAGE} = 'mysql private test';
9		-
10		-
11		-
12		-use DBIx::Custom;
13		-{
14		- package DBIx::Custom;
15		- no warnings 'redefine';
16		-
17		- my $table1 = 'table1';
18		- my $table2 = 'table2';
19		- my $table2_alias = 'table2_alias';
20		- my $table3 = 'table3';
21		- my $key1 = 'key1';
22		- my $key2 = 'key2';
23		- my $key3 = 'key3';
24		- my $key4 = 'key4';
25		- my $key5 = 'key5';
26		- my $key6 = 'key6';
27		- my $key7 = 'key7';
28		- my $key8 = 'key8';
29		- my $key9 = 'key9';
30		- my $key10 = 'key10';
31		-
32		- has table1 => $table1;
33		- has table2 => $table2;
34		- has table2_alias => $table2_alias;
35		- has table3 => $table3;
36		- has key1 => $key1;
37		- has key2 => $key2;
38		- has key3 => $key3;
39		- has key4 => $key4;
40		- has key5 => $key5;
41		- has key6 => $key6;
42		- has key7 => $key7;
43		- has key8 => $key8;
44		- has key9 => $key9;
45		- has key10 => $key10;
46		-
47		- my $date_typename = 'Date';
48		- my $datetime_typename = 'Datetime';
49		-
50		- sub date_typename { lc $date_typename }
51		- sub datetime_typename { lc $datetime_typename }
52		-
53		- my $date_datatype = 9;
54		- my $datetime_datatype = 11;
55		-
56		- sub date_datatype { lc $date_datatype }
57		- sub datetime_datatype { lc $datetime_datatype }
58		-
59		- no warnings 'redefine';
60		- has dsn => "dbi:mysql:database=dbix_custom";
61		- has user => 'dbix_custom';
62		- has password => 'dbix_custom';
63		-
64		- sub create_table1 { "create table $table1 ($key1 varchar(255), $key2 varchar(255)) engine=InnoDB" }
65		- sub create_table1_2 { "create table $table1 ($key1 varchar(255), $key2 varchar(255), "
66		- . "$key3 varchar(255), key4 varchar(255), key5 varchar(255)) engine=InnoDB" }
67		- sub create_table1_type { "create table $table1 ($key1 $date_typename, $key2 $datetime_typename) engine=InnoDB" }
68		- sub create_table1_highperformance { "create table $table1 ($key1 varchar(255), $key2 varchar(255), "
69		- . "$key3 varchar(255), $key4 varchar(255), $key5 varchar(255), $key6 varchar(255), $key7 varchar(255)) engine=InnoDB" }
70		- sub create_table2 { "create table $table2 ($key1 varchar(255), $key3 varchar(255)) engine=InnoDB" }
71		- sub create_table2_2 { "create table $table2 ($key1 varchar(255), $key2 varchar(255), $key3 varchar(255)) engine=InnoDB" }
72		- sub create_table3 { "create table $table3 ($key1 varchar(255), $key2 varchar(255), $key3 varchar(255)) engine=InnoDB" }
73		- sub create_table_reserved {
74		- 'create table `table` (`select` varchar(255), `update` varchar(255)) engine=InnoDB' }
75		-}
76		-
77		-require "$FindBin::Bin/common.t";

...	...	@@ -1,105 +0,0 @@
1		-use strict;
2		-use warnings;
3		-
4		-use FindBin;
5		-use lib "$FindBin::Bin/common";
6		-$ENV{DBIX_CUSTOM_TEST_RUN} = 1
7		- if -f "$FindBin::Bin/run/common-postgresql.run";
8		-$ENV{DBIX_CUSTOM_SKIP_MESSAGE} = 'postgresql private test';
9		-
10		-use DBIx::Custom;
11		-{
12		- package DBIx::Custom;
13		- no warnings 'redefine';
14		-
15		- my $table1 = 'table1';
16		- my $table2 = 'table2';
17		- my $table2_alias = 'table2_alias';
18		- my $table3 = 'table3';
19		- my $key1 = 'key1';
20		- my $key2 = 'key2';
21		- my $key3 = 'key3';
22		- my $key4 = 'key4';
23		- my $key5 = 'key5';
24		- my $key6 = 'key6';
25		- my $key7 = 'key7';
26		- my $key8 = 'key8';
27		- my $key9 = 'key9';
28		- my $key10 = 'key10';
29		-
30		- has table1 => $table1;
31		- has table2 => $table2;
32		- has table2_alias => $table2_alias;
33		- has table3 => $table3;
34		- has key1 => $key1;
35		- has key2 => $key2;
36		- has key3 => $key3;
37		- has key4 => $key4;
38		- has key5 => $key5;
39		- has key6 => $key6;
40		- has key7 => $key7;
41		- has key8 => $key8;
42		- has key9 => $key9;
43		- has key10 => $key10;
44		-
45		- my $date_typename = 'Date';
46		- my $datetime_typename = 'Timestamp';
47		-
48		- sub date_typename { lc $date_typename }
49		- sub datetime_typename { 'timestamp without time zone' }
50		-
51		- my $date_datatype = 91;
52		- my $datetime_datatype = 11;
53		-
54		- sub date_datatype { lc $date_datatype }
55		- sub datetime_datatype { lc $datetime_datatype }
56		-
57		- has dsn => "dbi:Pg:dbname=dbix_custom";
58		- has user => 'dbix_custom';
59		- has password => 'dbix_custom';
60		- has exclude_table => sub {
61		-
62		- return qr/^(
63		- pg_\|column_\|role_\|view_\|sql_
64		- \|applicable_roles
65		- \|check_constraints
66		- \|columns
67		- \|constraint_column_usage
68		- \|constraint_table_usage
69		- \|data_type_privileges
70		- \|domain_constraints
71		- \|domain_udt_usage
72		- \|domains
73		- \|element_types
74		- \|enabled_roles
75		- \|information_schema
76		- \|information_schema_catalog_name
77		- \|key_column_usage
78		- \|parameters
79		- \|referential_constraints
80		- \|routine_privileges
81		- \|routines
82		- \|schemata
83		- \|table_constraints
84		- \|table_privileges
85		- \|tables
86		- \|triggered_update_columns
87		- \|triggers
88		- \|usage_privileges
89		- \|views
90		- )/x
91		- };
92		-
93		- sub create_table1 { "create table $table1 ($key1 varchar(255), $key2 varchar(255))" }
94		- sub create_table1_2 {"create table $table1 ($key1 varchar(255), $key2 varchar(255), "
95		- . "$key3 varchar(255), $key4 varchar(255), $key5 varchar(255))" }
96		- sub create_table1_type { "create table $table1 ($key1 $date_typename, $key2 $datetime_typename)" }
97		- sub create_table1_highperformance { "create table $table1 ($key1 varchar(255), $key2 varchar(255), "
98		- . "$key3 varchar(255), $key4 varchar(255), $key5 varchar(255), $key6 varchar(255), $key7 varchar(255))" }
99		- sub create_table2 { "create table $table2 ($key1 varchar(255), $key3 varchar(255))" }
100		- sub create_table2_2 { "create table $table2 ($key1 varchar(255), $key2 varchar(255), $key3 varchar(255))" }
101		- sub create_table3 { "create table $table3 ($key1 varchar(255), $key2 varchar(255), $key3 varchar(255))" }
102		- sub create_table_reserved { 'create table "table" ("select" varchar(255), "update" varchar(255))' }
103		-}
104		-
105		-require "$FindBin::Bin/common.t";

...	...	@@ -1,70 +0,0 @@
1		-use strict;
2		-use warnings;
3		-
4		-use FindBin;
5		-use lib "$FindBin::Bin/common";
6		-$ENV{DBIX_CUSTOM_TEST_RUN} = 1;
7		-
8		-use DBIx::Custom;
9		-{
10		- package DBIx::Custom;
11		- no warnings 'redefine';
12		-
13		- my $table1 = 'table1';
14		- my $table2 = 'table2';
15		- my $table2_alias = 'table2_alias';
16		- my $table3 = 'table3';
17		- my $key1 = 'key1';
18		- my $key2 = 'key2';
19		- my $key3 = 'key3';
20		- my $key4 = 'key4';
21		- my $key5 = 'key5';
22		- my $key6 = 'key6';
23		- my $key7 = 'key7';
24		- my $key8 = 'key8';
25		- my $key9 = 'key9';
26		- my $key10 = 'key10';
27		-
28		- has table1 => $table1;
29		- has table2 => $table2;
30		- has table2_alias => $table2_alias;
31		- has table3 => $table3;
32		- has key1 => $key1;
33		- has key2 => $key2;
34		- has key3 => $key3;
35		- has key4 => $key4;
36		- has key5 => $key5;
37		- has key6 => $key6;
38		- has key7 => $key7;
39		- has key8 => $key8;
40		- has key9 => $key9;
41		- has key10 => $key10;
42		-
43		- my $date_typename = 'Date';
44		- my $datetime_typename = 'Datetime';
45		-
46		- sub date_typename { lc $date_typename }
47		- sub datetime_typename { lc $datetime_typename }
48		-
49		- my $date_datatype = 'Date';
50		- my $datetime_datatype = 'Datetime';
51		-
52		- sub date_datatype { lc $date_datatype }
53		- sub datetime_datatype { lc $datetime_datatype }
54		-
55		- has dsn => 'dbi:SQLite:dbname=:memory:';
56		- sub create_table1 { "create table $table1 ($key1 varchar, $key2 varchar)" }
57		- sub create_table1_2 {"create table $table1 ($key1 varchar, $key2 varchar, $key3 varchar, key4 varchar, key5 varchar)" }
58		- sub create_table1_type { "create table $table1 ($key1 $date_typename, $key2 $datetime_typename)" }
59		-
60		- sub create_table1_highperformance { "create table $table1 (key1 varchar, key2 varchar, key3 varchar, key4 varchar, key5 varchar, key6 varchar, key7 varchar)" }
61		-
62		- sub create_table2 { "create table $table2 ($key1 varchar, $key3 varchar)" }
63		- sub create_table2_2 { "create table $table2 ($key1 varchar, $key2 varchar, $key3 varchar)" }
64		- sub create_table3 { "create table $table3 ($key1 varchar, $key2 varchar, $key3 varchar)" }
65		- sub create_table_reserved { 'create table "table" ("select" varchar, "update" varchar)' }
66		-
67		- sub quote { '""' }
68		-}
69		-
70		-require "$FindBin::Bin/common.t";

...	...	@@ -1,69 +0,0 @@
1		-use strict;
2		-use warnings;
3		-
4		-use FindBin;
5		-use lib "$FindBin::Bin/common";
6		-$ENV{DBIX_CUSTOM_TEST_RUN} = 1;
7		-
8		-use DBIx::Custom;
9		-{
10		- package DBIx::Custom;
11		- no warnings 'redefine';
12		-
13		- my $table1 = 'table1';
14		- my $table2 = 'table2';
15		- my $table2_alias = 'table2_alias';
16		- my $table3 = 'table3';
17		- my $key1 = 'key1';
18		- my $key2 = 'key2';
19		- my $key3 = 'key3';
20		- my $key4 = 'key4';
21		- my $key5 = 'key5';
22		- my $key6 = 'key6';
23		- my $key7 = 'key7';
24		- my $key8 = 'key8';
25		- my $key9 = 'key9';
26		- my $key10 = 'key10';
27		-
28		- has table1 => $table1;
29		- has table2 => $table2;
30		- has table2_alias => $table2_alias;
31		- has table3 => $table3;
32		- has key1 => $key1;
33		- has key2 => $key2;
34		- has key3 => $key3;
35		- has key4 => $key4;
36		- has key5 => $key5;
37		- has key6 => $key6;
38		- has key7 => $key7;
39		- has key8 => $key8;
40		- has key9 => $key9;
41		- has key10 => $key10;
42		-
43		- my $date_typename = 'Date';
44		- my $datetime_typename = 'Datetime';
45		-
46		- sub date_typename { lc $date_typename }
47		- sub datetime_typename { lc $datetime_typename }
48		-
49		- my $date_datatype = 'Date';
50		- my $datetime_datatype = 'Datetime';
51		-
52		- sub date_datatype { lc $date_datatype }
53		- sub datetime_datatype { lc $datetime_datatype }
54		-
55		- has dsn => 'dbi:SQLite:dbname=:memory:';
56		- sub create_table1 { "create table $table1 ($key1 varchar, $key2 varchar)" }
57		- sub create_table1_2 {"create table $table1 ($key1 varchar, $key2 varchar, $key3 varchar, key4 varchar, key5 varchar)" }
58		- sub create_table1_type { "create table $table1 ($key1 $date_typename, $key2 $datetime_typename)" }
59		-
60		- sub create_table1_highperformance { "create table $table1 (key1 varchar, key2 varchar, key3 varchar, key4 varchar, key5 varchar, key6 varchar, key7 varchar)" }
61		-
62		- sub create_table2 { "create table $table2 ($key1 varchar, $key3 varchar)" }
63		- sub create_table2_2 { "create table $table2 ($key1 varchar, $key2 varchar, $key3 varchar)" }
64		- sub create_table3 { "create table $table3 ($key1 varchar, $key2 varchar, $key3 varchar)" }
65		- sub create_table_reserved { 'create table "table" ("select" varchar, "update" varchar)' }
66		-
67		-}
68		-
69		-require "$FindBin::Bin/common.t";

...	...	@@ -1,428 +0,0 @@
1		-use strict;
2		-use warnings;
3		-
4		-use FindBin;
5		-use lib "$FindBin::Bin/common";
6		-$ENV{DBIX_CUSTOM_TEST_RUN} = 1
7		- if -f "$FindBin::Bin/run/common-sqlserver.run";
8		-$ENV{DBIX_CUSTOM_SKIP_MESSAGE} = 'sqlserver private test';
9		-
10		-use DBIx::Custom;
11		-{
12		- package DBIx::Custom;
13		- no warnings 'redefine';
14		-
15		- my $table1 = 'table1';
16		- my $table2 = 'table2';
17		- my $table2_alias = 'table2_alias';
18		- my $table3 = 'table3';
19		- my $key1 = 'key1';
20		- my $key2 = 'key2';
21		- my $key3 = 'key3';
22		- my $key4 = 'key4';
23		- my $key5 = 'key5';
24		- my $key6 = 'key6';
25		- my $key7 = 'key7';
26		- my $key8 = 'key8';
27		- my $key9 = 'key9';
28		- my $key10 = 'key10';
29		-
30		- has table1 => $table1;
31		- has table2 => $table2;
32		- has table2_alias => $table2_alias;
33		- has table3 => $table3;
34		- has key1 => $key1;
35		- has key2 => $key2;
36		- has key3 => $key3;
37		- has key4 => $key4;
38		- has key5 => $key5;
39		- has key6 => $key6;
40		- has key7 => $key7;
41		- has key8 => $key8;
42		- has key9 => $key9;
43		- has key10 => $key10;
44		-
45		- my $date_typename = 'date';
46		- my $datetime_typename = 'datetime';
47		-
48		- sub date_typename { lc $date_typename }
49		- sub datetime_typename { lc $datetime_typename }
50		-
51		- my $date_datatype = -9;
52		- my $datetime_datatype = 93;
53		-
54		- sub date_datatype { lc $date_datatype }
55		- sub datetime_datatype { lc $datetime_datatype }
56		-
57		- has exclude_table => sub {
58		- return qr/^(
59		- CHECK_CONSTRAINTS
60		- \|COLUMN_DOMAIN_USAGE
61		- \|COLUMN_PRIVILEGES
62		- \|COLUMNS
63		- \|CONSTRAINT_COLUMN_USAGE
64		- \|CONSTRAINT_TABLE_USAGE
65		- \|DOMAIN_CONSTRAINTS
66		- \|DOMAINS
67		- \|KEY_COLUMN_USAGE
68		- \|PARAMETERS
69		- \|REFERENTIAL_CONSTRAINTS
70		- \|ROUTINE_COLUMNS
71		- \|ROUTINES
72		- \|SCHEMATA
73		- \|TABLE_CONSTRAINTS
74		- \|TABLE_PRIVILEGES
75		- \|TABLES
76		- \|VIEW_COLUMN_USAGE
77		- \|VIEW_TABLE_USAGE
78		- \|VIEWS
79		- \|all_columns
80		- \|all_objects
81		- \|all_parameters
82		- \|all_sql_modules
83		- \|all_views
84		- \|allocation_units
85		- \|assemblies
86		- \|assembly_files
87		- \|assembly_modules
88		- \|assembly_references
89		- \|assembly_types
90		- \|asymmetric_keys
91		- \|backup_devices
92		- \|certificates
93		- \|change_tracking_databases
94		- \|change_tracking_tables
95		- \|check_constraints
96		- \|column_type_usages
97		- \|column_xml_schema_collection_usages
98		- \|columns
99		- \|computed_columns
100		- \|configurations
101		- \|conversation_endpoints
102		- \|conversation_groups
103		- \|conversation_priorities
104		- \|credentials
105		- \|crypt_properties
106		- \|cryptographic_providers
107		- \|data_spaces
108		- \|database_audit_specification_details
109		- \|database_audit_specifications
110		- \|database_files
111		- \|database_mirroring
112		- \|database_mirroring_endpoints
113		- \|database_permissions
114		- \|database_principal_aliases
115		- \|database_principals
116		- \|database_recovery_status
117		- \|database_role_members
118		- \|databases
119		- \|default_constraints
120		- \|destination_data_spaces
121		- \|dm_audit_actions
122		- \|dm_audit_class_type_map
123		- \|dm_broker_activated_tasks
124		- \|dm_broker_connections
125		- \|dm_broker_forwarded_messages
126		- \|dm_broker_queue_monitors
127		- \|dm_cdc_errors
128		- \|dm_cdc_log_scan_sessions
129		- \|dm_clr_appdomains
130		- \|dm_clr_loaded_assemblies
131		- \|dm_clr_properties
132		- \|dm_clr_tasks
133		- \|dm_cryptographic_provider_properties
134		- \|dm_database_encryption_keys
135		- \|dm_db_file_space_usage
136		- \|dm_db_index_usage_stats
137		- \|dm_db_mirroring_auto_page_repair
138		- \|dm_db_mirroring_connections
139		- \|dm_db_mirroring_past_actions
140		- \|dm_db_missing_index_details
141		- \|dm_db_missing_index_group_stats
142		- \|dm_db_missing_index_groups
143		- \|dm_db_partition_stats
144		- \|dm_db_persisted_sku_features
145		- \|dm_db_script_level
146		- \|dm_db_session_space_usage
147		- \|dm_db_task_space_usage
148		- \|dm_exec_background_job_queue
149		- \|dm_exec_background_job_queue_stats
150		- \|dm_exec_cached_plans
151		- \|dm_exec_connections
152		- \|dm_exec_procedure_stats
153		- \|dm_exec_query_memory_grants
154		- \|dm_exec_query_optimizer_info
155		- \|dm_exec_query_resource_semaphores
156		- \|dm_exec_query_stats
157		- \|dm_exec_query_transformation_stats
158		- \|dm_exec_requests
159		- \|dm_exec_sessions
160		- \|dm_exec_trigger_stats
161		- \|dm_filestream_file_io_handles
162		- \|dm_filestream_file_io_requests
163		- \|dm_fts_active_catalogs
164		- \|dm_fts_fdhosts
165		- \|dm_fts_index_population
166		- \|dm_fts_memory_buffers
167		- \|dm_fts_memory_pools
168		- \|dm_fts_outstanding_batches
169		- \|dm_fts_population_ranges
170		- \|dm_io_backup_tapes
171		- \|dm_io_cluster_shared_drives
172		- \|dm_io_pending_io_requests
173		- \|dm_os_buffer_descriptors
174		- \|dm_os_child_instances
175		- \|dm_os_cluster_nodes
176		- \|dm_os_dispatcher_pools
177		- \|dm_os_dispatchers
178		- \|dm_os_hosts
179		- \|dm_os_latch_stats
180		- \|dm_os_loaded_modules
181		- \|dm_os_memory_allocations
182		- \|dm_os_memory_brokers
183		- \|dm_os_memory_cache_clock_hands
184		- \|dm_os_memory_cache_counters
185		- \|dm_os_memory_cache_entries
186		- \|dm_os_memory_cache_hash_tables
187		- \|dm_os_memory_clerks
188		- \|dm_os_memory_node_access_stats
189		- \|dm_os_memory_nodes
190		- \|dm_os_memory_objects
191		- \|dm_os_memory_pools
192		- \|dm_os_nodes
193		- \|dm_os_performance_counters
194		- \|dm_os_process_memory
195		- \|dm_os_ring_buffers
196		- \|dm_os_schedulers
197		- \|dm_os_spinlock_stats
198		- \|dm_os_stacks
199		- \|dm_os_sublatches
200		- \|dm_os_sys_info
201		- \|dm_os_sys_memory
202		- \|dm_os_tasks
203		- \|dm_os_threads
204		- \|dm_os_virtual_address_dump
205		- \|dm_os_wait_stats
206		- \|dm_os_waiting_tasks
207		- \|dm_os_worker_local_storage
208		- \|dm_os_workers
209		- \|dm_qn_subscriptions
210		- \|dm_repl_articles
211		- \|dm_repl_schemas
212		- \|dm_repl_tranhash
213		- \|dm_repl_traninfo
214		- \|dm_resource_governor_configuration
215		- \|dm_resource_governor_resource_pools
216		- \|dm_resource_governor_workload_groups
217		- \|dm_server_audit_status
218		- \|dm_tran_active_snapshot_database_transactions
219		- \|dm_tran_active_transactions
220		- \|dm_tran_commit_table
221		- \|dm_tran_current_snapshot
222		- \|dm_tran_current_transaction
223		- \|dm_tran_database_transactions
224		- \|dm_tran_locks
225		- \|dm_tran_session_transactions
226		- \|dm_tran_top_version_generators
227		- \|dm_tran_transactions_snapshot
228		- \|dm_tran_version_store
229		- \|dm_xe_map_values
230		- \|dm_xe_object_columns
231		- \|dm_xe_objects
232		- \|dm_xe_packages
233		- \|dm_xe_session_event_actions
234		- \|dm_xe_session_events
235		- \|dm_xe_session_object_columns
236		- \|dm_xe_session_targets
237		- \|dm_xe_sessions
238		- \|endpoint_webmethods
239		- \|endpoints
240		- \|event_notification_event_types
241		- \|event_notifications
242		- \|events
243		- \|extended_procedures
244		- \|extended_properties
245		- \|filegroups
246		- \|foreign_key_columns
247		- \|foreign_keys
248		- \|fulltext_catalogs
249		- \|fulltext_document_types
250		- \|fulltext_index_catalog_usages
251		- \|fulltext_index_columns
252		- \|fulltext_index_fragments
253		- \|fulltext_indexes
254		- \|fulltext_languages
255		- \|fulltext_stoplists
256		- \|fulltext_stopwords
257		- \|fulltext_system_stopwords
258		- \|function_order_columns
259		- \|http_endpoints
260		- \|identity_columns
261		- \|index_columns
262		- \|indexes
263		- \|internal_tables
264		- \|key_constraints
265		- \|key_encryptions
266		- \|linked_logins
267		- \|login_token
268		- \|master_files
269		- \|master_key_passwords
270		- \|message_type_xml_schema_collection_usages
271		- \|messages
272		- \|module_assembly_usages
273		- \|numbered_procedure_parameters
274		- \|numbered_procedures
275		- \|objects
276		- \|openkeys
277		- \|parameter_type_usages
278		- \|parameter_xml_schema_collection_usages
279		- \|parameters
280		- \|partition_functions
281		- \|partition_parameters
282		- \|partition_range_values
283		- \|partition_schemes
284		- \|partitions
285		- \|plan_guides
286		- \|procedures
287		- \|remote_logins
288		- \|remote_service_bindings
289		- \|resource_governor_configuration
290		- \|resource_governor_resource_pools
291		- \|resource_governor_workload_groups
292		- \|routes
293		- \|schemas
294		- \|securable_classes
295		- \|server_assembly_modules
296		- \|server_audit_specification_details
297		- \|server_audit_specifications
298		- \|server_audits
299		- \|server_event_notifications
300		- \|server_event_session_actions
301		- \|server_event_session_events
302		- \|server_event_session_fields
303		- \|server_event_session_targets
304		- \|server_event_sessions
305		- \|server_events
306		- \|server_file_audits
307		- \|server_permissions
308		- \|server_principal_credentials
309		- \|server_principals
310		- \|server_role_members
311		- \|server_sql_modules
312		- \|server_trigger_events
313		- \|server_triggers
314		- \|servers
315		- \|service_broker_endpoints
316		- \|service_contract_message_usages
317		- \|service_contract_usages
318		- \|service_contracts
319		- \|service_message_types
320		- \|service_queue_usages
321		- \|service_queues
322		- \|services
323		- \|soap_endpoints
324		- \|spatial_index_tessellations
325		- \|spatial_indexes
326		- \|spatial_reference_systems
327		- \|sql_dependencies
328		- \|sql_logins
329		- \|sql_modules
330		- \|stats
331		- \|stats_columns
332		- \|symmetric_keys
333		- \|synonyms
334		- \|syscacheobjects
335		- \|syscharsets
336		- \|syscolumns
337		- \|syscomments
338		- \|sysconfigures
339		- \|sysconstraints
340		- \|syscurconfigs
341		- \|syscursorcolumns
342		- \|syscursorrefs
343		- \|syscursors
344		- \|syscursortables
345		- \|sysdatabases
346		- \|sysdepends
347		- \|sysdevices
348		- \|sysfilegroups
349		- \|sysfiles
350		- \|sysforeignkeys
351		- \|sysfulltextcatalogs
352		- \|sysindexes
353		- \|sysindexkeys
354		- \|syslanguages
355		- \|syslockinfo
356		- \|syslogins
357		- \|sysmembers
358		- \|sysmessages
359		- \|sysobjects
360		- \|sysoledbusers
361		- \|sysopentapes
362		- \|sysperfinfo
363		- \|syspermissions
364		- \|sysprocesses
365		- \|sysprotects
366		- \|sysreferences
367		- \|sysremotelogins
368		- \|sysservers
369		- \|system_columns
370		- \|system_components_surface_area_configuration
371		- \|system_objects
372		- \|system_parameters
373		- \|system_sql_modules
374		- \|system_views
375		- \|systypes
376		- \|sysusers
377		- \|table_types
378		- \|tables
379		- \|tcp_endpoints
380		- \|trace_categories
381		- \|trace_columns
382		- \|trace_event_bindings
383		- \|trace_events
384		- \|trace_subclass_values
385		- \|traces
386		- \|transmission_queue
387		- \|trigger_event_types
388		- \|trigger_events
389		- \|triggers
390		- \|type_assembly_usages
391		- \|types
392		- \|user_token
393		- \|via_endpoints
394		- \|views
395		- \|xml_indexes
396		- \|xml_schema_attributes
397		- \|xml_schema_collections
398		- \|xml_schema_component_placements
399		- \|xml_schema_components
400		- \|xml_schema_elements
401		- \|xml_schema_facets
402		- \|xml_schema_model_groups
403		- \|xml_schema_namespaces
404		- \|xml_schema_types
405		- \|xml_schema_wildcard_namespaces
406		- \|xml_schema_wildcards
407		- )/x
408		- };
409		-
410		- my $dsn = "dbi:ODBC:driver={SQL Server};Server={localhost\\SQLEXPRESS};"
411		- . "Trusted_Connection=No;AutoTranslate=No;Database=dbix_custom;";
412		- has dsn => $dsn;
413		- has user => 'dbix_custom';
414		- has password => 'dbix_custom';
415		-
416		- sub create_table1 { "create table $table1 ($key1 varchar(255), $key2 varchar(255))" }
417		- sub create_table1_2 {"create table $table1 ($key1 varchar(255), $key2 varchar(255), "
418		- . "$key3 varchar(255), $key4 varchar(255), $key5 varchar(255))" }
419		- sub create_table1_type { "create table $table1 ($key1 $date_typename, $key2 $datetime_typename)" }
420		- sub create_table1_highperformance { "create table $table1 ($key1 varchar(255), $key2 varchar(255), "
421		- . "$key3 varchar(255), $key4 varchar(255), $key5 varchar(255), $key6 varchar(255), $key7 varchar(255))" }
422		- sub create_table2 { "create table $table2 ($key1 varchar(255), $key3 varchar(255))" }
423		- sub create_table2_2 { "create table $table2 ($key1 varchar(255), $key2 varchar(255), $key3 varchar(255))" }
424		- sub create_table3 { "create table $table3 ($key1 varchar(255), $key2 varchar(255), $key3 varchar(255))" }
425		- sub create_table_reserved { 'create table "table" ("select" varchar(255), "update" varchar(255))' }
426		-}
427		-
428		-require "$FindBin::Bin/common.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		- $self->table1,
14		- $self->table2
15		- ]
16		- );
17		-}
18		-
19		-1;

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

...	...	@@ -1,17 +0,0 @@
1		-package MyModel1::table2;
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);
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::table1;
2		-
3		-use MyModel4 -base;
4		-
5		-has table => 'table1';
6		-
7		-sub list { shift->select }
8		-
9		-1;

...	...	@@ -1,8 +0,0 @@
1		-package MyModel4::table2;
2		-
3		-use base 'MyModel4';
4		-
5		-sub insert { shift->SUPER::insert($_[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::table2;
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,12 +0,0 @@
1		-package MyModel5::table3;
2		-
3		-use strict;
4		-use warnings;
5		-
6		-use base 'MyModel5';
7		-
8		-__PACKAGE__->attr(table => 'table3');
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;