@@ -1,3 +1,11 @@

+0.1663

+    - added bind_param_option can set bind_param option

+      to insert(), update(), delete(), select(), insert_at(),

+      update_at(), delete_at(), select_at(), delete_all(), update_all()

+0.1662

+    - removed EXPERIMENTAL DBIx::Custom::Model column_clause

+    - added EXPERIMENTAL column()

+    - added EXPERIMENTAL mycolumn()

 0.1661

     - added EXPERIMENTAL DBIx::Custom::Model table_alias attribute

     - added EXPERIMENTAL DBIx::Custom::Model mycolumn()

@@ -1,909 +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.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.0616], DBD::SQLite=>q[1.25], DBI=>q[1.605] }

-#     VERSION_FROM => q[lib/DBIx/Custom.pm]

-#     clean => { FILES=>q[DBIx-Custom-*] }

-#     dist => { COMPRESS=>q[gzip -9f], SUFFIX=>q[gz] }

-

-# --- 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.1661

-VERSION_MACRO = VERSION

-VERSION_SYM = 0_1661

-DEFINE_VERSION = -D$(VERSION_MACRO)=\"$(VERSION)\"

-XS_VERSION = 0.1661

-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.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.pm \

-	lib/DBIx/Custom/Guide.pod \

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

-	lib/DBIx/Custom/Model.pm \

-	lib/DBIx/Custom/MySQL.pm \

-	lib/DBIx/Custom/Query.pm \

-	lib/DBIx/Custom/QueryBuilder.pm \

-	lib/DBIx/Custom/Result.pm \

-	lib/DBIx/Custom/SQLite.pm \

-	lib/DBIx/Custom/Tag.pm \

-	lib/DBIx/Custom/Util.pm \

-	lib/DBIx/Custom/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.pm \

-	lib/DBIx/Custom/Guide.pod \

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

-	lib/DBIx/Custom/Model.pm \

-	lib/DBIx/Custom/MySQL.pm \

-	lib/DBIx/Custom/Query.pm \

-	lib/DBIx/Custom/QueryBuilder.pm \

-	lib/DBIx/Custom/Result.pm \

-	lib/DBIx/Custom/SQLite.pm \

-	lib/DBIx/Custom/Tag.pm \

-	lib/DBIx/Custom/Util.pm \

-	lib/DBIx/Custom/Where.pm

-

-PM_TO_BLIB = lib/DBIx/Custom/Tag.pm \

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

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

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

-	lib/DBIx/Custom/Util.pm \

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

-	lib/DBIx/Custom/Guide.pod \

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

-	lib/DBIx/Custom/Where.pm \

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

-	lib/DBIx/Custom/Model.pm \

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

-	lib/DBIx/Custom/MySQL.pm \

-	blib/lib/DBIx/Custom/MySQL.pm \

-	lib/DBIx/Custom.pm \

-	blib/lib/DBIx/Custom.pm \

-	lib/DBIx/Custom/Query.pm \

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

-	lib/DBIx/Custom/SQLite.pm \

-	blib/lib/DBIx/Custom/SQLite.pm \

-	lib/DBIx/Custom/Result.pm \

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

-	lib/DBIx/Custom/QueryBuilder.pm \

-	blib/lib/DBIx/Custom/QueryBuilder.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.1661

-

-

-# --- 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/Tag.pm \

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

-	lib/DBIx/Custom/Util.pm \

-	lib/DBIx/Custom/Guide.pod \

-	lib/DBIx/Custom/Where.pm \

-	lib/DBIx/Custom/Model.pm \

-	lib/DBIx/Custom/MySQL.pm \

-	lib/DBIx/Custom.pm \

-	lib/DBIx/Custom/Query.pm \

-	lib/DBIx/Custom/SQLite.pm \

-	lib/DBIx/Custom/Result.pm \

-	lib/DBIx/Custom/QueryBuilder.pm

-	$(NOECHO) $(POD2MAN) --section=3 --perm_rw=$(PERM_RW) \

-	  lib/DBIx/Custom/Tag.pm $(INST_MAN3DIR)/DBIx::Custom::Tag.$(MAN3EXT) \

-	  lib/DBIx/Custom/Guide/Ja.pod $(INST_MAN3DIR)/DBIx::Custom::Guide::Ja.$(MAN3EXT) \

