From: Matt S Trout <mst@shadowcat.co.uk>
Date: Sun, 2 Aug 2009 00:35:47 +0000 (-0400)
Subject: uc types in function signatures
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=388d83fc4aa8769c09efc050d53de2168d0d1989;p=dbsrgits%2FDBIx-Class-ResultSource-MultipleTableInheritance.git

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
--- 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);