@@ -1,885 +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.1680

-VERSION_MACRO = VERSION

-VERSION_SYM = 0_1680

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

-XS_VERSION = 0.1680

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

-	lib/DBIx/Custom/QueryBuilder.pm \

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

-	lib/DBIx/Custom/QueryBuilder.pm \

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

-	blib/lib/DBIx/Custom.pm \

-	lib/DBIx/Custom/Query.pm \

-	blib/lib/DBIx/Custom/Query.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.1680

-

-

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

-	  perl $(BASEEXT).def \

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

-	  lib$(BASEEXT).def perlmain.c \

-	  perl.exe so_locations \

-	  $(BASEEXT).exp 

-	- $(RM_RF) \

-	  DBIx-Custom-* blib 

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

-

-

-# --- MakeMaker realclean_subdirs section:

-realclean_subdirs :

-	$(NOECHO) $(NOOP)

-

-

-# --- MakeMaker realclean section:

-# Delete temporary files (via clean) and also delete dist files

-realclean purge ::  clean realclean_subdirs

-	- $(RM_F) \

-	  $(MAKEFILE_OLD) $(FIRST_MAKEFILE) 

-	- $(RM_RF) \

-	  $(DISTVNAME) 

-

-

-# --- MakeMaker metafile section:

-metafile : create_distdir

-	$(NOECHO) $(ECHO) Generating META.yml

-	$(NOECHO) $(ECHO) '--- #YAML:1.0' > META_new.yml

-	$(NOECHO) $(ECHO) 'name:               DBIx-Custom' >> META_new.yml

-	$(NOECHO) $(ECHO) 'version:            0.1680' >> 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= \

-		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.1680">' > $(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.pm blib/lib/DBIx/Custom.pm \

-	  lib/DBIx/Custom/Query.pm blib/lib/DBIx/Custom/Query.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,1202 +0,0 @@

-=encoding utf8

-

-=head1 NAME

-

-DBIx::Custom::Guide::Ja - DBIx::Customのガイドブック

-

-=head1 ガイド

-

-L<DBIx::Custom>はSQLの実行を簡単に行うためのクラスです。

-L<DBIx::Class>やL<DBIx::Simple>と同じように

-L<DBI>のラッパクラスになっています。L<DBIx::Class>よりも簡単に、

-L<DBIx::Simple>よりもはるかに柔軟なことを行うことができます。

-

-L<DBIx::Custom>はO/Rマッパーではありません。O/Rマッパーは

-便利ですが、O/Rマッパのたくさんの文法を覚える必要があります。

-また、O/Rマッパによって生成されたSQLは非効率なことがありますし、

-複雑なSQLを生成することができないので、

-生のSQLを実行しなければならない場合がたくさんあります。

-

-L<DBIx::Custom>はO/Rマッパとは対照的な設計が行われています。

-L<DBIx::Custom>の主な目的は、SQLを尊重しつつ、L<DBI>だけでは

-とてもめんどうな作業を簡単にすることです。もしSQLについて

-多くの知識を持っているならば、L<DBIx::Custom>でそのまま

-活用することができます。

-

-L<DBIx::Custom>の仕組みを少しだけ説明しておきます。

-L<DBIx::Custom>では、パラメーターと呼ばれるものを

-SQLの中に埋め込むことができます。

-

-    select * from book where title = :title and author = :author;

-

-:titleや:authorがパラメーターです。このSQLは実際に実行されるときには

-次のようにプレースホルダに展開されます。

-

-    select * from book where title = ? and author = ?;

-

-これらの展開にはどのような意味があるのでしょうかと質問

-されるかもしれません。この簡単な仕組みの上に

-便利な機能が実装されます。それは以下のようなものです。

-

-=over 4

-

-=item 1. プレースホルダにバインドする値をハッシュリファレンスで指定

-

-L<DBI>を使うのであればプレースホルダにバインドする値は配列

-で指定する必要があります。