-	  lib/DBIx/Custom/Util.pm $(INST_MAN3DIR)/DBIx::Custom::Util.$(MAN3EXT) \

-	  lib/DBIx/Custom/Guide.pod $(INST_MAN3DIR)/DBIx::Custom::Guide.$(MAN3EXT) \

-	  lib/DBIx/Custom/Where.pm $(INST_MAN3DIR)/DBIx::Custom::Where.$(MAN3EXT) \

-	  lib/DBIx/Custom/Model.pm $(INST_MAN3DIR)/DBIx::Custom::Model.$(MAN3EXT) \

-	  lib/DBIx/Custom/MySQL.pm $(INST_MAN3DIR)/DBIx::Custom::MySQL.$(MAN3EXT) \

-	  lib/DBIx/Custom.pm $(INST_MAN3DIR)/DBIx::Custom.$(MAN3EXT) \

-	  lib/DBIx/Custom/Query.pm $(INST_MAN3DIR)/DBIx::Custom::Query.$(MAN3EXT) \

-	  lib/DBIx/Custom/SQLite.pm $(INST_MAN3DIR)/DBIx::Custom::SQLite.$(MAN3EXT) \

-	  lib/DBIx/Custom/Result.pm $(INST_MAN3DIR)/DBIx::Custom::Result.$(MAN3EXT) \

-	  lib/DBIx/Custom/QueryBuilder.pm $(INST_MAN3DIR)/DBIx::Custom::QueryBuilder.$(MAN3EXT) 

-

-

-

-

-# --- MakeMaker processPL section:

-

-

-# --- MakeMaker installbin section:

-

-

-# --- MakeMaker subdirs section:

-

-# The default clean, realclean and test targets in this Makefile

-# have automatically been given entries for each subdir.

-

-

-subdirs ::

-	$(NOECHO) cd DBIx-Custom-0.1660 && $(MAKE) $(USEMAKEFILE) $(FIRST_MAKEFILE) all $(PASTHRU)

-

-

-# --- MakeMaker clean_subdirs section:

-clean_subdirs :

-	$(ABSPERLRUN)  -e 'chdir '\''DBIx-Custom-0.1660'\'';  system '\''$(MAKE) clean'\'' if -f '\''$(FIRST_MAKEFILE)'\'';' --

-

-

-# --- 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) \

-	  $(BASEEXT).def perl \

-	  core.[0-9][0-9][0-9] mon.out \

-	  lib$(BASEEXT).def perl.exe \

-	  perlmain.c so_locations \

-	  $(BASEEXT).exp 

-	- $(RM_RF) \

-	  DBIx-Custom-* blib 

-	- $(MV) $(FIRST_MAKEFILE) $(MAKEFILE_OLD) $(DEV_NULL)

-

-

-# --- MakeMaker realclean_subdirs section:

-realclean_subdirs :

-	- $(ABSPERLRUN)  -e 'chdir '\''DBIx-Custom-0.1660'\'';  system '\''$(MAKE) $(USEMAKEFILE) $(MAKEFILE_OLD) realclean'\'' if -f '\''$(MAKEFILE_OLD)'\'';' --

-	- $(ABSPERLRUN)  -e 'chdir '\''DBIx-Custom-0.1660'\'';  system '\''$(MAKE) $(USEMAKEFILE) $(FIRST_MAKEFILE) realclean'\'' if -f '\''$(FIRST_MAKEFILE)'\'';' --

-

-

-# --- 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.1661' >> META_new.yml

-	$(NOECHO) $(ECHO) 'abstract:           Useful database access, respecting SQL!' >> 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.0616' >> 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=DBIx-Custom-0.1660 \

-		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

-TESTDB_SW = -d

-

-testdb :: testdb_$(LINKTYPE)

-

-test :: $(TEST_TYPE) subdirs-test

-

-subdirs-test ::

-	$(NOECHO) $(NOOP)

-

-subdirs-test ::

-	$(NOECHO) cd DBIx-Custom-0.1660 && $(MAKE) test $(PASTHRU)

-

-

-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.1661">' > $(DISTNAME).ppd

