add support for procedures/queries

matiu · Jul 20, 2010 · 170624d · 170624d
1 parent eca3b78
commit 170624d
Show file tree

Hide file tree

Showing 2 changed files with 22 additions and 19 deletions.
diff --git a/Makefile b/Makefile
@@ -56,11 +56,11 @@ DIRFILESEP = /
 DFSEP = $(DIRFILESEP)
 NAME = SQL::Bibliosoph
 NAME_SYM = SQL_Bibliosoph
-VERSION = 2.12
+VERSION = 2.13
 VERSION_MACRO = VERSION
-VERSION_SYM = 2_12
+VERSION_SYM = 2_13
 DEFINE_VERSION = -D$(VERSION_MACRO)=\"$(VERSION)\"
-XS_VERSION = 2.12
+XS_VERSION = 2.13
 XS_VERSION_MACRO = XS_VERSION
 XS_DEFINE_VERSION = -D$(XS_VERSION_MACRO)=\"$(XS_VERSION)\"
 INST_ARCHLIB = blib/arch
@@ -266,7 +266,7 @@ RCS_LABEL = rcs -Nv$(VERSION_SYM): -q
 DIST_CP = best
 DIST_DEFAULT = tardist
 DISTNAME = SQL-Bibliosoph
-DISTVNAME = SQL-Bibliosoph-2.12
+DISTVNAME = SQL-Bibliosoph-2.13
 
 
 # --- MakeMaker macro section:
@@ -493,7 +493,7 @@ metafile : create_distdir
 	$(NOECHO) $(ECHO) Generating META.yml
 	$(NOECHO) $(ECHO) '--- #YAML:1.0' > META_new.yml
 	$(NOECHO) $(ECHO) 'name:               SQL-Bibliosoph' >> META_new.yml
-	$(NOECHO) $(ECHO) 'version:            2.12' >> META_new.yml
+	$(NOECHO) $(ECHO) 'version:            2.13' >> META_new.yml
 	$(NOECHO) $(ECHO) 'abstract:           A SQL Query library' >> META_new.yml
 	$(NOECHO) $(ECHO) 'author:' >> META_new.yml
 	$(NOECHO) $(ECHO) '    - Matias Alejo Garcia ( matiu@cpan.org ) ' >> META_new.yml
@@ -816,7 +816,7 @@ testdb_static :: testdb_dynamic
 # --- MakeMaker ppd section:
 # Creates a PPD (Perl Package Description) for a binary distribution.
 ppd :
-	$(NOECHO) $(ECHO) '<SOFTPKG NAME="$(DISTNAME)" VERSION="2.12">' > $(DISTNAME).ppd
+	$(NOECHO) $(ECHO) '<SOFTPKG NAME="$(DISTNAME)" VERSION="2.13">' > $(DISTNAME).ppd
 	$(NOECHO) $(ECHO) '    <ABSTRACT>A SQL Query library</ABSTRACT>' >> $(DISTNAME).ppd
 	$(NOECHO) $(ECHO) '    <AUTHOR>Matias Alejo Garcia ( matiu@cpan.org ) </AUTHOR>' >> $(DISTNAME).ppd
 	$(NOECHO) $(ECHO) '    <IMPLEMENTATION>' >> $(DISTNAME).ppd

diff --git a/lib/SQL/Bibliosoph.pm b/lib/SQL/Bibliosoph.pm
@@ -9,7 +9,7 @@ package SQL::Bibliosoph; {
     use SQL::Bibliosoph::Query;
     use SQL::Bibliosoph::CatalogFile;
 
-    our $VERSION = "2.12";
+    our $VERSION = "2.13";
 
 
     has 'dbh'       => ( is => 'ro', isa => 'DBI::db',  required=> 1);
@@ -64,14 +64,14 @@ package SQL::Bibliosoph; {
             $self->memc( new Cache::Memcached::Fast({
                     servers => [ { address => $self->memcached_address() },
                     ],
-                    namespace => 'biblio:',
-                    compress_threshold => 100_000,
-                    max_failures => 3,
-                    failure_timeout => 5,
-                    nowait => 1,
-                    hash_namespace => 1,
-                    serialize_methods => [ \&Storable::freeze, \&Storable::thaw ],
-                    max_size => 512 * 1024,
+                    namespace           => 'biblio:',
+                    compress_threshold  => 100_000,
+                    max_failures        => 3,
+                    failure_timeout     => 5,
+                    nowait              => 1,
+                    hash_namespace      => 1,
+                    serialize_methods   => [ \&Storable::freeze, \&Storable::thaw ],
+                    max_size            => 512 * 1024,
 #                    utf8 => 1,
             }));
 
@@ -154,10 +154,13 @@ package SQL::Bibliosoph; {
             }
 
 # CALL no ALWAYS returns a results set!!            
-#           # Small exception3: CALL => Possible RESULT SET
-#           if ($st =~ /^CALL/is ) {
-#               $type = 'SELECT';
-#           }
+#           # Small exception3:
+# USE LIKE THAT : /* SELECT */ CALL => Possible RESULT SET
+           if ($st =~ /SELECT/is ) {
+               $type = 'SELECT';
+           }
+
+
 
             $self->create_method_for(uc($type||''),$name);
         }