-

-    $sth->execute(@bind);

-

-L<DBIx::Custom>を利用するのであればハッシュリファレンスで指定すること

-できます。

-    

-    my $param = {title => 'Perl', author => 'Ken'};

-    $dbi->execute($sql, $param);

-

-=item 2. 値のフィルタリング

-

-L<DBIx::Custom>はフィルタリングの機能を提供します。

-たとえば、日付の列は、Perlで扱うときにはC<Time::Piece>などの日付オブジェクト

-で扱い、データベースに格納するときはデータベースの日付型に変換したい

-と思うのではないでしょうか。またデータベースから取り出すときは

-データベースの日付型から日付オブジェクトに変換したと思うのでは

-ないでしょうか。

-

-このようなときはフィルタ機能を使うことができます。

-

-まずフィルタを登録します。

-

-    $dbi->register_filter(

-        tp_to_date => sub {

-            ...

-        },

-        date_to_tp => sub {

-            ...

-        }

-    );

-

-次にテーブルの各列にこのフィルタを適用します。

-

-    $dbi->apply_filter('book',

-        'issue_date' => {out => 'tp_to_date', in => 'date_to_tp'}

-    );

-

-outはPerlからデータベースに保存する方向、inはデータベースからPerlに取得する方向です。

-

-多くのメソッドで自動的にこのフィルタが有効になります。

-

-    $dbi->insert(table => 'book', param => {issue_date => $tp});

-

-=item 3. 選択的な検索条件

-

-L<DBI>では選択的に検索条件を作成することは難しいです。

-

-たとえば、検索条件にtitleとauthorが指定された場合は次のSQLを

-

-    select * from book where title = ? and author = ?;

-

-titleだけの場合は次のSQLを

-

-    select * from book where title = ?;

-    

-authorだけの場合は次のSQLを実行した場合を考えましょう。

-

-    select * from book where author = ?;

-

-これはとても大変な作業なので、通常はL<SQL::Abstract>を動的に生成してくれる

-モジュールを利用することになります。

-

-L<DBIx::Custom>はさらに簡単で便利な方法を用意しています。

-

-    # Whereオブジェクト

-    my $where = $dbi->where;

-    

-    # 検索条件

-    $where->clause(

-        ['and', 'title = :title', 'author = :author']

-    );

-    

-    # 必要な列を自動的に選択するための設定

-    $where->param({title => 'Perl'});

-

-    # SQLへのWhere句の埋め込み

-    my $sql = "select * from book $where";

-

-詳しい説明は後ほど行いますが、上記のように記述すれば、

-L<DBIx::Custom>では選択的な検索条件を持つWhere句を生成することができます。

-検索条件が入れ子になった構造やorについても対応しています。

-

-=item 4. 挿入、更新、削除、選択を行うためのメソッド

-

-L<DBIx::Custom>では挿入、更新、削除、選択を行うための

-メソッドを提供しています。

-C<insert()>, C<update()>, C<delete()>,C<select()>などがあります。

-

-    my $param = {title => 'Perl', author => 'Ken'};

-    $dbi->insert(table => 'book', param => $param);

-

-=item 5. テーブルのためのメソッドの登録

-

-テーブルのためにメソッドを登録することができます。

-

-    $dbi->table('book')->method(

-        list => sub {

-            ...

-        },

-        something => sub {

-            ...

-        }

-    );

-

-メソッドの利用です。

-

-    $dbi->table('book')->list;

-

-多くのO/Rマッパではテーブルのためのクラスを作成する必要がありますが、

-L<DBIx::Custom>では簡単です。

-

-=back

-

-L<DBIx::Custom>はとても便利です。

-興味をもたれた方は、続きをご覧になってみてください。

-

-=head2 1. データベースへの接続

-

-L<DBIx::Custom>を読み込みます。

-

-    use DBIx::Custom;

-

-データベースに接続するにはC<connect()>メソッドを使用します。

