my $pre_source = $source->related_source($pre);
$class->throw_exception("Can't prefetch non-existent relationship ${pre}")
unless $pre_source;
- #warn Data::Dumper::Dumper($pre_val)." ";
if (ref($pre_val->[0]) eq 'ARRAY') { # multi
my @pre_objects;
foreach my $pre_rec (@$pre_val) {
unless ($pre_source->primary_columns == grep { exists $pre_rec->[0]{$_}
- and !defined $pre_rec->[0]{$_} } $pre_source->primary_columns) {
+ and defined $pre_rec->[0]{$_} } $pre_source->primary_columns) {
next;
}
push(@pre_objects, $pre_source->result_class->inflate_result(