add predicates for parser_args/producer_args

diff --git a/lib/SQL/Translator.pm b/lib/SQL/Translator.pm
index 72541f9..f1fc0f0 100644 (file)
--- 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);