still need to fix sql to use a moch db

diff --git a/lib/Keyword.pm b/lib/Keyword.pm
index 8685b28..f5130c1 100644 (file)
--- a/lib/Keyword.pm
+++ b/lib/Keyword.pm
@@ -41,6 +41,7 @@ sub import {
 
 #parses keyword signature
 sub keyword_parser {
+       warn Dumper @_; #need to pass @_ to KD
        my $kd = Keyword::Declare->new;
        $kd->next_token;
        $kd->skip_ws;

diff --git a/t/usecase/sql.t b/t/usecase/sql.t
index 371b5b0..6eed274 100644 (file)
--- a/t/usecase/sql.t
+++ b/t/usecase/sql.t
@@ -7,7 +7,7 @@ use Data::Dumper;
 
 ok 1;
 
-SQL::CONNECT("dbi:Pg:dbname=humus;host=localhost;port=5432");
+SQL::CONNECT("dbi:Pg:dbname=test;host=localhost;port=5432");
 
 my $r = SELECT * FROM TRACK;