fixed streaming recipe in cookbook

mojolicious · Jun 19, 2013 · 47a4dbe · 47a4dbe
1 parent cb9802c
commit 47a4dbe
Show file tree

Hide file tree

Showing 3 changed files with 12 additions and 10 deletions.
diff --git a/Changes b/Changes
@@ -1,4 +1,6 @@
 
+4.17  2013-06-20
+
 4.16  2013-06-19
   - Improved Perl 5.10.x and 5.12.x compatibility. (trinitum)
 

diff --git a/lib/Mojolicious.pm b/lib/Mojolicious.pm
@@ -41,7 +41,7 @@ has static   => sub { Mojolicious::Static->new };
 has types    => sub { Mojolicious::Types->new };
 
 our $CODENAME = 'Top Hat';
-our $VERSION  = '4.16';
+our $VERSION  = '4.17';
 
 sub AUTOLOAD {
   my $self = shift;

diff --git a/lib/Mojolicious/Guides/Cookbook.pod b/lib/Mojolicious/Guides/Cookbook.pod
@@ -891,24 +891,24 @@ Sending a streaming request is almost just as easy.
   my $ua = Mojo::UserAgent->new;
   my $tx = $ua->build_tx(GET => 'http://example.com');
 
-  # Prepare content
-  my $content = 'Hello world!';
-  $tx->req->headers->content_length(length $content);
+  # Prepare body
+  my $body = 'Hello world!';
+  $tx->req->headers->content_length(length $body);
 
   # Start writing directly with a drain callback
   my $drain;
   $drain = sub {
-    my $req   = shift;
-    my $chunk = substr $content, 0, 1, '';
-    $drain    = undef unless length $content;
-    $req->write($chunk, $drain);
+    my $content = shift;
+    my $chunk   = substr $body, 0, 1, '';
+    $drain      = undef unless length $body;
+    $content->write($chunk, $drain);
   };
-  $tx->req->$drain;
+  $tx->req->content->$drain;
 
   # Process transaction
   $ua->start($tx);
 
-The drain callback passed to L<Mojo::Message/"write"> will be invoked whenever
+The drain callback passed to L<Mojo::Content/"write"> will be invoked whenever
 the entire previous chunk has actually been written.
 
 =head2 Large file downloads