uc types in function signatures

diff --git a/lib/DBIx/Class/ResultSource/MultipleTableInheritance.pm b/lib/DBIx/Class/ResultSource/MultipleTableInheritance.pm
index d2c33f2..f775530 100644 (file)
--- a/lib/DBIx/Class/ResultSource/MultipleTableInheritance.pm
+++ b/lib/DBIx/Class/ResultSource/MultipleTableInheritance.pm
@@ -156,7 +156,7 @@ BEGIN {
   *function_body = sub ($name, $args, $body_parts) {
     my $arglist = join(
       ', ',
-        map '_'.join(' ', @{$_}{qw(name data_type)}),
+        map "_${\$_->{name}} ${\uc($_->{data_type})}",
           @$args
     );
     my $body = join("\n", '', map "          $_;", @$body_parts);