-戻り値はL<DBIx::Custom>オブジェクトです。

-

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

-        dsn => "dbi:mysql:database=bookstore",

-        user => 'ken',

-        password => '!LFKD%$&',

-        dbi_options => {mysql_enable_utf8 => 1}

-    );

-

-C<dsn>はデータベースシステムに応じたものである必要があります。

-以下はデータソースのサンプルです。

-

-B<MySQL>

-

-    "dbi:mysql:database=$database"

-    "dbi:mysql:database=$database;host=$hostname;port=$port"

-

-B<SQLite>

-

-    "dbi:SQLite:dbname=$database"

-    "dbi:SQLite:dbname=:memory:"

-

-B<PostgreSQL>

-

-    "dbi:Pg:dbname=$dbname"

-

-B<Oracle>

-

-    "dbi:Oracle:$dbname"

-    "dbi:Oracle:host=$host;sid=$sid"

-

-B<ODBC(Microsoft Access)>

-

-    "dbi:ODBC:driver=Microsoft Access Driver (*.mdb);dbq=hoge.mdb"

-

-B<ODBC(SQL Server)>

-

-   "dbi:ODBC:driver={SQL Server};Server=(local);database=test;Trusted_Connection=yes;AutoTranslate=No;"

-

-認証が必要な場合は、C<user>とC<password>を指定できます。

-

-L<DBIx::Custom>はL<DBI>のラッパークラスです。

-L<DBI>のデータベースハンドルは取得するにあｈC<dbh()>を使用します。

-

-    my $dbh = $dbi->dbh;

-

-L<DBIx::Custom>ではデータベースハンドル属性にはデフォルトで次のものが設定されます。

-    

-    $dbi->dbh->{RaiseError} = 1;

-    $dbi->dbh->{PrintError} = 0;

-    $dbi->dbh->{AutoCommit} = 1;

-

-致命的なエラーが起こるとプログラムは終了します。

-SQLが実行されると自動的にコミットされます。

-

-=head2 2. 挿入、更新、削除、選択のためのメソッド

-

-下記のメソッドがあります。

-

-=head3 行の挿入 C<insert()>

-

-データベースに行を挿入するにはC<insert()>を使用します。

-

-    $dbi->insert(table  => 'book',

-                 param  => {title => 'Perl', author => 'Ken'});

-

-C<table>はテーブル名、C<param>は挿入する行のデータです。

-

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

-

-    insert into (title, author) values (?, ?);

-

-=head3 データの更新 C<update()>

-

-データベースの行を更新するには、C<update()>を使用します。

-

-    $dbi->update(table  => 'book', 

-                 param  => {title => 'Perl', author => 'Ken'}, 

-                 where  => {id => 5});

-

-C<table>はテーブル名、C<param>は更新データ、C<where>は

-条件です。

-

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

-

-    update book set title = ?, author = ?;

-

-安全のためC<where>のないupdate()を実効することはできません。

-もしすべての行を更新したい場合は

-C<update_all()>を使用してください。

-

-    $dbi->update_all(table  => 'book', 

-                     param  => {title => 'Perl', author => 'Ken'});

-

-=head3 データの削除 C<delete()>

-

-データベースの行を1件削除するには、C<delete()>を使用します。

-

-    $dbi->delete(table  => 'book',

-                 where  => {author => 'Ken'});

-

-C<table>はテーブル名、C<where>は条件です。

-

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

-

-    delete from book where id = ?;

-

-安全のためC<where>のないC<delete()>を実効することはできません。

-もしすべての行を削除したい場合は

-C<delete_all()>を使用してください。

-

-    $dbi->delete_all(table  => 'book');

-

-=head3 データの選択 C<select()>

-

-行を選択するにはC<select()>を使用します。

-

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

-

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

-

-    select * from book;

-

-戻り値はL<DBIx::Custom::Result>

-オブジェクトです。行をフェッチするにはC<fetch()>を使用します。