-	$(NOECHO) $(ECHO) '    <ABSTRACT>Useful database access, respecting SQL!</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.0616" />' >> $(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/Tag.pm blib/lib/DBIx/Custom/Tag.pm \

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

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

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

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

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

-	  lib/DBIx/Custom/MySQL.pm blib/lib/DBIx/Custom/MySQL.pm \

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

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

-	  lib/DBIx/Custom/SQLite.pm blib/lib/DBIx/Custom/SQLite.pm \

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

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

-	$(NOECHO) $(TOUCH) pm_to_blib

-

-

-# --- MakeMaker selfdocument section:

-

-

-# --- MakeMaker postamble section:

-

-

-# End.

@@ -1,6 +1,6 @@

 package DBIx::Custom;

-our $VERSION = '0.1661';

+our $VERSION = '0.1663';

 use 5.008001;

 use strict;

@@ -19,6 +19,8 @@ use DBIx::Custom::Tag;

 use DBIx::Custom::Util;

 use Encode qw/encode_utf8 decode_utf8/;

+our @COMMON_ARGS = qw/table query filter bind_param_option/;

+

 __PACKAGE__->attr(

     [qw/data_source password pid user/],

     cache => 1,

@@ -140,14 +142,15 @@ sub apply_filter {

     return $self;

 }

-sub method {

-    my $self = shift;

+sub column {

+    my ($self, $table, $columns) = @_;

-    # Merge

-    my $methods = ref $_[0] eq 'HASH' ? $_[0] : {@_};

-    $self->{_methods} = {%{$self->{_methods} || {}}, %$methods};

+    $columns ||= [];

-    return $self;

+    my @column;

+    push @column, "$table.$_ as ${table}__$_" for @$columns;

+    

+    return join (', ', @column);

 }

 sub connect {

@@ -238,7 +241,7 @@ sub dbh {

 }

 our %VALID_DELETE_ARGS

-  = map { $_ => 1 } qw/table where append filter allow_delete_all query/;

+  = map { $_ => 1 } @COMMON_ARGS, qw/where append allow_delete_all/;

 sub delete {

     my ($self, %args) = @_;

@@ -303,7 +306,7 @@ sub delete {

 sub delete_all { shift->delete(allow_delete_all => 1, @_) }

 our %VALID_DELETE_AT_ARGS

-  = map { $_ => 1 } qw/table where append filter query primary_key param/;

+  = (%VALID_DELETE_ARGS, where => 1, primary_key => 1);

 sub delete_at {

     my ($self, %args) = @_;

@@ -472,7 +475,7 @@ sub execute{

 }

 our %VALID_INSERT_ARGS

-  = map { $_ => 1 } qw/table param append filter query/;

+  = map { $_ => 1 } @COMMON_ARGS, qw/param append/;

 sub insert {

     my ($self, %args) = @_;

@@ -525,8 +528,7 @@ sub insert {

 }

 our %VALID_INSERT_AT_ARGS

-  = map { $_ => 1 } qw/table param where append filter

-                       query primary_key param/;

+  = (%VALID_INSERT_ARGS, where => 1, primary_key => 1);

 sub insert_at {

     my ($self, %args) = @_;

@@ -681,6 +683,16 @@ sub include_model {

     return $self;

 }

+sub method {

+    my $self = shift;

+    

+    # Merge

+    my $methods = ref $_[0] eq 'HASH' ? $_[0] : {@_};

+    $self->{_methods} = {%{$self->{_methods} || {}}, %$methods};

+    

+    return $self;

+}

+

 sub model {

     my ($self, $name, $model) = @_;

@@ -698,6 +710,16 @@ sub model {

     return $self->models->{$name};

 }

+sub mycolumn {

+    my ($self, $table, $columns) = @_;

+    

+    $columns ||= [];

+    my @column;

+    push @column, "$table.$_ as $_" for @$columns;

+    

+    return join (', ', @column);

+}

+

 sub new {

     my $self = shift->SUPER::new(@_);

@@ -740,8 +762,8 @@ sub register_filter {

 sub register_tag { shift->query_builder->register_tag(@_) }

 our %VALID_SELECT_ARGS

-  = map { $_ => 1 } qw/table column where append relation filter query

-                       selection join/;

+  = map { $_ => 1 } @COMMON_ARGS, qw/column where append relation

+                                     selection join/;

 sub select {

     my ($self, %args) = @_;

@@ -816,15 +838,14 @@ sub select {

             # Column clause of main table

             if ($main_table) {

-                push @sql, $self->model($main_table)->column_clause;

+                push @sql, $self->model($main_table)->mycolumn;

                 push @sql, ',';

             }

             # Column cluase of other tables

             foreach my $table (keys %tables) {

                 unshift @$tables, $table;

-                push @sql, $self->model($table)

-                                ->column_clause(prefix => "${table}__");

+                push @sql, $self->model($table)->column($table);

                 push @sql, ',';

             }

             pop @sql if $sql[-1] eq ',';

@@ -910,8 +931,7 @@ sub select {

 }

 our %VALID_SELECT_AT_ARGS

-  = map { $_ => 1 } qw/table column where append relation filter query selection

-                       param primary_key join/;

+  = (%VALID_SELECT_ARGS, where => 1, primary_key => 1);

 sub select_at {

     my ($self, %args) = @_;

@@ -971,8 +991,8 @@ sub setup_model {

 }

 our %VALID_UPDATE_ARGS

-  = map { $_ => 1 } qw/table param where append filter

-                       allow_update_all query/;

+  = map { $_ => 1 } @COMMON_ARGS, qw/param where append

+                                     allow_update_all/;

 sub update {

     my ($self, %args) = @_;

@@ -1069,8 +1089,7 @@ sub update {

 sub update_all { shift->update(allow_update_all => 1, @_) };

 our %VALID_UPDATE_AT_ARGS

-  = map { $_ => 1 } qw/table param where append filter

-                       query primary_key param/;

+  = (%VALID_UPDATE_ARGS, where => 1, primary_key => 1);

 sub update_at {

     my ($self, %args) = @_;

@@ -1825,6 +1844,15 @@ filter name registerd by C<register_filter()>.

 These filters are added to the C<out> filters, set by C<apply_filter()>.

+=head2 C<column> EXPERIMENTAL

+

+    my $column = $self->column(book => ['author', 'title']);

+

+Create column clause. The follwoing column clause is created.

+

+    book.author as book__author,

+    book.title as book__title

+

 =item C<query> EXPERIMENTAL

 Get L<DBIx::Custom::Query> object instead of executing SQL.

@@ -2121,6 +2149,15 @@ Register method. These method is called directly from L<DBIx::Custom> object.

 Set and get a L<DBIx::Custom::Model> object,

+=head2 C<mycolumn> EXPERIMENTAL

+

+    my $column = $self->mycolumn(book => ['author', 'title']);

+

+Create column clause for myself. The follwoing column clause is created.

+

+    book.author as author,

+    book.title as title

+

 =head2 C<new>

     my $dbi = DBIx::Custom->new(

@@ -325,9 +325,10 @@ You can join table by C<join>.

 Following SQL is executed.

-    select company.name as company__name from book

+    select company.name as company__name

+    from book

       left outer join company on book.company_id = company.id

-      where book.name = ?;

+    where book.name = ?;

 company_if of book and id of company is left outer joined.

@@ -345,7 +346,26 @@ because C<join> is not needed.

 Following SQL is executeed.

     select * from book where book.name = ?;

-    

+

+You can specify column names easily using C<mycolumn()> and C<column()>.

+

+    my $result = $dbi->select(

+        table  => 'book',

+        column => [

+            $dbi->mycolumn('book' => ['name']),

+            $dbi->column('company' => ['id', 'name'])

+        ],

+        join   => ['left outer join company on book.company_id = company.id]

+    );

+

+The following SQL is executed.

+

+    select book.name as name,

+      company.id as comapny__id,

+      company.name as company__name

+    from book

+      left outer join company on book.company_id = company.id

+

 Next example.

     my $result = $dbi->select(

@@ -1171,6 +1191,29 @@ Table name is the table really accessed.

     $dbi->model('book')->insert(...); # access to "book_table"

+=head2 Create column clause automatically : mycolumn(), column()

+

+To create column clause automatically, use C<mycolumn()>.

+Valude of C<table> and C<columns> is used.

+

+    my $column_clause = $model->mycolumn;

+

+If C<table> is 'book'�AC<column> is ['id', 'name'],

+the following clause is created.

+

+    book.id as id, book.name as name

+

+These column name is for removing column name ambiguities.

+

+You can create column clause from columns of other table.

+

+    my $column_clause = $model->column('company');

+

+If C<table> is 'company'�AC<column> is ['id', 'name'],

+the following clause is created.

+

+    company.id as company__id, company.name as company__name

+

 =head2 Create column clause automatically : column_clause()

 To create column clause automatically, use C<column_clause()>.

@@ -331,9 +331,10 @@ C<join>でテーブルの結合を行うことができます。

 次のSQLが実行されます。

-    select company.name as company__name from book

+    select company.name as company__name

+    from book

       left outer join company on book.company_id = company.id

-      where book.name = ?;

+    where book.name = ?;

 bookテーブルのcompany_id列とcompanyテーブルのidが左外部結合されます。

 次のSQLが実行されます。

@@ -360,6 +361,25 @@ C<join>されるのは、C<where>やC<column>にテーブル名が含まれて

         append => 'for update',

     );

+C<mycolumn()>やC<column()>を使用すると簡単に列名を指定できます。

+

+    my $result = $dbi->select(

+        table  => 'book',

+        column => [

+            $dbi->mycolumn('book' => ['name']),

+            $dbi->column('company' => ['id', 'name'])

+        ],

+        join   => ['left outer join company on book.company_id = company.id]

+    );

+

+次のSQLが実行されます。

+

+    select book.name as name,

+      company.id as comapny__id,

+      company.name as company__name

+    from book

+      left outer join company on book.company_id = company.id

+

 C<append>はSQLの末尾に追加される文字列です。

 次のSQLが実行されます。

@@ -1211,12 +1231,12 @@ C<filter>でC<apply_filter()>で適用されるフィルタを定義しておく

     $dbi->model('book')->insert(...); # book_tableにアクセス

-=head2 列名の自動生成 : column_clause()

+=head2 列名の自動生成 : mycolumn(), column()

-列名の節を自動生成するにはC<column_clause()>を使用します。

+列名の節を自動生成するにはC<mycolumn()>を使用します。

 C<table>とC<columns>の値が利用されます。

-    my $column_clause = $model->column_clause;

+    my $column_clause = $model->mycolumn;

 C<table>の値が'book'、C<column>の値が['id', 'name']で

 あった場合は次のような列名の節が生成されます。

@@ -1225,13 +1245,14 @@ C<table>の値が'book'、C<column>の値が['id', 'name']で

 このように列名の節を生成するのは、列名のあいまいさをなくすためです。

-不必要な列がある場合はC<remove>オプションで指定することができます。

+また他のテーブルの列名から列名を自動生成することもできます。

-    my $column_clause = $model->column_clause(remove => ['id']);

+    my $column_clause = $model->column('company');

-追加したい列がある場合は、C<add>オプションで追加することができます。

+モデルのC<comparny>のC<column>の値が['id', 'name']で

+あった場合は次のような列名の節が生成されます。

-    my $column_clause = $model->column_clause(add => ['company.id as company__id']);

+    company.id as company__id, company.name as company__name

 =head2 モデルのサンプル

@@ -39,43 +39,6 @@ sub AUTOLOAD {

     }

 }

-sub column_clause {

-    my $self = shift;

-    

-    my $args = ref $_[0] eq 'HASH' ? $_[0] : {@_};

-    

-    my $table   = $self->table;

-    my $columns = $self->columns;

-    my $add     = $args->{add} || [];

-    my $remove  = $args->{remove} || [];

-    my %remove  = map {$_ => 1} @$remove;

-    my $prefix  = $args->{prefix} || '';

-    

-    my @column;

-    foreach my $column (@$columns) {

-        push @column, "$table.$column as $prefix$column"

-          unless $remove{$column};

-    }

-    

-    foreach my $column (@$add) {

-        push @column, $column;

-    }

-    

-    return join (', ', @column);

-}

-

-sub mycolumn {

-    my ($self, $columns) = @_;

-    

-    my $table = $self->table || '';

-    $columns ||= $self->columns;

-    

-    my @column;

-    push @column, "$table.$_ as $_" for @$columns;

-    

-    return join (', ', @column);

-}

-

 sub column {

     my ($self, $table, $columns) = @_;

@@ -90,10 +53,7 @@ sub column {

     $columns ||= $self->model($model)->columns;

-    my @column;

-    push @column, "$table.$_ as ${table}__$_" for @$columns;

-    

-    return join (', ', @column);

+    return $self->dbi->column($table, $columns);

 }

 sub delete {

@@ -133,6 +93,17 @@ sub insert_at {

     );

 }

+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 select {

     my $self = shift;

     $self->dbi->select(

@@ -247,35 +218,17 @@ L<DBIx::Custom> inherits all methods from L<Object::Simple>,

 and you can use all methods of the object set to C<dbi>.

 and implements the following new ones.

-=head2 C<column_clause()>

-

-To create column clause automatically, use C<column_clause()>.

-Valude of C<table> and C<columns> is used.

-

-    my $column_clause = $model->column_clause;

-

-If C<table> is 'book'�AC<column> is ['id', 'name'],

-the following clause is created.

-

-    book.id as id, book.name as name

-

-These column name is for removing column name ambiguities.

+=head2 C<column> EXPERIMETNAL

-If you remove some columns, use C<remove> option.

+    my $column = $self->column(book => ['author', 'title']);

+    my $column = $self->column('book');

-    my $column_clause = $model->column_clause(remove => ['id']);

+Create column clause. The follwoing column clause is created.

-If you add some column, use C<add> option.

+    book.author as book__author,

+    book.title as book__title

-    my $column_clause = $model->column_clause(add => ['company.id as company__id']);

-

-If you add column name prefix, use C<prefix> option

-

-    my $column_clause = $model->column_clause(prefix => 'book__');

-

-The following clause is created.

-

-    book.id as book__id, book.name as book__name

+If column names is omitted, C<columns> attribute of the model is used.

 =head2 C<delete>

@@ -312,6 +265,20 @@ you don't have to specify C<table> option.

 Same as C<insert_at()> of L<DBIx::Custom> except that

 you don't have to specify C<table> and C<primary_key> option.

+=head2 C<mycolumn> EXPERIMENTAL

+

+    my $column = $self->mycolumn;

+    my $column = $self->mycolumn(book => ['author', 'title']);

+    my $column = $self->mycolumn(['author', 'title']);

+

+Create column clause for myself. The follwoing column clause is created.

+

+    book.author as author,

+    book.title as title

+

+If table name is ommited, C<table> attribute of the model is used.

+If column names is omitted, C<columns> attribute of the model is used.

+

 =head2 C<new>

     my $table = DBIx::Custom::Table->new;

@@ -1545,7 +1545,7 @@ $dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2, key3 => 3});

 $result = $dbi->select_at(

     table => 'table1',

     primary_key => ['key1', 'key2'],

-    param => {key1 => 1, key2 => 2},

+    where => [1, 2]

 );

 $row = $result->fetch_hash_first;

 is($row->{key1}, 1);

@@ -1557,7 +1557,6 @@ eval {

         table => 'table1',

         primary_key => ['key1', 'key2'],

         where => {},

-        param => {key1 => 1, key2 => 2},

     );

 };

 like($@, qr/must be/);

@@ -1577,7 +1576,6 @@ eval {

         table => 'table1',

         primary_key => ['key1', 'key2'],

         where => {},

-        param => {key1 => 1, key2 => 2},

     );

 };

 like($@, qr/must be/);

@@ -1652,7 +1650,7 @@ is($row->{key2}, 2);

 is($row->{key3}, 3);

-test 'column_clause';

+test 'mycolumn and column';

 {

     package MyDBI7;

@@ -1674,12 +1672,12 @@ $dbi->setup_model;

 $dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2});

 $dbi->insert(table => 'table2', param => {key1 => 1, key3 => 3});

 $model = $dbi->model('table1');

-$result = $model->select(column => $model->column_clause, where => {'table1.key1' => 1});

-is_deeply($result->fetch_hash_first, {key1 => 1, key2 => 2});

-$result = $model->select(column => $model->column_clause(remove => ['key1']), where => {'table1.key1' => 1});

-is_deeply($result->fetch_hash_first, {key2 => 2});

-$result = $model->select(column => $model->column_clause(add => ['table2.key3']), where => {'table1.key1' => 1});

-is_deeply($result->fetch_hash_first, {key1 => 1, key2 => 2, key3 => 3});

+$result = $model->select(

+    column => [$model->mycolumn, $model->column('table2')],

+    where => {'table1.key1' => 1}

+);

+is_deeply($result->fetch_hash_first,

+          {key1 => 1, key2 => 2, 'table2__key1' => 1, 'table2__key3' => 3});

 test 'update_param';

 $dbi = DBIx::Custom->connect($NEW_ARGS->{0});