don't required => 1 when lazy & default specified

diff --git a/lib/SQL/Translator/Parser/DBI.pm b/lib/SQL/Translator/Parser/DBI.pm
index 04ba5bb..094944f 100644 (file)
--- a/lib/SQL/Translator/Parser/DBI.pm
+++ b/lib/SQL/Translator/Parser/DBI.pm
@@ -13,7 +13,6 @@ use aliased 'SQL::Translator::Object::View';
 has 'quoter' => (
     is => 'rw',
     isa => Str,
-    required => 1,
     lazy => 1,
     default => sub { shift->dbh->get_info(29) || q{"} }
 );
@@ -21,7 +20,6 @@ has 'quoter' => (
 has 'namesep' => (
     is => 'rw',
     isa => Str,
-    required => 1,
     lazy => 1,
     default => sub { shift->dbh->get_info(41) || '.' }
 );

diff --git a/lib/SQL/Translator/Parser/DBI/PostgreSQL.pm b/lib/SQL/Translator/Parser/DBI/PostgreSQL.pm
index ba2e8c1..10c7be6 100644 (file)
--- a/lib/SQL/Translator/Parser/DBI/PostgreSQL.pm
+++ b/lib/SQL/Translator/Parser/DBI/PostgreSQL.pm
@@ -5,7 +5,6 @@ use MooseX::Types::Moose qw(Str);
 
 has '+schema_name' => (
   isa => Str,
-  required => 1,
   lazy => 1,
   default => 'public'
 );