From: Robin Edwards <robin.ge@gmail.com>
Date: Thu, 18 Feb 2010 14:36:38 +0000 (+0000)
Subject: still need to fix sql to use a moch db
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=92b300e0596bf5843d39e4059112e67cd6ed20d8;p=p5sagit%2FDevel-Declare-Keyword.git

still need to fix sql to use a moch db
---

diff --git a/lib/Keyword.pm b/lib/Keyword.pm
index 8685b28..f5130c1 100644
--- 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
--- 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;