X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=dbsrgits%2FDBIx-Class-ResultSource-MultipleTableInheritance.git;a=blobdiff_plain;f=lib%2FDBIx%2FClass%2FResultSource%2FMultipleTableInheritance.pm;fp=lib%2FDBIx%2FClass%2FResultSource%2FMultipleTableInheritance.pm;h=1b0dea0cbac1f5ed04ca649af7d621962ff174fd;hp=dbe0f758348c613aa9d28bc12c9ee6666b59379a;hb=a4355c5388b4d476f8e9271b5225a50d0829b1a0;hpb=63420f8cd12512d1c06be1dd0a04c8943e92befc diff --git a/lib/DBIx/Class/ResultSource/MultipleTableInheritance.pm b/lib/DBIx/Class/ResultSource/MultipleTableInheritance.pm index dbe0f75..1b0dea0 100644 --- a/lib/DBIx/Class/ResultSource/MultipleTableInheritance.pm +++ b/lib/DBIx/Class/ResultSource/MultipleTableInheritance.pm @@ -250,7 +250,9 @@ method add_relationship ($name, $f_source, $cond, $attrs) { } BEGIN { - # Helper methods + + # helper routines + sub argify { my @names = @_; map '_' . $_, @names; @@ -294,6 +296,9 @@ BEGIN { $function$ LANGUAGE plpgsql; }; } +} + +BEGIN { sub arg_hash { my $source = shift;