my ($me, $rest) = @_;
return { %$me,
- map { ($_ => mk_hash(@{$rest->{$_}})) } keys %$rest }
+ map { ($_ => mk_hash(@{$rest->{$_}})) } keys %$rest
};
}
$rs->result_class('My::HashRefInflator');
my $datahashref = $rs->next;
- foreach my $col (keys $datahashref) {
+ foreach my $col (keys %$datahashref) {
if(!ref($datahashref->{$col}) {
# It's a plain value
}