From: Justin Hunter <justin.d.hunter@gmail.com>
Date: Tue, 8 Sep 2009 18:59:37 +0000 (-0700)
Subject: add predicates for parser_args/producer_args
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=23043f8d0f2a185f1826f042e01f42c2210fb230;p=dbsrgits%2FSQL-Translator-2.0-ish.git

add predicates for parser_args/producer_args
---

diff --git a/lib/SQL/Translator.pm b/lib/SQL/Translator.pm
index 72541f9..f1fc0f0 100644
--- a/lib/SQL/Translator.pm
+++ b/lib/SQL/Translator.pm
@@ -47,11 +47,13 @@ class SQL::Translator {
     has 'parser_args' => (
         isa => HashRef,
         is => 'rw',
+        predicate => 'has_parser_args',
     );
 
     has 'producer_args' => (
         isa => HashRef,
         is => 'rw',
+        predicate => 'has_producer_args',
     );
     
     has 'add_drop_table' => (isa => Bool, is => 'rw', default => 0);