@@ -1,3 +1,7 @@

+0.1623

+  added experimental auto_filter method

+  deprecated default_bind_filter and default_fetch_filter because these are global effect.

+  weakend filter_check for usability

 0.1622

   deprecated DBIx::Custom::SQLite and DBIx::Custom::MySQL

   added dbi_options attribute

@@ -1,873 +0,0 @@

-# This Makefile is for the DBIx::Custom extension to perl.

-#

-# It was generated automatically by MakeMaker version

-# 6.48 (Revision: 64800) 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>]

-#     LICENSE => q[perl]

-#     NAME => q[DBIx::Custom]

-#     PL_FILES => {  }

-#     PREREQ_PM => { Test::More=>q[0], Object::Simple=>q[3.0201], 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.6.so

-LIB_EXT = .a

-OBJ_EXT = .o

-OSNAME = linux

-OSVERS = 2.6.18-53.1.14.el5xen

-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.1620

-VERSION_MACRO = VERSION

-VERSION_SYM = 0_1620

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

-XS_VERSION = 0.1620

-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_RW = 644

-PERM_RWX = 755

-

-MAKEMAKER   = /usr/lib/perl5/5.8.8/ExtUtils/MakeMaker.pm

-MM_VERSION  = 6.48

-MM_REVISION = 64800

-

-# 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/Guides.pod \

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

-	lib/DBIx/Custom/MySQL.pm \

-	lib/DBIx/Custom/Query.pm \

-	lib/DBIx/Custom/QueryBuilder.pm \

-	lib/DBIx/Custom/QueryBuilder/TagProcessors.pm \

-	lib/DBIx/Custom/Result.pm \

-	lib/DBIx/Custom/SQLite.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/Guides.pod \

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

-	lib/DBIx/Custom/MySQL.pm \

-	lib/DBIx/Custom/Query.pm \

-	lib/DBIx/Custom/QueryBuilder.pm \

-	lib/DBIx/Custom/QueryBuilder/TagProcessors.pm \

-	lib/DBIx/Custom/Result.pm \

-	lib/DBIx/Custom/SQLite.pm

-

-PM_TO_BLIB = lib/DBIx/Custom/QueryBuilder/TagProcessors.pm \

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

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

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

-	lib/DBIx/Custom/MySQL.pm \

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

-	lib/DBIx/Custom/Guides.pod \

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

-	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.48

-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 = $(SHELL) -c 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

-ECHO = echo

-ECHO_N = echo -n

-UNINST = 0

-VERBINST = 0

-MOD_INSTALL = $(ABSPERLRUN) -MExtUtils::Install -e 'install({@ARGV}, '\''$(VERBINST)'\'', 0, '\''$(UNINST)'\'');' --

-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 = $(PERLRUN) "-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.1620

-

-

-# --- 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) 755 $(INST_LIBDIR)

-	$(NOECHO) $(TOUCH) $(INST_LIBDIR)$(DFSEP).exists

-

-$(INST_ARCHLIB)$(DFSEP).exists :: Makefile.PL

-	$(NOECHO) $(MKPATH) $(INST_ARCHLIB)

-	$(NOECHO) $(CHMOD) 755 $(INST_ARCHLIB)

-	$(NOECHO) $(TOUCH) $(INST_ARCHLIB)$(DFSEP).exists

-

-$(INST_AUTODIR)$(DFSEP).exists :: Makefile.PL

-	$(NOECHO) $(MKPATH) $(INST_AUTODIR)

-	$(NOECHO) $(CHMOD) 755 $(INST_AUTODIR)

-	$(NOECHO) $(TOUCH) $(INST_AUTODIR)$(DFSEP).exists

-

-$(INST_ARCHAUTODIR)$(DFSEP).exists :: Makefile.PL

-	$(NOECHO) $(MKPATH) $(INST_ARCHAUTODIR)

-	$(NOECHO) $(CHMOD) 755 $(INST_ARCHAUTODIR)

-	$(NOECHO) $(TOUCH) $(INST_ARCHAUTODIR)$(DFSEP).exists

-

-$(INST_BIN)$(DFSEP).exists :: Makefile.PL

-	$(NOECHO) $(MKPATH) $(INST_BIN)

-	$(NOECHO) $(CHMOD) 755 $(INST_BIN)

