Fixed typos in HashRefInflator example

Perl5 · Oct 30, 2006 · 4bbcc5e · 4bbcc5e
1 parent a4c8f60
commit 4bbcc5e
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/lib/DBIx/Class/Manual/Cookbook.pod b/lib/DBIx/Class/Manual/Cookbook.pod
@@ -1114,7 +1114,7 @@ C<inflate_result>:
      my ($me, $rest) = @_;
 
      return { %$me, 
-        map { ($_ => mk_hash(@{$rest->{$_}})) } keys %$rest } 
+        map { ($_ => mk_hash(@{$rest->{$_}})) } keys %$rest
      };
   }
 
@@ -1127,7 +1127,7 @@ C<inflate_result>:
   $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
      }