Fixed typos in HashRefInflator example
Jess Robinson [Mon, 30 Oct 2006 14:21:53 +0000 (14:21 +0000)]
lib/DBIx/Class/Manual/Cookbook.pod

index 2377fc5..ab58aaa 100644 (file)
@@ -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
      }