| Subject: | Generated class names are (partially) dependent on tables' names' case |
If the name of a table is all upper case, the resulting class name will be, too. Example: the table 'TABLE' will create a class name 'TABLE', but a (identically named, from SQL's point of view) 'tabel' will create 'Table'.
Simple fix: Class::DBI::Loader::Generic, function _tabel2class, change:
my $subclass = join '', map ucfirst, split /[\W_]+/, $table;
to
my $subclass = join '', map {ucfirst lc}, split /[\W_]+/, $table;
Since this will probably break some code, maybe add an option to control it.