a few new event examples

mojolicious · Oct 20, 2011 · e73e1de · e73e1de
1 parent 6ceca27
commit e73e1de
Show file tree

Hide file tree

Showing 6 changed files with 19 additions and 3 deletions.
diff --git a/Changes b/Changes
@@ -1,5 +1,8 @@
 This file documents the revision history for Perl extension Mojolicious.
 
+2.03    2011-10-20 00:00:00
+        - Improved documentation.
+
 2.02    2011-10-20 00:00:00
         - Merged request and upgrade events in Mojo::Transaction::HTTP.
         - Improved Mojolicious::Controller attribute default values.

diff --git a/lib/Mojo/Content.pm b/lib/Mojo/Content.pm
@@ -463,7 +463,7 @@ storage in asset objects.
 
   $content->on(read => sub {
     my ($content, $chunk) = @_;
-    say "STREAMING: $chunk";
+    say "Streaming: $chunk";
   });
 
 =head1 ATTRIBUTES

diff --git a/lib/Mojo/Message.pm b/lib/Mojo/Message.pm
@@ -582,6 +582,14 @@ Emitted after message building or parsing is finished.
 
 Emitted when message building or parsing makes progress.
 
+  $message->on(progress => sub {
+    my $message  = shift;
+    my $len      = $message->headers->content_length;
+    my $progress = $message->content->progress;
+    say 'Progress: ',
+      $progress == $len ? 100 : int($progress / ($len / 100)), '%';
+  });
+
 =head1 ATTRIBUTES
 
 L<Mojo::Message> implements the following attributes.

diff --git a/lib/Mojo/Transaction/HTTP.pm b/lib/Mojo/Transaction/HTTP.pm
@@ -347,6 +347,11 @@ Emitted when a request is ready and needs to be handled, an optional
 L<Mojo::Transaction::WebSocket> object will be passed for WebSocket handshake
 requests.
 
+  $tx->on(request => sub {
+    my $tx = shift;
+    $tx->res->headers->header('X-Bender', 'Bite my shiny metal ass!');
+  });
+
 =head1 ATTRIBUTES
 
 L<Mojo::Transaction::HTTP> inherits all attributes from L<Mojo::Transaction>

diff --git a/lib/Mojolicious.pm b/lib/Mojolicious.pm
@@ -35,7 +35,7 @@ has static   => sub { Mojolicious::Static->new };
 has types    => sub { Mojolicious::Types->new };
 
 our $CODENAME = 'Leaf Fluttering In Wind';
-our $VERSION  = '2.02';
+our $VERSION  = '2.03';
 
 # "These old doomsday devices are dangerously unstable.
 #  I'll rest easier not knowing where they are."

diff --git a/t/pod_coverage.t b/t/pod_coverage.t
@@ -11,7 +11,7 @@ plan skip_all => 'set TEST_POD to enable this test (developer only!)'
 # DEPRECATED in Smiling Face With Sunglasses!
 my @sunglasses = (
   qw/add_after add_before append del inner_xml on_finish on_progress on_read/,
-  qw/on_request on_resume on_start on_upgrade render_inner replace_inner/,
+  qw/on_request on_resume on_start render_inner replace_inner/,
 );
 
 # "Marge, I'm going to miss you so much. And it's not just the sex.