95 |
|
|
96 |
Statement handle for the SELECT clause generated by the query. |
Statement handle for the SELECT clause generated by the query. |
97 |
|
|
98 |
=item objectName1, objectName2, ... |
=item relationMap |
99 |
|
|
100 |
Names of the objects being retrieved. |
Reference to a list of 2-tuples. Each tuple consists of an object name as used in the |
101 |
|
query followed by the actual name of that object. This enables the B<DBObject> to |
102 |
|
determine the order of the tables in the query and which object name belongs to each |
103 |
|
mapped object name. Most of the time these two values are the same; however, if a |
104 |
|
relation occurs twice in the query, the relation name in the field list and WHERE |
105 |
|
clause will use a mapped name (generally the actual relation name with a numeric |
106 |
|
suffix) that does not match the actual relation name. |
107 |
|
|
108 |
=back |
=back |
109 |
|
|
111 |
|
|
112 |
sub _new { |
sub _new { |
113 |
# Get the parameters. |
# Get the parameters. |
114 |
my ($database, $sth, @objectNames) = @_; |
my ($database, $sth, $relationMap) = @_; |
115 |
# Create this object. |
# Create this object. |
116 |
my $self = { _db => $database, _sth => $sth, _objectNames => \@objectNames }; |
my $self = { _db => $database, _sth => $sth, _objectNames => $relationMap}; |
117 |
# Bless and return it. |
# Bless and return it. |
118 |
bless $self; |
bless $self; |
119 |
return $self; |
return $self; |