[Catalyst-commits] r10273 - trunk/Catalyst-Model-DBIC-Schema/lib/Catalyst/Helper/Model/DBIC

[caelum at dev.catalyst.perl.org]

Author: caelum
Date: 2009-05-24 18:27:46 +0000 (Sun, 24 May 2009)
New Revision: 10273

Modified:
   trunk/Catalyst-Model-DBIC-Schema/lib/Catalyst/Helper/Model/DBIC/Schema.pm
Log:
minor changes

Modified: trunk/Catalyst-Model-DBIC-Schema/lib/Catalyst/Helper/Model/DBIC/Schema.pm
===================================================================
--- trunk/Catalyst-Model-DBIC-Schema/lib/Catalyst/Helper/Model/DBIC/Schema.pm	2009-05-24 18:09:15 UTC (rev 10272)
+++ trunk/Catalyst-Model-DBIC-Schema/lib/Catalyst/Helper/Model/DBIC/Schema.pm	2009-05-24 18:27:46 UTC (rev 10273)
@@ -200,6 +200,12 @@
     $helper->{generator_version} = $VERSION;
 }
 
+=head2 run
+
+Can be called on an instance to generate the files.
+
+=cut
+
 sub run {
     my $self = shift;
 
@@ -414,7 +420,7 @@
 
         my ($key, $val) = split /=/, $_, 2;
 
-        if ($key =~ /^(?:quote_char|name_sep)\z/) {
+        if ($key =~ /^(?:quote_char|name_sep|limit_dialect)\z/) {
             $connect_info{$key} = $val;
         } else {
             $connect_info{$key} = eval $val;