From b96466bb14b6bbd11e0a9a029b9afc2eeb57c689 Mon Sep 17 00:00:00 2001 From: Tatsuhiko Miyagawa Date: Thu, 29 Oct 2009 13:17:16 -0700 Subject: [PATCH] Checking in changes prior to tagging of version 0.02. Changelog diff is: diff --git a/Changes b/Changes index 761b564..c94023b 100644 --- a/Changes +++ b/Changes @@ -1,4 +1,8 @@ Revision history for Perl extension Plack::Server::AnyEvent +0.02 Thu Oct 29 12:38:15 PDT 2009 + - Support psgi.streaming and condvar response for delayed response (nothingmuch) + - Improved error handling, memory usage and performance by not using AnyEvent::Handle (nothingmuch) + 0.01 Mon Oct 12 23:31:52 2009 - original version --- Changes | 4 ++++ MANIFEST | 3 ++- README | 2 ++ t/anyevent_extensions.t | 7 ++++--- 4 files changed, 12 insertions(+), 4 deletions(-) diff --git a/Changes b/Changes index 761b564..c94023b 100644 --- a/Changes +++ b/Changes @@ -1,4 +1,8 @@ Revision history for Perl extension Plack::Server::AnyEvent +0.02 Thu Oct 29 12:38:15 PDT 2009 + - Support psgi.streaming and condvar response for delayed response (nothingmuch) + - Improved error handling, memory usage and performance by not using AnyEvent::Handle (nothingmuch) + 0.01 Mon Oct 12 23:31:52 2009 - original version diff --git a/MANIFEST b/MANIFEST index d238e31..17d8610 100644 --- a/MANIFEST +++ b/MANIFEST @@ -20,13 +20,14 @@ inc/Test/Builder.pm inc/Test/Builder/Module.pm inc/Test/More.pm lib/Plack/Server/AnyEvent.pm +lib/Plack/Server/AnyEvent/Writer.pm Makefile.PL MANIFEST This list of files META.yml README t/00_compile.t t/anyevent.t +t/anyevent_extensions.t xt/perlcritic.t xt/pod.t xt/podspell.t -xt/synopsis.t diff --git a/README b/README index a776363..027b226 100644 --- a/README +++ b/README @@ -19,5 +19,7 @@ LICENSE AUTHOR Tokuhiro Matsuno + Yuval Kogman + Tatsuhiko Miyagawa diff --git a/t/anyevent_extensions.t b/t/anyevent_extensions.t index 2ee6a5f..f9e971b 100644 --- a/t/anyevent_extensions.t +++ b/t/anyevent_extensions.t @@ -100,10 +100,11 @@ local @Plack::Test::Suite::TEST = ( my @queue = ( "Hello, ", $env->{QUERY_STRING} ); - $write->([ + my $w = $write->([ 200, - [ 'Content-Type' => 'text/plain', ], - ])->poll_cb(sub { + [ 'Content-Type' => 'text/plain' ], + ]); + $w->poll_cb(sub { my $writer = shift; if ( @queue ) {