added a few spurt examples

mojolicious · Jul 16, 2012 · f7b258d · f7b258d
1 parent 16877e7
commit f7b258d
Show file tree

Hide file tree

Showing 3 changed files with 4 additions and 2 deletions.
diff --git a/lib/Mojo/ByteStream.pm b/lib/Mojo/ByteStream.pm
@@ -284,6 +284,8 @@ Alias for L<Mojo::Util/"slurp">.
 
 Alias for L<Mojo::Util/"spurt">.
 
+  b('/home/sri/foo.html')->slurp->html_unescape->spurt("/home/sri/bar.html");
+
 =head2 C<split>
 
   my $collection = $stream->split(',');

diff --git a/lib/Mojo/Util.pm b/lib/Mojo/Util.pm
@@ -571,7 +571,7 @@ Read all data at once from file.
 
 =head2 C<spurt>
 
-  spurt $content, '/etc/passwd';
+  $content = spurt $content, '/etc/passwd';
 
 Write all data at once to file.
 

diff --git a/lib/ojo.pm b/lib/ojo.pm
@@ -159,7 +159,7 @@ L<Mojo::Message::Response> object.
 
 Encode Perl data structure or decode JSON with L<Mojo::JSON>.
 
-  $ perl -Mojo -E 'say j({hello => "world!"})'
+  $ perl -Mojo -E 'b(j({hello => "world!"}))->spurt("/home/sri/hello.json")'
 
 =head2 C<o>