From: Jason Etheridge <jason@esilibrary.com>
Date: Thu, 25 Jul 2013 15:44:47 +0000 (-0400)
Subject: more refactoring
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=4d8869f6d5e3de5a0a9a8861b966aa98809d9c02;p=working%2FEvergreen.git

more refactoring

Signed-off-by: Jason Etheridge <jason@esilibrary.com>
---

diff --git a/Open-ILS/src/sql/Pg/make-pgtap-tests.pl b/Open-ILS/src/sql/Pg/make-pgtap-tests.pl
index 76bc1e554b..cd929fbf2b 100755
--- a/Open-ILS/src/sql/Pg/make-pgtap-tests.pl
+++ b/Open-ILS/src/sql/Pg/make-pgtap-tests.pl
@@ -39,29 +39,24 @@ print pgtap_sql_header();
 handle_schemas(
     sub {
         my $schema = shift;
+
+        sub handle_table_things {
+            my $schema = shift;
+            my $table_or_view = shift;
+            handle_columns(
+                $schema,
+                $table_or_view,
+                undef
+            );
+        }
+
         handle_tables(
             $schema,
-            sub {
-                my $schema = shift;
-                my $table = shift;
-                handle_columns(
-                    $schema,
-                    $table,
-                    undef
-                );
-            }
+            \&handle_table_things
         );
         handle_views(
             $schema,
-            sub {
-                my $schema = shift;
-                my $view = shift;
-                handle_columns(
-                    $schema,
-                    $view,
-                    undef
-                );
-            }
+            \&handle_table_things
         );
 
     }