-

-    while (my $row = $result->fetch) {

-        my $title  = $row->[0];

-        my $author = $row->[1];

-    }

-

-L<DBIx::Custom::Result>についてはL<3. 行のフェッチ/"3. 行のフェッチ">を見てください。

-

-サンプルを続けます。

-

-    my $result = $dbi->select(

-        table  => 'book',

-        column => ['author',  'title'],

-        where  => {author => 'Ken'}

-    );

-

-C<column>は列名、C<where>は条件です。

-

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

-

-    select author, title from book where author = ?;

-

-次のサンプルです。

-

-    my $result = $dbi->select(

-        table  => 'book',

-        column => ['company.name as company__name']

-        where  => {'book.name' => 'Perl'},

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

-    );

-

-C<join>でテーブルの結合を行うことができます。

-

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

-

-    select company.name as company__name

-    from book

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

-    where book.name = ?;

-

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

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

-

-C<join>されるのは、C<where>やC<column>にテーブル名が含まれている

-場合だけであることに注意してください。

-次のように指定した場合は結合の必要はないと判断されjoinはされません。

-

-    my $result = $dbi->select(

-        table  => 'book',

-        where  => {'name' => 'Perl'},

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

-    );

-

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

-

-    select * from book where book.name = ?;

-

-次のサンプルです。

-