-	$(NOECHO) $(TOUCH) $(INST_BIN)$(DFSEP).exists

-

-$(INST_SCRIPT)$(DFSEP).exists :: Makefile.PL

-	$(NOECHO) $(MKPATH) $(INST_SCRIPT)

-	$(NOECHO) $(CHMOD) 755 $(INST_SCRIPT)

-	$(NOECHO) $(TOUCH) $(INST_SCRIPT)$(DFSEP).exists

-

-$(INST_MAN1DIR)$(DFSEP).exists :: Makefile.PL

-	$(NOECHO) $(MKPATH) $(INST_MAN1DIR)

-	$(NOECHO) $(CHMOD) 755 $(INST_MAN1DIR)

-	$(NOECHO) $(TOUCH) $(INST_MAN1DIR)$(DFSEP).exists

-

-$(INST_MAN3DIR)$(DFSEP).exists :: Makefile.PL

-	$(NOECHO) $(MKPATH) $(INST_MAN3DIR)

-	$(NOECHO) $(CHMOD) 755 $(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/QueryBuilder/TagProcessors.pm \

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

-	lib/DBIx/Custom/MySQL.pm \

-	lib/DBIx/Custom/Guides.pod \

-	lib/DBIx/Custom.pm \

-	lib/DBIx/Custom/SQLite.pm \

-	lib/DBIx/Custom/Query.pm \

-	lib/DBIx/Custom/Result.pm \

-	lib/DBIx/Custom/QueryBuilder.pm

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

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

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

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

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

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

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

-	  lib/DBIx/Custom/Query.pm $(INST_MAN3DIR)/DBIx::Custom::Query.$(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:

-

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

-	  $(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 :

-	$(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.1620' >> META_new.yml

-	$(NOECHO) $(ECHO) 'abstract:           DBI interface, having hash parameter binding and filtering system' >> 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) '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.0201' >> 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.48' >> 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 :: all pure_install doc_install

-	$(NOECHO) $(NOOP)

-

-install_perl :: all pure_perl_install doc_perl_install

-	$(NOECHO) $(NOOP)

-

-install_site :: all pure_site_install doc_site_install

-	$(NOECHO) $(NOOP)

-

-install_vendor :: all 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 ::

-	$(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 ::

-	$(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 ::

-	$(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 ::

-	$(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 ::

-	$(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 ::

-	$(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

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

-	$(NOECHO) $(ECHO) '    <TITLE>$(DISTNAME)</TITLE>' >> $(DISTNAME).ppd

-	$(NOECHO) $(ECHO) '    <ABSTRACT>DBI interface, having hash parameter binding and filtering system</ABSTRACT>' >> $(DISTNAME).ppd

-	$(NOECHO) $(ECHO) '    <AUTHOR>Yuki Kimoto &lt;kimoto.yuki@gmail.com&gt;</AUTHOR>' >> $(DISTNAME).ppd

-	$(NOECHO) $(ECHO) '    <IMPLEMENTATION>' >> $(DISTNAME).ppd

-	$(NOECHO) $(ECHO) '        <DEPENDENCY NAME="DBD-SQLite" VERSION="1,25,0,0" />' >> $(DISTNAME).ppd

-	$(NOECHO) $(ECHO) '        <DEPENDENCY NAME="DBI" VERSION="1,605,0,0" />' >> $(DISTNAME).ppd

-	$(NOECHO) $(ECHO) '        <DEPENDENCY NAME="Object-Simple" VERSION="3,0201,0,0" />' >> $(DISTNAME).ppd

-	$(NOECHO) $(ECHO) '        <DEPENDENCY NAME="Test-More" VERSION="0,0,0,0" />' >> $(DISTNAME).ppd

-	$(NOECHO) $(ECHO) '        <OS NAME="$(OSNAME)" />' >> $(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 : $(TO_INST_PM)

-	$(NOECHO) $(ABSPERLRUN) -MExtUtils::Install -e 'pm_to_blib({@ARGV}, '\''$(INST_LIB)/auto'\'', '\''$(PM_FILTER)'\'')' -- \

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

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

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

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

-	  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.1622';

+our $VERSION = '0.1623';

 use 5.008001;

 use strict;

@@ -74,6 +74,46 @@ sub AUTOLOAD {

     return $self->$helper(@_);

 }

+sub auto_filter {

+    my $self = shift;

+    

+    # Table

+    my $table = shift;

+    

+    # Column infomations

+    my @cs = @_;

+    

+    # Initialize filters

+    $self->{_auto_bind_filter} ||= {};

+    $self->{_auto_fetch_filter} ||= {};

+    

+    # Create auto filters

+    foreach my $c (@cs) {

+        croak "Usage \$dbi->auto_filter(" .

+              "TABLE, [COLUMN, BIND_FILTER, FETCH_FILTER], [...])"

+          unless ref $c eq 'ARRAY' && @$c == 3;

+        

+        # Column

+        my $column = $c->[0];

+        

+        # Bind filter

+        my $bind_filter  = $c->[1];

+        croak qq{"$bind_filter" is not registered}

+          unless $self->filters->{$bind_filter};

+        $self->{_auto_bind_filter}{$table}{$column} = $bind_filter;

+        $self->{_auto_bind_filter}{$table}{"$table.$column"} = $bind_filter;

+        

+        # Fetch filter

+        my $fetch_filter = $c->[2];

+        croak qq{"$fetch_filter" is not registered}

+          unless $self->filters->{$fetch_filter};

+        $self->{_auto_fetch_filter}{$table}{$column} = $fetch_filter;

+        $self->{_auto_fetch_filter}{$table}{"$table.$column"} = $fetch_filter;

+    }

+    

+    return $self;

+}

+

 sub helper {

     my $self = shift;

@@ -100,8 +140,6 @@ sub connect {

     my $password    = $self->password;

     my $dbi_options = $self->dbi_options || {};

-    $DB::single = 1;

-    

     # Connect

     my $dbh = eval {DBI->connect(

         $data_source,

@@ -168,7 +206,7 @@ sub create_query {

 }

 our %VALID_DELETE_ARGS

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

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

 sub delete {

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

@@ -185,7 +223,12 @@ sub delete {

     my $append = $args{append};

     my $filter           = $args{filter};

     my $allow_delete_all = $args{allow_delete_all};

-    

+

+    my $auto_filter_table = exists $args{auto_filter_table}

+                          ? $args{auto_filter_table}

+                          : [$table];

+    $auto_filter_table ||= [];    

+

     # Where keys

     my @where_keys = keys %$where;

@@ -207,8 +250,9 @@ sub delete {

     $source .= " $append" if $append;

     # Execute query

-    my $ret_val = $self->execute($source, param  => $where, 

-                                 filter => $filter);

+    my $ret_val = $self->execute(

+        $source, param  => $where, filter => $filter,

+        auto_filter_table => $auto_filter_table);

     return $ret_val;

 }

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

 sub DESTROY { }

-our %VALID_EXECUTE_ARGS = map { $_ => 1 } qw/param filter/;

+our %VALID_EXECUTE_ARGS = map { $_ => 1 } qw/param filter auto_filter_table/;

 sub execute{

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

@@ -234,7 +278,19 @@ sub execute{

     $query = $self->create_query($query)

       unless ref $query;

+    # Auto filter

+    my $auto_filter = {};

+    my $auto_filter_tables = $args{auto_filter_table} || [];

+    foreach my $table (@$auto_filter_tables) {

+        $auto_filter = {

+            %$auto_filter,

+            %{$self->{_auto_bind_filter}->{$table} || {}}

+        }

+    }

+    

+    # Filter

     my $filter = $args{filter} || $query->filter || {};

+    $filter = {%$auto_filter, %$filter};

     # Create bind value

     my $bind_values = $self->_build_bind_values($query, $params, $filter);

@@ -248,12 +304,22 @@ sub execute{

     # Return resultset if select statement is executed

     if ($sth->{NUM_OF_FIELDS}) {

-        # Create result

-        my $result = $self->result_class->new(

+        # Auto fetch filter

+        my $auto_fetch_filter = {};

+	    foreach my $table (@$auto_filter_tables) {

+	        $auto_fetch_filter = {

+	            %$auto_filter,

+	            %{$self->{_auto_fetch_filter}{$table} || {}}

+	        }

+	    }

+	    

+		# Result

+		my $result = $self->result_class->new(

             sth            => $sth,

             default_filter => $self->default_fetch_filter,

             filters        => $self->filters,

-            filter_check   => $self->filter_check

+            filter_check   => $self->filter_check,

+            _auto_filter   => $auto_fetch_filter || {}

         );

         return $result;

@@ -276,8 +342,8 @@ sub expand {

     return %$expand;

 }

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

-

+our %VALID_INSERT_ARGS = map { $_ => 1 } qw/table param append

+                                            filter auto_filter_table/;

 sub insert {

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

@@ -293,6 +359,11 @@ sub insert {

     my $append = $args{append} || '';

     my $filter = $args{filter};

+    my $auto_filter_table = exists $args{auto_filter_table}

+                          ? $args{auto_filter_table}

+                          : [$table];

+    $auto_filter_table ||= [];

+    

     # Insert keys

     my @insert_keys = keys %$param;

@@ -302,8 +373,12 @@ sub insert {

     $source .= " $append" if $append;

     # Execute query

-    my $ret_val = $self->execute($source, param  => $param, 

-                                          filter => $filter);

+    my $ret_val = $self->execute(

+        $source,

+        param  => $param,

+        filter => $filter,

+        auto_filter_table => $auto_filter_table

+    );

     return $ret_val;

 }

@@ -332,7 +407,7 @@ sub register_filter {

 }

 our %VALID_SELECT_ARGS

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

+  = map { $_ => 1 } qw/auto_filter_table table column where append relation filter param/;

 sub select {

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

@@ -351,6 +426,10 @@ sub select {

     my $relation = $args{relation};

     my $append   = $args{append};

     my $filter   = $args{filter};

+

+    my $auto_filter_table = exists $args{auto_filter_table}

+                          ? $args{auto_filter_table}

+                          : $tables;

     # Source of SQL

     my $source = 'select ';

@@ -404,14 +483,16 @@ sub select {

     $source .= " $append" if $append;

     # Execute query

-    my $result = $self->execute($source, param  => $param, 

-                                         filter => $filter);

+    my $result = $self->execute(

+        $source, param  => $param, filter => $filter,

+        auto_filter_table => $auto_filter_table);    

     return $result;

 }

 our %VALID_UPDATE_ARGS

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

+  = map { $_ => 1 } qw/auto_filter_table table param

+                       where append filter allow_update_all/;

 sub update {

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

@@ -430,6 +511,11 @@ sub update {

     my $filter           = $args{filter};

     my $allow_update_all = $args{allow_update_all};

+    my $auto_filter_table = exists $args{auto_filter_table}

+                          ? $args{auto_filter_table}

+                          : [$table];

+    $auto_filter_table ||= [];

+    

     # Update keys

     my @update_keys = keys %$param;

@@ -474,7 +560,8 @@ sub update {

     # Execute query

     my $ret_val = $self->execute($source, param  => $param, 

-                                 filter => $filter);

+                                 filter => $filter,

+                                 auto_filter_table => $auto_filter_table);

     return $ret_val;

 }

@@ -533,13 +620,6 @@ sub _check_filter {

     # Default filter name not exists

     croak qq{Default bind filter "$default_filter" is not registered}

       if $default_filter && ! exists $filters->{$default_filter};

-    

-    # Column name not exists

-    foreach my $column (keys %$filter) {

-        

-        croak qq{Column name "$column" in bind filter is not found in paramters}

-          unless exists $params->{$column};

-    }

 }

 sub _croak {

@@ -817,7 +897,24 @@ C<connect()> method use this value to connect the database.

 L<DBIx::Custom> inherits all methods from L<Object::Simple>

 and implements the following new ones.

-=head2 begin_work

+=head2 C<(experimental) auto_filter >

+

+    $dbi->auto_filter(

+        $table,

+        [$column1, $bind_filter1, $fetch_filter1],

+        [$column2, $bind_filter2, $fetch_filter2],

+        [...],

+    );

+

+C<auto_filter> is automatically filter for columns of table.

+This have effect C<insert>, C<update>, C<delete>. C<select>

+and L<DBIx::Custom::Result> object.

+

+B<Example:>

+

+    $dbi->auto_filter('books', 'sale_date', 'to_date', 'date_to');

+

+=head2 C<begin_work>

     $dbi->begin_work;

@@ -827,7 +924,7 @@ This is same as L<DBI>'s C<begin_work>.

 L<DBIx::Custom> inherits all methods from L<Object::Simple>

 and implements the following new ones.

-=head2 commit

+=head2 C<commit>

     $dbi->commit;

@@ -1032,7 +1129,7 @@ B<Example:>

         }

     );

-=head2 rollback

+=head2 C<rollback>

     $dbi->rollback;

@@ -7,7 +7,8 @@ use base 'Object::Simple';

 use Carp 'croak';

-__PACKAGE__->attr([qw/default_filter filter filter_check filters sth/]);

+__PACKAGE__->attr([qw/default_filter filter

+                      filter_check filters sth/]);

 sub fetch {

     my $self = shift;

@@ -15,6 +16,8 @@ sub fetch {

     # Filters

     my $filters = $self->{filters} || {};

     my $filter  = $self->{filter}  || {};

+    my $auto_filter = $self->{_auto_filter} || {};

+    $filter = {%$auto_filter, %$filter};

     # Fetch

     my @row = $self->{sth}->fetchrow_array;

@@ -77,6 +80,8 @@ sub fetch_hash {

     # Filters

     my $filters = $self->{filters} || {};

     my $filter  = $self->{filter}  || {};

+    my $auto_filter = $self->{_auto_filter} || {};

+    $filter = {%$auto_filter, %$filter};

     # Fetch

     my $row = $self->{sth}->fetchrow_arrayref;

@@ -186,16 +191,6 @@ sub _check_filter {

     # Default filter name not exists

     croak qq{Default fetch filter "$default_filter" is not registered}

       if $default_filter && ! exists $filters->{$default_filter};

-    

-    # Column name not exists

-    my %columns = map {$_ => 1} @{$self->sth->{NAME_lc}};

-    foreach my $column (keys %$filter) {

-        croak qq{Column name "$column" in fetch filter must lower case string}

-          unless $column eq lc $column;

-        

-        croak qq{Column name "$column" in fetch filter is not found in result columns}

-          unless $columns{$column};

-    }

 }

 1;

@@ -469,18 +469,6 @@ $result->filter({key1 => 'not_exists'});

 eval{$result->fetch_first};

 like($@, qr/\QFetch filter "not_exists" is not registered/, "$test :  array :fetch_filter");

-$result = $dbi->select(table => 'table1');

-$result->filter({not_exists => 'encode_utf8'});

-eval{$result->fetch_first};

-like($@, qr/\QColumn name "not_exists" in fetch filter is not found in result columns/,

-     "$test :  array : fetch_filter");

-

-$result = $dbi->select(table => 'table1');

-$result->filter({Key1 => 'encode_utf8'});

-eval{$result->fetch_first};

-like($@, qr/\QColumn name "Key1" in fetch filter must lower case string/,

-     "$test :  array : contain upper case charactor");

-

 $dbi->filter_check(0);

 $result = $dbi->select(table => 'table1');

 $result->filter({Key1 => 'encode_utf8'});

@@ -501,25 +489,12 @@ $result->filter({key1 => 'not_exists'});

 eval{$result->fetch_hash_first};

 like($@, qr/\QFetch filter "not_exists" is not registered/, "$test : hash :fetch_filter");

-$result = $dbi->select(table => 'table1');

-$result->filter({not_exists => 'encode_utf8'});

-eval{$result->fetch_hash_first};

-like($@, qr/\QColumn name "not_exists" in fetch filter is not found in result columns/,

-     "$test : hash : fetch_filter");

-

-$result = $dbi->select(table => 'table1');

-$result->filter({Key1 => 'encode_utf8'});

-eval{$result->fetch_hash_first};

-like($@, qr/\QColumn name "Key1" in fetch filter must lower case string/,

-     "$test : hash : contain upper case charactor");

-

 $dbi->filter_check(0);

 $result = $dbi->select(table => 'table1');

 $result->filter({Key1 => 'encode_utf8'});

 eval{$result->fetch_hash_first};

 ok(!$@, "$test : hash : filter_check off");

-

 test 'filter_check in parameter binding';

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

 $dbi->execute($CREATE_TABLE->{0});

@@ -533,10 +508,6 @@ $dbi->default_bind_filter(undef);

 eval{$dbi->select(table => 'table1', filter => {key1 => 'not_exists'})};

 like($@, qr/\QBind filter "not_exists" is not registered/, "$test : bind_filter");

-eval{$dbi->select(table => 'table1', filter => {not_exists => 'encode_utf8'})};

-like($@, qr/\QColumn name "not_exists" in bind filter is not found in paramters/,

-     "$test : fetch_filter");

-

 test 'execute';

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

 $dbi->execute($CREATE_TABLE->{0});

@@ -631,3 +602,178 @@ is($dbi->twice(5), 10 , "$test : second");

 eval {$dbi->XXXXXX};

 like($@, qr/\QCan't locate object method "XXXXXX" via "DBIx::Custom"/, "$test : not exists");

+test 'auto bind filter';

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

+$dbi->execute($CREATE_TABLE->{0});

+$dbi->register_filter(twice => sub { $_[0] * 2 });

+$dbi->register_filter(three_times => sub { $_[0] * 3});

+$dbi->auto_filter(

+    'table1', ['key1', 'twice', 'twice'], ['key2', 'three_times', 'three_times']);

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

+$result = $dbi->execute($SELECT_SOURCES->{0});

+$row   = $result->fetch_hash_first;

+is_deeply($row, {key1 => 2, key2 => 6}, "$test : insert");

+

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

+$dbi->execute($CREATE_TABLE->{0});

+$dbi->register_filter(twice => sub { $_[0] * 2 });

+$dbi->register_filter(three_times => sub { $_[0] * 3});

+$dbi->auto_filter(

+    'table1', ['key1', 'twice', 'twice'], ['key2', 'three_times', 'three_times']);

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

+$result = $dbi->execute($SELECT_SOURCES->{0});

+$row   = $result->fetch_hash_first;

+is_deeply($row, {key1 => 1, key2 => 2}, "$test : insert disabe auto_filter_table 1");

+

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

+$dbi->execute($CREATE_TABLE->{0});

+$dbi->register_filter(twice => sub { $_[0] * 2 });

+$dbi->register_filter(three_times => sub { $_[0] * 3});

+$dbi->auto_filter(

+    'table1', ['key1', 'twice', 'twice'], ['key2', 'three_times', 'three_times']);

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

+$result = $dbi->execute($SELECT_SOURCES->{0});

+$row   = $result->fetch_hash_first;

+is_deeply($row, {key1 => 1, key2 => 2}, "$test : insert disabe auto_filter_table 2");

+

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

+$dbi->execute($CREATE_TABLE->{0});

+$dbi->register_filter(twice => sub { $_[0] * 2 });

+$dbi->auto_filter(

+    'table1', ['key1', 'twice', 'twice']

+);

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

+$dbi->update(table => 'table1', param => {key1 => 2}, where => {key2 => 2});

+$result = $dbi->execute($SELECT_SOURCES->{0});

+$row   = $result->fetch_hash_first;

+is_deeply($row, {key1 => 4, key2 => 2}, "$test : update");

+

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

+$dbi->execute($CREATE_TABLE->{0});

+$dbi->register_filter(twice => sub { $_[0] * 2 });

+$dbi->auto_filter(

+    'table1', ['key1', 'twice', 'twice']

+);

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

+$dbi->update(table => 'table1', param => {key1 => 2}, where => {key2 => 2}, auto_filter_table => []);

+$result = $dbi->execute($SELECT_SOURCES->{0});

+$row   = $result->fetch_hash_first;

+is_deeply($row, {key1 => 2, key2 => 2}, "$test : update : disable bind filter1");

+

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

+$dbi->execute($CREATE_TABLE->{0});

+$dbi->register_filter(twice => sub { $_[0] * 2 });

+$dbi->auto_filter(

+    'table1', ['key1', 'twice', 'twice']

+);

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

+$dbi->update(table => 'table1', param => {key1 => 2}, where => {key2 => 2}, auto_filter_table => undef);

+$result = $dbi->execute($SELECT_SOURCES->{0});

+$row   = $result->fetch_hash_first;

+is_deeply($row, {key1 => 2, key2 => 2}, "$test : update : disable bind filter2");

+

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

+$dbi->execute($CREATE_TABLE->{0});

+$dbi->register_filter(twice => sub { $_[0] * 2 });

+$dbi->auto_filter(

+    'table1', ['key1', 'twice', 'twice']

+);

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

+$dbi->delete(table => 'table1', where => {key1 => 1});

+$result = $dbi->execute($SELECT_SOURCES->{0});

+$rows   = $result->fetch_hash_all;

+is_deeply($rows, [], "$test : delete");

+

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

+$dbi->execute($CREATE_TABLE->{0});

+$dbi->register_filter(twice => sub { $_[0] * 2 });

+$dbi->auto_filter(

+    'table1', ['key1', 'twice', 'twice']

+);

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

+$dbi->delete(table => 'table1', where => {key1 => 1}, auto_filter_table => undef);

+$result = $dbi->execute($SELECT_SOURCES->{0});

+$rows   = $result->fetch_hash_all;

+is_deeply($rows, [{key1 => 2, key2 => 2}], "$test : delete : disable1");

+

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

+$dbi->execute($CREATE_TABLE->{0});

+$dbi->register_filter(twice => sub { $_[0] * 2 });

+$dbi->auto_filter(

+    'table1', ['key1', 'twice', 'twice']

+);

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

+$dbi->delete(table => 'table1', where => {key1 => 1}, auto_filter_table => []);

+$result = $dbi->execute($SELECT_SOURCES->{0});

+$rows   = $result->fetch_hash_all;

+is_deeply($rows, [{key1 => 2, key2 => 2}], "$test : delete : disable2");

+

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

+$dbi->execute($CREATE_TABLE->{0});

+$dbi->register_filter(twice => sub { $_[0] * 2 });

+$dbi->auto_filter(

+    'table1', ['key1', 'twice', 'twice']

+);

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

+$result = $dbi->select(table => 'table1', where => {key1 => 1});

+$result->filter({'key2' => 'twice'});

+$rows   = $result->fetch_hash_all;

+is_deeply($rows, [{key1 => 4, key2 => 4}], "$test : select");

+

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

+$dbi->execute($CREATE_TABLE->{0});

+$dbi->register_filter(twice => sub { $_[0] * 2 });

+$dbi->auto_filter(

+    'table1', ['key1', 'twice', 'twice']

+);

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

+$result = $dbi->select(table => 'table1', where => {key1 => 2}, auto_filter_table => []);

+$result->filter({'key2' => 'twice'});

+$rows   = $result->fetch_hash_all;

+is_deeply($rows, [{key1 => 2, key2 => 4}], "$test : select : disable");

+

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

+$dbi->execute($CREATE_TABLE->{0});

+$dbi->register_filter(twice => sub { $_[0] * 2 });

+$dbi->auto_filter(

+    'table1', ['key1', 'twice', 'twice']

+);

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

+$result = $dbi->execute("select * from table1 where {= key1} and {= key2};",

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

+                        auto_filter_table => ['table1']);

+$rows   = $result->fetch_hash_all;

+is_deeply($rows, [{key1 => 4, key2 => 2}], "$test : execute");

+

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

+$dbi->execute($CREATE_TABLE->{0});

+$dbi->execute($CREATE_TABLE->{2});

+$dbi->register_filter(twice => sub { $_[0] * 2 });

+$dbi->register_filter(three_times => sub { $_[0] * 3 });

+$dbi->auto_filter(

+    'table1', ['key2', 'twice', 'twice']

+);

+$dbi->auto_filter(

+    'table2', ['key3', 'three_times', 'three_times']

+);

+$dbi->insert(table => 'table1', param => {key1 => 5, key2 => 2}, auto_filter_table => undef);

+$dbi->insert(table => 'table2', param => {key1 => 5, key3 => 6}, auto_filter_table => undef);

+$result = $dbi->select(

+     table => ['table1', 'table2'],

+     column => ['key2', 'key3'],

+     where => {'table1.key2' => 1, 'table2.key3' => 2}, relation => {'table1.key1' => 'table2.key1'});

+

+$result->filter({'key2' => 'twice'});

+$rows   = $result->fetch_hash_all;

+is_deeply($rows, [{key2 => 4, key3 => 18}], "$test : select : join");

+

+$result = $dbi->select(

+     table => ['table1', 'table2'],

+     column => ['key2', 'key3'],

+     where => {'key2' => 1, 'key3' => 2}, relation => {'table1.key1' => 'table2.key1'});

+

+$result->filter({'key2' => 'twice'});

+$rows   = $result->fetch_hash_all;

+is_deeply($rows, [{key2 => 4, key3 => 18}], "$test : select : join : omit");

+

+