From: Arthur Axel 'fREW' Schmidt Date: Thu, 8 Jul 2010 22:10:08 +0000 (-0500) Subject: release 0.004, hide Plack bits from PAUSE X-Git-Tag: v0.004^0 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=9ddb5734c47eaf6b3101ab5c0060bb20c149dea5;hp=6331e7c76161686b1ce41f8ecf435ceeda975e89;p=catagits%2FWeb-Simple.git release 0.004, hide Plack bits from PAUSE --- diff --git a/Changes b/Changes index 0593105..e5242ca 100644 --- a/Changes +++ b/Changes @@ -1,5 +1,8 @@ Change log for Web::Simple +0.004 - Thu Jul 08 2010 22:08 UTC + - Hide Plack Modules from PAUSE + 0.003 - Thu Jul 08 2010 14:48 UTC - Experimentally use $_[ENV] for the PSGI env - Add CSS::Declare diff --git a/lib/Web/Simple.pm b/lib/Web/Simple.pm index e74caad..797d96f 100644 --- a/lib/Web/Simple.pm +++ b/lib/Web/Simple.pm @@ -4,7 +4,7 @@ use strict; use warnings FATAL => 'all'; use 5.008; -our $VERSION = '0.003'; +our $VERSION = '0.004'; sub setup_all_strictures { strict->import; diff --git a/lib/Web/Simple/HackedPlack.pm b/lib/Web/Simple/HackedPlack.pm index 89f4e01..84a77e1 100644 --- a/lib/Web/Simple/HackedPlack.pm +++ b/lib/Web/Simple/HackedPlack.pm @@ -7,17 +7,21 @@ # So I thought perhaps I'd make it bricktext instead. # -- love, mst -package Plack::Server::CGI; +# Hide from PAUSE +package + Plack::Server::CGI; use strict; use warnings; use IO::Handle; BEGIN { - package Plack::Util; + # Hide from PAUSE + package + Plack::Util; sub foreach { my($body, $cb) = @_; - + if (ref $body eq 'ARRAY') { for my $line (@$body) { $cb->($line) if length $line;