From: David Kamholz <davekam@pobox.com>
Date: Wed, 2 Nov 2005 20:28:00 +0000 (+0000)
Subject: add (very ugly) hack to _construct_object to support function calls in resultsets... 
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=3cbddeb1871beb9684c0a9fbf6e90146a2d16742;p=dbsrgits%2FDBIx-Class-Historic.git

add (very ugly) hack to _construct_object to support function calls in resultsets. they show up as columns in the row object, accessible with get_column
---

diff --git a/lib/DBIx/Class/ResultSet.pm b/lib/DBIx/Class/ResultSet.pm
index ce28dff..9faf8ba 100644
--- a/lib/DBIx/Class/ResultSet.pm
+++ b/lib/DBIx/Class/ResultSet.pm
@@ -120,7 +120,7 @@ sub _construct_object {
   my ($self, @row) = @_;
   my @cols = @{ $self->{attrs}{cols} };
   s/^me\.// for @cols;
-  @cols = grep { ! /\./ } @cols;
+  @cols = grep { /\(/ or ! /\./ } @cols;
   my $new;
   unless ($self->{attrs}{prefetch}) {
     $new = $self->{class}->_row_to_object(\@cols, \@row);