-    my $result = $dbi->select(

-        table  => 'book',

-        where  => {author => 'Ken'},

-        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が実行されます。

-

-    select * book where author = ? for update;

-

-またC<append>は、C<select>だけでなくC<insert()>、C<update()>、C<update_all()>

-C<delete()>、C<delete_all()>、C<select()>で使用することもできます。

-

-=head3 SQLの実行 C<execute()>

-

-SQLを実行するにはC<execute()>を使用します。

-

-    $dbi->execute("select * from book;");

-

-パラメーターを処理してSQLを実行します。

-

-    $dbi->execute(

-        "select * from book title = :title and author = :author;"

-        param => {title => 'Perl', author => 'Ken'}

-    );

-

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

-

-    select * from book title = ? and author = ?;

-

-プレースホルダにtitleとauthorの値が埋め込まれます。

-

-パラメーターについてはL<5. パラメーター/"5. パラメーター">を見てください。

-

-またC<execute()>のSQLの末尾にはセミコロンを置く必要はありません。

-

-    $dbi->execute('select * from book');

-

-=head2 3. 行のフェッチ

-

-C<select()>メソッドの戻り値はL<DBIx::Custom::Result>オブジェクトです。

-行をフェッチするためのさまざまなメソッドがあります。

-

-=head3 1行づつフェッチ(配列) C<fetch()>

-

-一行フェッチして配列のリファレンスに格納するにはC<fetch()>を使用します。

-

-    my $row = $result->fetch;

-

-以下のようにすべての行を取得することができます。

-

-    while (my $row = $result->fetch) {

-        my $title  = $row->[0];

-        my $author = $row->[1];

-    }

-

-=head3 最初の行だけフェッチ(配列) C<fetch_first()>

-

-一行だけフェッチして配列のリファレンスに格納するにはC<fetch_first()>

-を使用します。

-

-    my $row = $result->fetch_first;

-

-ステートメントハンドルのC<finish()>が実行される

-ので残りの行をフェッチできません。

-

-=head3 複数行を順にフェッチ(配列) C<fetch_multi()>

-

-複数行をフェッチして配列のリファレンスを要素に持つ

-配列のリファレンスに格納するにはC<fetch_multi()>を使用します。

-

-    while (my $rows = $result->fetch_multi(2)) {

-        my $title0   = $rows->[0][0];

-        my $author0  = $rows->[0][1];

-        

-        my $title1   = $rows->[1][0];

-        my $author1  = $rows->[1][1];

-    }

-

-取り出したい行数を引数に指定します。

-

-次のようなデータを取得できます。

-

-    [

-        ['Perl', 'Ken'],

-        ['Ruby', 'Mark']

-    ]

-

-=head3 すべての行をフェッチ(配列) C<fetch_all>

-

-すべての行をフェッチして配列のリファレンスを要素に持つ

-配列のリファレンスに格納するにはC<fetch_all()>を使用します。

-

-    my $rows = $result->fetch_all;

-

-すべての行を格納した次のようなデータを取得できます。

-

-    [

-        ['Perl', 'Ken'],

-        ['Ruby', 'Mark']

-    ]

-

-=head3 1行づつフェッチ(ハッシュ) C<fetch_hash()>

-

-一行フェッチしてハッシュのリファレンスに格納するにはC<fetch_hash()>を使用します。

-

-    while (my $row = $result->fetch_hash) {

-        my $title  = $row->{title};

-        my $author = $row->{author};

-    }

-

-=head3 最初の行だけフェッチ(ハッシュ) C<fetch_hash_first()>

-

-一行だけフェッチしてハッシュのリファレンスに格納するには

-C<fetch_hash_first()>を使用します。

-

-    my $row = $result->fetch_hash_first;

-

-ステートメントハンドルのC<finish()>が実行される

-ので残りの行をフェッチできません。

-

-=head3 複数行をフェッチ(ハッシュ) C<fetch_hash_multi()>

-

-複数行をフェッチしてハッシュのリファレンスを要素に持つ

-配列のリファレンスに格納するにはC<fetch_hash_multi()>

-を使用します。

-

-    while (my $rows = $result->fetch_hash_multi(5)) {

-        my $title0   = $rows->[0]{title};

-        my $author0  = $rows->[0]{author};

-        my $title1  = $rows->[1]{title};

-        my $author1 = $rows->[1]{author};

-    }

-

-引数には取り出したい行数を指定します。

-

-次のようなデータを取得できます。

-

-    [

-        {title => 'Perl', author => 'Ken'},

-        {title => 'Ruby', author => 'Mark'}

-    ]

-

-=head3 すべての行をフェッチ(ハッシュ) C<fetch_hash_all()>

-

-すべての行をフェッチしてハッシュのリファレンスを要素に持つ

-配列のリファレンスに格納するにはC<fetch_hash_all()>

-を使用します。

-

-    my $rows = $result->fetch_hash_all;

-

-次のようなデータを取得できます。

-

-    [

-        {title => 'Perl', author => 'Ken'},

-        {title => 'Ruby', author => 'Mark'}

-    ]

-

-=head3 ステートメントハンドル C<sth()>

-

-ステートメントハンドル取得したい場合は

-<sth()>を使用します。

-

-    my $sth = $result->sth;

-

-=head2 4. フィルタリング

-

-L<DBIx::Custom>は値のフィルタリング機能を提供します。

-

-たとえば、データをデータベースに登録するときは

-L<Time::Piece>オブジェクトからデータベースの日付のフォーマットに、

-データベースからデータを取得するときは、

-データベースの日付のフォーマットからL<Time::Piece>オブジェクト

-に変換を行いたいと思うことでしょう。

-

-=head3 フィルタの登録 C<register_filter()>

-

-フィルタを登録するにはC<register_filter()>を使用します。

-

-    $dbi->register_filter(

-        # Time::Piece object to DATE format

-        tp_to_date => sub {

-            my $date = shift;

-

-            return '0000-00-00' unless $tp;

-            return $tp->strftime('%Y-%m-%d');

-        },

-        

-        # DATE to Time::Piece object

-        date_to_tp => sub {

-            my $date = shift;

-

-            return if $date eq '0000-00-00';

-            return Time::Piece->strptime($date, '%Y-%m-%d');

-        },

-    );

-

-登録したフィルタはC<apply_filter()>などで利用することができます。

-

-=head3 フィルタの適用 C<apply_filter()>

-

-作成したフィルタを適用するには、C<apply_filter()>を使用します。

-

-    $dbi->apply_filter('book',

-        issue_date => {out => 'tp_to_date', in => 'date_to_tp'},

-        first_issue_date => {out => 'tp_to_date', in => 'date_to_tp'}

-    );

-

-第一引数はテーブル名です。第1引数より後の引数は、列名とフィルタルールのペアを記述します。

-フィルタルールのoutには、データベースにデータを送信するときに適用するフィルタを、

-フィルタルールのinには、データベースからデータを取得するときに適用するフィルタを

-記述します。

-

-フィルタとしてコードリファレンスを

-指定することもできます。

-

-    issue_date => {out => sub { ... }, in => sub { ... }}

-

-適用されたフィルタはC<insert()>、C<update()>、C<update_all()>、C<delete()>、

-C<delete_all()>、C<select()>で有効になります。

-

-    my $tp = Time::Piece->strptime('2010/10/14', '%Y/%m/%d');

-    my $result = $dbi->select(table => 'book', where => {issu_date => $tp});

-

-データベースにデータが送信されるときに、L<Time::Piece>オブジェクトは

-データベースの日付のフォーマット「2010-10-14」に変換されます。

-

-データをフェッチするときには、データベースの日付のフォーマットは

-L<Time::Piece>オブジェクトに変換されます。

-

-    my $row = $resutl->fetch_hash_first;

-    my $tp = $row->{issue_date};

-

-テーブル名を含む列名を使用することもできます。

-

-    $dbi->select(

-        table => 'book',

-        where => {'book.title' => 'Perl', 'book.author' => 'Ken'}

-    );

-

-フェッチを行う場合に"TABLE__COLUMN"という名前を使用した場合もフィルタは

-有効になります。

-

-    my $result = $dbi->execute(

-       "select issue_date as book__issue_date from book");

-

-C<in>フィルタの後に実行されるC<end>フィルタを適用することもできます。

-

-    $dbi->apply_filter('book',

-        issue_date => {out => 'tp_to_date', in => 'date_to_tp',

-                       end => 'tp_to_displaydate'},

-    );

-

-=head3 個別のフィルタ C<filter>

-

-個別にフィルタを適用することもできます。

-個別のフィルタはC<apply_filter()>で適用したフィルタを上書きます。

-

-データを送信する場合に個別のフィルタを適用するには、C<filter>オプションを使用します。

-このオプションはC<insert()>、C<update()>、

-C<update_all()>、C<delete()>、C<delete_all()>、C<select()>、C<execute()>

-で使用することができます。

-

-    $dbi->insert(

-        table => 'book',

-        param => {issue_date => $tp, first_issue_date => $tp},

-        filter => {issue_date => 'tp_to_date', first_issue_date => 'tp_to_date'}

-    );

-

-C<execute()>の例を示します。

-

-my $sql = <<"EOS";

-select YEAR(issue_date) as issue_year

-from book

-where YEAR(issue_date) = {? issue_year}

-EOS

-   

-    my $result = $dbi->execute(

-        $sql,

-        param => {issue_year => '2010'},

-        filter => {issue_year => 'tp_to_year'}

-    );

-

-行をフェッチするときにも個別のフィルタを適用することができます。

-C<DBIx::Custom::Result>のC<filter()>を使用します。

-

-    $result->filter(issue_year => 'year_to_tp');

-

-C<remove_filter()>でフィルタを取り除くこともできます。

-

-    $result->remove_filter

-

-=head3 最後のフィルタリング : C<end_filter()>

-

-最後にもうひとつフィルタを追加することができます。

-最終的な出力を作成する場合に便利です。

-最後のフィルタを登録するにはC<end_filter()>を使用します。

-

-    $result->end_filter(issue_date => sub {

-        my $tp = shift;

-        

-        return '' unless $tp;

-        return $tp->strftime('%Y/%m/%d %h:%m:%s (%a)');

-    });